10 @ARUN:'*PK
20 CLV
30 FOR P=1 TO 11:OUT P,0:NEXT
40 LET [0],`0111111,`0000110,`1011011,`1001111,`1100110,`1101101,`1111101,`0100111,`1111111,`1101111
50 @START
60 OUT [G%10]
70 BEEP 10,30
80 WAIT 30
90 @IND
100 D=1-D
110 OUT 8+D,1
120 WAIT 3
130 OUT 8+D,0
140 WAIT 3
150 A=(ANA()-512)/256
160 IF A=0 GOTO @IND
170 D=(A+1)/2
180 BEEP
190 OUT 8+D,1
200 WAIT 30
210 SRND TICK()
220 R=RND(2)
230 OUT 10+R,1
240 WAIT 30
250 IF D!=R G=G+1:GOTO @START
260 BEEP 30,60
270 WAIT 60
280 IF !BTN() CONT
290 RUN