:mp3
if
0AAB:  file_exists "bass.dll"
then
    //03E5: show_text_box 'HELP101'
    gosub @1
else
    03E5: show_text_box 'BASS1'
end


:1
0AA2: 0@ = load_library "bass.dll" // IF and SET
0AA4: 1@ = get_proc_address "BASS_Init" library 0@ // IF and SET
0AA4: 2@ = get_proc_address "BASS_PluginLoad" library 0@ // IF and SET
0AA4: 3@ = get_proc_address "BASS_StreamCreateFile" library 0@ // IF and SET
0AA4: 4@ = get_proc_address "BASS_StreamCreateURL" library 0@ // IF and SET
0AA4: 5@ = get_proc_address "BASS_ChannelPlay" library 0@ // IF and SET
0AA4: 6@ = get_proc_address "BASS_ChannelStop" library 0@ // IF and SET
0AA4: 7@ = get_proc_address "BASS_ChannelPause" library 0@ // IF and SET
0AA4: 8@ = get_proc_address "BASS_ChannelGetTags" library 0@ // IF and SET
0AA4: 9@ = get_proc_address "BASS_StreamGetFilePosition" library 0@ // IF and SET
0AA4: 10@ = get_proc_address "BASS_ChannelSetSync" library 0@ // IF and SET
0AA4: 11@ = get_proc_address "BASS_ChannelIsActive" library 0@ // IF and SET
0AA4: 12@ = get_proc_address "BASS_SetConfig" library 0@ // IF and SET
0AA4: 13@ = get_proc_address "BASS_ErrorGetCode" library 0@ // IF and SET
0AA4: 14@ = get_proc_address "BASS_StreamFree" library 0@ // IF and SET
0AA4: 15@ = get_proc_address "BASS_Free" library 0@ // IF and SET

0AAC: 16@ = load_mp3 "gate.pm3"
//0AA5: call 5@ num_params 1 pop 1 16@
0AAD: set_mp3 16@ perform_action 1


end_thread