home *** CD-ROM | disk | FTP | other *** search
/ Game Killer / Game_Killer.bin / 1227.XEDIT.BAS < prev    next >
BASIC Source File  |  1993-03-21  |  24KB  |  527 lines
  1. 10 KEY OFF: CLS '************* path designation routine *******************
  2. 11 LOCATE 6, 35: PRINT "XEDIT 1.2"
  3. 12 LOCATE 7, 28: PRINT "X-WING Pilot File Editor"
  4. 13 LOCATE 8, 28: PRINT "Created by Keith Heitman"
  5. 14 LOCATE 10, 20: PRINT "Enter the path that exists to reach \XWING"
  6. 15 LOCATE 11, 20: PRINT "Example: C:\GAMES\XWING or C: (if in root)"
  7. 16 LOCATE 13, 20: INPUT "Path? ------> "; P$
  8. 20 CLS '********************** main menu routine **************************
  9. 21 LOCATE 8, 25: PRINT "X-Wing Pilot Utility Main Menu"
  10. 22 LOCATE 9, 25: PRINT "=-=-=-=-=-=--=-=-=-=--=-=-=-=-"
  11. 23 LOCATE 11, 27: PRINT "1. Restore Dead or Captured Pilot"
  12. 24 LOCATE 12, 27: PRINT "2. Change Rank"
  13. 25 LOCATE 13, 27: PRINT "3. Skill Level"
  14. 26 LOCATE 14, 27: PRINT "4. Award Battle Patch"
  15. 27 LOCATE 15, 27: PRINT "5. Award Medal"
  16. 28 LOCATE 16, 27: PRINT "6. Change TOD Mission"
  17. 29 LOCATE 17, 27: PRINT "7. Delete Pilot Record"
  18. 30 LOCATE 18, 27: PRINT "8. View TOD Cut Scenes"
  19. 31 LOCATE 19, 27: PRINT "9. Award Flight Badge"
  20. 32 LOCATE 20, 26: PRINT "10. Correct or Change Drive & Path"
  21. 59 LOCATE 21, 26: PRINT "11. Quit to DOS"
  22. 60 LOCATE 23, 25: INPUT "Enter your selection.... "; C
  23. 61 IF C = 11 GOTO 9000
  24. 62 IF C = 10 GOTO 10
  25. 63 IF C < 1 OR C > 11 GOTO 20
  26. 90 CLS : IF C = 7 GOTO 600 '** pilot log in routine ***********************
  27. 91 LOCATE 10, 29: PRINT "Pilot Log In Screen"
  28. 92 LOCATE 11, 29: PRINT "=-=-=-=-=-=-=-=-=-="
  29. 93 LOCATE 12, 23: INPUT "Enter Pilot Name without '.PLT'."; N$
  30. 94 IF N$ = "" GOTO 90
  31. 95 ON C GOTO 100, 200, 800, 300, 400, 1500, 600, 700, 2200
  32. 99 END
  33. 100 CLS : R$ = "" '********** pilot restoration routine *******************
  34. 101 F$ = P$ + "\" + N$ + ".PLT"
  35. 102 OPEN F$ FOR BINARY AS #1 LEN = 1
  36. 103 A$ = CHR$(0)
  37. 104 GET #1, 3, A$
  38. 105 A$ = CHR$(0)
  39. 106 PUT #1, 3, A$
  40. 107 CLOSE #1
  41. 110 LOCATE 12, 21: PRINT "Pilot " + N$ + " is ready to rock and roll!"
  42. 112 LOCATE 14, 23: INPUT "Restore another pilot? (Y/N)"; R$
  43. 113 IF R$ = "" GOTO 112
  44. 114 IF R$ = "Y" OR R$ = "y" GOTO 120
  45. 115 LOCATE 16, 25: PRINT "Returning to the Main Menu": FOR X = 1 TO 15000: NEXT X: GOTO 20
  46. 120 CLS
  47. 121 LOCATE 12, 20: INPUT "Enter Pilot Name without '.PLT'."; N$: GOTO 100
  48. 199 END
  49. 200 CLS : R = 0 '************ rank routines *****************************
  50. 201 LOCATE 8, 28: PRINT "Pilot Rank Selection Menu"
  51. 202 LOCATE 9, 28: PRINT "=-=-=-=-=-=-=-=-=-=-=-=-="
  52. 203 LOCATE 11, 33: PRINT "1. Cadet"
  53. 204 LOCATE 12, 33: PRINT "2. Flight Officer"
  54. 205 LOCATE 13, 33: PRINT "3. Lieutenant"
  55. 206 LOCATE 14, 33: PRINT "4. Captain"
  56. 207 LOCATE 15, 33: PRINT "5. Commander"
  57. 208 LOCATE 16, 33: PRINT "6. General"
  58. 209 LOCATE 18, 28: INPUT "Select Rank.... ", R: IF R = 0 GOTO 209
  59. 210 IF R < 1 OR R > 6 GOTO 200
  60. 211 F$ = P$ + "\" + N$ + ".PLT"
  61. 212 OPEN F$ FOR BINARY AS #1 LEN = 1
  62. 213 A$ = CHR$(0)
  63. 214 GET #1, 4, A$
  64. 215 IF R = 1 THEN A$ = CHR$(0): GOTO 230
  65. 216 IF R = 2 THEN A$ = CHR$(1): GOTO 230
  66. 217 IF R = 3 THEN A$ = CHR$(2): GOTO 230
  67. 218 IF R = 4 THEN A$ = CHR$(3): GOTO 230
  68. 219 IF R = 5 THEN A$ = CHR$(4): GOTO 230
  69. 220 IF R = 6 THEN A$ = CHR$(5)
  70. 230 PUT #1, 4, A$
  71. 240 CLOSE #1
  72. 250 CLS : LOCATE 12, 21: PRINT "Pilot " + N$ + " is ready to rock and roll!"
  73. 251 LOCATE 14, 23: INPUT "Promote another pilot? (Y/N)"; R$
  74. 252 IF R$ = "" GOTO 251
  75. 253 IF R$ = "Y" OR R$ = "y" GOTO 270
  76. 260 LOCATE 16, 27: PRINT "Returning to the Main Menu": FOR X = 1 TO 15000: NEXT X: GOTO 20
  77. 270 CLS
  78. 280 LOCATE 12, 20: INPUT "Enter Pilot Name without '.PLT'."; N$: GOTO 200
  79. 299 END
  80. 300 CLS : C = 0: R = 0  '***** battle patch routines *********************
  81. 301 LOCATE 8, 30: PRINT "Battle Patch Award Craft"
  82. 302 LOCATE 9, 30: PRINT "=-=-=-=-=-=-=-=-=-=-=-=-"
  83. 303 LOCATE 11, 35: PRINT "1. X-Wing"
  84. 304 LOCATE 12, 35: PRINT "2. A-Wing"
  85. 305 LOCATE 13, 35: PRINT "3. Y-Wing"
  86. 306 LOCATE 15, 30: INPUT "Select Craft... ", C
  87. 307 IF C < 1 OR C > 3 GOTO 300
  88. 310 CLS
  89. 311 LOCATE 8, 30: PRINT "Battle Patch Award Menu"
  90. 312 LOCATE 9, 30: PRINT "=-=-=-=-=-=-=-=-=-=-=-="
  91. 313 LOCATE 11, 33: PRINT "1. Battle Patch #1"
  92. 314 LOCATE 12, 33: PRINT "2. Battle Patch #2"
  93. 315 LOCATE 13, 33: PRINT "3. Battle Patch #3"
  94. 316 LOCATE 14, 33: PRINT "4. Battle Patch #4"
  95. 317 LOCATE 15, 33: PRINT "5. Battle Patch #5"
  96. 318 LOCATE 16, 33: PRINT "6. Battle Patch #6"
  97. 319 LOCATE 18, 30: INPUT "Select Patch... ", R
  98. 320 IF R < 1 OR R > 6 GOTO 310
  99. 321 F$ = P$ + "\" + N$ + ".PLT"
  100. 322 OPEN F$ FOR BINARY AS #1 LEN = 1
  101. 323 A$ = CHR$(0)
  102. 324 IF C = 1 AND R = 1 THEN GET #1, 545, A$: GOTO 342
  103. 325 IF C = 1 AND R = 2 THEN GET #1, 546, A$: GOTO 342
  104. 326 IF C = 1 AND R = 3 THEN GET #1, 547, A$: GOTO 342
  105. 327 IF C = 1 AND R = 4 THEN GET #1, 548, A$: GOTO 342
  106. 328 IF C = 1 AND R = 5 THEN GET #1, 549, A$: GOTO 342
  107. 329 IF C = 1 AND R = 6 THEN GET #1, 550, A$: GOTO 342
  108. 330 IF C = 2 AND R = 1 THEN GET #1, 561, A$: GOTO 342
  109. 331 IF C = 2 AND R = 2 THEN GET #1, 562, A$: GOTO 342
  110. 332 IF C = 2 AND R = 3 THEN GET #1, 563, A$: GOTO 342
  111. 333 IF C = 2 AND R = 4 THEN GET #1, 564, A$: GOTO 342
  112. 334 IF C = 2 AND R = 5 THEN GET #1, 565, A$: GOTO 342
  113. 335 IF C = 2 AND R = 6 THEN GET #1, 566, A$: GOTO 342
  114. 336 IF C = 3 AND R = 1 THEN GET #1, 577, A$: GOTO 342
  115. 337 IF C = 3 AND R = 2 THEN GET #1, 578, A$: GOTO 342
  116. 338 IF C = 3 AND R = 3 THEN GET #1, 579, A$: GOTO 342
  117. 339 IF C = 3 AND R = 4 THEN GET #1, 580, A$: GOTO 342
  118. 340 IF C = 3 AND R = 5 THEN GET #1, 581, A$: GOTO 342
  119. 341 IF C = 3 AND R = 6 THEN GET #1, 582, A$: GOTO 342
  120. 342 A$ = CHR$(1)
  121. 343 IF C = 1 AND R = 1 THEN PUT #1, 545, A$: GOTO 361
  122. 344 IF C = 1 AND R = 2 THEN PUT #1, 546, A$: GOTO 361
  123. 345 IF C = 1 AND R = 3 THEN PUT #1, 547, A$: GOTO 361
  124. 346 IF C = 1 AND R = 4 THEN PUT #1, 548, A$: GOTO 361
  125. 347 IF C = 1 AND R = 5 THEN PUT #1, 549, A$: GOTO 361
  126. 348 IF C = 1 AND R = 6 THEN PUT #1, 550, A$: GOTO 361
  127. 349 IF C = 2 AND R = 1 THEN PUT #1, 561, A$: GOTO 361
  128. 350 IF C = 2 AND R = 2 THEN PUT #1, 562, A$: GOTO 361
  129. 351 IF C = 2 AND R = 3 THEN PUT #1, 563, A$: GOTO 361
  130. 352 IF C = 2 AND R = 4 THEN PUT #1, 564, A$: GOTO 361
  131. 353 IF C = 2 AND R = 5 THEN PUT #1, 565, A$: GOTO 361
  132. 354 IF C = 2 AND R = 6 THEN PUT #1, 566, A$: GOTO 361
  133. 355 IF C = 3 AND R = 1 THEN PUT #1, 577, A$: GOTO 361
  134. 356 IF C = 3 AND R = 2 THEN PUT #1, 578, A$: GOTO 361
  135. 357 IF C = 3 AND R = 3 THEN PUT #1, 579, A$: GOTO 361
  136. 358 IF C = 3 AND R = 4 THEN PUT #1, 580, A$: GOTO 361
  137. 359 IF C = 3 AND R = 5 THEN PUT #1, 581, A$: GOTO 361
  138. 360 IF C = 3 AND R = 6 THEN PUT #1, 582, A$: GOTO 361
  139. 361 CLOSE #1
  140. 370 CLS : LOCATE 12, 21: PRINT "Pilot " + N$ + " is ready to rock and roll!"
  141. 380 LOCATE 14, 23: INPUT "Award another Battle Patch? (Y/N)"; R$
  142. 381 IF R$ = "" GOTO 370
  143. 382 IF R$ = "Y" OR R$ = "y" GOTO 390
  144. 383 LOCATE 16, 25: PRINT "Returning to the Main Menu": FOR X = 1 TO 15000: NEXT X: GOTO 20
  145. 390 CLS : R$ = ""
  146. 391 LOCATE 12, 25: INPUT "Enter same pilot? (Y/N) "; R$
  147. 392 IF R$ = "" GOTO 390
  148. 393 IF R$ = "Y" OR R$ = "y" GOTO 300
  149. 394 CLS
  150. 395 LOCATE 12, 20: INPUT "Enter Pilot Name without '.PLT'."; N$: GOTO 300
  151. 399 END
  152. 400 CLS : R = 0 '************** medals routines ***************************
  153. 401 LOCATE 8, 34: PRINT "Medal Awards Menu"
  154. 402 LOCATE 9, 25: PRINT "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-="
  155. 403 LOCATE 11, 28: PRINT "1. Corellian Cross"
  156. 404 LOCATE 12, 28: PRINT "2. Mantooine Medallion"
  157. 405 LOCATE 13, 28: PRINT "3. Star of Alderaan"
  158. 406 LOCATE 14, 28: PRINT "4. Kalidor Crescent"
  159. 407 LOCATE 15, 28: PRINT "5. Bronze Cluster includes #4"
  160. 408 LOCATE 16, 28: PRINT "6. Silver Talons includes #4,#5"
  161. 409 LOCATE 17, 28: PRINT "7. Silver Scimitar includes #4,#5,#6"
  162. 410 LOCATE 18, 28: PRINT "8. Golden Wings includes #4,#5,#6,#7"
  163. 411 LOCATE 19, 28: PRINT "9. Diamond Eyes includes #4,#5,#6,#7#8"
  164. 419 LOCATE 21, 25: INPUT "Select Award... ", R
  165. 420 IF R < 1 OR R > 9 GOTO 400
  166. 421 F$ = P$ + "\" + N$ + ".PLT"
  167. 422 OPEN F$ FOR BINARY AS #1 LEN = 1
  168. 423 A$ = CHR$(0)
  169. 424 IF R = 1 THEN GET #1, 11, A$: GOTO 428
  170. 425 IF R = 2 THEN GET #1, 12, A$: GOTO 428
  171. 426 IF R = 3 THEN GET #1, 13, A$: GOTO 428
  172. 427 GET #1, 18, A$: GOTO 432
  173. 428 A$ = CHR$(1)
  174. 429 IF R = 1 THEN PUT #1, 11, A$: GOTO 440
  175. 430 IF R = 2 THEN PUT #1, 12, A$: GOTO 440
  176. 431 IF R = 3 THEN PUT #1, 13, A$: GOTO 440
  177. 432 IF R = 4 THEN A$ = CHR$(1): PUT #1, 18, A$: GOTO 440
  178. 435 IF R = 5 THEN A$ = CHR$(2): PUT #1, 18, A$: GOTO 440
  179. 436 IF R = 6 THEN A$ = CHR$(3): PUT #1, 18, A$: GOTO 440
  180. 437 IF R = 7 THEN A$ = CHR$(4): PUT #1, 18, A$: GOTO 440
  181. 438 IF R = 8 THEN A$ = CHR$(5): PUT #1, 18, A$: GOTO 440
  182. 439 IF R = 9 THEN A$ = CHR$(6): PUT #1, 18, A$: GOTO 440
  183. 440 CLOSE #1
  184. 441 CLS : LOCATE 12, 25: PRINT "Pilot " + N$ + " is ready to rock and roll!"
  185. 450 LOCATE 14, 27: INPUT "Award another medal? (Y/N)"; R$
  186. 451 IF R$ = "" GOTO 441
  187. 452 IF R$ = "Y" OR R$ = "y" GOTO 470
  188. 460 LOCATE 16, 29: PRINT "Returning to the Main Menu": FOR X = 1 TO 15000: NEXT X: GOTO 20
  189. 470 CLS : R$ = ""
  190. 471 LOCATE 12, 25: INPUT "Enter same pilot? (Y/N) "; R$
  191. 472 IF R$ = "Y" OR R$ = "y" GOTO 400
  192. 480 CLS
  193. 490 LOCATE 12, 25: INPUT "Enter Pilot Name without '.PLT'."; N$: GOTO 400
  194. 499 END
  195. 600 CLS : R$ = "" '************ delete pilot routines *********************
  196. 610 LOCATE 4, 28: PRINT "X-Wing Pilot Roster Listing"
  197. 620 LOCATE 5, 1: PRINT "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-=-=--=-=-=-=-=-=-"
  198. 630 SHELL "dir *.PLT /w"
  199. 640 PRINT : PRINT : PRINT SPC(10); : INPUT "Enter name of pilot file to be deleted without '.PLT'"; D$
  200. 645 BEEP: BEEP: PRINT SPC(25); "Are you sure? (Y/N)"; : INPUT R$
  201. 646 IF R$ = "" GOTO 645
  202. 647 IF R$ = "Y" OR R$ = "y" GOTO 650
  203. 648 GOTO 20
  204. 650 D$ = P$ + "\" + D$ + ".PLT"
  205. 651 KILL D$
  206. 652 BEEP: PRINT : PRINT SPC(25); D$ + " file has been deleted."
  207. 653 FOR X = 1 TO 15000: NEXT X
  208. 660 D$ = ""
  209. 670 GOTO 20
  210. 699 END
  211. 700 CLS
  212. 705 LOCATE 8, 20: PRINT "**************** WARNING!!! *********************"
  213. 710 LOCATE 10, 20: PRINT "This routine will install a permanent patch"
  214. 711 LOCATE 11, 20: PRINT "to this file to view the animated cut scenes"
  215. 712 LOCATE 12, 20: PRINT "in X-Wing. Using this function will force a"
  216. 713 LOCATE 13, 20: PRINT "termination to ALL current TODs for this pilot."
  217. 714 LOCATE 14, 20: PRINT "To see the cut scenes, I recommend that you"
  218. 715 LOCATE 15, 20: PRINT "create an expendable pilot file or clone a"
  219. 716 LOCATE 16, 20: PRINT "pilot file using a new name then apply this"
  220. 717 LOCATE 17, 20: PRINT "option to that expendable file."
  221. 720 LOCATE 19, 20: INPUT "Continue with this patch? (Y/N) "; R$
  222. 721 IF R$ = "" GOTO 720
  223. 722 IF R$ = "Y" OR R$ = "y" GOTO 730
  224. 723 GOTO 20
  225. 730 R$ = ""
  226. 731 BEEP: BEEP: LOCATE 20, 27: INPUT "Are you sure? (Y/N)"; R$
  227. 732 IF R$ = "" GOTO 731
  228. 735 IF R$ = "Y" OR R$ = "y" GOTO 740
  229. 736 GOTO 20
  230. 740 CLS : R$ = "" '********** patch cut scenes routine *******************
  231. 741 F$ = P$ + "\" + N$ + ".PLT"
  232. 742 OPEN F$ FOR BINARY AS #1 LEN = 1
  233. 743 A$ = CHR$(0)
  234. 744 B$ = CHR$(0)
  235. 745 C$ = CHR$(0)
  236. 750 GET #1, 737, A$
  237. 751 GET #1, 738, B$
  238. 752 GET #1, 739, C$
  239. 775 A$ = CHR$(3)
  240. 776 B$ = CHR$(3)
  241. 777 C$ = CHR$(3)
  242. 778 PUT #1, 737, A$
  243. 779 PUT #1, 738, B$
  244. 780 PUT #1, 739, C$
  245. 781 A$ = CHR$(0)
  246. 782 A$ = CHR$(0)
  247. 783 C$ = CHR$(0)
  248. 784 GET #1, 753, A$
  249. 785 GET #1, 754, A$
  250. 786 GET #1, 755, B$
  251. 787 A$ = MKI$(12)
  252. 788 B$ = MKI$(14)
  253. 789 PUT #1, 753, A$
  254. 790 PUT #1, 754, A$
  255. 791 PUT #1, 755, B$
  256. 792 CLOSE #1
  257. 795 CLS : LOCATE 10, 20: PRINT "Cut Scenes permanently installed"
  258. 796 BEEP: FOR X = 1 TO 15000: NEXT X: GOTO 20
  259. 799 END
  260. 800 CLS : R = 0 '************** pilot skill level **************************
  261. 810 LOCATE 8, 28: PRINT "Change Pilot's Skill"
  262. 811 LOCATE 9, 28: PRINT "=-=-=-=-=-=-=-=-=-=-"
  263. 812 LOCATE 11, 31: PRINT "1. Rookie"
  264. 813 LOCATE 12, 31: PRINT "2. Officer"
  265. 814 LOCATE 13, 31: PRINT "3. Veteran"
  266. 815 LOCATE 14, 31: PRINT "4. Ace"
  267. 816 LOCATE 15, 31: PRINT "5. Top Ace"
  268. 817 LOCATE 17, 28: INPUT "Enter your choice... "; R
  269. 820 IF R < 1 OR R > 5 GOTO 800
  270. 821 F$ = P$ + "\" + N$ + ".PLT"
  271. 823 OPEN F$ FOR BINARY AS #1 LEN = 1
  272. 830 A$ = CHR$(0)
  273. 831 B$ = CHR$(0)
  274. 840 GET #1, 9, A$
  275. 850 GET #1, 10, B$
  276. 851 IF R = 1 THEN A$ = CHR$(0): B$ = CHR$(0): GOTO 860
  277. 852 IF R = 2 THEN A$ = CHR$(0): B$ = MKI$(80): GOTO 860
  278. 853 IF R = 3 THEN A$ = CHR$(0): B$ = MKI$(128): GOTO 860
  279. 854 IF R = 4 THEN A$ = CHR$(0): B$ = MKI$(240): GOTO 860
  280. 855 IF R = 5 THEN A$ = MKI$(255): B$ = MKI$(255)
  281. 860 PUT #1, 9, A$
  282. 861 PUT #1, 10, B$
  283. 870 CLOSE #1
  284. 880 CLS : LOCATE 12, 21: PRINT "Pilot " + N$ + " is ready to rock and roll!"
  285. 881 LOCATE 14, 25: INPUT "Alter another pilot? (Y/N)"; R$
  286. 882 IF R$ = "" GOTO 881
  287. 883 IF R$ = "Y" OR R$ = "y" GOTO 885
  288. 884 LOCATE 16, 27: PRINT "Returning to the Main Menu": FOR X = 1 TO 15000: NEXT X: GOTO 20
  289. 885 CLS : R$ = ""
  290. 886 LOCATE 12, 23: INPUT "Enter same pilot? (Y/N) "; R$
  291. 887 IF R$ = "Y" OR R$ = "y" GOTO 800
  292. 888 LOCATE 12, 20: INPUT "Enter Pilot Name without '.PLT'."; N$: GOTO 800
  293. 899 END
  294. 999 '*************************************************************
  295. 1500 CLS : T = 0
  296. 1501 LOCATE 8, 25: PRINT "Tour of Duty Mission Number Selection"
  297. 1502 LOCATE 9, 25: PRINT "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-="
  298. 1503 LOCATE 11, 30: PRINT "1. Tour of Duty #1 - 12 Missions"
  299. 1504 LOCATE 12, 30: PRINT "2. Tour of Duty #2 - 12 Missions"
  300. 1505 LOCATE 13, 30: PRINT "3. Tour of Duty #3 - 14 Missions"
  301. 1506 LOCATE 15, 25: INPUT "Enter the number or the TOD... "; T
  302. 1507 LOCATE 16, 25: INPUT "Enter the number of the mission to fly "; M
  303. 1508 IF T < 1 OR T > 3 GOTO 1500
  304. 1509 IF T = 3 AND M < 1 OR M > 14 GOTO 1500
  305. 1510 IF T = 3 THEN GOTO 1512
  306. 1511 IF T <> 3 AND M < 1 OR M > 12 GOTO 1500
  307. 1512 F$ = P$ + "\" + N$ + ".PLT"
  308. 1513 OPEN F$ FOR BINARY AS #1 LEN = 1
  309. 1514 GOSUB 2100
  310. 1520 IF M <> 1 GOTO 1560
  311. 1525 A$ = CHR$(0): GET #1, 642, A$: A$ = CHR$(2): PUT #1, 642, A$
  312. 1530 B$ = CHR$(0): GET #1, 643, B$: B$ = CHR$(0): PUT #1, 643, B$
  313. 1535 C$ = CHR$(0): GET #1, 644, C$: C$ = CHR$(1): PUT #1, 644, C$
  314. 1540 D$ = CHR$(0): GET #1, 648, D$: D$ = CHR$(1): PUT #1, 648, D$
  315. 1545 E$ = CHR$(0): GET #1, 745, E$: E$ = CHR$(0): PUT #1, 745, E$
  316. 1550 G$ = CHR$(0): GET #1, 754, G$: G$ = CHR$(0)
  317. 1552 IF T = 1 THEN PUT #1, 753, G$
  318. 1554 IF T = 2 THEN PUT #1, 754, G$
  319. 1556 IF T = 3 THEN PUT #1, 755, G$
  320. 1559 CLOSE #1: GOTO 2090
  321. 1560 IF M <> 2 GOTO 1600
  322. 1565 A$ = CHR$(0): GET #1, 642, A$: A$ = CHR$(4): PUT #1, 642, A$
  323. 1570 B$ = CHR$(0): GET #1, 643, B$: B$ = CHR$(1): PUT #1, 643, B$
  324. 1575 C$ = CHR$(0): GET #1, 644, C$: C$ = CHR$(2): PUT #1, 644, C$
  325. 1580 D$ = CHR$(0): GET #1, 648, D$: D$ = CHR$(2): PUT #1, 648, D$
  326. 1585 E$ = CHR$(0): GET #1, 745, E$: E$ = CHR$(1): PUT #1, 745, E$
  327. 1590 G$ = CHR$(0): GET #1, 753, G$: G$ = CHR$(1)
  328. 1591 IF T = 1 THEN PUT #1, 753, G$
  329. 1592 IF T = 2 THEN PUT #1, 754, G$
  330. 1593 IF T = 3 THEN PUT #1, 755, G$
  331. 1595 CLOSE #1: GOTO 2090
  332. 1600 IF M <> 3 GOTO 1640
  333. 1605 A$ = CHR$(0): GET #1, 642, A$: A$ = CHR$(5): PUT #1, 642, A$
  334. 1610 B$ = CHR$(0): GET #1, 643, B$: B$ = CHR$(2): PUT #1, 643, B$
  335. 1615 C$ = CHR$(0): GET #1, 644, C$: C$ = CHR$(3): PUT #1, 644, C$
  336. 1620 D$ = CHR$(0): GET #1, 648, D$: D$ = CHR$(3): PUT #1, 648, D$
  337. 1625 E$ = CHR$(0): GET #1, 745, E$: E$ = CHR$(2): PUT #1, 745, E$
  338. 1630 G$ = CHR$(0): GET #1, 753, G$: G$ = CHR$(2)
  339. 1631 IF T = 1 THEN PUT #1, 753, G$
  340. 1632 IF T = 2 THEN PUT #1, 754, G$
  341. 1633 IF T = 3 THEN PUT #1, 755, G$
  342. 1635 CLOSE #1: GOTO 2090
  343. 1640 IF M <> 4 GOTO 1680
  344. 1645 A$ = CHR$(0): GET #1, 642, A$: A$ = CHR$(6): PUT #1, 642, A$
  345. 1650 B$ = CHR$(0): GET #1, 643, B$: B$ = CHR$(3): PUT #1, 643, B$
  346. 1655 C$ = CHR$(0): GET #1, 644, C$: C$ = CHR$(4): PUT #1, 644, C$
  347. 1660 D$ = CHR$(0): GET #1, 648, D$: D$ = CHR$(4): PUT #1, 648, D$
  348. 1665 E$ = CHR$(0): GET #1, 745, E$: E$ = CHR$(3): PUT #1, 745, E$
  349. 1670 G$ = CHR$(0): GET #1, 753, G$: G$ = CHR$(3)
  350. 1671 IF T = 1 THEN PUT #1, 753, G$
  351. 1672 IF T = 2 THEN PUT #1, 754, G$
  352. 1673 IF T = 3 THEN PUT #1, 755, G$
  353. 1675 CLOSE #1: GOTO 2090
  354. 1680 IF M <> 5 GOTO 1725
  355. 1690 A$ = CHR$(0): GET #1, 642, A$: A$ = CHR$(7): PUT #1, 642, A$
  356. 1695 B$ = CHR$(0): GET #1, 643, B$: B$ = CHR$(4): PUT #1, 643, B$
  357. 1700 C$ = CHR$(0): GET #1, 644, C$: C$ = CHR$(5): PUT #1, 644, C$
  358. 1705 D$ = CHR$(0): GET #1, 648, D$: D$ = CHR$(5): PUT #1, 648, D$
  359. 1710 E$ = CHR$(0): GET #1, 745, E$: E$ = CHR$(4): PUT #1, 745, E$
  360. 1715 G$ = CHR$(0): GET #1, 753, G$: G$ = CHR$(4)
  361. 1716 IF T = 1 THEN PUT #1, 753, G$
  362. 1717 IF T = 2 THEN PUT #1, 754, G$
  363. 1718 IF T = 3 THEN PUT #1, 755, G$
  364. 1720 CLOSE #1: GOTO 2090
  365. 1725 IF M <> 6 GOTO 1765
  366. 1730 A$ = CHR$(0): GET #1, 642, A$: A$ = CHR$(8): PUT #1, 642, A$
  367. 1735 B$ = CHR$(0): GET #1, 643, B$: B$ = CHR$(5): PUT #1, 643, B$
  368. 1740 C$ = CHR$(0): GET #1, 644, C$: C$ = CHR$(6): PUT #1, 644, C$
  369. 1745 D$ = CHR$(0): GET #1, 648, D$: D$ = CHR$(6): PUT #1, 648, D$
  370. 1750 E$ = CHR$(0): GET #1, 745, E$: E$ = CHR$(5): PUT #1, 745, E$
  371. 1755 G$ = CHR$(0): GET #1, 753, G$: G$ = CHR$(5)
  372. 1756 IF T = 1 THEN PUT #1, 753, G$
  373. 1757 IF T = 2 THEN PUT #1, 754, G$
  374. 1758 IF T = 3 THEN PUT #1, 755, G$
  375. 1760 CLOSE #1: GOTO 2090
  376. 1765 IF M <> 7 GOTO 1805
  377. 1770 A$ = CHR$(0): GET #1, 642, A$: A$ = CHR$(9): PUT #1, 642, A$
  378. 1775 B$ = CHR$(0): GET #1, 643, B$: B$ = CHR$(6): PUT #1, 643, B$
  379. 1780 C$ = CHR$(0): GET #1, 644, C$: C$ = CHR$(7): PUT #1, 644, C$
  380. 1785 D$ = CHR$(0): GET #1, 648, D$: D$ = CHR$(7): PUT #1, 648, D$
  381. 1790 E$ = CHR$(0): GET #1, 745, E$: E$ = CHR$(6): PUT #1, 745, E$
  382. 1795 G$ = CHR$(0): GET #1, 753, G$: G$ = CHR$(6)
  383. 1796 IF T = 1 THEN PUT #1, 753, G$
  384. 1797 IF T = 2 THEN PUT #1, 754, G$
  385. 1798 IF T = 3 THEN PUT #1, 755, G$
  386. 1800 CLOSE #1: GOTO 2090
  387. 1805 IF M <> 8 GOTO 1845
  388. 1810 A$ = CHR$(0): GET #1, 642, A$: A$ = MKI$(10): PUT #1, 642, A$
  389. 1815 B$ = CHR$(0): GET #1, 643, B$: B$ = CHR$(7): PUT #1, 643, B$
  390. 1820 C$ = CHR$(0): GET #1, 644, C$: C$ = CHR$(8): PUT #1, 644, C$
  391. 1825 D$ = CHR$(0): GET #1, 648, D$: D$ = CHR$(8): PUT #1, 648, D$
  392. 1830 E$ = CHR$(0): GET #1, 745, E$: E$ = CHR$(7): PUT #1, 745, E$
  393. 1835 G$ = CHR$(0): GET #1, 753, G$: G$ = CHR$(7)
  394. 1836 IF T = 1 THEN PUT #1, 753, G$
  395. 1837 IF T = 2 THEN PUT #1, 754, G$
  396. 1838 IF T = 3 THEN PUT #1, 755, G$
  397. 1840 CLOSE #1: GOTO 2090
  398. 1845 IF M <> 9 GOTO 1885
  399. 1850 A$ = CHR$(0): GET #1, 642, A$: A$ = MKI$(11): PUT #1, 642, A$
  400. 1855 B$ = CHR$(0): GET #1, 643, B$: B$ = CHR$(7): PUT #1, 643, B$
  401. 1860 C$ = CHR$(0): GET #1, 644, C$: C$ = CHR$(8): PUT #1, 644, C$
  402. 1865 D$ = CHR$(0): GET #1, 648, D$: D$ = CHR$(8): PUT #1, 648, D$
  403. 1870 E$ = CHR$(0): GET #1, 745, E$: E$ = CHR$(7): PUT #1, 745, E$
  404. 1875 G$ = CHR$(0): GET #1, 753, G$: G$ = CHR$(8)
  405. 1876 IF T = 1 THEN PUT #1, 753, G$
  406. 1877 IF T = 2 THEN PUT #1, 754, G$
  407. 1878 IF T = 3 THEN PUT #1, 755, G$
  408. 1880 CLOSE #1: GOTO 2090
  409. 1885 IF M <> 10 GOTO 1925
  410. 1890 A$ = CHR$(0): GET #1, 642, A$: A$ = MKI$(12): PUT #1, 642, A$
  411. 1895 B$ = CHR$(0): GET #1, 643, B$: B$ = CHR$(9): PUT #1, 643, B$
  412. 1900 C$ = CHR$(0): GET #1, 644, C$: C$ = MKI$(10): PUT #1, 644, C$
  413. 1905 D$ = CHR$(0): GET #1, 648, D$: D$ = MKI$(10): PUT #1, 648, D$
  414. 1910 E$ = CHR$(0): GET #1, 745, E$: E$ = CHR$(9): PUT #1, 745, E$
  415. 1915 G$ = CHR$(0): GET #1, 753, G$: G$ = MKI$(9)
  416. 1916 IF T = 1 THEN PUT #1, 753, G$
  417. 1917 IF T = 2 THEN PUT #1, 754, G$
  418. 1918 IF T = 3 THEN PUT #1, 755, G$
  419. 1920 CLOSE #1: GOTO 2090
  420. 1925 IF M <> 11 GOTO 1965
  421. 1930 A$ = CHR$(0): GET #1, 642, A$: A$ = MKI$(14): PUT #1, 642, A$
  422. 1935 B$ = CHR$(0): GET #1, 643, B$: B$ = MKI$(10): PUT #1, 643, B$
  423. 1940 C$ = CHR$(0): GET #1, 644, C$: C$ = MKI$(11): PUT #1, 644, C$
  424. 1945 D$ = CHR$(0): GET #1, 648, D$: D$ = MKI$(11): PUT #1, 648, D$
  425. 1950 E$ = CHR$(0): GET #1, 745, E$: E$ = MKI$(10): PUT #1, 745, E$
  426. 1955 G$ = CHR$(0): GET #1, 753, G$: G$ = MKI$(10)
  427. 1956 IF T = 1 THEN PUT #1, 753, G$
  428. 1957 IF T = 2 THEN PUT #1, 754, G$
  429. 1958 IF T = 3 THEN PUT #1, 755, G$
  430. 1960 CLOSE #1: GOTO 2090
  431. 1965 IF M <> 12 GOTO 2005
  432. 1970 A$ = CHR$(0): GET #1, 642, A$: A$ = MKI$(15): PUT #1, 642, A$
  433. 1975 B$ = CHR$(0): GET #1, 643, B$: B$ = MKI$(11): PUT #1, 643, B$
  434. 1980 C$ = CHR$(0): GET #1, 644, C$: C$ = MKI$(12): PUT #1, 644, C$
  435. 1985 D$ = CHR$(0): GET #1, 648, D$: D$ = MKI$(12): PUT #1, 648, D$
  436. 1990 E$ = CHR$(0): GET #1, 745, E$: E$ = MKI$(11): PUT #1, 745, E$
  437. 1995 G$ = CHR$(0): GET #1, 753, G$: G$ = MKI$(11)
  438. 1996 IF T = 1 THEN PUT #1, 753, G$
  439. 1997 IF T = 2 THEN PUT #1, 754, G$
  440. 1998 IF T = 3 THEN PUT #1, 755, G$
  441. 2000 CLOSE #1: GOTO 2090
  442. 2005 IF M <> 13 GOTO 2045
  443. 2010 A$ = CHR$(0): GET #1, 642, A$: A$ = MKI$(16): PUT #1, 642, A$
  444. 2015 B$ = CHR$(0): GET #1, 643, B$: B$ = MKI$(12): PUT #1, 643, B$
  445. 2020 C$ = CHR$(0): GET #1, 644, C$: C$ = MKI$(14): PUT #1, 644, C$
  446. 2025 D$ = CHR$(0): GET #1, 648, D$: D$ = MKI$(14): PUT #1, 648, D$
  447. 2030 E$ = CHR$(0): GET #1, 745, E$: E$ = MKI$(12): PUT #1, 745, E$
  448. 2035 G$ = CHR$(0): GET #1, 753, G$: G$ = MKI$(12)
  449. 2036 IF T = 1 THEN PUT #1, 753, G$
  450. 2037 IF T = 2 THEN PUT #1, 754, G$
  451. 2038 IF T = 3 THEN PUT #1, 755, G$
  452. 2040 CLOSE #1: GOTO 2090
  453. 2045 IF M <> 14 GOTO 2085
  454. 2050 A$ = CHR$(0): GET #1, 642, A$: A$ = MKI$(10): PUT #1, 642, A$
  455. 2055 B$ = CHR$(0): GET #1, 643, B$: B$ = MKI$(14): PUT #1, 643, B$
  456. 2060 C$ = CHR$(0): GET #1, 644, C$: C$ = MKI$(15): PUT #1, 644, C$
  457. 2065 D$ = CHR$(0): GET #1, 648, D$: D$ = MKI$(15): PUT #1, 648, D$
  458. 2070 E$ = CHR$(0): GET #1, 745, E$: E$ = MKI$(14): PUT #1, 745, E$
  459. 2075 G$ = CHR$(0): GET #1, 753, G$: G$ = MKI$(13)
  460. 2076 IF T = 1 THEN PUT #1, 753, G$
  461. 2077 IF T = 2 THEN PUT #1, 754, G$
  462. 2078 IF T = 3 THEN PUT #1, 755, G$
  463. 2080 CLOSE #1: GOTO 2090
  464. 2085 GOTO 1500
  465. 2090 LOCATE 18, 40: PRINT "DONE.": FOR X = 1 TO 15000: NEXT: GOTO 20
  466. 2099 END
  467. 2200 CLS : R = 0 '************ badge routines ****************************
  468. 2201 LOCATE 8, 28: PRINT "Award Flight Badge"
  469. 2202 LOCATE 9, 28: PRINT "=-=-=-=-=-=-=-=-=-="
  470. 2203 LOCATE 11, 33: PRINT "1. X-WING"
  471. 2204 LOCATE 12, 33: PRINT "2. A-WING"
  472. 2205 LOCATE 13, 33: PRINT "3. Y-WING"
  473. 2209 LOCATE 18, 28: INPUT "Select Badge... ", R: IF R = 0 GOTO 2209
  474. 2210 IF R < 1 OR R > 3 GOTO 2200
  475. 2211 F$ = P$ + "\" + N$ + ".PLT"
  476. 2212 OPEN F$ FOR BINARY AS #1 LEN = 1
  477. 2213 A$ = CHR$(0)
  478. 2214 IF R = 1 THEN GET #1, 135, A$: GOTO 2230
  479. 2215 IF R = 2 THEN GET #1, 136, A$: GOTO 2232
  480. 2216 IF R = 3 THEN GET #1, 137, A$: GOTO 2234
  481. 2230 A$ = CHR$(8): PUT #1, 135, A$: GOTO 2240
  482. 2232 A$ = CHR$(8): PUT #1, 136, A$: GOTO 2240
  483. 2234 A$ = CHR$(8): PUT #1, 137, A$
  484. 2240 CLOSE #1
  485. 2250 CLS : LOCATE 12, 21: PRINT "Pilot " + N$ + " is ready to rock and roll!"
  486. 2251 LOCATE 14, 23: INPUT "Award another badge? (Y/N)"; R$
  487. 2252 IF R$ = "" GOTO 2251
  488. 2253 IF R$ = "Y" OR R$ = "y" GOTO 2270
  489. 2260 LOCATE 16, 27: PRINT "Returning to the Main Menu": FOR X = 1 TO 15000
  490. : NEXT X: GOTO 20
  491. 2270 CLS
  492. 2280 LOCATE 12, 20: INPUT "Enter Pilot Name without '.PLT'."; N$: GOTO 2200
  493. 2299 END
  494. 2100 X$ = CHR$(0): Y$ = CHR$(0): Z$ = CHR$(0)
  495. 2101 GET #1, 737, X$: GET #1, 738, Y$: GET #1, 739, Z$
  496. 2110 IF T <> 1 GOTO 2120
  497. 2111 X$ = CHR$(1): Y$ = CHR$(2): Z$ = CHR$(2)
  498. 2112 PUT #1, 737, X$: PUT #1, 738, Y$: PUT #1, 739, Z$
  499. 2113 GOTO 2150
  500. 2119 END
  501. 2120 IF T <> 2 GOTO 2130
  502. 2121 X$ = CHR$(2): Y$ = CHR$(1): Z$ = CHR$(2)
  503. 2122 PUT #1, 737, X$: PUT #1, 738, Y$: PUT #1, 739, Z$
  504. 2123 GOTO 2150
  505. 2129 END
  506. 2130 X$ = CHR$(2): Y$ = CHR$(C): Z$ = CHR$(1)
  507. 2131 PUT #1, 737, X$: PUT #1, 738, Y$: PUT #1, 739, Z$
  508. 2150 RETURN
  509. 2199 END
  510. 9000 CLS
  511. 9010 LOCATE 4, 20: PRINT "XEDIT 1.1 is an improved and slightly better"
  512. 9011 LOCATE 5, 20: PRINT "version of my first release. It was born  "
  513. 9012 LOCATE 6, 20: PRINT "out of despiration of playing some of the "
  514. 9013 LOCATE 7, 20: PRINT "near impossible X-WING missions."
  515. 9014 LOCATE 9, 20: PRINT "XEDIT is being distributed as a shareware "
  516. 9015 LOCATE 10, 20: PRINT "program. I'd appreciate any nominal donation"
  517. 9016 LOCATE 11, 20: PRINT "you think the program is worth."
  518. 9017 LOCATE 13, 20: PRINT "Send any donations to:"
  519. 9018 LOCATE 15, 20: PRINT "               Keith Heitmann"
  520. 9019 LOCATE 16, 20: PRINT "               2128 Lapine"
  521. 9020 LOCATE 17, 20: PRINT "               Portage, IN, 46368-1420"
  522. 9021 LOCATE 19, 20: PRINT "This is most likely to be the only version"
  523. 9022 LOCATE 20, 20: PRINT "this program."
  524. 9023 SYSTEM
  525. 9999 END
  526.  
  527.