Space Taxi

You are the pilot of a space taxi in the year 2081. You have just picked up a fare who must catch the next ship to Zeta Chi LXXXI. Naturally, there is a big tip if you make it in one piece. You control your taxi by the 6 and 7 keys to avoid the buildings and the other traffic (which appears to be standing still because you are going so fast). If you crash before getting to the spaceport, the space odometer will show how many blocks you passed before the crash.

Type in the program and then SAVE it before playing. After SAVEing, hit SLOW and ENTER. Your taxi is immediately underway. So be prepared to drive with the 6 and 7 keys.

Graphics note:

Line 60: inverse space.
Line 150: inverse graphic on M.
Line 1010: inverse space.
Line 1030: inverse O.

  10 LET S=0
  20 LET Y=2
  30 LET X=0
  40 CLS
  50 GOSUB 1000
  60 PRINT AT Y,X;"█"
  70 LET D=0
  80 IF INKEY$="7" THEN LET D=-1
  90 IF INKEY$="6" THEN LET D=1
 100 LET S=S+1
 110 LET X=X+1
 120 IF X=31 THEN GOTO 30
 130 LET Y=Y+D
 140 IF Y<1 THEN LET Y=1
 150 PRINT AT Y,X;"[inv gM]"
 160 PRINT AT Y,X+1;
 170 IF PEEK (PEEK 16398+256*PEE
K 16399)=128 THEN GOTO 60
 180 PRINT S
 190 INPUT J$
 200 RUN
1000 FOR J=0 TO 31
1005 FOR I=1 TO 2+INT (RND*4)
1010 PRINT AT I,J;"█"
1015 NEXT I
1020 NEXT J
1025 FOR I=1 TO 15
1030 PRINT AT INT (RND*5)+1,I*2;
"[inv O]"
1035 NEXT I
1040 RETURN