home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
commodore-users-of-norman
/
CUON_07_(08-1984).d64
/
labyrinth
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
9KB
|
452 lines
10 C0=0:C1=1:C2=2:C3=3:C4=4:C5=5:C6=6:C7=7:C8=8:C9=9
20 SC=1024:LL=40
30 DIMA(19,11),B(19,11)
40 A$(1)="NORTH":A$(2)="EAST":A$(3)="SOUTH":A$(4)="WEST"
50 W$="[177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178]"
60 SP$=" "
70 M1=C0:PRINT"[147]ENTER DIMENSIONS OF LABYRINTH:"
80 INPUT"HOW WIDE";H
90 IFH=C0ORH>19THENPRINT"[145][145]";:GOTO80
100 INPUT"HOW DEEP";V
110 IFV=C0ORV>10THENPRINT"[145][145]";:GOTO100
120 PRINT"NOW CREATING A"H"X"V"LABYRINTH
130 A[178]H[172]V[170]C1
140 Q[178]C0:Z[178]C0:X[178][181](H[172][187](H))[170]C1
150 AA[178]X
160 A(X,0)[178]C1:C[178]C2
170 R[178]X:S[178]C1:[137]240
180 [139]R[179][177]H[137]220
190 [139]S[179][177]V[137]210
200 R[178]C1:S[178]C1:[137]230
210 R[178]C1:S[178]S[170]C1:[137]230
220 R[178]R[170]C1
230 [139]A(R,S[171]C1)[178]C0[137]180
240 [139]R[171]C1[178]C0[137]560
250 [139]A(R[171]C1,S[171]C1)[137]560
260 [139]S[171]C1[178]C0[137]400
270 [139]A(R,S[171]C2)[137]400
280 [139]R[178]H[137]320
290 [139]A(R[170]C1,S[171]C1)[137]320
300 X[178][181](C3[172][187](C1))[170]C1
310 [145]X[137]870,910,950
320 [139]S[179][177]V[137]350
330 [139]Z[178]C1[137]380
340 Q[178]C1:[137]360
350 [139]A(R,S)[137]380
360 X[178][181](C3[172][187](C1))[170]C1
370 [145]X[137]870,910,1020
380 X[178][181](C2[172][187](C1))[170]C1
390 [137]370
400 [139]R[178]H[137]500
410 [139]A(R[170]C1,S[171]C1)[137]500
420 [139]S[179][177]V[137]450
430 [139]Z[178]C1[137]480
440 Q[178]C1:[137]460
450 [139]A(R,S)[137]480
460 X[178][181](C3[172][187](C1))[170]C1
470 [145]X[137]870,950,1020
480 X[178][181](C2[172][187](C1))[170]C1
490 [137]470
500 [139]S[179][177]V[137]530
510 [139]Z[178]C1[137]870
520 Q[178]C1:[137]540
530 [139]A(R,S)[137]870
540 X[178][181](C2[172][187](C1))[170]C1
550 [145]X[137]870,1020
560 [139]S[171]C1[178]C0[137]740
570 [139]A(R,S[171]C2)[137]740
580 [139]R[178]H[137]680
590 [139]A(R[170]C1,S[171]C1)[137]680
600 [139]S[179][177]V[137]630
610 [139]Z[178]C1[137]660
620 Q[178]C1:[137]640
630 [139]A(R,S)[137]660
640 X[178][181](C3[172][187](C1))[170]C1
650 [145]X[137]910,950,1020
660 X[178][181](C2[172][187](C1))[170]C1
670 [137]650
680 [139]S[179][177]V[137]710
690 [139]Z[178]C1[137]910
700 Q[178]C1:[137]720
710 [139]A(R,S)[137]910
720 X[178][181](C2[172][187](C1))[170]C1
730 [145]X[137]910,1020
740 [139]R[178]H[137]820
750 [139]A(R[170]C1,S[171]C1)[137]820
760 [139]S[179][177]V[137]790
770 [139]Z[178]C1[137]950
780 Q[178]C1:[137]800
790 [139]A(R,S)[137]950
800 X[178][181](C2[172][187](C1))[170]C1
810 [145]X[137]950,1020
820 [139]S[179][177]V[137]850
830 [139]Z[178]C1[137]180
840 Q[178]C1:[137]860
850 [139]A(R,S)[137]180
860 [137]1020
870 A(R[171]C1,S[171]C1)[178]C
880 C[178]C[170]C1:B(R[171]C1,S[171]C1)[178]C2:R[178]R[171]C1
890 [139]C[178]A[137]1120
900 Q[178]C0:[137]240
910 A(R,S[171]C2)[178]C
920 C[178]C[170]C1
930 B(R,S[171]C2)[178]C1:S[178]S[171]C1:[139]C[178]A[137]1120
940 Q[178]C0:[137]240
950 A(R[170]C1,S[171]C1)[178]C
960 C[178]C[170]C1:[139]B(R,S[171]C1)[178]C0[137]980
970 B(R,S[171]C1)[178]C3:[137]990
980 B(R,S[171]C1)[178]C2
990 R[178]R[170]C1
1000 [139]C[178]A[137]1120
1010 [137]560
1020 [139]Q[178]C1[137]1080
1030 A(R,S)[178]C:C[178]C[170]C1:[139]B(R,S[171]C1)[178]C0[137]1050
1040 B(R,S[171]C1)[178]C3:[137]1060
1050 B(R,S[171]C1)[178]C1
1060 S[178]S[170]C1:[139]C[178]A[137]1120
1070 [137]240
1080 Z[178]C1
1090 [139]B(R,S[171]C1)[178]C0[137]1110
1100 B(R,S[171]C1)[178]C3:Q[178]C0:[137]180
1110 B(R,S[171]C1)[178]C1:Q[178]C0:R[178]C1:S[178]C1:[137]230
1120 [139]Z[179][177]C1[167]X[178][181](H[172][187](C1))[170]C1:B(X,V[171]C1)[178]B(X,V[171]C1)[170]C1
1130 [141]1140:[151]SC[170]12[172]LL[170]18[171]H[170]LL[172]V[170]2[172]AA,30:[137]1410
1140 [143] PRINT MAZE ***
1150 M1[178]C1:[153]"LOAD";:[139]V[178]11[167]1170
1160 [129]I[178]C1[164]11[171]V:[153]:[130]
1170 [129]J[178]V[164]C1[169][171]C1:[153][166]19[171]H)
1180 [129]I[178]C1[164]H:[153]" ";
1190 [139]B(I,J[171]C1)[178]C0[137]1230
1200 [139]B(I,J[171]C1)[178]C2[137]1230
1210 [153]"STOP ";
1220 [137]1240
1230 [153]" ";
1240 [130]I
1250 [153]" ":[143] FINISH LINE
1260 [153][166]19[171]H)" ";
1270 [129]I[178]C1[164]H:[153]"STOP ";
1280 [139]B(I,J[171]C1)[179]C2[137]1310
1290 [153]"STOP ";
1300 [137]1320
1310 [153]" ";
1320 [130]I:[153]
1340 [130]J
1350 [153][166]19[171]H)"";:[129]I[178]C1[164]H
1360 [139]I[178]AA[137]1380
1370 [153]" ";:[137]1390
1380 [153]" STOP ";
1390 [130]I
1400 [153]" ":[142]
1410 W[178]AA
1420 [129]J[178]C0[164]V[171]C1
1430 [129]I[178]C1[164]H
1440 [139]J[137]1470
1450 [139]I[178]W[167]A(I,J)[178](C3[171]B(I,J))[172]C2:[137]1490
1460 M[178]C1:[137]1480
1470 M[178](A(I,J[171]C1)[175]2)[173]C2
1480 A(I,J)[178](C3[171]B(I,J))[172]C2[170]M[172]C8
1490 [139]I[178]C1[167]M[178]C1:[137]1510
1500 M[178](A(I[171]C1,J)[175]4)[173]C4
1510 A(I,J)[178]A(I,J)[170]M
1520 [130]I
1530 [130]J
1540 [153]"LOAD";
1550 X[178]W:Y[178]C0:Z[178]C1:EL[178]C1:ER[178]C1
1560 [137]2260
1570 [153]"YOU CAN GIVE THE FOLLOWING INSTRUCTIONS:";
1580 [153]"FWAIT-MOVE FORWARDS ONE BLOCK;"
1590 [153]"LWAIT-TURN LEFTCLOSE90 DEGRESS;"
1600 [153]"RWAIT-TURN RIGHTCLOSE90 DEGREES;"
1610 [153]"HWAIT-HELP!"
1620 [142]
1630 [141]1140:[153]"YOU ARE HERE SPC(, FACING "A$(Z)
1640 [151]SC[170]LL[172]12[170]18[171]H[170]LL[172]V[170]2[172]X[171](LL[172]2)[172]Y,102
1650 [139]Y[177]V[137]4520
1660 [153]"WHAT NOW?";
1670 [161]Z$:[139]Z$[178]""[137]1670
1680 [139]Z$[178]"L"[137]1730
1690 [139]Z$[178]"R"[137]1750
1700 [139]Z$[178]"F"[137]2210
1710 [139]Z$[178]"H"[137]1630
1720 [137]1670
1730 Z[178]Z[171]C1:[139]Z[179]C1[167]Z[178]Z[170]C4
1740 [137]2260
1750 Z[178]Z[170]C1:[139]Z[177]C4[167]Z[178]Z[171]C4
1760 [137]2260
1770 [142]
1780 [139]Z[178]C1[167]A1[178]A[171]C1:B1[178]B[171]C1:[137]1830
1790 [139]Z[178]C2[175]B[179]V[167]A1[178]A:B1[178]B:[137]1830
1800 [139]Z[178]C3[167]A1[178]A[170]C1:B1[178]B[171]C1:[137]1830
1810 [139]Z[178]C4[175]B[177]C1[167]A1[178]A:B1[178]B[171]C2:[137]1830
1820 EL[178]C1:[142]
1830 F[178]A(A1,B1):[139]Z[178]C1[137]1850
1840 [129]I[178]C2[164]Z:F[178](F[175]14)[173]C2[170](F[175]C1)[172]C8:[130]
1850 EL[178](F[175]C2)[173]C2:[142]
1860 [139]Z[178]C1[167]A1[178]A[170]C1:B1[178]B[171]C1:[137]1910
1870 [139]Z[178]C2[175]B[177]C1[167]A1[178]A:B1[178]B[171]C2:[137]1910
1880 [139]Z[178]C3[167]A1[178]A[171]C1:B1[178]B[171]C1:[137]1910
1890 [139]Z[178]C4[175]B[179]V[167]A1[178]A:B1[178]B:[137]1910
1900 ER[178]C1:[142]
1910 F[178]A(A1,B1):[139]Z[178]C1[137]1930
1920 [129]I[178]C2[164]Z:F[178](F[175]14)[173]C2[170](F[175]C1)[172]C8:[130]
1930 ER[178](F[175]C2)[173]C2:[142]
1940 [139]B[178]C0[137]2020
1950 [139]B[177]V[167]E[178]C3:[142]
1960 F[178]A(A,B[171]C1):[139]Z[178]C1[137]1980
1970 [129]I[178]C2[164]Z:F[178](F[175]14)[173]C2[170](F[175]C1)[172]C8:[130]
1980 C[178]F[175]C1:D[178](F[175]4)[173]C4:E[178](F[175]2)[173]C2
1990 [139]C[178]C0[167][141]1780
2000 [139]D[178]C0[167][141]1860
2010 [142]
2020 C[178]C0:D[178]C0:E[178][171]C1
2030 [139]Z[179][177]1[137]2070
2040 E[178]C1
2050 [139]A[178]W[167]E[178]C0
2060 [142]
2070 [139]Z[178]C3[167]E[178]C2:[142]
2080 [139]Z[178]C2[175]A[178]H[167]E[178]C2:[142]
2090 [139]Z[178]C4[175]A[178]C1[167]E[178]C2:[142]
2100 [142]
2110 [139]E[177]C0[137]2170
2120 [139]Z[178]C1[167]B[178]B[170]C1:[142]
2130 [139]Z[178]C2[167]A[178]A[170]C1:[142]
2140 [139]Z[178]C3[167]B[178]B[171]C1:[142]
2150 [139]Z[178]C4[167]A[178]A[171]C1:[142]
2160 [153]"";:[142]
2170 [139]E[178]C0[137]2190
2180 [153]"";
2190 S[178]C1
2200 [142]
2210 A[178]X:B[178]Y
2220 [141]1940
2230 [141]2110
2240 X[178]A:Y[178]B
2250 [139]E[177]C0[137]1650
2260 A[178]X:B[178]Y
2270 [141]1940
2280 [143] DISPLAY 5 DEPTHS
2290 [129]T[178]C1[164]5
2300 [141]2410
2310 [139]E[167]T[178]C5:[137]2350
2320 [141]2110
2330 [141]1940
2340 [139]E[177]C1[167]T[178]C5:[137]2350
2350 [130]T
2360 [139]X[178]W[175]Y[178]C0[175]Z[178]C1[137]2400
2370 [139]X[179][177]W[175]Y[178]C0[175]Z[178]C1[167][141]2160:[153]"ONONONONEXTERNAL WALL":[137]2390
2380 [137]2400
2390 [141]2160:[153]"ONONYOU'RE OUTSIDE!
2400 GOTO1650
2410 ONTGOTO2420,2780,3220,3710,4250
2420 REM DISPLAY DEPTH 1
2430 PRINT"[147]";
2440 IFE>C2THENRETURN
2450 IFE<C0ORE>C1THENGOSUB2180:RETURN
2460 FORI=C1TO21:IFC=C1THENPRINT"[167]";:GOTO2520
2470 IFY=C0THENPRINT""MID$(W$,(IANDC1)+C1,C8);:GOTO2520
2480 IFEL=C1THENPRINT"[166][166][166][166][166][166][166][166]";:GOTO2520
2490 IFI=C2THENPRINT"[164][164][164][164][164][164][164][166]";:GOTO2520
2500 IFI<18THENPRINT"[166]";:GOTO2520
2510 PRINT" [146][166]";
2520 IFE=C0THENPRINTSPC(22);:GOTO2550
2530 IFY=C0THENPRINT""MID$(W$,(IANDC1)+C1,22);:GOTO2550
2540 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]";
2550 IFD=C1THENPRINT"[165]":GOTO2610
2560 IFY=C0THENPRINT""MID$(W$,(IANDC1)+C1,C8):GOTO2610
2570 IFER=C1THENPRINT"[166][166][166][166][166][166][166][166]":GOTO2610
2580 IFI=C2THENPRINT"[166][164][164][164][164][164][164][164]":GOTO2610
2590 IFI<18THENPRINT"[166]":GOTO2610
2600 PRINT"[166] "
2610 NEXT
2620 FORI=C1TOC3:IFC=C1OR(X=WANDY=C0)GOTO2680
2630 IFI<>C1THEN2650
2640 IFEL=C0THENPRINT"[163][163][163][163][163][163][163][206]";:GOTO2690
2650 PRINT""LEFT$(SP$,C8-I)"[206]"LEFT$(SP$,I-C1);
2660 IFI=C1GOTO2690
2670 GOTO2700
2680 PRINTSPC(C9-I)"[169]"LEFT$(SP$,I-C1);:IFI<>C1THEN2700
2690 IFE=C0THENPRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";:GOTO2710
2700 PRINT" ";
2710 IFD=C1OR(X=WANDY=C0)GOTO2750
2720 IFI<>C1THEN2740
2730 IFER=C0THENPRINT"[205][163][163][163][163][163][163][163]":GOTO2760
2740 PRINT""LEFT$(SP$,I-C1)"[205]"LEFT$(SP$,C8-I):GOTO2760
2750 PRINT""LEFT$(SP$,I-C1)"[223]"
2760 NEXTI
2770 RETURN
2780 REM DISPLAY DEPTH 2
2790 PRINT"";:Z$=""
2800 FORI=C1TOC2:PRINTZ$;:IFC=C0GOTO2830
2810 PRINTSPC(I+C1)"[205]";SPC(C2-I);:GOTO2860
2820 PRINT"[205]";:GOTO2860
2830 IFI=C1THENPRINTSPC(C4):GOTO2860
2840 IFEL=C1THENPRINT"[164][164][164][164]";:GOTO2860
2850 PRINT"[164]";
2860 IFE=C0ORI=C1THENPRINTSPC(14);:GOTO2880
2870 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
2880 IFD=C0GOTO2900
2890 PRINTSPC(C2-I)"[206]":GOTO2930
2900 IFI=C1THENPRINT:GOTO2930
2910 IFER=C1THENPRINT"[164][164][164][164]":GOTO2930
2920 PRINT"[164]"
2930 NEXT
2940 FORI=C1TO15:PRINTZ$;:IFC=C1THENPRINT"[167]";:GOTO2990
2950 IFEL=C1THENPRINT"[166][166][166][166][146]";:GOTO2990
2960 IFI=C3THENPRINT"[164][164][164][166][146]";:GOTO2990
2970 IFI>12THENPRINT" [166][146]";:GOTO2990
2980 PRINT" [166][146]";
2990 IFE=C0THENPRINT"";:GOTO3010
3000 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][146]";
3010 IFD=C1THENPRINT"[165]":GOTO3060
3020 IFER=C1THENPRINT"[166][166][166][166]":GOTO3060
3030 IFI=C3THENPRINT"[166][146][164][164][164]":GOTO3060
3040 IFI>12THENPRINT"[166] ":GOTO3060
3050 PRINT"[166]"
3060 NEXT
3070 FORI=C1TO4:PRINTZ$;:IFC=C1GOTO3120
3080 IFI<>C1GOTO3110
3090 IFEL=C0THENPRINT"[163][163][163][206]";:GOTO3130
3100 PRINT" [206]";:GOTO3130
3110 PRINT""LEFT$(SP$,C4-I)"[206]"LEFT$(SP$,I-C1);:GOTO3140
3120 PRINTSPC(C4-I)"[169]"LEFT$(SP$,I-C1);:IFI<>C1THEN3140
3130 IFE=C0THENPRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163]";:GOTO3150
3140 PRINT" ";
3150 IFD=C1GOTO3190
3160 IFI<>C1THEN3180
3170 IFER=C0THENPRINT"[205][163][163][163]":GOTO3200
3180 PRINT""LEFT$(SP$,I-C1)"[205]"LEFT$(SP$,C4-I):GOTO3200
3190 PRINT""LEFT$(SP$,I-C1)"[223]":GOTO3200
3200 NEXTI
3210 RETURN
3220 REM DISPLAY DEPTH 3
3230 PRINT"";:Z$=Z$+""
3240 FORI=C1TO3:PRINTZ$;:IFC=C0GOTO3260
3250 PRINTSPC(I-C1)"[205]"SPC(C3-I);:GOTO3290
3260 IFI<C3THENPRINT"";:GOTO3290
3270 IFEL=C1THENPRINT"[164][164][164]";:GOTO3290
3280 PRINT"[164]";
3290 IFE=C0ORI<=C2THENPRINT"";:GOTO3310
3300 PRINT"[164][164][164][164][164][164][164][164]";
3310 IFD=C0GOTO3330
3320 PRINTSPC(3-I)"[206]":GOTO3360
3330 IFI<C3THENPRINT:GOTO3360
3340 IFER=C1THENPRINT"[164][164][164]":GOTO3360
3350 PRINT"[164]"
3360 NEXT
3370 FORI=C1TO9:PRINTZ$;:IFC=C1THENPRINT"[167]";:GOTO3420
3380 IFEL=C1THENPRINT"[166][166][166]";:GOTO3420
3390 IFI=C2THENPRINT"[164][164][166]";:GOTO3420
3400 IFI>C7THENPRINT" [146][166]";:GOTO3420
3410 PRINT" [166]";
3420 IFE=C0THENPRINT"";:GOTO3440
3430 PRINT"[166][166][166][166][166][166][166][166]";
3440 IFD=C1THENPRINT"[165]":GOTO3490
3450 IFER=C1THENPRINT"[166][166][166]":GOTO3490
3460 IFI=C2THENPRINT"[166][164][164]":GOTO3490
3470 IFI>C7THENPRINT"[166] [146]":GOTO3490
3480 PRINT"[166]"
3490 NEXT
3500 FORI=C1TO3:PRINTZ$;:IFC=C1GOTO3560
3510 IFI<>C1THEN3530
3520 IFEL=C0THENPRINT"[163][163][206]";:GOTO3570
3530 PRINT""LEFT$(SP$,C3-I)"[206]"LEFT$(SP$,I-C1);
3540 IFI=C1THEN3570
3550 GOTO3580
3560 PRINTSPC(C3-I)"[169]"LEFT$(SP$,I-C1);:GOTO3540
3570 IFE=C0THENPRINT"[163][163][163][163][163][163][163][163]";:GOTO3590
3580 PRINT" ";
3590 IFD=C1GOTO3650
3600 IFI<>C1THEN3620
3610 IFER=C0THENPRINT"[205][163][163]":GOTO3690
3620 PRINT""LEFT$(SP$,I-C1)"[205]"LEFT$(SP$,C3-I):GOTO3690
3650 PRINT""LEFT$(SP$,I-C1)"[223]"
3690 NEXTI
3700 RETURN
3710 REM DISPLAY DEPTH 4
3720 PRINT"";:Z$=Z$+""
3730 FORI=C1TO2:PRINTZ$;:IFC=C0GOTO3770
3740 PRINTSPC(I-C1)"[205]"SPC(C2-I);:GOTO3810
3770 IFI=C1THENPRINT"";:GOTO3810
3790 IFEL=C1THENPRINT"[164][164]";:GOTO3810
3800 PRINT"[164]";
3810 IFE=C0ORI=C1THENPRINT"";:GOTO3830
3820 PRINT"[164][164][164][164]";
3830 IFD=C0GOTO3870
3840 IFI=C1THENPRINT"";
3850 PRINT"[206]":GOTO3910
3870 IFI=C1THENPRINT:GOTO3910
3890 IFER=C1THENPRINT"[164][164]":GOTO3910
3900 PRINT"[164]"
3910 NEXT
3920 FORI=C1TO5:PRINTZ$;:IFC=C1THENPRINT"[167]";:GOTO3970
3930 IFEL=C1THENPRINT"[166][166][146]";:GOTO3970
3940 IFI=C1THENPRINT"[164][166][146]";:GOTO3970
3950 IFI>4THENPRINT"[163][166][146]";:GOTO3970
3960 PRINT" [166][146]";
3970 IFE=C0THENPRINT"";:GOTO3990
3980 PRINT"[166][166][166][166][146]";
3990 IFD=C1THENPRINT"[165]":GOTO4040
4000 IFER=C1THENPRINT"[166][166]":GOTO4040
4010 IFI=C1THENPRINT"[166][146][164]":GOTO4040
4020 IFI>C4THENPRINT"[166] ":GOTO4040
4030 PRINT"[166]"
4040 NEXT
4050 FORI=C1TO2:PRINTZ$;:IFC=C1GOTO4100
4060 IFI<>C1THEN4080
4070 IFEL=C0THENPRINT"[163][206]";:GOTO4130
4080 PRINT""LEFT$(SP$,C2-I)"[206]"LEFT$(SP$,I-C1);
4085 IFI=C1THEN4130
4090 GOTO4140
4100 IFI=C1THENPRINT"";
4110 PRINT"[169]";
4120 IFI=C2THENPRINT" ";:GOTO4140
4130 IFE=C0THENPRINT"[163][163][163][163]";:GOTO4150
4140 PRINT" ";
4150 IFD=C1GOTO4200
4160 IFI<>C1THEN4180
4170 IFER=C0THENPRINT"[205][163]":GOTO4230
4180 PRINT""LEFT$(SP$,I-C1)" "LEFT$(SP$,C2-I):GOTO4230
4200 PRINT"";:IFI=C2THENPRINT" ";
4210 PRINT"[223]"
4230 NEXTI
4240 RETURN
4250 REM DISPLAY DEPTH 5
4260 PRINT"";:Z$=Z$+""
4270 PRINTZ$;:IFC=C0GOTO4290
4280 PRINT"[205]";:GOTO4300
4290 PRINT"[164]";
4300 IFE=C0THENPRINT"";:GOTO4320
4310 PRINT"[164][164]";
4320 IFD=C0GOTO4340
4330 PRINT"[206]":GOTO4350
4340 PRINT"[164]"
4350 FORI=C1TO3:PRINTZ$;:IFC=C1GOTO4370
4360 PRINT"[166]";:GOTO4380
4370 PRINT"[167]";
4380 IFE=C0THENPRINT"";:GOTO4400
4390 PRINT"[166][166]";
4400 IFD=C0THENPRINT"[166]":GOTO4420
4410 PRINT"[165]"
4420 NEXT
4430 PRINTZ$;:IFC=C1GOTO4450
4440 PRINT"[206]";:GOTO4460
4450 PRINT"[169]";
4460 IFE=C1THENPRINT" ";:GOTO4480
4470 PRINT"[163][163]";
4480 IFD=C1GOTO4500
4490 PRINT"[205]":GOTO4510
4500 PRINT"[223]"
4510 RETURN
4520 PRINT"[147]YOU'RE OUT!
4530 [139]M1[167][153]"":[137]4560
4540 [153]"LOADHERE IS THE MAZE":[141]1780
4550 [141]1140
4560 [133]"ANOTHER GAME";Z$
4570 [139]Z$[178]"Y"[137]70
4580 [128]
4590 [129]I[178]0[164]10:[129]J[178]0[164]19
4600 [153][201]("0"[170][202]([196](A(J,I)),2),2)"";:[130]J:[153]:[130]I
4610 [153]:[153]
4620 [129]J[178]V[171]1[164]0[169][171]1:[129]I[178]1[164]H
4630 [153][201]("0"[170][202]([196](B(I,J)),2),2)"";:[130]I:[153]:[130]J