10 CLV
20 VIDEO 7:CLS
90 FOR I=1 TO 10
100 R=RND(75)+1
105 IF [R] GOTO 100
110 LC 1,1
120 ?R;" ";
125 BEEP 10,2
130 WAIT 6
140 NEXT
150 BEEP 10,30
160 [R]=1
200 K=INKEY()
210 IF K=32 GOTO 20
211 IF K!=10 GOTO 200
212 VIDEO 1:CLS
213 FOR N=1 TO 75
215 IF [N] ?DEC$(N+100,2);" "; ELSE ?"-- ";
216 IF N%10=0 ?
219 NEXT
220 GOTO 200