10 'MUSIC BOX
20 M=12
30 S="ラ--シ--ド-レ--ミ--ファ-ソ--ラ--シ--ド-レ--ミ--"
40 LET[0],227,202,191,170,152,143,128,114,101,96,85,76
50 OUT5,0:L=10:N=2:P=50
60 FORJ=0TO31
70 IFSCR(0,1)=0GOTO@L
80 IFSCR(0,1)=32GOTO@L
90 F=-1
100 FORI=1TOM
110 IFSCR(0,I)=79:F=M-I
120 NEXT
130 IFF>=0PWM5,[F]*P/100,[F]
140 WAITL-N
150 OUT5,0:WAITN:SCROLL3
160 NEXT
170 @L:CLS:FORI=1TOM:LC0,I
180 FORJ=0TO2
190 ?CHR$(PEEK(S+(M-I)*3+J));
200 NEXT
210 FORJ=3TO31:?"-";:NEXT
220 NEXT
230 @E:LC0,0:?"LRUN";FILE()
240 LC0,M+2:END