' *** SONGPLAY.LST *** 2nd GFA-Manual, page 16-13 > PROCEDURE song_play(adr%) ' ' *** Play a XBIOS 32 song ' *** Address of song (in byte-array or INLINE-line) is adr% ' *** Key-click is temporarily off ' ' *** Global: song.adr% [for Song_restart en Song_continue] ' song.adr%=adr% SPOKE &H484,BCLR(PEEK(&H484),0) ! key-click off ~XBIOS(32,L:song.adr%) ! start the song RETURN ' ********* '