5 FOR R=1 TO 5
7 B=25
10 READ A
20 IF A=1 THEN 100
30 SOUND A,B
40 GOTO 10
50 DATA 9417,9417,7470,6270,6270,0,3135,3135,0,3724,3724,0,9417,9417,7470,6270,6270,0
60 DATA 3135,3135,0,3516,3516,0,9951,9951,8360,5586,5586,0,2793,2793,0,3516,3516,0
70 DATA 9951,9951,8360,5586,5586,0,
793,2793,0,3724,3724,0,9417,9417,7471,6270,4670,0
80 DATA 2350,2350,0,3135,3135,0,9417,9417,7471,6270,4670,0,2350,2350,0
90 DATA 2793,0,8360,8360,7043,5586,1
100 SOUND 5586,4*B:SOUND 6643,B:SOUND 6270,B:SOUND 3724,4*B
110 SOUND 4670,B:SOUND 7471,B:SOUND 7471,B:SOUND 0,B
120 SOUND 8360,B:SOUND 5586,B:SOUND 0,B:SOUND 6270,B
130 SOUND 9417,1.5*B:SOUND 9417,B/2:SOUND 9417,B:SOUND 9417,B
135 RESTORE:FOR D=1 TO 1000:NEXT D
140 NEXT R