Racer 2

Gallery

Source Code

  10 REM "RACER 2"
  20 LET A=10
  30 LET B=A
  40 LET C=A+A
  50 LET D=9
  60 PRINT AT C,D;"% \##\##\##\##% "
  70 PRINT AT A,B;"\##"
  80 SCROLL 
  90 IF INKEY$="M" THEN LET B=B+1
 100 IF INKEY$="Z" THEN LET B=B-1
 110 PRINT AT A,B;"%H"
 115 IF D<17  THEN LET D=D+2*RND
 120 PRINT AT 11,B;
 130 IF D>7 THEN LET D=D-2*RND
 140 IF PEEK (PEEK 16398+PEEK 16399*256)=128 THEN STOP 
 150 GOTO 60
 160 SAVE "1022%3"
 170 RUN