A twisty, turvy 3D maze game!
PROG : 16509
D-FILE: 20992
VARS : 21785
E-LINE: 21786
STKBOT: 21786
STKEND: 21786
9999 means line number
PRINT means treat as KEYWORD P
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