10 CLV:VIDEO 3:CLS
20 A=#700
30 FOR N=1 TO 75
40 POKE A+N,0
50 NEXT
60 ?"PUSH ANY KEY"
70 IF !INKEY() CONT
80 SRND TICK():CLS
90 FOR X=0 TO 4
100 FOR Y=0 TO 4
110 LC X*3,Y*2
120 IF X=2 && Y=2 ?CHR$(255,255):GOTO @NPASS
130 N=X*15+RND(15)+1:IF PEEK(A+N) CONT
140 POKE A+N,1
150 Z=X+Y*5:[Z]=N
160 ?DEC$(N+100,2)
170 @NPASS
180 NEXT
190 NEXT
200 X=0:Y=0
210 @LOOP
220 LC X*3,Y*2,1
230 K=INKEY()
240 X=X-(K=28)*(X>0)+(K=29)*(X<4)
250 Y=Y-(K=30)*(Y>0)+(K=31)*(Y<4)
260 IF K!=32 GOTO @LOOP
270 BEEP
280 LC X*3,Y*2:Z=X+Y*5
290 IF SCR(X*3,Y*2)=255 ?DEC$([Z]+100,2) ELSE ?CHR$(255,255)
300 GOTO @LOOP