10 '*3156 Simon
20 CLV:VIDEO 0
30 SRND ANA(2)
40 P="C;D;E;F;G;A;"
50 LET [91],1,2,3,6,7,14
60 WAIT 60
70 OUT 0:GSB 180:WAIT 60
80 L=L+1:IF L>90 L=1
90 SRND ANA(2)+TICK()
100 [L]=RND(6)+1
110 FOR I=1 TO L:D=[I]:GSB 190:NEXT
120 OUT 0:WAIT 60:GSB 180
130 I=0:D=1:GSB 210
140 I=I+1:GSB 220
150 IF D<>[I] BEEP 30,90:LED 1:END
160 GSB 190:IF I<L GOTO 140
170 WAIT 30:GOTO 70
180 BEEP 8:WAIT 8:BEEP 8:RTN
190 GSB 210
200 PLAY P+(D-1)*2:LED 1:WAIT 30:LED 0:RTN
210 OUT [90+D]:RTN
220 IF BTN() RTN
230 IF IN(1) GOTO 220
240 D=D+1:IF D>6 D=1
250 BEEP:GSB 210:WAIT 20:GOTO 220