home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / U4-CHAR-EDIT (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  19.5 KB  |  702 lines
  1. 2 DIMAS%(257),MP%(16,16),M3%(6,16,16)
  2. 3 DIMP$(80),CL%(80),NE$(80),PL$(16)
  3. 5 POKE53281,0:POKE53280,0:RESTORE
  4. 6 READA,B$,C,D$:IFA=100THEN08
  5. 7 P$(A)=B$:CL%(A)=C:NE$(A)=D$:GOTO6
  6. 8 FORI=0TO15:READPL$(I):NEXT
  7. 9 GOSUB50000:CR$="[144][159][156][158][129][149][150][151][152][153][154][155]"
  8. 10 DV=1:PRINT"[147]      PLEASE PLACE THE [158]ULTIMA IV
  9. 15 [153]"OPEN       BRITANNIA DISK IN THE DRIVE"
  10. 20 [153]"        AND 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 VR$[178]"U4 DISK C"[170][199](160)
  21. 60 [139][200](B$,10)[178]VR$[167]100
  22. 70 [153]"LOADSYS    THIS DISK IS NOT THE PRINT#ULTIMA IV"
  23. 75 [153]"   BRITANNIA SYSDISK.  PLEASE INSERT IT"
  24. 80 [153]"     INTO THE DRIVE AND PRESS A KEY."
  25. 85 [161]A$:[139]A$[178]""[167]85
  26. 90 [137]30
  27. 100 DV[178]0:[153]"LOADSYSULTIMATE ULTIMA IV EDITOR"
  28. 110 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  29. 120 [153]"1)  SMALL MAPPER"
  30. 125 [153]"2)  FULL SCREEN MAPPER"
  31. 130 [153]"3)  WORLD MAP PRINTER"
  32. 135 [153]"4)  MAP ALTERER"
  33. 137 [153]"5)  LEGEND"
  34. 138 [153]"6)  CHARACTER EDITOR"
  35. 139 [153]"7)  TOWNSPEOPLE VIEWER"
  36. 140 [153]"8)  QUIT"
  37. 141 [153]"CLRWHICH ONE?"
  38. 145 [161]Z$:[139]Z$[178]""[167]145
  39. 150 [139][197](Z$)[179]1[176][197](Z$)[177]8[167]145
  40. 155 [145][197](Z$)[137]1000,2000,3000,4000,6000,7000,9000,5000
  41. 1000 [143]  ****  SMALL MAPPER  ****
  42. 1010 [143]
  43. 1020 [143]
  44. 1030 [153]"LOADOPENBLOCK MAPPER"
  45. 1035 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  46. 1040 [153]"POKELATITUDE LONGITUDE (OR Z TO STOP)? TO";
  47. 1041 [161]ZZ$:[139]ZZ$[178]""[167]1041
  48. 1042 [139]ZZ$[178]"Z"[167]100
  49. 1043 [139][198](ZZ$)[179]65[176][198](ZZ$)[177][198]("P")[167]1041
  50. 1044 LT[178][198](ZZ$)[171]65:LT$[178]ZZ$:[153]"CMD"ZZ$"TO";
  51. 1045 [161]ZZ$:[139]ZZ$[178]""[167]1045
  52. 1046 [139][198](ZZ$)[179]65[176][198](ZZ$)[177][198]("P")[167]1045
  53. 1047 LN[178][198](ZZ$)[171]65:[153]"CMD"ZZ$:LN$[178]ZZ$
  54. 1048 [153]"IS "LT$"' "LN$"' CORRECT? TO";
  55. 1049 [161]ZZ$:[139]ZZ$[178]""[167]1049
  56. 1050 [139]ZZ$[178]"N"[167]1030
  57. 1051 [153]"CMD"ZZ$
  58. 1070 NM[178]LT[172]16[170]LN
  59. 1080 TK[178][181](NM[173]21):SC[178]NM[171]TK[172]21
  60. 1090 TK[178]TK[170]1:SC[178]SC[170]1
  61. 1100 [139]SC[178]21[167]TK[178]TK[170]1:SC[178]0
  62. 1110 [139]TK[178][177]13[175]SC[177]4[167]1040
  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. 2330 [159]15,8,15:[159]5,8,5,"#1"
  119. 2340 [141]60000
  120. 2350 [152]15,"U1:"5;0;TK;SC
  121. 2360 [153]VT$;:[129]I[178]1[164]16:[153][163]TB);:[129]J[178]1[164]16:[161]#5,A$
  122. 2370 [139]A$[178]""[167]A$[178][199](0)
  123. 2380 [139]I[177]VM[167]2430
  124. 2390 [139]J[177]HM[167]2410
  125. 2400 [153][202](CR$,CL%([198](A$))[170]1,1)P$([198](A$));
  126. 2410 [130]J
  127. 2420 [153]:[130]I
  128. 2430 [141]60000
  129. 2440 [160]5:[160]15:[142]
  130. 2450 VT$[178]"":TB[178]0:VM[178]16:HM[178]16
  131. 2460 [141]2280
  132. 2470 LN[178]LN[170]1
  133. 2480 VT$[178]"":TB[178]16:VM[178]16:HM[178]16:[141]2280
  134. 2490 LN[178]LN[170]1
  135. 2500 VT$[178]"":TB[178]32:VM[178]16:HM[178]7:[141]2280
  136. 2510 LT[178]LT[170]1:LN[178]LN[171]2
  137. 2520 VT$[178]"":TB[178]0:VM[178]8:HM[178]16:[141]2280
  138. 2530 LN[178]LN[170]1
  139. 2540 VT$[178]"":TB[178]16:VM[178]8:HM[178]16:[141]2280
  140. 2550 LN[178]LN[170]1
  141. 2560 VT$[178]"":TB[178]32:VM[178]8:HM[178]7:[141]2280
  142. 2570 [137]2250
  143. 3000 [143]   ****  MAP PRINTER  ****
  144. 3005 MF[178]0
  145. 3010 [143]
  146. 3015 [143]
  147. 3020 [143]
  148. 3025 [153]"LOADOPENMAP PRINTER":FM[178]0
  149. 3030 [139]MF[178]1[167]3070
  150. 3035 [153]"THIS UTILITY PRINTS OUT A SCALE MAP"
  151. 3040 [153]"OF BRITANNIA.  IT TAKES 12 PAGES AND"
  152. 3045 [153]"APPROX. 4 AND 1/2 HOURS TO COMPLETE."
  153. 3050 [153]" (ASSUMING YOU HAVE AN MPS 801 PRINTER)"
  154. 3055 [153]"BECAUSE OF THIS, ONLY DO THIS IF YOU"
  155. 3060 [153]"HAVE LOTS OF TIME AND PRINTER RIBBON"
  156. 3065 [153]"TO SPARE!"
  157. 3070 [153]"LAST CHANCE TO TURN BACK!"
  158. 3075 [153]"DEFOK TO PROCEED (Y/N)?"
  159. 3080 [161]Z$:[139]Z$[178]""[167]3080
  160. 3085 [139]Z$[178]"N"[167]100
  161. 3090 [153]"WANT TO PRINT OUT ALL 12 PAGES(Y/N)?"
  162. 3095 [161]Z$:[139]Z$[178]""[167]3095
  163. 3100 [139]Z$[178]"Y"[167]BV[178]1:FV[178]3:BH[178]1:FH[178]4:FM[178]1:[137]3205
  164. 3105 [153]"LOADCLRPAGE SELECTION"
  165. 3110 [153]"SYSTHE PAGES ARE SET UP AS FOLLOWS:"
  166. 3115 [153]"CONTORTAN=TAN=TAN=LEN^"
  167. 3120 [153]"PEEKAPEEKBPEEKCPEEKDPEEK"
  168. 3125 [153]"-LEN(null)TAN(null)TAN(null)TAN<"
  169. 3130 [153]"(null)E(null)F(null)G(null)H(null)"
  170. 3135 [153]"-TAN(null)TAN(null)TAN(null)TAN<"
  171. 3140 [153]"(null)I(null)J(null)K(null)L(null)"
  172. 3145 [153]"/TAN>TAN>TAN>TANEXP"
  173. 3150 [153]"POKENW PAGE?  TO";
  174. 3155 [161]Z$:[139]Z$[178]""[167]3155
  175. 3160 [139][198](Z$)[179][198]("A")[176][198](Z$)[177][198]("L")[167]3155
  176. 3165 [153]"CMD"Z$:NW$[178]Z$:[153]"PRINT#SE PAGE?  TO";
  177. 3170 [161]Z$:[139]Z$[178]""[167]3170
  178. 3175 [139][198](Z$)[179][198]("A")[176][198](Z$)[177][198]("L")[167]3170
  179. 3180 [153]"CMD"Z$:SE$[178]Z$:[139][198](NW$)[177][198](SE$)[167][153]"INVALID.":[137]3150
  180. 3185 NW[178][198](NW$)[171]65:SE[178][198](SE$)[171]65
  181. 3190 BV[178][181](NW[173]4):BH[178]NW[171](BV[172]4):BV[178]BV[170]1:BH[178]BH[170]1
  182. 3195 FV[178][181](SE[173]4):FH[178]SE[171](FV[172]4):FV[178]FV[170]1:FH[178]FH[170]1
  183. 3200 [137]3205
  184. 3205 [153]"LOADPRINT#MAKE SURE THE PRINTER IS READY!"
  185. 3210 [153]"THE PAGES FIT TOGETHER IN THE"
  186. 3215 [153]"FOLLOWING MANNER:"
  187. 3220 [153]"PRINTORTAN=TAN=TAN=LEN^"
  188. 3225 [153]"PEEKAPEEKBPEEKCPEEKDPEEK"
  189. 3230 [153]"-LEN(null)TAN(null)TAN(null)TAN<"
  190. 3235 [153]"(null)E(null)F(null)G(null)H(null)"
  191. 3240 [153]"-TAN(null)TAN(null)TAN(null)TAN<"
  192. 3245 [153]"(null)I(null)J(null)K(null)L(null)"
  193. 3250 [153]"/TAN>TAN>TAN>TANEXP"
  194. 3255 [139]FM[178]1[167][153]"OPENFULL MAP IS BEING PRINTED!!":[137]3286
  195. 3260 [153]"CONTPAGE(S) "NW$" TO "SE$
  196. 3265 [153]"CLRTHESE INCLUDE:SYS ";
  197. 3270 CT[178]0:[129]ZZ[178]BV[164]FV:[129]YY[178]BH[164]FH:CT[178]CT[170]1
  198. 3275 [139]CT[179][177]1[167][153]",";
  199. 3280 [153][199]((((ZZ[171]1)[172]4)[170]YY[171]1)[170]65);:[130]YY:[130]ZZ:[153]
  200. 3285 [153]"FORFOR A TOTAL OF"CT"PAGES."
  201. 3286 [139]FM[178]1[176]SE$[178]"L"[167]3288
  202. 3287 [137]3294
  203. 3288 [153]"DEFWANT THE LEGEND(Y/N)? TO";
  204. 3289 [161]ZZ$:[139]ZZ$[178]""[167]3289
  205. 3290 [139]ZZ$[178]"Y"[167]WL[178]1
  206. 3291 [153]"CMD"ZZ$
  207. 3294 [153]"POKEIS THIS THE DESIRED OUTPUT(Y/N)?"
  208. 3295 [161]Z$:[139]Z$[178]""[167]3295
  209. 3300 [139]Z$[178]"N"[167]MF[178]1:[137]3010
  210. 3305 [137]3320
  211. 3310 [153]"PRESS ANY KEY TO CONTINUE."
  212. 3315 [161]A$:[139]A$[178]""[167]3315
  213. 3320 [159]1,4:PC[178]0:TC[178]0
  214. 3325 [129]A[178]BV[164]FV:[129]B[178]BH[164]FH
  215. 3330 [129]Z[178]1[164]6
  216. 3335 NM[178](((A[171]1)[172]6)[170]Z[171]1)[172]16[170]((B[171]1)[172]5)
  217. 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)
  218. 3345 [153]"LOADPROCESSING "LT$"' "SL$"' THRU "LT$"' "EL$"'"
  219. 3350 TK[178][181](NM[173]21):SC[178]NM[171]TK[172]21
  220. 3355 TK[178]TK[170]1:SC[178]SC[170]1
  221. 3360 [139]SC[178]21[167]TK[178]TK[170]1:SC[178]0
  222. 3365 [141]3590
  223. 3370 [129]I[178]1[164]16:[129]CN[178]1[164]5:[129]J[178]1[164]16
  224. 3380 [139]B[179]4[167]3420
  225. 3390 [139]CN[178]1[167]3420
  226. 3400 [139]I[179][177]1[167]3800
  227. 3410 [152]1,"     "LT$;:[137]3800
  228. 3420 [139]A[179]3[167]3480
  229. 3430 [139]Z[179]5[167]3480
  230. 3440 [139]Z[178]6[167]3471
  231. 3450 [139]I[179][177]5[167]3510
  232. 3460 [139]J[179][177]1[167][152]1,[199](15)" ";:[130]J:[137]3500
  233. 3470 [152]1,[199](15)[199]([198](SL$)[170]CN[171]1);:[130]J:[137]3500
  234. 3471 [139]B[179]4[167]3510
  235. 3472 [139]I[179][177]8[167]3510
  236. 3473 [152]1,[199](15)"BY  JEFF COUCKUYT":[137]3510
  237. 3480 TR[178]M3%(CN,I,J)
  238. 3490 [152]1,[199](15)P$(TR);:[130]J
  239. 3500 [130]CN
  240. 3510 [152]1,[199](8):[130]I
  241. 3520 [130]Z:[152]1," "[199](8):[152]1,[199](15)" "[199](8)
  242. 3530 [152]1,[199](15)" "[199](8)
  243. 3540 [130]B:[130]A:[160]1:[137]100
  244. 3550 [143]
  245. 3560 [143]
  246. 3570 [143] **** DISK READER ****
  247. 3580 [143]
  248. 3590 [159]15,8,15:[159]5,8,5,"#1"
  249. 3600 CN[178]0
  250. 3610 CN[178]CN[170]1
  251. 3620 [139](((A[171]1)[172]6)[170]Z[171]1)[177]15[167]3740
  252. 3630 [139]((B[171]1)[172]5)[170]CN[171]1[177]15[167]3740
  253. 3640 [141]60000
  254. 3650 [152]15,"U1:"5;0;TK;SC
  255. 3660 [129]I[178]1[164]16:[129]J[178]1[164]16:[161]#5,A$
  256. 3670 [139]A$[178]""[167]A$[178][199](0)
  257. 3680 M3%(CN,I,J)[178][198](A$)
  258. 3690 [130]:[130]
  259. 3700 [141]60000
  260. 3710 SC[178]SC[170]1:[139]SC[178]21[167]TK[178]TK[170]1:SC[178]0
  261. 3720 [139]CN[178]5[167]3740
  262. 3730 [137]3610
  263. 3740 [160]5:[160]15:[142]
  264. 3800 [139]WL[178]0[176]PC[178]100[167]3510
  265. 3805 [139]A[179]3[176]Z[178]1[167]3510
  266. 3810 [139]PC[178]0[167][152]1,[199](15)[199](16)"45ULTIMA IV LEGEND";:PC[178]1:[137]3510
  267. 3815 [139]PC[178]1[167][152]1,[199](15)[199](16)"45----------------";:PC[178]3:[137]3510
  268. 3820 [139]PC[173]2[179][177][181](PC[173]2)[167]PC[178]PC[170]1:[137]3510
  269. 3825 [139]NE$(TC)[179][177]"X"[175]NE$(TC)[179][177]""[167]3830
  270. 3827 TC[178]TC[170]1:[139]TC[178]80[167]3835
  271. 3828 [137]3825
  272. 3830 [152]1,[199](15)[199](16)"45"P$(TC)"    "NE$(TC);:PC[178]PC[170]1:TC[178]TC[170]1:[137]3510
  273. 3835 [152]1,[199](15)[199](16)"45"P$(13)P$(14)P$(15)"  LORD BRITISH'S CASTLE";
  274. 3840 PC[178]100:[137]3510
  275. 4000 [143]  ****  MAP CHANGER  ****
  276. 4020 [143]
  277. 4030 [143]
  278. 4040 [143]
  279. 4043 [143]
  280. 4050 [153]"LOADCHEAT OPTIONS:"
  281. 4060 [153]"NOTE:  IN MOST CASES THIS PROCEDURE IS"
  282. 4070 [153]"IRREVERSIBLE, THEREFORE COPY YOUR"
  283. 4080 [153]"BRITANNIA DISK BEFORE EXECUTING THIS"
  284. 4090 [153]"PROGRAM."
  285. 4100 [153]"SYSHOW MANY TERRAIN CHANGES (0-8)? TO";
  286. 4101 [161]ZZ$:[139]ZZ$[178]""[167]4101
  287. 4102 [139][197](ZZ$)[177]8[167]4101
  288. 4103 [153]"CMD"ZZ$:NC[178][197](ZZ$)
  289. 4104 [139][197](ZZ$)[178]0[167]100
  290. 4110 [153]"PRINT#TERRAIN LIST:"
  291. 4120 [129]X[178]0[164]8:[153]"POKE"X;NE$(X):[130]
  292. 4130 [129]Z[178]1[164]NC
  293. 4140 [153]"DEF----------------------------"
  294. 4150 [153]"CHANGE #"Z
  295. 4160 [153]"WHAT TERRAIN?  TO";
  296. 4170 [161]Z$:[139]Z$[178]""[167]4170
  297. 4180 ST(Z)[178][197](Z$):[153]"CMD"Z$
  298. 4190 [153]"PRINTTO WHAT?  TO";
  299. 4200 [161]Z$:[139]Z$[178]""[167]4200
  300. 4210 ET(Z)[178][197](Z$):[153]"CMD"Z$
  301. 4220 [139]ST(Z)[178]ET(Z)[167]4140
  302. 4230 [153]"OPEN"NE$(ST(Z))" TO "NE$(ET(Z))
  303. 4240 [153]"CONTIS THIS CORRECT (Y/N)?"
  304. 4250 [161]Z$:[139]Z$[178]""[167]4250
  305. 4260 [139]Z$[178]"N"[167]4140
  306. 4270 [130]
  307. 4280 [153]"LOADMAP MODIFIER"
  308. 4281 [153]"PRINT#WOULD YOU LIKE ME TO CHANGE TERRAIN"
  309. 4282 [153]"THROUGHOUT THE WPRINT#WAITHOLE MAP OR JUST"
  310. 4283 [153]"PPRINT#WAITART OF IT?"
  311. 4290 [161]Z$:[139]Z$[178]""[167]4290
  312. 4300 [139]Z$[178]"W"[167]SV[178]1:EV[178]16:SH[178]1:EH[178]16:[137]4350
  313. 4301 [137]4310
  314. 4305 [153]"INVALID ENTRY."
  315. 4310 [133]"NW COORDINATES";NW$
  316. 4320 [133]"PRINTSE COORDINATES";SE$
  317. 4330 SV[178][198]([200](NW$,1))[171]64:EV[178][198]([200](SE$,1))[171]64:[139]SV[177]16[176]EV[177]16[167]4305
  318. 4340 SH[178][198]([201](NW$,1))[171]64:EH[178][198]([201](SE$,1))[171]64:[139]SH[177]16[176]EH[177]16[167]4305
  319. 4345 [139]SH[177]EH[167]4305
  320. 4346 [139]SV[177]EV[167]4305
  321. 4350 [153]"LOADSYSREADY TO PERFORM:"
  322. 4360 [129]P[178]1[164]NC:[153]""NE$(ST(P))" TO "NE$(ET(P)):[130]
  323. 4370 [139]Z$[178]"W"[167][153]"OPENTHRU THE WHOLE MAP":[137]4390
  324. 4371 V1$[178][200](NW$,1):H1$[178][201](NW$,1):V2$[178][200](SE$,1):H2$[178][201](SE$,1)
  325. 4380 [153]"OPENFROM "V1$"' "H1$"' TO "V2$"' "H2$"'"
  326. 4390 [153]"ALL SET TO START..."
  327. 4400 [153]"THIS IS YOUR LAST CHANCE TO AVOID ANY"
  328. 4410 [153]"UNWANTED DISK CHANGES - PRESS 'X' NOW"
  329. 4420 [153]"TO ABORT THIS OPERATION OR PRESS ANY"
  330. 4430 [153]"OTHER KEY TO COMMENCE."
  331. 4440 [161]Z$:[139]Z$[178]""[167]4440
  332. 4450 [139]Z$[178]"X"[167]4000
  333. 4460 [129]I[178]SV[164]EV:[129]J[178]SH[164]EH
  334. 4470 AF[178]0
  335. 4480 NM[178](I[171]1)[172]16[170](J[171]1):TK[178][181](NM[173]21):SC[178]NM[171](TK[172]21):TK[178]TK[170]1:SC[178]SC[170]1
  336. 4490 [139]SC[178]21[167]TK[178]TK[170]1:SC[178]0
  337. 4500 LT$[178][199](I[170]64):LN$[178][199](J[170]64)
  338. 4510 [153]"LOAD"LT$"' "LN$"'  TRACK"TK"SECTOR"SC
  339. 4515 [153]"OPENSTATUS:  SYSREADING DISK               "
  340. 4520 [159]15,8,15:[159]5,8,5,"#"
  341. 4525 [141]60000
  342. 4530 [152]15,"U1:"5;0;TK;SC
  343. 4540 [129]B[178]0[164]255:[161]#5,A$
  344. 4550 [139]A$[178]""[167]AS%(B)[178]0:[130]:[137]4570
  345. 4560 AS%(B)[178][198](A$):[130]
  346. 4565 [141]60000
  347. 4570 [160]5:[160]15:[153]"OPENSTATUS:  CHANGING TERRAIN":[129]A[178]0[164]255
  348. 4580 [129]C[178]1[164]NC
  349. 4590 [139]AS%(A)[178]ST(C)[167]AS%(A)[178]ET(C):AF[178]1:[137]4610
  350. 4600 [130]C
  351. 4610 [130]A
  352. 4620 [139]AF[178]0[167]4670
  353. 4625 [153]"OPENSTATUS:  CLRWRITING             "
  354. 4630 [159]15,8,15:[159]5,8,5,"#"
  355. 4635 [141]60000
  356. 4640 [129]B[178]0[164]255
  357. 4643 [139]B[178]0[167][152]15,"B-P:"5;0
  358. 4647 [152]5,[199](AS%(B));:[130]
  359. 4650 [152]15,"U2:"5;0;TK;SC
  360. 4655 [141]60000
  361. 4660 [160]5:[160]15
  362. 4670 [130]J:[130]I:[137]100
  363. 5000 [153]"LOADSYS   GOOD LUCK IN YOUR ADVENTURING!!!"
  364. 5010 [153]"      AND MAY YOU COMPLETE THE"
  365. 5020 [153]"OPEN        QUEST OF THE AVATAR"
  366. 5030 [153]"POKE      BY J COUCKUYT PRODUCTIONS"
  367. 5040 [128]
  368. 6000 TB[178]0:TB$[178]"":[153]"LOADSYSGRAPHICS LEGEND":[153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  369. 6010 [129]A[178]0[164]80:[139]NE$(A)[178]"X"[176]NE$(A)[178]""[167][130]A:[137]6030
  370. 6015 [139]A[178]10[167]TB[178]19:TB$[178]"POKE(null)   ":[153]"";
  371. 6020 [153][163]TB)TB$;:[153][202](CR$,CL%(A)[170]1,1)P$(A)"   "NE$(A):[130]A
  372. 6030 [153]""P$(13)P$(14)P$(15)" LORD BRITISH'S CASTLE"
  373. 6040 [153]"YOU MAY MODIFY THESE GRAPHICS FROM THE"
  374. 6045 [153]"PROGRAM.  THEY ARE STORED IN DATA"
  375. 6046 [153]"STATEMENTS FROM 10000-10070."
  376. 6047 [153]"BE NOW WARNED!!  DO NOT CHANGE ANY"
  377. 6048 [153]"NUMBERS YOU MAY SEE - JUST GRAPHICS!!"
  378. 6049 [153]"DEFPRESS ANY KEY TO CONTINUE."
  379. 6050 [161]A$:[139]A$[178]""[167]6050
  380. 6060 [137]100
  381. 7000 [153]"LOADCHARACTER EDITOR"
  382. 7010 [153]"CONTUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  383. 7020 [153]"ARE YOU A FIRST TIME USER OF THIS"
  384. 7030 [153]"UTILITY(Y/N)? TO"
  385. 7040 [161]ZZ$:[139]ZZ$[178]""[167]7040
  386. 7050 [139]ZZ$[178]"Y"[167]8000
  387. 7060 [153]"LOADOPENREADY TO PERFORM THE CHARACTER"
  388. 7065 [153]"ALTERING PROCEDURE.  THIS IS YOUR LAST"
  389. 7070 [153]"CHANCE TO AVOID THE CHANGES THAT ARE"
  390. 7075 [153]"ABOUT TO BE MADE.  PRESS 'X' NOW TO"
  391. 7080 [153]"ABORT.  ANY OTHER KEY CONTINUES."
  392. 7085 [161]ZZ$:[139]ZZ$[178]""[167]7085
  393. 7090 [139]ZZ$[178]"X"[167]100
  394. 7100 [153]"LOADSYSCOMMENCING OPERATION."
  395. 7110 [153]"CONTLOADING CHARACTER DATA."
  396. 7115 [159]15,8,15:[159]5,8,5,"#":[141]60000
  397. 7120 [152]15,"U1:"5;0;14;0
  398. 7125 [129]I[178]1[164]16:[129]J[178]1[164]16:[161]#5,A$
  399. 7130 [139]A$[178]""[167]MP%(I,J)[178]0:[137]7140
  400. 7135 MP%(I,J)[178][198](A$)
  401. 7140 [130]J:[130]I
  402. 7145 [141]60000:[160]5:[160]15
  403. 7150 [153]"CLRMODIFYING: ";
  404. 7152 [129]CH[178]1[164]8
  405. 7155 [129]J[178]1[164]16:[139]MP%(CH[172]2[171]1,J)[178]0[167]7165
  406. 7160 [153][199](MP%(CH[172]2[171]1,J)[171]128);
  407. 7163 [130]J
  408. 7165 [153]:[153][163]11);
  409. 7170 MP%(CH[172]2,3)[178]199:MP%(CH[172]2,4)[178]80:MP%(CH[172]2,5)[178]80:MP%(CH[172]2,6)[178]80
  410. 7171 [139]MP%(CH[172]2,2)[178]2[176]MP%(CH[172]2,2)[178]7[167]7175
  411. 7172 MP%(CH[172]2,7)[178]153
  412. 7175 MP%(CH[172]2,9)[178]8:MP%(CH[172]2,10)[178]0:MP%(CH[172]2,11)[178]8:MP%(CH[172]2,12)[178]153
  413. 7178 MP%(CH[172]2,13)[178]153:MP%(CH[172]2,14)[178]153:MP%(CH[172]2,15)[178]15:MP%(CH[172]2,16)[178]7
  414. 7180 [130]CH:[153]
  415. 7185 [153]"ONPOKECHARACTER DATA COMPILED - SAVING."
  416. 7190 [159]15,8,15:[159]5,8,5,"#"
  417. 7195 [141]60000:[129]I[178]1[164]16:[129]J[178]1[164]16
  418. 7200 [139]I[178]1[175]J[178]1[167][152]15,"B-P:"5;0
  419. 7205 [152]5,[199](MP%(I,J));:[130]:[130]
  420. 7210 [152]15,"U2:"5;0;14;0
  421. 7215 [141]60000
  422. 7220 [160]5:[160]15
  423. 7230 [159]15,8,15:[159]5,8,5,"#":[141]60000
  424. 7235 [152]15,"U1:"5;0;14;1
  425. 7240 [129]B[178]0[164]255:[161]#5,A$
  426. 7245 [139]A$[178]""[167]AS%(B)[178]0:[137]7255
  427. 7250 AS%(B)[178][198](A$)
  428. 7255 [130]B:[141]60000:[160]5:[160]15
  429. 7257 [153]"OPENALTERING AVATARHOODS"
  430. 7260 [129]BB[178]0[164]7:AS%(BB)[178]0:[130]
  431. 7270 [153]"FOREQUIPMENT: TORCHES, GEMS, ETC"
  432. 7275 [129]BB[178]8[164]11:AS%(BB)[178]153:[130]
  433. 7280 [153][163]11)"STONES, RUNES":AS%(12)[178]255:AS%(13)[178]255
  434. 7282 [153][163]11)"BELL, BOOK, CANDLE":AS%(14)[178]7
  435. 7285 [153][163]11)"3 PART KEY":AS%(15)[178]7
  436. 7286 [153][163]11)"HORN, WHEEL, SKULL"
  437. 7287 [129]BB[178]21[164]23:AS%(BB)[178]1:[130]
  438. 7288 [153][163]11)"FOOD & GOLD":AS%(16)[178]153:AS%(17)[178]153:AS%(19)[178]153:AS%(20)[178]153
  439. 7290 [153][163]11)"ARMOUR"
  440. 7295 [129]BB[178]25[164]31:AS%(BB)[178]153:[130]
  441. 7300 [153][163]11)"WEAPONS"
  442. 7305 [129]BB[178]33[164]47:AS%(BB)[178]153:[130]
  443. 7310 [153]"PRINTSPELLS:    REAGENTS"
  444. 7315 [129]BB[178]56[164]63:AS%(BB)[178]153:[130]
  445. 7320 [153][163]11)"MIXTURES"
  446. 7325 [129]BB[178]64[164]89:AS%(BB)[178]153:[130]
  447. 7330 [153]"EQUIPMENT ADDED - SAVING"
  448. 7340 [159]15,8,15:[159]5,8,5,"#":[141]60000
  449. 7345 [129]B[178]0[164]255:[139]B[178]0[167][152]15,"B-P:"5;0
  450. 7350 [152]5,[199](AS%(B));:[130]
  451. 7355 [152]15,"U2:"5;0;14;1
  452. 7360 [141]60000
  453. 7370 [160]5:[160]15
  454. 7375 [153]"OPERATION COMPLETE - PRESS ANY KEY"
  455. 7385 [161]ZZ$:[139]ZZ$[178]""[167]7385
  456. 7386 [137]100
  457. 7999 [128]
  458. 8000 [153]"LOADSYSSOME NOTES ON THE EDITOR:"
  459. 8010 [153]"*  THIS EDITOR HAS NO OPTIONS, IT"
  460. 8015 [153]"   UPGRADES YOU CHARACTERS TO THE BEST"
  461. 8020 [153]"   STATS POSSIBLE (IE: 8TH LEVEL,"
  462. 8025 [153]"   MAX STRENGH, INT, DEX, 99 OF ALL"
  463. 8030 [153]"   EQUIPMENT, REAGENTS AND MIXTURES,"
  464. 8035 [153]"   ETC...)
  465. 8050 PRINT"[156]*  IF YOU DO NOT HAVE ALL 8 MEMBERS IN"
  466. 8055 PRINT"   YOUR PARTY, THEY WILL NOT BE GIVEN"
  467. 8060 PRINT"   TO YOU.  BUT, HOWEVER, WHEN THEY ARE"
  468. 8070 PRINT"   LOCATED, THEY WILL ALSO HAVE MAX"
  469. 8075 PRINT"   STATS."
  470. 8080 PRINT"[152]*  BECAUSE THIS ULTILITY ALTERS THE"
  471. 8085 PRINT"   DISK, IT IS RECOMMENDED THIS BE USED"
  472. 8090 PRINT"   ON A BACKUP COPY."
  473. 8095 PRINT"      PRESS ANY KEY TO CONTINUE"
  474. 8100 GETZZ$:IFZZ$=""THEN8100
  475. 8110 PRINT"[147]ONCE CHANGES ARE DONE:"
  476. 8120 PRINT"[152]*  NEXT TIME YOU ARE PLAYING ULTIMA IV"
  477. 8125 PRINT"   GO TO LORD BRITISH AS SOON AS"
  478. 8130 PRINT"   POSSIBLE - THIS WILL ENSURE THE"
  479. 8135 PRINT"   CHANGES ARE PERMANENT."
  480. 8140 PRINT"[156]*  THIS PROCESS IS RELATIVELY NEW AND"
  481. 8145 PRINT"   UNTESTED.  THERE HAS BEEN NO"
  482. 8150 PRINT"   PROBLEM WITH IT SO FAR, BUT BE"
  483. 8155 PRINT"   WARNED, IT IS NOT 100% RELIABLE!"
  484. 8160 PRINT"   (MAYBE ONLY 99.99999%)"
  485. 8165 PRINT"[150]*  IN MY OPINION, THESE CHANGES GIVE"
  486. 8170 PRINT"   THE PLAYER THE MOST ADVANTAGE OF ALL"
  487. 8175 PRINT"   POSSIBLE ALTERATIONS.  THEREFORE,"
  488. 8180 PRINT"   THOSE OF YOU WHO HAVE A NEED FOR A"
  489. 8185 PRINT"   CHALLENGE OR HAVE AN EXTRA GUILTY"
  490. 8190 PRINT"   MIND, I WOULD NOT SUGGEST GOING"
  491. 8195 PRINT"   THROUGH WITH THIS PROCESS.  (USE"
  492. 8200 PRINT"   IT AS A LAST DITCH EFFORT IF YOU ARE"
  493. 8205 PRINT"   GETTING FRUSTRATED!!!)"
  494. 8210 PRINT"      PRESS ANY KEY TO CONTINUE."
  495. 8215 GETZZ$:IFZZ$=""THEN8215
  496. 8220 GOTO7060
  497. 9000 PRINT"[147][156]TOWNSFOLK EDITOR"
  498. 9010 PRINT"[159][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  499. 9015 PRINT"THIS OPTION ALLOWS THE USER TO VIEW"
  500. 9016 PRINT"THE INFORMATION GIVEN BY PEOPLE IN"
  501. 9017 PRINT"THE TOWNES, CASTLES AND VILLAGES"
  502. 9018 PRINT"THROUGHOUT BRITANNIA."
  503. 9020 PRINT"THEREFORE IT IS NECESSARY TO USE THE"
  504. 9021 PRINT"[158]TOWNE DISK. PLEASE INSERT IT IN THE"
  505. 9022 PRINT"DRIVE AND PRESS A KEY."
  506. 9025 GETZ$:IFZ$=""THEN9025
  507. 9026 IFZ$="[181]"THEN9075
  508. 9031 OPEN15,8,15:OPEN5,8,5,"#"
  509. 9035 PRINT#15,"U1:"5;0;18;0:B$=""
  510. 9037 GOSUB60000
  511. 9040 FORL=144TO161:IFL=144THENPRINT#15,"B-P:"5;144
  512. 9045 GET#5,A$:B$=B$+A$
  513. 9050 NEXT:CLOSE5:CLOSE15
  514. 9055 VR$="U4 DISK B"+CHR$(160)
  515. 9060 IFLEFT$(B$,10)=VR$THEN9075
  516. 9070 PRINT"[158]THIS IS NOT THE TOWNE DISK!"
  517. 9071 PRINT"PLEASE INSERT IT AND PRESS A KEY."
  518. 9072 GOTO9025
  519. 9075 PRINT"[159]WOULD YOU LIKE TO SCAN THRU A[146]LL"
  520. 9076 PRINT"PEOPLE OR JUST O[146]NE PLACE?"
  521. 9077 GETZZ$:IFZZ$=""THEN9077
  522. 9078 IFZZ$="O"THEN9500
  523. 9080 TK=1:SC=1
  524. 9085 GOSUB9100
  525. 9086 PRINT:PRINT"N[146]EXT, S[146]CAN MORE, M[146]AIN MENU?";
  526. 9087 GETZZ$:IFZZ$=""THEN9087
  527. 9088 IFZZ$="M"THEN9700
  528. 9089 IFZZ$="S"THENPRINT"[147]":GOTO9075
  529. 9090 SC=SC+1:IFSC=21THENTK=TK+1:SC=0
  530. 9091 GOTO9085
  531. 9100 T1=TK-1:S1=SC-1:IFS1=-1THENS1=20:T1=T1-1
  532. 9110 NT=INT((T1*21+S1)/16)
  533. 9120 OPEN15,8,15:OPEN5,8,5,"#":GOSUB60000
  534. 9130 PRINT"[147][156]PLACE: "PL$(NT):PRINT"[158]NAME: ";
  535. 9140 PRINT#15,"U1:"5;0;TK;SC:GOSUB60000
  536. 9150 CC=1:GOSUB9900:M1=CC
  537. 9151 IFNT<4ORNT>11THEN9160
  538. 9152 IFINT((T1*21+S1)/16)=(T1*21+S1)/16THENPRINT"  *";
  539. 9160 CC=CC+1:GET#5,A$:IFA$=""THEN9180
  540. 9170 GOTO9160
  541. 9180 PRINT:PRINT"[150]DESCRIPTION: ";:CC=CC+1:GOSUB9900
  542. 9190 PRINT:PRINT"JOB: ";:CC=CC+1:GOSUB9900
  543. 9200 PRINT:PRINT"HEALTH: ";:CC=CC+1:GOSUB9900:M2=CC
  544. 9210 PRINT#15,"B-P:"5;240:GET#5,A$:GET#5,B$:GET#5,C$
  545. 9215 IFA$="A"ANDB$=" "ANDC$=" "THENM2=M2+2:GOTO9321
  546. 9230 PRINT:PRINT"PHRASE 1:":PRINT"[152]YOU SAY: ";
  547. 9240 PRINT#15,"B-P:"5;240:FORI=1TO6:GET#5,A$:PRINTA$;:NEXT
  548. 9250 PRINT:PRINT"[151]";:CC=M1+1:GOSUB9900:PRINT" SAYS: ";
  549. 9260 PRINT"[155]";:CC=M2+1:GOSUB9900:M2=CC
  550. 9270 PRINT#15,"B-P:"5;246:GET#5,A$:GET#5,B$:GET#5,C$
  551. 9275 IFA$="A"ANDB$=" "ANDC$=" "THENM2=M2+2:GOTO9321
  552. 9280 PRINT:PRINT"PHRASE 2:":PRINT"[152]YOU SAY: ";
  553. 9290 PRINT#15,"B-P:"5;246:FORI=1TO6:GET#5,A$:PRINTA$;:NEXT
  554. 9300 PRINT:PRINT"[151]";:CC=M1+1:GOSUB9900:PRINT" SAYS: ";
  555. 9310 PRINT"[155]";:CC=M2+1:GOSUB9900:M2=CC
  556. 9321 PRINT#15,"B-P:"5;M2+1:GET#5,A$
  557. 9322 IFA$<>"A"THEN9330
  558. 9323 GET#5,A$:IFA$<>""THEN9330
  559. 9324 GOTO9355
  560. 9330 PRINT:PRINT"[159]QUESTION: ";:CC=M2+1:GOSUB9900:M2=CC
  561. 9340 PRINT:PRINT"[150]   YES: ";:CC=M2+1:GOSUB9900:M2=CC
  562. 9350 PRINT:PRINT"   NO:  ";:CC=M2+1:GOSUB9900
  563. 9355 CLOSE5:CLOSE15
  564. 9360 RETURN
  565. 9500 PRINT"[147]SCAN ONE PLACE:"
  566. 9510 PRINT"[156]":FORI=0TO15:PRINTCHR$(I+65)")  "PL$(I):NEXT
  567. 9512 PRINT"Q)  MAIN MENU"
  568. 9515 PRINT"WHICH ONE? [164]";
  569. 9520 GETZZ$:IFZZ$=""THEN9520
  570. 9525 IFASC(ZZ$)<ASC("A")ORASC(ZZ$)>ASC("Q")THEN9520
  571. 9527 IFZZ$="Q"THEN9700
  572. 9530 SP=ASC(ZZ$)-65:PRINT"[157]"ZZ$
  573. 9540 PRINT"[159]WOULD YOU LIKE AN INDEX OF"
  574. 9545 PRINTPL$(SP)" FIRST(Y/N)? [164]"
  575. 9550 GETZZ$:IFZZ$=""THEN9550
  576. 9551 T2=INT((SP*16)/21):S2=SP*16-T2*21:T2=T2+1:S2=S2+1
  577. 9552 IFS2=21THENS2=0:T2=T2+1
  578. 9553 T3=T2:S3=S2
  579. 9555 IFZZ$="N"THEN9590
  580. 9557 PRINT"[147][154]PEOPLE OF "PL$(SP)":":PRINT"[158]"
  581. 9563 OPEN15,8,15:OPEN5,8,5,"#":GOSUB60000
  582. 9565 FORI=0TO15:PRINT""CHR$(I+65)")  [158]";
  583. 9570 PRINT#15,"U1:"5;0;T2;S2
  584. 9572 PRINT#15,"B-P:"5;1
  585. 9575 GET#5,A$:IFA$=""THEN9580
  586. 9576 IFA$=CHR$(141)THENPRINT" ";:GOTO9575
  587. 9577 PRINTA$;:GOTO9575
  588. 9580 PRINT:S2=S2+1:IFS2=21THENS2=0:T2=T2+1
  589. 9582 NEXT:CLOSE5:CLOSE15
  590. 9583 PRINT"[151]O[146]NE PERSON, W[146]HOLE PLACE, D[146]IFFERENT"
  591. 9584 PRINT"PLACE OR M[146]AIN MENU? [164]";
  592. 9585 GETZZ$:IFZZ$=""THEN9585
  593. 9586 IFZZ$="W"THEN9590
  594. 9587 IFZZ$="D"THEN9500
  595. 9588 IFZZ$="O"THENPRINT"[157]O":GOTO9620
  596. 9589 GOTO9700
  597. 9590 TK=T3:SC=S3:FORII=0TO15
  598. 9595 GOSUB9100:SC=SC+1:IFSC=21THENSC=0:TK=TK+1
  599. 9596 PRINT:PRINT"M[146]AIN MENU, N[146]EXT, D[146]IFFERENT PLACE,"
  600. 9597 PRINT"MORE R[146]EADING?"
  601. 9599 GETZZ$:IFZZ$=""THEN9599
  602. 9600 IFZZ$="M"THEN9700
  603. 9601 IFZZ$="D"THEN9500
  604. 9602 IFZZ$="R"THEN9075
  605. 9603 NEXT
  606. 9610 PRINT"DONE - PRESS A KEY."
  607. 9611 GETZZ$:IFZZ$=""THEN9611
  608. 9612 GOTO9500
  609. 9620 PRINT"WHICH ONE? [164]";
  610. 9630 GETZZ$:IFZZ$=""THEN9630
  611. 9635 IFASC(ZZ$)<ASC("A")ORASC(ZZ$)>ASC("P")THEN9630
  612. 9637 CP=ASC(ZZ$)-65
  613. 9640 CB=T3*21+S3:CB=CB+CP:TK=INT(CB/21):SC=CB-(TK*21)
  614. 9645 IFSC=21THENSC=0:TK=TK+1
  615. 9650 GOSUB9100
  616. 9655 PRINT:PRINT"ANOTHER - S[146]AME PLACE, D[146]IFFERENT,"
  617. 9660 PRINT"MORE R[146]EADING,M[146]AIN MENU,N[146]EXT,P[146]REVIOUS?"
  618. 9670 GETZZ$:IFZZ$=""THEN9670
  619. 9675 IFZZ$="S"THENT2=T3:S2=S3:GOTO9557
  620. 9676 IFZZ$="D"THEN9500
  621. 9677 IFZZ$="R"THENPRINT"[147]":GOTO9075
  622. 9678 IFZZ$="N"THENCP=CP+1:GOTO9640
  623. 9679 IFZZ$="P"THENCP=CP-1:GOTO9640
  624. 9680 GOTO9700
  625. 9700 PRINT"[147][156]PLEASE REINSERT THE BRITANNIA DISK"
  626. 9710 PRINT"IN THE DRIVE AND PRESS A KEY."
  627. 9715 GOTO25
  628. 9899 END
  629. 9900 CD=CC:PRINT#15,"B-P:"5;CD
  630. 9901 GET#5,A$:IFA$=""THENPRINT"[157]";:RETURN
  631. 9902 IFA$=CHR$(141)THENPRINT" ";:CC=CC+1:GOTO9901
  632. 9903 PRINTA$;:CC=CC+1:GOTO9901
  633. 9999 END
  634. 10000 REM  IF YOU WISH TO CHANGE THE GRAPHICS - THEY'RE THE ONES IN QUOTES!!!
  635. 10001 REM  DO NOT CHANGE ANYTHING ELSE!!  (THIS IS FOR YOUR OWN BENEFIT)
  636. 10010 DATA0," [146]",6,DEEP WATER,1,"[206][146]",6,MEDIUM WATER,2,"[166]",6,SHALLOW WATER
  637. 10020 DATA3,"+",5,SWAMP,4,":",13,GRASS,5,"*",13,BRUSH,6,"[216]",5,FOREST
  638. 10030 DATA7,"[191]",12,FOOTHILLS,8,"[169][146]",11,MOUNTAINS,23,"=",14,BRIDGE
  639. 10040 DATA30,"S[146]",1,SHRINE,9,"[209]",1,DUNGEON,10,"^",1,TOWNE,11,"#",1,CASTLE
  640. 10050 DATA12,"[255]",1,VILLAGE,13,"L",1,X,14,"-",1,X,15,"B",1,X
  641. 10060 DATA29,"_",1,RUIN,61,"@",1,ANKH,76,"[214]",8,LAVA,70,"[218]",2,FIRE
  642. 10070 DATA32," ",1,X,100,A,0,X
  643. 11000 DATALORD BRITISH'S CASTLE,THE LYCAEUM,EMPATH ABBEY,SERPENT'S HOLD
  644. 11005 DATAMOONGLOW,BRITAIN,JHELOM,YEW,MINOC,TRINSIC,SKARA BRAE,MAGINCIA
  645. 11010 DATAPAWS,BUCANNEER'S DEN,VESPER,COVE
  646. 50000 PRINTCHR$(14):PRINT"[147]         ****************"
  647. 50005 PRINT"         * [152]THE [213]LTIMATE *"
  648. 50010 PRINT"         *   [213]LTIMA [201][214]  *"
  649. 50020 PRINT"         *[152]    [197]DITOR    *"
  650. 50025 PRINT"         ****************"
  651. 50027 PRINT"[150]         [194]Y [202]EFF [195]OUCKUYT"
  652. 50030 PRINT"     [213]PLOADED BY [202]ASON [212]RIMBLE"
  653. 50032 PRINT"[156] [211]PECIAL [212]HANX TO:"
  654. 50036 PRINT"             [210]OB [211]PICER"
  655. 50037 PRINT"            [211]TEVE [195]OLLINS"
  656. 50038 PRINT"             [202]ASON [198]LICK"
  657. 50040 PRINT"[159]        [195]OMPLETED  [193]UGUST 1987"
  658. 50044 PRINT"[158]      [208]RESS ANY KEY TO [195]ONTINUE"
  659. 50045 GETZZ$:IFZZ$=""THEN50045
  660. 50046 PRINT"[147]         ****************"
  661. 50047 PRINT"         * [152]THE [213]LTIMATE *"
  662. 50048 PRINT"         *   [213]LTIMA [201][214]  *"
  663. 50049 PRINT"         *[152]    [197]DITOR    *"
  664. 50050 PRINT"         ****************"
  665. 50052 PRINT"[158][201] AM REALLY INTERESTED IN HOW"
  666. 50055 PRINT"FAR THIS PROGRAM HAS GONE. [211]O IF YOU"
  667. 50060 PRINT"GET THE TIME, [201] WOULD APPRECIATE IT IF"
  668. 50065 PRINT"YOU WOULD WRITE ME AND LET ME KNOW HOW"
  669. 50070 PRINT"THE PROGRAM IS."
  670. 50075 PRINT"[151]          [202]EFF [195]OUCKUYT"
  671. 50080 PRINT"         59 [200]ARVEY [211]TREET"
  672. 50082 PRINT"         [193]YLMER, [207]NTARIO"
  673. 50083 PRINT"             [195]ANADA"
  674. 50084 PRINT"             [206]5[200] 1[212]2"
  675. 50085 PRINT"[154]             [197][206][202][207][217]!!!"
  676. 50090 PRINT"[156]      [208]RESS ANY KEY TO [195]ONTINUE"
  677. 50095 GETZZ$:IFZZ$=""THEN50095
  678. 50100 PRINTCHR$(142):RETURN
  679. 59999 END
  680. 60000 INPUT#15,ZZ$,YY$,XX$,WW$
  681. 60010 IFVAL(ZZ$)<21THENRETURN
  682. 60015 FORI=1TO15:CLOSEI:NEXT
  683. 60020 PRINT"[147]OPERATION ABORTED."
  684. 60030 PRINT"[159]A DISK ERROR HAS OCCURED:"
  685. 60040 PRINT""ZZ$" "YY$" "XX$" "WW$
  686. 60050 PRINT"PRESS ANY KEY TO CONTINUE."
  687. 60060 GETAA$:IFAA$=""THEN60060
  688. 60065 IFDV=1THENRUN
  689. 60070 GOTO100
  690. 62996 REM
  691. 62997 REM
  692. 62998 REM
  693. 62999 REM
  694. 63000 REM  ****  J COUCKUYT  ****
  695. 63006 REM
  696. 63010 REM        AUGUST 1987
  697. 63011 REM
  698. 63012 REM
  699. 63013 REM
  700. 63014 REM
  701. 63015 REM
  702.