ZX81 Listing for mc.p


ZX81 program listing for **MAZE CRAZE**SLR/1984*

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 20992
VARS  : 21785
E-LINE: 21786
STKBOT: 21786
STKEND: 21786


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **MAZE CRAZE**SLR/1984*
  20 PRINT AT 8,0;"MAZE I, THE T
UNNELS."
  30 PRINT AT 12,11;"·³³³³ô";
TAB 11;"µ    õ";TAB 11;"µ    õ";
TAB 11;"µ    õ";TAB 11;"µ    õ";
TAB 11;"òóóóóñ";AT 2,10;"MAZE CR
AZE";AT 4,8;"BY:STEVEN REID";AT
6,0;"USE ""1"" FOR LEFT,""2"" FO
R STRAIT,AND ""3"" FOR RIGHT."
  40 FOR Q=1 TO 5
  50 GOSUB 310
  60 NEXT Q
  70 GOSUB 470
  80 IF A=2 THEN GOSUB 310
  90 IF A=3 THEN GOTO 260
 100 GOSUB 390
 110 GOSUB 310
 120 GOSUB 310
 130 GOSUB 470
 140 IF A=3 THEN GOTO 290
 150 GOSUB 390
 170 GOSUB 310
 180 NEXT Q
 190 GOSUB 430
 200 IF A=1 THEN GOTO 260
 210 IF A=2 THEN GOSUB 310
 220 GOSUB 310
 230 GOSUB 350
 240 GOSUB 510
 250 GOSUB 550
 255 GOTO 580
 260 PRINT AT 13,12;"²  ±";AT 14
,12;" ÷´ ";AT 15,12;" ²± ";AT 16
,12;"÷  ´"
 270 PRINT AT 20,3;"SORRY, YOU D
IDN""T MAKE IT*";AT 18,5;"GAME O
VER"
 280 GOTO 1740
 290 FOR Q=1 TO 3
 292 GOSUB 310
 294 NEXT Q
 296 GOSUB 390
 298 GOSUB 310
 300 GOTO 260
 310 PRINT AT 13,12;"²  ±";AT 14
,12;" ²± ";AT 15,12;" ÷´ ";AT 16
,12;"÷  ´"
 320 INPUT A
 330 IF A<>2 THEN GOTO 320
 331 PAUSE 1
 340 RETURN
 350 PRINT AT 13,12;"²ô ±";AT 14
,12;" ÷´ ";AT 15,12;" ²± ";AT 16
,12;"֖ʫ"
 360 INPUT A
 370 IF A<>1 THEN GOTO 360
 371 PAUSE 1
 380 RETURN
 390 PRINT AT 13,12;"² ·±";AT 14
,12;" ÷´ ";AT 15,12;" ²± ";AT 16
,12;"÷ ò´"
 400 INPUT A
 410 IF A<>3 THEN GOTO 400
 411 PAUSE 1
 420 RETURN
 430 PRINT AT 13,12;"²ô ±";AT 14
,12;" ²± ";AT 15,12;" ÷´ ";AT 16
,12;"֖ʫ"
 440 INPUT A
 450 IF A=3 THEN GOTO 440
 451 PAUSE 1
 460 RETURN
 470 PRINT AT 13,12;"² ·±";AT 14
,12;" ²± ";AT 15,12;" ÷´ ";AT 16
,12;"÷ ò´"
 480 INPUT A
 490 IF A=1 THEN GOTO 480
 491 PAUSE 1
 500 RETURN
 502 PRINT AT 13,12;"²ô·±";AT 14
,12;" ÷´ ";AT 15,12;" ²± ";AT 16
,12;"÷ñò´"
 504 INPUT A
 506 IF A=2 THEN GOTO 504
 507 PAUSE 1
 508 RETURN
 510 PRINT AT 13,12;"²ô·±";AT 14
,12;" õµ ";AT 15,12;" õµ ";AT 16
,12;"÷ñò´"
 520 PRINT AT 20,5;"YOUR ALMOST 
THERE"
 530 INPUT A
 540 RETURN
 550 PRINT AT 13,12;"õOOµ";AT 14
,12;"õUUµ";AT 15,12;"õTTµ";AT 16
,12;"õ¸¸µ"
 560 PRINT AT 18,5;"YOU MADE IT"
;AT 20,5;"****YOU MADE IT****"
 570 INPUT A
 575 RETURN
 580 CLS
 590 PRINT AT 12,11;"·³³³³ô";
TAB 11;"µ    õ";TAB 11;"µ    õ";
TAB 11;"µ    õ";TAB 11;"µ    õ";
TAB 11;"òóóóóñ";AT 2,10;"MAZE CR
AZE";AT 4,8;"BY:STEVEN REID";AT
6,0;"USE ""1"" FOR LEFT,""2"" FO
R STRAIT,AND ""3"" FOR RIGHT."
 600 PRINT AT 8,0;"MAZE II,  THE
 CHALLENGE."
 610 FOR Q=1 TO 3
 620 GOSUB 310
 630 NEXT Q
 640 GOSUB 350
 650 FOR Q=1 TO 6
 660 GOSUB 310
 670 NEXT Q
 680 GOSUB 390
 690 GOSUB 390
 700 GOSUB 310
 710 GOSUB 350
 720 FOR Q=1 TO 5
 730 GOSUB 310
 740 NEXT Q
 750 GOSUB 350
 760 GOSUB 310
 770 GOSUB 390
 780 GOSUB 310
 790 GOSUB 310
 800 GOSUB 390
 810 FOR Q=1 TO 3
 820 GOSUB 310
 830 NEXT Q
 840 GOSUB 470
 850 IF A=2 THEN GOTO 910
 860 GOSUB 310
 870 GOSUB 310
 880 GOSUB 310
 890 GOSUB 390
 900 GOTO 260
 910 GOSUB 310
 920 GOSUB 310
 930 GOSUB 310
 940 GOSUB 470
 950 IF A=2 THEN GOTO 1120
 960 GOSUB 310
 970 GOSUB 310
 980 GOSUB 390
 990 GOSUB 310
1000 GOSUB 350
1010 GOSUB 310
1020 GOSUB 350
1030 GOSUB 310
1040 GOSUB 390
1050 GOSUB 310
1060 GOSUB 310
1070 GOSUB 390
1080 FOR Q=1 TO 5
1090 GOSUB 310
1100 NEXT Q
1120 GOSUB 390
1130 FOR Q=1 TO 9
1140 GOSUB 310
1150 NEXT Q
1160 GOSUB 350
1170 GOSUB 310
1180 GOSUB 390
1190 GOSUB 310
1200 GOSUB 390
1210 GOSUB 310
1220 GOSUB 310
1230 GOSUB 350
1240 GOSUB 350
1250 GOSUB 310
1260 GOSUB 310
1270 GOSUB 310
1280 GOSUB 430
1290 IF A=1 THEN GOTO 1370
1300 GOSUB 350
1310 GOSUB 310
1320 GOSUB 310
1330 GOSUB 310
1340 GOSUB 390
1350 GOSUB 310
1360 GOTO 260
1370 GOSUB 310
1380 GOSUB 310
1390 GOSUB 310
1400 GOSUB 350
1410 GOSUB 310
1420 GOSUB 390
1430 FOR Q=1 TO 8
1440 GOSUB 310
1450 NEXT Q
1460 GOSUB 390
1470 GOSUB 310
1480 GOSUB 310
1490 GOSUB 390
1500 GOSUB 310
1510 GOSUB 470
1520 IF A=2 THEN GOTO 1590
1530 GOSUB 350
1540 FOR Q=1 TO 4
1550 GOSUB 310
1560 NEXT Q
1570 GOSUB 390
1580 GOTO 260
1590 FOR Q=1 TO 5
1600 GOSUB 310
1610 NEXT Q
1620 GOSUB 350
1630 GOSUB 310
1640 GOSUB 350
1650 GOSUB 310
1660 GOSUB 350
1670 GOSUB 502
1680 IF A=1 THEN GOTO 260
1690 GOSUB 390
1700 GOSUB 310
1710 GOSUB 510
1720 GOSUB 550
1730 PRINT AT 21,0;"YOU BEAT ME*
NOW TRY MAZE CRAZE 2"
1740 PAUSE 4E4
1750 CLS
1760 RUN
2000 SAVE "MC"
2010 RUN