10 PLAYTONE 50,100:SLEEP 200
20 PLAYTONE 50,100:SLEEP 200
30 PLAYTONE 50,100:SLEEP 200
35 SLEEP 600
40 PLAYTONE 50,300:SLEEP 600
50 PLAYTONE 50,300:SLEEP 600
60 PLAYTONE 50,300:SLEEP 600
65 SLEEP 600
70 PLAYTONE 50,100:SLEEP 200
80 PLAYTONE 50,100:SLEEP 200
90 PLAYTONE 50,100:SLEEP 200
95 SLEEP 600
100 IF INKEY(0) THEN STOP
110 GOTO 10