Maze Dash

   0 REM  "MAZE DASH"                     TIM HARTNELL
   3 GOTO 6000
   4 LET U=0
   9 PRINT AT 3,0;"DO YOU WANT TO SEE THE MAZE     DRAWN? (1=YES/2=NO)"
  10 INPUT WW
  11 IF WW=1 THEN GOTO 15
  12 IF WW=2 THEN FAST 
  13 IF WW>2 OR WW<1 THEN GOTO 10
  15 CLS 
  16 FOR B=2 TO 28 STEP 2
  20 FOR A=0 TO 19
  30 PRINT AT A,B;"% "
  40 NEXT A
  45 PRINT AT RND*14+3,B;" "
  50 NEXT B
  60 FOR A=0 TO 30
  70 PRINT AT 0,A;"\##";AT 19,A;"\##"
  80 NEXT A
  90 FOR B=1 TO 18
 100 PRINT AT B,0;"\##";AT B,30;"\##"
 110 NEXT B
 120 GOSUB 9000
 125 GOTO 167
 150 PRINT AT A,B;"%$"
 155 LET Z=Z-673
 160 PRINT AT 20,0;"SCORE: ";Z;"    "
 165 RETURN 
 167 LET Z$=INKEY$
 170 IF Z$="" THEN LET Z$=A$
 180 LET Z=Z-50
 200 LET Y=A
 210 LET X=B
 220 LET A=A+(Z$="Z")-(Z$="Q")
 230 LET B=B+(Z$="L")
 232 PRINT AT Y,X;" "
 233 IF PEEK (PEEK 16396+256*PEEK 16397+33*A+B+1)=128 THEN GOSUB 150
 235 PRINT AT A,B;"$"
 255 IF A>18 OR A<2 OR B<1 THEN LET Z=INT (Z/3)
 260 IF A>18 OR A<2 OR B<1 OR B>29 THEN GOTO 510
 490 LET A$=Z$
 500 GOTO 167
 510 PRINT AT 20,0;"END OF ROUND--SCORE: ";Z
 520 IF Z>U THEN LET U=Z
 530 FOR G=1 TO 6
 540 PRINT AT 21,3;"HIGH SCORE : ";U
 545 PRINT AT A,B;"%$";AT A,B;"$";AT A,B;"%$"
 550 PRINT AT 21,3;"%H%I%G%H% %S%C%O%R%E "
 552 NEXT G
 558 LET ANS=0
 559 PRINT AT 0,0;"                          "
 560 PRINT AT 1,0;"%T%R%Y% %A%G%A%I%N%?%-%-%(%<%1%=%Y%/%2%=%N%>%)   "
 561 PRINT AT 2,0;"                          "
 562 INPUT ANS
 563 IF ANS<1 OR ANS>2 THEN GOTO 560
 565 IF ANS=2 THEN GOTO 9888
 567 IF ANS=1 THEN GOTO 570
 570 CLS 
 580 GOTO 5
\n6000 CLS 
\n6001 LET ANS=0
\n6002 LET U=0
\n6003 PRINT "%M%A%Z%E% %D%A%S%H"
\n6010 PRINT AT 1,0;"----------"
\n6020 PRINT AT 5,0;"YOU ARE THE ""$"""
\n6030 PRINT AT 8,0;"%P%R%E%S%S ""Q"" TO MOVE %U%P"
\n6040 PRINT AT 15,0;"%P%R%E%S%S ""Z"" TO MOVE %D%O%W%N"
\n6050 PRINT AT 11,9;"%P%R%E%S%S ""L"" TO MOVE %R%I%G%H%T"
\n6060 PRINT AT 18,0;"%O%B%J%E%C%T: GET TO THE RIGHT SIDE,  HITTING AS FEW BARRIERS AS      POSSIBLE"
\n6070 FOR P=1 TO 160
\n6080 NEXT P
\n6085 CLS 
\n6090 GOTO 7
\n9000 LET A=10
\n9010 LET B=1
\n9020 LET Z=20000
\n9030 LET Y=A
\n9040 LET X=B
\n9050 LET A$="Z"
\n9490 SLOW 
\n9500 RETURN 
\n9888 STOP 
\n9975 LET R=RND*RND*RND
\n9990 STOP 
\n9991 CLEAR 
\n9992 SAVE "1019%4"
\n9993 RUN