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 >
Commodore BASIC  |  2019-04-13  |  9KB  |  452 lines
  1. 10 C0=0:C1=1:C2=2:C3=3:C4=4:C5=5:C6=6:C7=7:C8=8:C9=9
  2. 20 SC=1024:LL=40
  3. 30 DIMA(19,11),B(19,11)
  4. 40 A$(1)="NORTH":A$(2)="EAST":A$(3)="SOUTH":A$(4)="WEST"
  5. 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]"
  6. 60 SP$="                                               "
  7. 70 M1=C0:PRINT"[147]ENTER DIMENSIONS OF LABYRINTH:"
  8. 80 INPUT"HOW WIDE";H
  9. 90 IFH=C0ORH>19THENPRINT"[145][145]";:GOTO80
  10. 100 INPUT"HOW DEEP";V
  11. 110 IFV=C0ORV>10THENPRINT"[145][145]";:GOTO100
  12. 120 PRINT"NOW CREATING A"H"X"V"LABYRINTH
  13. 130 A[178]H[172]V[170]C1
  14. 140 Q[178]C0:Z[178]C0:X[178][181](H[172][187](H))[170]C1
  15. 150 AA[178]X
  16. 160 A(X,0)[178]C1:C[178]C2
  17. 170 R[178]X:S[178]C1:[137]240
  18. 180 [139]R[179][177]H[137]220
  19. 190 [139]S[179][177]V[137]210
  20. 200 R[178]C1:S[178]C1:[137]230
  21. 210 R[178]C1:S[178]S[170]C1:[137]230
  22. 220 R[178]R[170]C1
  23. 230 [139]A(R,S[171]C1)[178]C0[137]180
  24. 240 [139]R[171]C1[178]C0[137]560
  25. 250 [139]A(R[171]C1,S[171]C1)[137]560
  26. 260 [139]S[171]C1[178]C0[137]400
  27. 270 [139]A(R,S[171]C2)[137]400
  28. 280 [139]R[178]H[137]320
  29. 290 [139]A(R[170]C1,S[171]C1)[137]320
  30. 300 X[178][181](C3[172][187](C1))[170]C1
  31. 310 [145]X[137]870,910,950
  32. 320 [139]S[179][177]V[137]350
  33. 330 [139]Z[178]C1[137]380
  34. 340 Q[178]C1:[137]360
  35. 350 [139]A(R,S)[137]380
  36. 360 X[178][181](C3[172][187](C1))[170]C1
  37. 370 [145]X[137]870,910,1020
  38. 380 X[178][181](C2[172][187](C1))[170]C1
  39. 390 [137]370
  40. 400 [139]R[178]H[137]500
  41. 410 [139]A(R[170]C1,S[171]C1)[137]500
  42. 420 [139]S[179][177]V[137]450
  43. 430 [139]Z[178]C1[137]480
  44. 440 Q[178]C1:[137]460
  45. 450 [139]A(R,S)[137]480
  46. 460 X[178][181](C3[172][187](C1))[170]C1
  47. 470 [145]X[137]870,950,1020
  48. 480 X[178][181](C2[172][187](C1))[170]C1
  49. 490 [137]470
  50. 500 [139]S[179][177]V[137]530
  51. 510 [139]Z[178]C1[137]870
  52. 520 Q[178]C1:[137]540
  53. 530 [139]A(R,S)[137]870
  54. 540 X[178][181](C2[172][187](C1))[170]C1
  55. 550 [145]X[137]870,1020
  56. 560 [139]S[171]C1[178]C0[137]740
  57. 570 [139]A(R,S[171]C2)[137]740
  58. 580 [139]R[178]H[137]680
  59. 590 [139]A(R[170]C1,S[171]C1)[137]680
  60. 600 [139]S[179][177]V[137]630
  61. 610 [139]Z[178]C1[137]660
  62. 620 Q[178]C1:[137]640
  63. 630 [139]A(R,S)[137]660
  64. 640 X[178][181](C3[172][187](C1))[170]C1
  65. 650 [145]X[137]910,950,1020
  66. 660 X[178][181](C2[172][187](C1))[170]C1
  67. 670 [137]650
  68. 680 [139]S[179][177]V[137]710
  69. 690 [139]Z[178]C1[137]910
  70. 700 Q[178]C1:[137]720
  71. 710 [139]A(R,S)[137]910
  72. 720 X[178][181](C2[172][187](C1))[170]C1
  73. 730 [145]X[137]910,1020
  74. 740 [139]R[178]H[137]820
  75. 750 [139]A(R[170]C1,S[171]C1)[137]820
  76. 760 [139]S[179][177]V[137]790
  77. 770 [139]Z[178]C1[137]950
  78. 780 Q[178]C1:[137]800
  79. 790 [139]A(R,S)[137]950
  80. 800 X[178][181](C2[172][187](C1))[170]C1
  81. 810 [145]X[137]950,1020
  82. 820 [139]S[179][177]V[137]850
  83. 830 [139]Z[178]C1[137]180
  84. 840 Q[178]C1:[137]860
  85. 850 [139]A(R,S)[137]180
  86. 860 [137]1020
  87. 870 A(R[171]C1,S[171]C1)[178]C
  88. 880 C[178]C[170]C1:B(R[171]C1,S[171]C1)[178]C2:R[178]R[171]C1
  89. 890 [139]C[178]A[137]1120
  90. 900 Q[178]C0:[137]240
  91. 910 A(R,S[171]C2)[178]C
  92. 920 C[178]C[170]C1
  93. 930 B(R,S[171]C2)[178]C1:S[178]S[171]C1:[139]C[178]A[137]1120
  94. 940 Q[178]C0:[137]240
  95. 950 A(R[170]C1,S[171]C1)[178]C
  96. 960 C[178]C[170]C1:[139]B(R,S[171]C1)[178]C0[137]980
  97. 970 B(R,S[171]C1)[178]C3:[137]990
  98. 980 B(R,S[171]C1)[178]C2
  99. 990 R[178]R[170]C1
  100. 1000 [139]C[178]A[137]1120
  101. 1010 [137]560
  102. 1020 [139]Q[178]C1[137]1080
  103. 1030 A(R,S)[178]C:C[178]C[170]C1:[139]B(R,S[171]C1)[178]C0[137]1050
  104. 1040 B(R,S[171]C1)[178]C3:[137]1060
  105. 1050 B(R,S[171]C1)[178]C1
  106. 1060 S[178]S[170]C1:[139]C[178]A[137]1120
  107. 1070 [137]240
  108. 1080 Z[178]C1
  109. 1090 [139]B(R,S[171]C1)[178]C0[137]1110
  110. 1100 B(R,S[171]C1)[178]C3:Q[178]C0:[137]180
  111. 1110 B(R,S[171]C1)[178]C1:Q[178]C0:R[178]C1:S[178]C1:[137]230
  112. 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
  113. 1130 [141]1140:[151]SC[170]12[172]LL[170]18[171]H[170]LL[172]V[170]2[172]AA,30:[137]1410
  114. 1140 [143] PRINT MAZE ***
  115. 1150 M1[178]C1:[153]"LOAD";:[139]V[178]11[167]1170
  116. 1160 [129]I[178]C1[164]11[171]V:[153]:[130]
  117. 1170 [129]J[178]V[164]C1[169][171]C1:[153][166]19[171]H)
  118. 1180 [129]I[178]C1[164]H:[153]" ";
  119. 1190 [139]B(I,J[171]C1)[178]C0[137]1230
  120. 1200 [139]B(I,J[171]C1)[178]C2[137]1230
  121. 1210 [153]"STOP ";
  122. 1220 [137]1240
  123. 1230 [153]" ";
  124. 1240 [130]I
  125. 1250 [153]" ":[143] FINISH LINE
  126. 1260 [153][166]19[171]H)" ";
  127. 1270 [129]I[178]C1[164]H:[153]"STOP ";
  128. 1280 [139]B(I,J[171]C1)[179]C2[137]1310
  129. 1290 [153]"STOP ";
  130. 1300 [137]1320
  131. 1310 [153]" ";
  132. 1320 [130]I:[153]
  133. 1340 [130]J
  134. 1350 [153][166]19[171]H)"";:[129]I[178]C1[164]H
  135. 1360 [139]I[178]AA[137]1380
  136. 1370 [153]"  ";:[137]1390
  137. 1380 [153]" STOP ";
  138. 1390 [130]I
  139. 1400 [153]" ":[142]
  140. 1410 W[178]AA
  141. 1420 [129]J[178]C0[164]V[171]C1
  142. 1430 [129]I[178]C1[164]H
  143. 1440 [139]J[137]1470
  144. 1450 [139]I[178]W[167]A(I,J)[178](C3[171]B(I,J))[172]C2:[137]1490
  145. 1460 M[178]C1:[137]1480
  146. 1470 M[178](A(I,J[171]C1)[175]2)[173]C2
  147. 1480 A(I,J)[178](C3[171]B(I,J))[172]C2[170]M[172]C8
  148. 1490 [139]I[178]C1[167]M[178]C1:[137]1510
  149. 1500 M[178](A(I[171]C1,J)[175]4)[173]C4
  150. 1510 A(I,J)[178]A(I,J)[170]M
  151. 1520 [130]I
  152. 1530 [130]J
  153. 1540 [153]"LOAD";
  154. 1550 X[178]W:Y[178]C0:Z[178]C1:EL[178]C1:ER[178]C1
  155. 1560 [137]2260
  156. 1570 [153]"YOU CAN GIVE THE FOLLOWING INSTRUCTIONS:";
  157. 1580 [153]"FWAIT-MOVE FORWARDS ONE BLOCK;"
  158. 1590 [153]"LWAIT-TURN LEFTCLOSE90 DEGRESS;"
  159. 1600 [153]"RWAIT-TURN RIGHTCLOSE90 DEGREES;"
  160. 1610 [153]"HWAIT-HELP!"
  161. 1620 [142]
  162. 1630 [141]1140:[153]"YOU ARE HERE SPC(, FACING "A$(Z)
  163. 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
  164. 1650 [139]Y[177]V[137]4520
  165. 1660 [153]"WHAT NOW?";
  166. 1670 [161]Z$:[139]Z$[178]""[137]1670
  167. 1680 [139]Z$[178]"L"[137]1730
  168. 1690 [139]Z$[178]"R"[137]1750
  169. 1700 [139]Z$[178]"F"[137]2210
  170. 1710 [139]Z$[178]"H"[137]1630
  171. 1720 [137]1670
  172. 1730 Z[178]Z[171]C1:[139]Z[179]C1[167]Z[178]Z[170]C4
  173. 1740 [137]2260
  174. 1750 Z[178]Z[170]C1:[139]Z[177]C4[167]Z[178]Z[171]C4
  175. 1760 [137]2260
  176. 1770 [142]
  177. 1780 [139]Z[178]C1[167]A1[178]A[171]C1:B1[178]B[171]C1:[137]1830
  178. 1790 [139]Z[178]C2[175]B[179]V[167]A1[178]A:B1[178]B:[137]1830
  179. 1800 [139]Z[178]C3[167]A1[178]A[170]C1:B1[178]B[171]C1:[137]1830
  180. 1810 [139]Z[178]C4[175]B[177]C1[167]A1[178]A:B1[178]B[171]C2:[137]1830
  181. 1820 EL[178]C1:[142]
  182. 1830 F[178]A(A1,B1):[139]Z[178]C1[137]1850
  183. 1840 [129]I[178]C2[164]Z:F[178](F[175]14)[173]C2[170](F[175]C1)[172]C8:[130]
  184. 1850 EL[178](F[175]C2)[173]C2:[142]
  185. 1860 [139]Z[178]C1[167]A1[178]A[170]C1:B1[178]B[171]C1:[137]1910
  186. 1870 [139]Z[178]C2[175]B[177]C1[167]A1[178]A:B1[178]B[171]C2:[137]1910
  187. 1880 [139]Z[178]C3[167]A1[178]A[171]C1:B1[178]B[171]C1:[137]1910
  188. 1890 [139]Z[178]C4[175]B[179]V[167]A1[178]A:B1[178]B:[137]1910
  189. 1900 ER[178]C1:[142]
  190. 1910 F[178]A(A1,B1):[139]Z[178]C1[137]1930
  191. 1920 [129]I[178]C2[164]Z:F[178](F[175]14)[173]C2[170](F[175]C1)[172]C8:[130]
  192. 1930 ER[178](F[175]C2)[173]C2:[142]
  193. 1940 [139]B[178]C0[137]2020
  194. 1950 [139]B[177]V[167]E[178]C3:[142]
  195. 1960 F[178]A(A,B[171]C1):[139]Z[178]C1[137]1980
  196. 1970 [129]I[178]C2[164]Z:F[178](F[175]14)[173]C2[170](F[175]C1)[172]C8:[130]
  197. 1980 C[178]F[175]C1:D[178](F[175]4)[173]C4:E[178](F[175]2)[173]C2
  198. 1990 [139]C[178]C0[167][141]1780
  199. 2000 [139]D[178]C0[167][141]1860
  200. 2010 [142]
  201. 2020 C[178]C0:D[178]C0:E[178][171]C1
  202. 2030 [139]Z[179][177]1[137]2070
  203. 2040 E[178]C1
  204. 2050 [139]A[178]W[167]E[178]C0
  205. 2060 [142]
  206. 2070 [139]Z[178]C3[167]E[178]C2:[142]
  207. 2080 [139]Z[178]C2[175]A[178]H[167]E[178]C2:[142]
  208. 2090 [139]Z[178]C4[175]A[178]C1[167]E[178]C2:[142]
  209. 2100 [142]
  210. 2110 [139]E[177]C0[137]2170
  211. 2120 [139]Z[178]C1[167]B[178]B[170]C1:[142]
  212. 2130 [139]Z[178]C2[167]A[178]A[170]C1:[142]
  213. 2140 [139]Z[178]C3[167]B[178]B[171]C1:[142]
  214. 2150 [139]Z[178]C4[167]A[178]A[171]C1:[142]
  215. 2160 [153]"";:[142]
  216. 2170 [139]E[178]C0[137]2190
  217. 2180 [153]"";
  218. 2190 S[178]C1
  219. 2200 [142]
  220. 2210 A[178]X:B[178]Y
  221. 2220 [141]1940
  222. 2230 [141]2110
  223. 2240 X[178]A:Y[178]B
  224. 2250 [139]E[177]C0[137]1650
  225. 2260 A[178]X:B[178]Y
  226. 2270 [141]1940
  227. 2280 [143] DISPLAY 5 DEPTHS
  228. 2290 [129]T[178]C1[164]5
  229. 2300 [141]2410
  230. 2310 [139]E[167]T[178]C5:[137]2350
  231. 2320 [141]2110
  232. 2330 [141]1940
  233. 2340 [139]E[177]C1[167]T[178]C5:[137]2350
  234. 2350 [130]T
  235. 2360 [139]X[178]W[175]Y[178]C0[175]Z[178]C1[137]2400
  236. 2370 [139]X[179][177]W[175]Y[178]C0[175]Z[178]C1[167][141]2160:[153]"ONONONONEXTERNAL WALL":[137]2390
  237. 2380 [137]2400
  238. 2390 [141]2160:[153]"ONONYOU'RE OUTSIDE!
  239. 2400 GOTO1650
  240. 2410 ONTGOTO2420,2780,3220,3710,4250
  241. 2420 REM DISPLAY DEPTH 1
  242. 2430 PRINT"[147]";
  243. 2440 IFE>C2THENRETURN
  244. 2450 IFE<C0ORE>C1THENGOSUB2180:RETURN
  245. 2460 FORI=C1TO21:IFC=C1THENPRINT"[167]";:GOTO2520
  246. 2470 IFY=C0THENPRINT""MID$(W$,(IANDC1)+C1,C8);:GOTO2520
  247. 2480 IFEL=C1THENPRINT"[166][166][166][166][166][166][166][166]";:GOTO2520
  248. 2490 IFI=C2THENPRINT"[164][164][164][164][164][164][164][166]";:GOTO2520
  249. 2500 IFI<18THENPRINT"[166]";:GOTO2520
  250. 2510 PRINT"       [146][166]";
  251. 2520 IFE=C0THENPRINTSPC(22);:GOTO2550
  252. 2530 IFY=C0THENPRINT""MID$(W$,(IANDC1)+C1,22);:GOTO2550
  253. 2540 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]";
  254. 2550 IFD=C1THENPRINT"[165]":GOTO2610
  255. 2560 IFY=C0THENPRINT""MID$(W$,(IANDC1)+C1,C8):GOTO2610
  256. 2570 IFER=C1THENPRINT"[166][166][166][166][166][166][166][166]":GOTO2610
  257. 2580 IFI=C2THENPRINT"[166][164][164][164][164][164][164][164]":GOTO2610
  258. 2590 IFI<18THENPRINT"[166]":GOTO2610
  259. 2600 PRINT"[166]       "
  260. 2610 NEXT
  261. 2620 FORI=C1TOC3:IFC=C1OR(X=WANDY=C0)GOTO2680
  262. 2630 IFI<>C1THEN2650
  263. 2640 IFEL=C0THENPRINT"[163][163][163][163][163][163][163][206]";:GOTO2690
  264. 2650 PRINT""LEFT$(SP$,C8-I)"[206]"LEFT$(SP$,I-C1);
  265. 2660 IFI=C1GOTO2690
  266. 2670 GOTO2700
  267. 2680 PRINTSPC(C9-I)"[169]"LEFT$(SP$,I-C1);:IFI<>C1THEN2700
  268. 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
  269. 2700 PRINT"                      ";
  270. 2710 IFD=C1OR(X=WANDY=C0)GOTO2750
  271. 2720 IFI<>C1THEN2740
  272. 2730 IFER=C0THENPRINT"[205][163][163][163][163][163][163][163]":GOTO2760
  273. 2740 PRINT""LEFT$(SP$,I-C1)"[205]"LEFT$(SP$,C8-I):GOTO2760
  274. 2750 PRINT""LEFT$(SP$,I-C1)"[223]"
  275. 2760 NEXTI
  276. 2770 RETURN
  277. 2780 REM DISPLAY DEPTH 2
  278. 2790 PRINT"";:Z$=""
  279. 2800 FORI=C1TOC2:PRINTZ$;:IFC=C0GOTO2830
  280. 2810 PRINTSPC(I+C1)"[205]";SPC(C2-I);:GOTO2860
  281. 2820 PRINT"[205]";:GOTO2860
  282. 2830 IFI=C1THENPRINTSPC(C4):GOTO2860
  283. 2840 IFEL=C1THENPRINT"[164][164][164][164]";:GOTO2860
  284. 2850 PRINT"[164]";
  285. 2860 IFE=C0ORI=C1THENPRINTSPC(14);:GOTO2880
  286. 2870 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  287. 2880 IFD=C0GOTO2900
  288. 2890 PRINTSPC(C2-I)"[206]":GOTO2930
  289. 2900 IFI=C1THENPRINT:GOTO2930
  290. 2910 IFER=C1THENPRINT"[164][164][164][164]":GOTO2930
  291. 2920 PRINT"[164]"
  292. 2930 NEXT
  293. 2940 FORI=C1TO15:PRINTZ$;:IFC=C1THENPRINT"[167]";:GOTO2990
  294. 2950 IFEL=C1THENPRINT"[166][166][166][166][146]";:GOTO2990
  295. 2960 IFI=C3THENPRINT"[164][164][164][166][146]";:GOTO2990
  296. 2970 IFI>12THENPRINT"   [166][146]";:GOTO2990
  297. 2980 PRINT"   [166][146]";
  298. 2990 IFE=C0THENPRINT"";:GOTO3010
  299. 3000 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][146]";
  300. 3010 IFD=C1THENPRINT"[165]":GOTO3060
  301. 3020 IFER=C1THENPRINT"[166][166][166][166]":GOTO3060
  302. 3030 IFI=C3THENPRINT"[166][146][164][164][164]":GOTO3060
  303. 3040 IFI>12THENPRINT"[166]   ":GOTO3060
  304. 3050 PRINT"[166]"
  305. 3060 NEXT
  306. 3070 FORI=C1TO4:PRINTZ$;:IFC=C1GOTO3120
  307. 3080 IFI<>C1GOTO3110
  308. 3090 IFEL=C0THENPRINT"[163][163][163][206]";:GOTO3130
  309. 3100 PRINT"   [206]";:GOTO3130
  310. 3110 PRINT""LEFT$(SP$,C4-I)"[206]"LEFT$(SP$,I-C1);:GOTO3140
  311. 3120 PRINTSPC(C4-I)"[169]"LEFT$(SP$,I-C1);:IFI<>C1THEN3140
  312. 3130 IFE=C0THENPRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163]";:GOTO3150
  313. 3140 PRINT"              ";
  314. 3150 IFD=C1GOTO3190
  315. 3160 IFI<>C1THEN3180
  316. 3170 IFER=C0THENPRINT"[205][163][163][163]":GOTO3200
  317. 3180 PRINT""LEFT$(SP$,I-C1)"[205]"LEFT$(SP$,C4-I):GOTO3200
  318. 3190 PRINT""LEFT$(SP$,I-C1)"[223]":GOTO3200
  319. 3200 NEXTI
  320. 3210 RETURN
  321. 3220 REM DISPLAY DEPTH 3
  322. 3230 PRINT"";:Z$=Z$+""
  323. 3240 FORI=C1TO3:PRINTZ$;:IFC=C0GOTO3260
  324. 3250 PRINTSPC(I-C1)"[205]"SPC(C3-I);:GOTO3290
  325. 3260 IFI<C3THENPRINT"";:GOTO3290
  326. 3270 IFEL=C1THENPRINT"[164][164][164]";:GOTO3290
  327. 3280 PRINT"[164]";
  328. 3290 IFE=C0ORI<=C2THENPRINT"";:GOTO3310
  329. 3300 PRINT"[164][164][164][164][164][164][164][164]";
  330. 3310 IFD=C0GOTO3330
  331. 3320 PRINTSPC(3-I)"[206]":GOTO3360
  332. 3330 IFI<C3THENPRINT:GOTO3360
  333. 3340 IFER=C1THENPRINT"[164][164][164]":GOTO3360
  334. 3350 PRINT"[164]"
  335. 3360 NEXT
  336. 3370 FORI=C1TO9:PRINTZ$;:IFC=C1THENPRINT"[167]";:GOTO3420
  337. 3380 IFEL=C1THENPRINT"[166][166][166]";:GOTO3420
  338. 3390 IFI=C2THENPRINT"[164][164][166]";:GOTO3420
  339. 3400 IFI>C7THENPRINT"  [146][166]";:GOTO3420
  340. 3410 PRINT"  [166]";
  341. 3420 IFE=C0THENPRINT"";:GOTO3440
  342. 3430 PRINT"[166][166][166][166][166][166][166][166]";
  343. 3440 IFD=C1THENPRINT"[165]":GOTO3490
  344. 3450 IFER=C1THENPRINT"[166][166][166]":GOTO3490
  345. 3460 IFI=C2THENPRINT"[166][164][164]":GOTO3490
  346. 3470 IFI>C7THENPRINT"[166]  [146]":GOTO3490
  347. 3480 PRINT"[166]"
  348. 3490 NEXT
  349. 3500 FORI=C1TO3:PRINTZ$;:IFC=C1GOTO3560
  350. 3510 IFI<>C1THEN3530
  351. 3520 IFEL=C0THENPRINT"[163][163][206]";:GOTO3570
  352. 3530 PRINT""LEFT$(SP$,C3-I)"[206]"LEFT$(SP$,I-C1);
  353. 3540 IFI=C1THEN3570
  354. 3550 GOTO3580
  355. 3560 PRINTSPC(C3-I)"[169]"LEFT$(SP$,I-C1);:GOTO3540
  356. 3570 IFE=C0THENPRINT"[163][163][163][163][163][163][163][163]";:GOTO3590
  357. 3580 PRINT"        ";
  358. 3590 IFD=C1GOTO3650
  359. 3600 IFI<>C1THEN3620
  360. 3610 IFER=C0THENPRINT"[205][163][163]":GOTO3690
  361. 3620 PRINT""LEFT$(SP$,I-C1)"[205]"LEFT$(SP$,C3-I):GOTO3690
  362. 3650 PRINT""LEFT$(SP$,I-C1)"[223]"
  363. 3690 NEXTI
  364. 3700 RETURN
  365. 3710 REM DISPLAY DEPTH 4
  366. 3720 PRINT"";:Z$=Z$+""
  367. 3730 FORI=C1TO2:PRINTZ$;:IFC=C0GOTO3770
  368. 3740 PRINTSPC(I-C1)"[205]"SPC(C2-I);:GOTO3810
  369. 3770 IFI=C1THENPRINT"";:GOTO3810
  370. 3790 IFEL=C1THENPRINT"[164][164]";:GOTO3810
  371. 3800 PRINT"[164]";
  372. 3810 IFE=C0ORI=C1THENPRINT"";:GOTO3830
  373. 3820 PRINT"[164][164][164][164]";
  374. 3830 IFD=C0GOTO3870
  375. 3840 IFI=C1THENPRINT"";
  376. 3850 PRINT"[206]":GOTO3910
  377. 3870 IFI=C1THENPRINT:GOTO3910
  378. 3890 IFER=C1THENPRINT"[164][164]":GOTO3910
  379. 3900 PRINT"[164]"
  380. 3910 NEXT
  381. 3920 FORI=C1TO5:PRINTZ$;:IFC=C1THENPRINT"[167]";:GOTO3970
  382. 3930 IFEL=C1THENPRINT"[166][166][146]";:GOTO3970
  383. 3940 IFI=C1THENPRINT"[164][166][146]";:GOTO3970
  384. 3950 IFI>4THENPRINT"[163][166][146]";:GOTO3970
  385. 3960 PRINT" [166][146]";
  386. 3970 IFE=C0THENPRINT"";:GOTO3990
  387. 3980 PRINT"[166][166][166][166][146]";
  388. 3990 IFD=C1THENPRINT"[165]":GOTO4040
  389. 4000 IFER=C1THENPRINT"[166][166]":GOTO4040
  390. 4010 IFI=C1THENPRINT"[166][146][164]":GOTO4040
  391. 4020 IFI>C4THENPRINT"[166] ":GOTO4040
  392. 4030 PRINT"[166]"
  393. 4040 NEXT
  394. 4050 FORI=C1TO2:PRINTZ$;:IFC=C1GOTO4100
  395. 4060 IFI<>C1THEN4080
  396. 4070 IFEL=C0THENPRINT"[163][206]";:GOTO4130
  397. 4080 PRINT""LEFT$(SP$,C2-I)"[206]"LEFT$(SP$,I-C1);
  398. 4085 IFI=C1THEN4130
  399. 4090 GOTO4140
  400. 4100 IFI=C1THENPRINT"";
  401. 4110 PRINT"[169]";
  402. 4120 IFI=C2THENPRINT" ";:GOTO4140
  403. 4130 IFE=C0THENPRINT"[163][163][163][163]";:GOTO4150
  404. 4140 PRINT"    ";
  405. 4150 IFD=C1GOTO4200
  406. 4160 IFI<>C1THEN4180
  407. 4170 IFER=C0THENPRINT"[205][163]":GOTO4230
  408. 4180 PRINT""LEFT$(SP$,I-C1)" "LEFT$(SP$,C2-I):GOTO4230
  409. 4200 PRINT"";:IFI=C2THENPRINT" ";
  410. 4210 PRINT"[223]"
  411. 4230 NEXTI
  412. 4240 RETURN
  413. 4250 REM DISPLAY DEPTH 5
  414. 4260 PRINT"";:Z$=Z$+""
  415. 4270 PRINTZ$;:IFC=C0GOTO4290
  416. 4280 PRINT"[205]";:GOTO4300
  417. 4290 PRINT"[164]";
  418. 4300 IFE=C0THENPRINT"";:GOTO4320
  419. 4310 PRINT"[164][164]";
  420. 4320 IFD=C0GOTO4340
  421. 4330 PRINT"[206]":GOTO4350
  422. 4340 PRINT"[164]"
  423. 4350 FORI=C1TO3:PRINTZ$;:IFC=C1GOTO4370
  424. 4360 PRINT"[166]";:GOTO4380
  425. 4370 PRINT"[167]";
  426. 4380 IFE=C0THENPRINT"";:GOTO4400
  427. 4390 PRINT"[166][166]";
  428. 4400 IFD=C0THENPRINT"[166]":GOTO4420
  429. 4410 PRINT"[165]"
  430. 4420 NEXT
  431. 4430 PRINTZ$;:IFC=C1GOTO4450
  432. 4440 PRINT"[206]";:GOTO4460
  433. 4450 PRINT"[169]";
  434. 4460 IFE=C1THENPRINT"  ";:GOTO4480
  435. 4470 PRINT"[163][163]";
  436. 4480 IFD=C1GOTO4500
  437. 4490 PRINT"[205]":GOTO4510
  438. 4500 PRINT"[223]"
  439. 4510 RETURN
  440. 4520 PRINT"[147]YOU'RE OUT!
  441. 4530 [139]M1[167][153]"":[137]4560
  442. 4540 [153]"LOADHERE IS THE MAZE":[141]1780
  443. 4550 [141]1140
  444. 4560 [133]"ANOTHER GAME";Z$
  445. 4570 [139]Z$[178]"Y"[137]70
  446. 4580 [128]
  447. 4590 [129]I[178]0[164]10:[129]J[178]0[164]19
  448. 4600 [153][201]("0"[170][202]([196](A(J,I)),2),2)"";:[130]J:[153]:[130]I
  449. 4610 [153]:[153]
  450. 4620 [129]J[178]V[171]1[164]0[169][171]1:[129]I[178]1[164]H
  451. 4630 [153][201]("0"[170][202]([196](B(I,J)),2),2)"";:[130]I:[153]:[130]J
  452.