Source Code
5 FAST
10 REM "CHASE"
20 LET A=INT (RND*62)+1
30 LET B=INT (RND*41)+1
40 LET C=INT (RND*62)+1
50 LET D=INT (RND*41)+1
60 FOR N=0 TO 63
70 PLOT N,0
80 PLOT N,42
90 NEXT N
100 FOR N=42 TO 0 STEP -1
110 PLOT 0,N
120 PLOT 63,N
130 NEXT N
140 PRINT AT 0,12;"""CHASE"""
145 SLOW
150 FOR N=1 TO 499
160 LET K$=INKEY$
170 UNPLOT A,B
180 LET A=A+(K$="8")*(A<62)-(K$="5")*(A>1)
190 LET B=B+(K$="7")*(B<41)-(K$="6")*(B>1)
200 PLOT A,B
210 LET C=C+(C<A)-(C>A)/2
220 LET D=D+(D<B)/2-(D>B)
230 PLOT C,D
240 IF A=C AND B=D THEN GOTO 260
250 NEXT N
260 PRINT AT 0,11;"GAME OVER"
270 PRINT TAB 6;"YOUR SCORE IS, ";N
280 STOP
290 CLEAR
300 SAVE "1031%7"
310 RUN
