1 ad=&Hc000 'ÌßÚ²Ô° É ¾Ýij ±ÄÞÚ½
2 defusr1=ad+&H10 '1 ·®¸ »²¾²
3 defusr2=ad+&H13 'BGM ¼®·¶
4 defusr3=ad+&H16 'BGM 1tick »²¾²
5 defusr4=ad+&H19 'PCG µÄÄÒ
6 defusr5=ad+&H1B '·®¸½³ É ¼­Ä¸
7 max=usr5(0)
9 print chr$(12)
10 print "input song number (0 -";max-1;")"
20 input n%
30 if (n% < 0 or n% >= max) then 10
40 print "play #";n%;" (ESC:stop)"
50 a=usr1(n%)
60 goto 10