CLS
NEW
' ------- 05 Onpu Get
10 LET[0],#FF,#FF,#FF,#80,#10,#01,#BF,#D7,#FD,#80,#00,#01,#BF,#7D,#FD,#81,#11,#01,#DF,#D7
20 LET[20],#FB,#D0,#00,#0B,#DF,#EF,#FB,#DF,#EF,#FB,#C0,#28,#03,#FF,#6D,#FF,#80,#7C,#01,#FE
30 LET[40],#00,#FF,#80,#FE,#01,#BE,#C6,#FD,#BE,#D6,#FD,#BE,#D6,#FD,#80,#00,#01,#FF,#FF,#FF
40 CLS:CLP:D=0:FOR J=0TO19:FOR I=0 TO2:B=[I+J*3]
50 FOR K=0TO7:LOCATE K+I*8,J
60 IF B & #80 THEN ?CHR$(1); ELSE ?CHR$(238);:D=D+1
70 B=(B<<1)&#FF:NEXT:NEXT:?:NEXT
100 X=11:Y=18:M=11:N=13:D=D-1:T=1:G=238
110 LOCATE X,Y:?CHR$(5);
120 K=INKEY():CLK
130 A=X-(K=28)+(K=29)
140 B=Y-(K=30)+(K=31)
150 C=SCR(A,B)
160 IF C=238 THEN D=D-1:IF D=0 THEN LOCATE X,Y:?" ":LOCATE A,B:?CHR$(5):LOCATE 9,8:?"Clear":END
170 IF C<>1 THEN LOCATE X,Y:?" ";:X=A:Y=B
180 IF X=M AND Y=N THEN LOCATE 7,8:?"Game Over":END
190 T=T+1:IF (T%8)>0 THEN GOTO 110
200 LOCATE M,N:?CHR$(G);
210 E=M+(X>M)-(X<M)
220 F=N+(Y>N)-(Y<N)
230 IF SCR(E,N)<>1 THEN M=E
240 IF SCR(M,F)<>1 THEN N=F
250 G=SCR(M,N)
260 LOCATE M,N:?CHR$(237);
270 GOTO 110