Maze Dash

Gallery

Source Code

   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
6000 CLS 
6001 LET ANS=0
6002 LET U=0
6003 PRINT "%M%A%Z%E% %D%A%S%H"
6010 PRINT AT 1,0;"----------"
6020 PRINT AT 5,0;"YOU ARE THE ""$"""
6030 PRINT AT 8,0;"%P%R%E%S%S ""Q"" TO MOVE %U%P"
6040 PRINT AT 15,0;"%P%R%E%S%S ""Z"" TO MOVE %D%O%W%N"
6050 PRINT AT 11,9;"%P%R%E%S%S ""L"" TO MOVE %R%I%G%H%T"
6060 PRINT AT 18,0;"%O%B%J%E%C%T: GET TO THE RIGHT SIDE,  HITTING AS FEW BARRIERS AS      POSSIBLE"
6070 FOR P=1 TO 160
6080 NEXT P
6085 CLS 
6090 GOTO 7
9000 LET A=10
9010 LET B=1
9020 LET Z=20000
9030 LET Y=A
9040 LET X=B
9050 LET A$="Z"
9490 SLOW 
9500 RETURN 
9888 STOP 
9975 LET R=RND*RND*RND
9990 STOP 
9991 CLEAR 
9992 SAVE "1019%4"
9993 RUN