home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / U5-LAND-VIEWER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  10.6 KB  |  368 lines
  1. 2 DIMAS%(257),MP%(16,16),M3%(6,16,16)
  2. 3 DIMP$(256),CL%(256),NE$(256)
  3. 5 POKE53281,0:POKE53280,0:RESTORE
  4. 6 READA,B$,C,D$:IFA=256THEN 9
  5. 7 P$(A)=B$:CL%(A)=C:NE$(A)=D$:GOTO6
  6. 9 GOSUB50000:CR$="[144][159][156][158][129][149][150][151][152][153][154][155]"
  7. 10 DV=1:PRINT"[147]      PLEASE PLACE THE [158]ULTIMA V
  8. 15 [153]"       OPENBRITANNIA OR OPENUNDERWORLD "
  9. 17 [153]"        DISK IN THE DISK DRIVE AND "
  10. 20 [153]"         PRESS A KEY TO CONTINUE"
  11. 25 [161]Z$:[139]Z$[178]""[167]25
  12. 26 [139]Z$[178]"INT"[167]100
  13. 30 [153]"            VERIFYING DISK"
  14. 31 [159]15,8,15:[159]5,8,5,"#"
  15. 35 [152]15,"U1:"5;0;18;0:B$[178]""
  16. 37 [141]60000
  17. 40 [129]L[178]144[164]161:[139]L[178]144[167][152]15,"B-P:"5;144
  18. 45 [161]#5,A$:B$[178]B$[170]A$
  19. 50 [130]:[160]5:[160]15
  20. 55 VB$[178]"BRITANNIA"[170][199](160)
  21. 57 VU$[178]"UNDERWORLD"[170][199](160)
  22. 60 [139][200](B$,10)[178]VB$[176][200](B$,11)[178]VU$[167]100
  23. 70 [153]"LOADSYS    THIS DISK IS NOT THE PRINT#ULTIMA V"
  24. 75 [153]"     BRITANNIASYS OR UNDERWORLDSYS DISK."
  25. 76 [153]"      PLEASE INSERT IT INTO THE DRIVE"
  26. 80 [153]"            AND PRESS A KEY."
  27. 85 [161]A$:[139]A$[178]""[167]85
  28. 90 [137]30
  29. 100 DV[178]0:[153]"LOADSYSULTIMA V LAND VIEWER"
  30. 110 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  31. 120 [153]"1)  SMALL MAPPER"
  32. 125 [153]"2)  FULL SCREEN MAPPER"
  33. 130 [153]"3)  WORLD MAP PRINTER"
  34. 137 [153]"4)  LEGEND"
  35. 140 [153]"5)  QUIT"
  36. 141 [153]"CLRWHICH ONE?"
  37. 145 [161]Z$:[139]Z$[178]""[167]145
  38. 150 [139][197](Z$)[179]1[176][197](Z$)[177]5[167]145
  39. 155 [145][197](Z$)[137]1000,2000,3000,6000,5000
  40. 1000 [143]  ****  SMALL MAPPER  ****
  41. 1010 [143]
  42. 1020 [143]
  43. 1030 [153]"LOADOPENBLOCK MAPPER"
  44. 1035 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  45. 1040 [153]"POKELATITUDE LONGITUDE (OR Z TO STOP)? TO";
  46. 1041 [161]ZZ$:[139]ZZ$[178]""[167]1041
  47. 1042 [139]ZZ$[178]"Z"[167]100
  48. 1043 [139][198](ZZ$)[179]65[176][198](ZZ$)[177][198]("P")[167]1041
  49. 1044 LT[178][198](ZZ$)[171]65:LT$[178]ZZ$:[153]"CMD"ZZ$"TO";
  50. 1045 [161]ZZ$:[139]ZZ$[178]""[167]1045
  51. 1046 [139][198](ZZ$)[179]65[176][198](ZZ$)[177][198]("P")[167]1045
  52. 1047 LN[178][198](ZZ$)[171]65:[153]"CMD"ZZ$:LN$[178]ZZ$
  53. 1048 [153]"IS "LT$"' "LN$"' CORRECT? TO";
  54. 1049 [161]ZZ$:[139]ZZ$[178]""[167]1049
  55. 1050 [139]ZZ$[178]"N"[167]1030
  56. 1051 [153]"CMD"ZZ$
  57. 1070 [143] NM=LT*16+LN
  58. 1080 [143] TK=INT(NM/21):SC=NM-TK*21
  59. 1090 [143] TK=TK+1:SC=SC+1
  60. 1100 [143] IFSC=21THENTK=TK+1:SC=0
  61. 1110 [143] IFTK=>13ANDSC>4THEN1040
  62. 1115 TK[178]20[170]LT:SC[178]LN
  63. 1120 [153]"POKE--------------------------------------"
  64. 1130 [153]"DEF"LT$"' "LN$"'           TRACK"TK"SECTOR"SC
  65. 1140 [153]"POKE--------------------------------------":[159]15,8,15:[159]5,8,5,"#"
  66. 1150 [152]15,"U1:"5;0;TK;SC
  67. 1155 [141]60000
  68. 1160 [153]""[163]10)"LIST ABCDEFGHIJKLMNOP":[153][163]10)"A";
  69. 1170 [129]I[178]1[164]16:[129]J[178]1[164]16:[161]#5,A$
  70. 1180 [139]A$[178]""[167]A$[178][199](0)
  71. 1190 TR[178][198](A$):[153][202](CR$,CL%(TR)[170]1,1)P$(TR);
  72. 1200 [130]:[153]:[153]"LIST"[163]10)[199](I[170]65);:[130]
  73. 1210 [153]"CMD "
  74. 1220 [160]5:[160]15:[137]1040
  75. 2000 [143]  ****  FULL SCREEN  ****
  76. 2010 [143]
  77. 2020 [143]
  78. 2030 [153]"LOADFULL SCREEN MAPPER"
  79. 2035 [153]"CLRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  80. 2040 [153]"POKELATITUDE LONGITUDE (OR Z TO STOP)? TO";
  81. 2041 [161]ZZ$:[139]ZZ$[178]""[167]2041
  82. 2042 [139]ZZ$[178]"Z"[167]100
  83. 2043 [139][198](ZZ$)[179]65[176][198](ZZ$)[177][198]("P")[167]2041
  84. 2044 LT[178][198](ZZ$)[171]65:LT$[178]ZZ$:[153]"CMD"ZZ$"TO";
  85. 2045 [161]ZZ$:[139]ZZ$[178]""[167]2045
  86. 2046 [139][198](ZZ$)[179]65[176][198](ZZ$)[177][198]("P")[167]2045
  87. 2047 LN[178][198](ZZ$)[171]65:[153]"CMD"ZZ$:LN$[178]ZZ$
  88. 2048 [153]"IS "LT$"' "LN$"' CORRECT? TO";
  89. 2049 [161]ZZ$:[139]ZZ$[178]""[167]2049
  90. 2050 [139]ZZ$[178]"N"[167]2030
  91. 2100 [153]"LOAD"
  92. 2110 [153]"(null)              (null)":[153]"      "[199](LT[170]65)"'"[199](LN[170]65)"'"
  93. 2120 [153]"(null)              SQR"
  94. 2130 [139]LN[170]1[177]15[167]2190
  95. 2140 [153]""[163]16)"(null)"[166]14)"(null)":[153]""[163]16)"      ";
  96. 2150 [153][199](LT[170]65)"'"[199](LN[170]66)"'":[153]""[163]16)"(null)"[166]14)"SQR"
  97. 2160 [139]LN[170]2[177]15[167]2190
  98. 2170 [153]""[163]32)"(null)"[166]5)"(null)":[153]""[163]32)" ";
  99. 2180 [153][199](LT[170]65)"'"[199](LN[170]67)"'":[153]""[163]32)"(null)     SQR"
  100. 2190 [139]LT[170]1[177]15[167]2240
  101. 2200 [153]"(null)"[166]14)"(null)":[153]"      ";
  102. 2210 [153][199](LT[170]66)"'"[199](LN[170]65)"'":[153]"(null)"[166]14)"SQR"
  103. 2215 [139]LN[170]1[177]15[167]2240
  104. 2220 [153]""[163]16)"(null)"[166]14)"(null)":[153]""[163]16)"     ";
  105. 2230 [153][199](LT[170]66)"'"[199](LN[170]66)"'":[153]""[163]16)"(null)"[166]14)"SQR"
  106. 2231 [139]LN[170]2[177]15[167]2240
  107. 2232 [153]""[163]32)"(null)"[166]5)"(null)":[153]""[163]32)" ";
  108. 2233 [153][199](LT[170]66)"'"[199](LN[170]67)"'":[153]""[163]32)"(null)"[166]5)"SQR"
  109. 2240 [137]2450
  110. 2250 [161]A$:[139]A$[178]""[167]2250
  111. 2260 [137]2030
  112. 2270 [128]
  113. 2280 NM[178]LT[172]16[170]LN
  114. 2290 TK[178][181](NM[173]21):SC[178]NM[171]TK[172]21
  115. 2300 TK[178]TK[170]1:SC[178]SC[170]1
  116. 2310 [139]SC[178]21[167]TK[178]TK[170]1:SC[178]0
  117. 2320 [139]LT[177]15[176]LN[177]15[167][142]
  118. 2325 TK[178]20[170]LT:SC[178]LN
  119. 2330 [159]15,8,15:[159]5,8,5,"#1"
  120. 2340 [141]60000
  121. 2350 [152]15,"U1:"5;0;TK;SC
  122. 2360 [153]VT$;:[129]I[178]1[164]16:[153][163]TB);:[129]J[178]1[164]16:[161]#5,A$
  123. 2370 [139]A$[178]""[167]A$[178][199](0)
  124. 2380 [139]I[177]VM[167]2430
  125. 2390 [139]J[177]HM[167]2410
  126. 2400 [153][202](CR$,CL%([198](A$))[170]1,1)P$([198](A$));
  127. 2410 [130]J
  128. 2420 [153]:[130]I
  129. 2430 [141]60000
  130. 2440 [160]5:[160]15:[142]
  131. 2450 VT$[178]"":TB[178]0:VM[178]16:HM[178]16
  132. 2460 [141]2280
  133. 2470 LN[178]LN[170]1
  134. 2480 VT$[178]"":TB[178]16:VM[178]16:HM[178]16:[141]2280
  135. 2490 LN[178]LN[170]1
  136. 2500 VT$[178]"":TB[178]32:VM[178]16:HM[178]7:[141]2280
  137. 2510 LT[178]LT[170]1:LN[178]LN[171]2
  138. 2520 VT$[178]"":TB[178]0:VM[178]8:HM[178]16:[141]2280
  139. 2530 LN[178]LN[170]1
  140. 2540 VT$[178]"":TB[178]16:VM[178]8:HM[178]16:[141]2280
  141. 2550 LN[178]LN[170]1
  142. 2560 VT$[178]"":TB[178]32:VM[178]8:HM[178]7:[141]2280
  143. 2570 [137]2250
  144. 3000 [143]   ****  MAP PRINTER  ****
  145. 3005 MF[178]0
  146. 3010 [143]
  147. 3015 [143]
  148. 3020 [143]
  149. 3025 [153]"LOADOPENMAP PRINTER":FM[178]0
  150. 3030 [139]MF[178]1[167]3070
  151. 3035 [153]"THIS UTILITY PRINTS OUT A SCALE MAP"
  152. 3040 [153]"OF BRITANNIA.  IT TAKES 12 PAGES AND"
  153. 3045 [153]"APPROX. 4 AND 1/2 HOURS TO COMPLETE."
  154. 3050 [153]" (ASSUMING YOU HAVE AN MPS 801 PRINTER)"
  155. 3055 [153]"BECAUSE OF THIS, ONLY DO THIS IF YOU"
  156. 3060 [153]"HAVE LOTS OF TIME AND PRINTER RIBBON"
  157. 3065 [153]"TO SPARE!"
  158. 3070 [153]"LAST CHANCE TO TURN BACK!"
  159. 3075 [153]"DEFOK TO PROCEED (Y/N)?"
  160. 3080 [161]Z$:[139]Z$[178]""[167]3080
  161. 3085 [139]Z$[178]"N"[167]100
  162. 3090 [153]"WANT TO PRINT OUT ALL 12 PAGES(Y/N)?"
  163. 3095 [161]Z$:[139]Z$[178]""[167]3095
  164. 3100 [139]Z$[178]"Y"[167]BV[178]1:FV[178]3:BH[178]1:FH[178]4:FM[178]1:[137]3205
  165. 3105 [153]"LOADCLRPAGE SELECTION"
  166. 3110 [153]"SYSTHE PAGES ARE SET UP AS FOLLOWS:"
  167. 3115 [153]"CONTORTAN=TAN=TAN=LEN^"
  168. 3120 [153]"PEEKAPEEKBPEEKCPEEKDPEEK"
  169. 3125 [153]"-LEN(null)TAN(null)TAN(null)TAN<"
  170. 3130 [153]"(null)E(null)F(null)G(null)H(null)"
  171. 3135 [153]"-TAN(null)TAN(null)TAN(null)TAN<"
  172. 3140 [153]"(null)I(null)J(null)K(null)L(null)"
  173. 3145 [153]"/TAN>TAN>TAN>TANEXP"
  174. 3150 [153]"POKENW PAGE?  TO";
  175. 3155 [161]Z$:[139]Z$[178]""[167]3155
  176. 3160 [139][198](Z$)[179][198]("A")[176][198](Z$)[177][198]("L")[167]3155
  177. 3165 [153]"CMD"Z$:NW$[178]Z$:[153]"PRINT#SE PAGE?  TO";
  178. 3170 [161]Z$:[139]Z$[178]""[167]3170
  179. 3175 [139][198](Z$)[179][198]("A")[176][198](Z$)[177][198]("L")[167]3170
  180. 3180 [153]"CMD"Z$:SE$[178]Z$:[139][198](NW$)[177][198](SE$)[167][153]"INVALID.":[137]3150
  181. 3185 NW[178][198](NW$)[171]65:SE[178][198](SE$)[171]65
  182. 3190 BV[178][181](NW[173]4):BH[178]NW[171](BV[172]4):BV[178]BV[170]1:BH[178]BH[170]1
  183. 3195 FV[178][181](SE[173]4):FH[178]SE[171](FV[172]4):FV[178]FV[170]1:FH[178]FH[170]1
  184. 3200 [137]3205
  185. 3205 [153]"LOADPRINT#MAKE SURE THE PRINTER IS READY!"
  186. 3210 [153]"THE PAGES FIT TOGETHER IN THE"
  187. 3215 [153]"FOLLOWING MANNER:"
  188. 3220 [153]"PRINTORTAN=TAN=TAN=LEN^"
  189. 3225 [153]"PEEKAPEEKBPEEKCPEEKDPEEK"
  190. 3230 [153]"-LEN(null)TAN(null)TAN(null)TAN<"
  191. 3235 [153]"(null)E(null)F(null)G(null)H(null)"
  192. 3240 [153]"-TAN(null)TAN(null)TAN(null)TAN<"
  193. 3245 [153]"(null)I(null)J(null)K(null)L(null)"
  194. 3250 [153]"/TAN>TAN>TAN>TANEXP"
  195. 3255 [139]FM[178]1[167][153]"OPENFULL MAP IS BEING PRINTED!!":[137]3286
  196. 3260 [153]"CONTPAGE(S) "NW$" TO "SE$
  197. 3265 [153]"CLRTHESE INCLUDE:SYS ";
  198. 3270 CT[178]0:[129]ZZ[178]BV[164]FV:[129]YY[178]BH[164]FH:CT[178]CT[170]1
  199. 3275 [139]CT[179][177]1[167][153]",";
  200. 3280 [153][199]((((ZZ[171]1)[172]4)[170]YY[171]1)[170]65);:[130]YY:[130]ZZ:[153]
  201. 3285 [153]"FORFOR A TOTAL OF"CT"PAGES."
  202. 3286 [139]FM[178]1[176]SE$[178]"L"[167]3288
  203. 3287 [137]3294
  204. 3288 [153]"DEFWANT THE LEGEND(Y/N)? TO";
  205. 3289 [161]ZZ$:[139]ZZ$[178]""[167]3289
  206. 3290 [139]ZZ$[178]"Y"[167]WL[178]1
  207. 3291 [153]"CMD"ZZ$
  208. 3294 [153]"POKEIS THIS THE DESIRED OUTPUT(Y/N)?"
  209. 3295 [161]Z$:[139]Z$[178]""[167]3295
  210. 3300 [139]Z$[178]"N"[167]MF[178]1:[137]3010
  211. 3305 [137]3320
  212. 3310 [153]"PRESS ANY KEY TO CONTINUE."
  213. 3315 [161]A$:[139]A$[178]""[167]3315
  214. 3320 [159]1,4:PC[178]0:TC[178]0
  215. 3325 [129]A[178]BV[164]FV:[129]B[178]BH[164]FH
  216. 3330 [129]Z[178]1[164]6
  217. 3335 NM[178](((A[171]1)[172]6)[170]Z[171]1)[172]16[170]((B[171]1)[172]5)
  218. 3340 LT$[178][199]((((A[171]1)[172]6)[170]Z[171]1)[170]65):SL$[178][199](((B[171]1)[172]5)[170]65):EL$[178][199]([198](SL$)[170]4)
  219. 3345 [153]"LOADPROCESSING "LT$"' "SL$"' THRU "LT$"' "EL$"'"
  220. 3350 [143] TK=INT(NM/21):SC=NM-TK*21
  221. 3355 [143] TK=TK+1:SC=SC+1
  222. 3360 [143] IFSC=21THENTK=TK+1:SC=0
  223. 3363 TK[178](((A[171]1)[172]6)[170]Z[171]1)[170]20:SC[178]((B[171]1)[172]5)
  224. 3365 [141]3590
  225. 3370 [129]I[178]1[164]16:[129]CN[178]1[164]5:[129]J[178]1[164]16
  226. 3380 [139]B[179]4[167]3420
  227. 3390 [139]CN[178]1[167]3420
  228. 3400 [139]I[179][177]1[167]3800
  229. 3410 [152]1,"     "LT$;:[137]3800
  230. 3420 [139]A[179]3[167]3480
  231. 3430 [139]Z[179]5[167]3480
  232. 3440 [139]Z[178]6[167]3471
  233. 3450 [139]I[179][177]5[167]3510
  234. 3460 [139]J[179][177]1[167][152]1,[199](15)" ";:[130]J:[137]3500
  235. 3470 [152]1,[199](15)[199]([198](SL$)[170]CN[171]1);:[130]J:[137]3500
  236. 3471 [139]B[179]4[167]3510
  237. 3472 [139]I[179][177]8[167]3510
  238. 3473 [152]1,[199](15)"BY  JEFF COUCKUYT":[137]3510
  239. 3480 TR[178]M3%(CN,I,J)
  240. 3490 [152]1,[199](15)P$(TR);:[130]J
  241. 3500 [130]CN
  242. 3510 [152]1,[199](8):[130]I
  243. 3520 [130]Z:[152]1," "[199](8):[152]1,[199](15)" "[199](8)
  244. 3530 [152]1,[199](15)" "[199](8)
  245. 3533 [152]1:[152]1:[152]1:[152]1:[152]1:[152]1:[152]1
  246. 3534 [152]1:[152]1:[152]1:[152]1:[152]1:[152]1:[152]1
  247. 3540 [130]B:[130]A:[160]1:[137]100
  248. 3550 [143]
  249. 3560 [143]
  250. 3570 [143] **** DISK READER ****
  251. 3580 [143]
  252. 3590 [159]15,8,15:[159]5,8,5,"#1"
  253. 3600 CN[178]0
  254. 3610 CN[178]CN[170]1
  255. 3620 [139](((A[171]1)[172]6)[170]Z[171]1)[177]15[167]3740
  256. 3630 [139]((B[171]1)[172]5)[170]CN[171]1[177]15[167]3740
  257. 3640 [141]60000
  258. 3650 [152]15,"U1:"5;0;TK;SC
  259. 3660 [129]I[178]1[164]16:[129]J[178]1[164]16:[161]#5,A$
  260. 3670 [139]A$[178]""[167]A$[178][199](0)
  261. 3680 M3%(CN,I,J)[178][198](A$)
  262. 3690 [130]:[130]
  263. 3700 [141]60000
  264. 3710 SC[178]SC[170]1:[139]SC[178]21[167]TK[178]TK[170]1:SC[178]0
  265. 3720 [139]CN[178]5[167]3740
  266. 3730 [137]3610
  267. 3740 [160]5:[160]15:[142]
  268. 3800 [139]WL[178]0[176]PC[178]100[167]3510
  269. 3805 [139]A[179]3[167]3510
  270. 3810 [139]PC[178]0[167][152]1,[199](15)[199](16)"45ULTIMA V LEGEND";:PC[178]1:[137]3510
  271. 3815 [139]PC[178]1[167][152]1,[199](15)[199](16)"45----------------";:PC[178]3:[137]3510
  272. 3820 [139]PC[173]2[179][177][181](PC[173]2)[167]PC[178]PC[170]1:[137]3510
  273. 3825 [139]NE$(TC)[179][177]"X"[175]NE$(TC)[179][177]""[167]3830
  274. 3827 TC[178]TC[170]1:[139]TC[178]80[167]3835
  275. 3828 [137]3825
  276. 3830 [152]1,[199](15)[199](16)"45"P$(TC)"    "NE$(TC);:PC[178]PC[170]1:TC[178]TC[170]1:[137]3510
  277. 3835 [152]1,[199](15)[199](16)"45"P$(13)P$(14)P$(15)"  LORD BRITISH'S CASTLE";
  278. 3840 PC[178]100:[137]3510
  279. 5000 [153]"LOADSYS   GOOD LUCK IN YOUR ADVENTURING!!!"
  280. 5010 [153]"          AND MAY YOU FIND"
  281. 5020 [153] "OPEN            LORD BRITISH"
  282. 5030 [153]"POKE      BY J COUCKUYT PRODUCTIONS"
  283. 5040 [153]"POKE        COURTESY KARLEK"
  284. 5050 [128]
  285. 6000 TB[178]0:TB$[178]"":[153]"LOADSYSGRAPHICS LEGEND":[153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  286. 6010 [129]A[178]0[164]105:[139]NE$(A)[178]"X"[176]NE$(A)[178]""[167][130]A:[137]6030
  287. 6015 [139]A[178]20[167]TB[178]19:TB$[178]"POKE(null)  ":[153]"";
  288. 6020 [153][163]TB)TB$;:[153][202](CR$,CL%(A)[170]1,1)P$(A)"  "NE$(A):[130]A
  289. 6030 [143] PRINT""P$(13)P$(14)P$(15)" LORD BRITISH'S CASTLE"
  290. 6040 [153]"PRESS ANY KEY TO CONTINUE."
  291. 6050 [161]A$:[139]A$[178]""[167]6050
  292. 6060 TB[178]0:TB$[178]"":[153]"LOADSYSGRAPHICS LEGEND":[153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  293. 6070 [129]A[178]106[164]255:[139]NE$(A)[178]"X"[176]NE$(A)[178]""[167][130]A:[137]6130
  294. 6075 [139]A[178]212[167]TB[178]19:TB$[178]"POKE(null)  ":[153]"";
  295. 6080 [153][163]TB)TB$;:[153][202](CR$,CL%(A)[170]1,1)P$(A)"  "NE$(A):[130]A
  296. 6130 [153]""
  297. 6140 [153]"YOU MAY MODIFY THESE GRAPHICS FROM THE"
  298. 6145 [153]"PROGRAM.  THEY ARE STORED IN DATA"
  299. 6146 [153]"STATEMENTS FROM 10000-10250."
  300. 6147 [153]"BE NOW WARNED!!  DO NOT CHANGE ANY"
  301. 6148 [153]"NUMBERS YOU MAY SEE - JUST GRAPHICS!!"
  302. 6149 [153]"DEFPRESS ANY KEY TO CONTINUE."
  303. 6150 [161]A$:[139]A$[178]""[167]6150
  304. 6160 [137]100
  305. 9999 [128]
  306. 10000 [143]  IF YOU WISH TO CHANGE THE GRAPHICS - THEY'RE THE ONES IN QUOTES!!!
  307. 10001 [143]  DO NOT CHANGE ANYTHING ELSE!!  (THIS IS FOR YOUR OWN BENEFIT)
  308. 10010 [131] 1," WAIT",6,DEEP WATER,2,"(null)WAIT",6,MEDIUM WATER,3,"(null)WAIT",6,SHALLOW WATER
  309. 10020 [131] 4,"+",5,SWAMP,5,":",13,GRASS,6,"!",13,LIGHT BRUSH,7,"-",7,DESSERT
  310. 10030 [131] 8,"*",13,MEDIUM SHRUB,9,"(null)",5,HEAVY SHRUB,10,"(null)",5,FOREST
  311. 10040 [131] 11,"SPC(",11,HILLS,12,"SINWAIT",11,MOUNTAIN,13,"ATN",11,TALL MOUNTAIN
  312. 10050 [131] 14,"(null)",11,GRASS/HILL,15,"(null)",11,HILL/GRASS,16,"(null)",1,HUT
  313. 10060 [131] 17,"(null)",1,CODEX,18,"#",1,KEEP,19,"VWAIT",1,VILLAGE
  314. 10070 [131] 20,"T",1,TOWNE,21,"#",1,X,22,"(null)",1,CAVE/MINE,23,"(null)",1,X
  315. 10080 [131] 24,"(null)WAIT",1,OPEN DUNGEON,25,"SWAIT",1,SHRINE,26,"(null)",1,RUINED SHRINE
  316. 10090 [131] 27,"^",1,LIGHTHOUSE,28,"-",7,X,30,"-",7,X,31,"-",7,X
  317. 10100 [131] 32,"(null)",13,PATH,33,"TAN",13,X,34,"MID$",13,PATH,35,"(null)",13,X,36,"RIGHT$",13,X
  318. 10110 [131] 37,"(null)",13,X,38,"(null)",13,X,47,"%",13,CACTUS
  319. 10120 [131] 48,"TAB(",13,GRASS,49,"(null)",13,GRASS,50,"TO",13,X,51,"(null)",13,X
  320. 10130 [131] 52,"STEP",6,X,53,"(null)",6,X,54,"STEPWAIT",6,X,55,"(null)WAIT",6,X
  321. 10140 [131] 57,"B",1,BLACK'S CASTLE,58,"OR",1,CASTLE WALL,59,"LEN",1,X,60,"^",1,X
  322. 10150 [131] 61,"/",1,X,62,"L",1,BRIT'S CASTLE,63,"EXP",1,CASTLE WALL
  323. 10160 [131] 94,"G",14,GUARDIAN,95,"G",14,X
  324. 10170 [131] 96,"PEEK",6,RIVER,97,"LEN",6,RIVER,98,"MID$",6,RIVER,99,"(null)",6,X,100,"RIGHT$",6,X
  325. 10180 [131] 101,"(null)",6,X,102,"FNWAIT",6,X,103,"TAB(WAIT",6,X,104,"THENWAIT",6,X,105,"TOWAIT",6,X
  326. 10190 [131] 106,"=",1,BRIDGE,107,"=",1,X,108,"PEEK",6,X,109,"LEN",6,X,110,"PEEK",6,X
  327. 10200 [131] 111,"LEN",6,X,143,"(null)",2,LAVA,164,"&",1,SIGNPOST,137,"_",1,CROSS
  328. 10210 [131] 138,"_WAIT",1,TOMBSTONE,220,"\",3,MOONGATE,221,"-",7,X
  329. 10220 [131] 223,"(null)WAIT",1,CLOSED DUNGEON
  330. 10230 [131] 212,"(null)",6,WATERFALL,213,"(null)",6,X,214,"(null)",6,X,215,"(null)",6,X
  331. 10240 [131] 0,"@",4,DARKNESS,255,"@",4,X,222,"FWAIT",6,FLAME,71,"=",9,DOCK
  332. 10250 [131] 256," ",1,X
  333. 50000 [153][199](14):[153]"LOAD         ****************"
  334. 50010 [153]"             (null)LTIMA 5    "
  335. 50020 [153]"           (null)AND (null)IEWER   "
  336. 50030 [153]"         ****************"
  337. 50040 [153]"DEF      (null)RIGINALLY PROGRAMMED"
  338. 50050 [153]"OPEN         PEEKY MID$EFF LENOUCKUYT"
  339. 50060 [153]"          FOR (null)LTIMA RIGHT$(null) "
  340. 50070 [153]"SYS      (null)PGRADED FOR (null)LTIMA (null)"
  341. 50080 [153]"            PEEKY (null)ARLEK "
  342. 50090 [153]"CLR    (null)RESS ANY KEY TO LENONTINUE"
  343. 50095 [161]ZZ$:[139]ZZ$[178]""[167]50095
  344. 50100 [153][199](142):[142]
  345. 59999 [128]
  346. 60000 [132]15,ZZ$,YY$,XX$,WW$
  347. 60010 [139][197](ZZ$)[179]21[167][142]
  348. 60015 [129]I[178]1[164]15:[160]I:[130]
  349. 60020 [153]"LOADOPERATION ABORTED."
  350. 60030 [153]"OPENA DISK ERROR HAS OCCURED:"
  351. 60040 [153]""ZZ$" "YY$" "XX$" "WW$
  352. 60050 [153]"PRESS ANY KEY TO CONTINUE."
  353. 60060 [161]AA$:[139]AA$[178]""[167]60060
  354. 60065 [139]DV[178]1[167][138]
  355. 60070 [137]100
  356. 62996 [143]
  357. 62997 [143]
  358. 62998 [143]
  359. 62999 [143]
  360. 63000 [143]  ****  J COUCKUYT  ****
  361. 63006 [143]
  362. 63010 [143]        AUGUST 1987
  363. 63011 [143]
  364. 63012 [143]
  365. 63013 [143]
  366. 63014 [143]
  367. 63015 [143]
  368.