1 CLV:CLT
5 LET [2],"o","O","O","0",":",";","I","!","Y","V"
8 FOR L=1 TO 5
10 CLS
15 R=RND(736)
16 [0]=PEEK([L*2])
17 [1]=PEEK([L*2+1])
20 FOR I=0 TO 735
30 ?CHR$([I=R]);
40 NEXT
50 X=X-BTN(28)*(X>0)+BTN(29)*(X<31)
60 Y=Y-BTN(30)*(Y>0)+BTN(31)*(Y<22)
70 LC X,Y,1
80 WAIT 3
85 LC 0,23:?TICK()/60;
90 Z=X+Y*32
100 IF !BTN(32) OR Z!=R GOTO 50
110 BEEP
120 NEXT:?:CLK