Chase

Gallery

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