10 CLS
20 COLOR 5
30 FOR I=0 TO 21:LOCATE 0,I:PRINT STRING$(35,"#");:NEXT
40 FOR I=1 TO 20:LOCATE 1,I:PRINT SPACE$(33);:NEXT
50 X=10:Y=10:V=1:W=0:S=0
60 I$=INKEY$
70 IF I$="j" THEN V=-1:W=0
80 IF I$="l" THEN V=1:W=0
90 IF I$="i" THEN V=0:W=-1
100 IF I$="m" THEN V=0:W=1
110 P=PEEK(X+V,Y+W)
120 IF P<>32 THEN END
130 X=X+V:Y=Y+W
140 LOCATE X,Y:COLOR 3:PRINT"X";
142 S=S+1:IF S MOD 5>0 THEN GOTO 150
144 A=INT(RND*34)+1:B=INT(RND*20)+1
146 LOCATE A,B:COLOR 4:PRINT"@"
150 REM FOR I=0 TO 1000:NEXT:GOTO 60
155 LOCATE 0,22:COLOR 7:PRINT"SCORE:";S
160 A=ZTIME:B=INT(ZTIME/77)*77+77
170 IF (ZTIME>=AANDZTIME<B) THEN GOTO 170
180 GOTO 60