10 CLEAR 50,&h8EFF
20 FOR I=&H8F00 TO &H8F2F:READ A$:POKE I,VAL("&H"+A$):NEXT
30 BLOAD"MUSICED1.BIN",&H5000:DEFUSR=&H8F00:A=USR(0)
40 BLOAD"MUSICED2.BIN"
50 BLOAD"MUSICED3.BIN"
60 DEFUSR=&H8F20:A=USR(0)
70 DATA 21,00,40,3A,42,F3,CD,24,00,21,00,90,11,00,40,01
80 DATA 00,2A,ED,B0,3A,C1,FC,21,00,40,CD,24,00,C9,00,00
90 DATA 21,00,40,3A,42,F3,CD,24,00,31,00,C8,C3,00,40,00
|