home *** CD-ROM | disk | FTP | other *** search
/ Avalon 6 / Avalon_06_1995_Avalon_Side_B.d64 / labyrinth (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  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.