.Whaddaya do if you want to call a -Megatizer- music in GfA-Basic ???
'Peek at this...
'Coded by Jedi of Sector One from The Heavy Killers
'
FILESELECT "\*.thk","",file$ ! Choose a file
IF EXIST(file$)=0 ! Does it exist ???
EDIT ! No => Back to the editor
ENDIF
'
OPEN "i",#1,file$ ! Open the file
len%=LOF(#1) ! Length of that file
RESERVE FRE(0)-len% ! Reserve a part of the memory
music%=MALLOC(len%) ! Define a buffer ( to put the music )
BGET #1,music%,len% ! Transfer the datas into the buffer
CLOSE #1 ! Close the file
'
~XBIOS(&H26,L:music%) ! Initialize the music
SLPOKE &H4D2,music%+8 ! Play it at each VBL
'
KEYGET zzz% ! Wait for a key
'
SLPOKE &H4D2,0 ! Stop playing
~XBIOS(&H26,L:music%+4) ! Switch off all voices and set back interrupts
SPOKE &H484,15 ! Enable this fuckin' 'Bip' of the keyboard
'
~MFREE(music%) ! There's no use anymore
EDIT ! Back to the editor or desktop