home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64misc / elite (.txt) < prev    next >
Commodore BASIC  |  1989-06-02  |  5KB  |  204 lines
  1. 1000 IF T=0 THEN 1020
  2. 1010 FORA=0 TO 3:POKE43+A,B(A):NEXT:GOTO5010
  3. 1020 POKE55,175:POKE56,37:CLR
  4. 1030 DIM B(3),E$(16),F(6),G$(6),H$(3),M(10),P(7,8):J=9648
  5. 1040 REM
  6. 1050 FOR A= 0 TO 42: READ D:POKE20000+A,D:NEXT
  7. 1060 REM
  8. 1070 FOR A= 0 TO 16: READ E$(A):NEXT
  9. 1080 REM
  10. 1090 FOR A= 0 TO 6:READ F(A),G$(A):NEXT
  11. 1100 REM
  12. 1110 FOR A= 0 TO 3:READ H$(A):NEXT
  13. 1120 REM
  14. 1130 FOR A= 0 TO 77:POKEJ+A,0:NEXT
  15. 1140 FOR A=0TO16:READ D:POKEJ+A,D:NEXT
  16. 1150 FOR A=0TO26:READ D:POKEJ+A+51,D:NEXT
  17. 1160 POKEJ+22,22
  18. 1170 REM
  19. 1180 FOR A=0TO34:READ D:POKE25000+A,D:NEXT
  20. 1190 REM
  21. 1200 FOR A=0TO7:FOR T=0 TO 8:READP(A,T):NEXT:NEXT
  22. 1210 GOTO 5010
  23. 2000 REM
  24. 2010 PRINTCHR$(147):PRINT"SAVE FILE:":PRINT
  25. 2020 INPUT"FILENAME";N$:IFLEN(N$)>15 OR LEN(N$)<1 THEN 2010
  26. 2030 POKE30000,LEN(N$)
  27. 2040 FOR A=1 TO LEN(N$)
  28. 2050 POKE30000+A,ASC(MID$(N$,A,1)):NEXT
  29. 2060 SYS20000
  30. 2070 SYS25000
  31. 2080 RETURN
  32. 3000 REM
  33. 3010 PRINTCHR$(147):PRINT"EQUIPMENT:":PRINT
  34. 3020 FOR A=0TO6:IF PEEK(J+40+A)=F(A) THEN PRINTG$(A):NEXT
  35. 3030 IF PEEK(J+22)=37 THEN PRINT"LARGE CARGO BAY"
  36. 3040 PRINT"NO. OF MISSILES:";PEEK(J+51)
  37. 3050 FOR A=0TO3:K=PEEK(J+16+A):IF K<>0 THEN PRINTH$(A);:GOSUB3510:PRINT"LASER"
  38. 3060 NEXT
  39. 3070 PRINT
  40. 3080 PRINT"FUEL";TAB(14)PEEK(J+13)/10;" LIGHT YEARS"
  41. 3090 PRINT"LEGAL STATUS"TAB(15);:K=PEEK(J+52)
  42. 3100 IF K<>0 AND K<>28 THEN PRINT"FUGITIVE"
  43. 3110 IF K=28 THEN PRINT"OFFENDER"
  44. 3120 IF K=0 THEN PRINT"CLEAN"
  45. 3130 PRINT"GALAXY NO."TAB(14)PEEK(J+15)+I
  46. 3140 PRINT"CASH"TAB(14);
  47. 3150 PRINT(PEEK(J+12)+PEEK(J+11)*256+PEEK(J+10)*256^2+PEEK(J+9)*256^3)/10;" CR."
  48. 3160 GOTO 6800
  49. 3500 REM
  50. 3510 IF K=15 THEN PRINT" PULSE";
  51. 3520 IF K=50 THEN PRINT" MINING";
  52. 3530 IF K=143 THEN PRINT" BEAM";
  53. 3540 IF K=151 THEN PRINT" MILITARY";
  54. 3550 RETURN
  55. 4000 REM
  56. 4010 PRINTCHR$(147):PRINT"LOAD:":PRINT
  57. 4020 FOR A=0TO3:B(A)=PEEK(43+A):NEXT:T=1
  58. 4025 PRINT:INPUT"NAME";K$
  59. 4030 LOAD K$,8,1
  60. 5000 REM
  61. 5010 PRINTCHR$(147):PRINT"ELITE EDITOR"
  62. 5020 PRINT"1 LIST EQUIPMENT"
  63. 5030 PRINT"2 LIST CARGO"
  64. 5040 PRINT"3 LIST CARGO AVAILABLE AT PLANET"
  65. 5050 PRINT"4 CHANGE EQUIPMENT"
  66. 5060 PRINT"5 CHANGE CARGO"
  67. 5070 PRINT"6 CHANGE GOODS AVAILABLE"
  68. 5080 PRINT"7 SAVE FILE"
  69. 5090 PRINT"8 LOAD FILE"
  70. 5100 PRINT"9 END"
  71. 5110 GOSUB6800:Z=ASC(A$)-48:IFZ<1 OR Z>9THEN5110
  72. 5120 ON Z GOSUB 3010,6510,6610,7010,8510,8610,2010,4010,5140
  73. 5130 GOTO 5010
  74. 5140 END
  75. 6000 REM
  76. 6010 FORA=0TO16:PRINT E$(A)TAB(15)PEEK(J+A+Y):NEXT:RETURN
  77. 6500 REM
  78. 6510 PRINTCHR$(147):PRINT"CARGO:":PRINT
  79. 6520 Y=23:GOSUB 6010:GOTO 6800
  80. 6600 REM
  81. 6610 PRINTCHR$(147):PRINT"GOODS AVAILABLE":PRINT:Y=53:GOSUB6010
  82. 6800 GETA$:IFA$<>"" THEN 6800
  83. 6810 GETA$:IF A$="" THEN 6810
  84. 6820 RETURN
  85. 7000 REM
  86. 7010 PRINTCHR$(147):POKEJ+73,0:PRINT"CHANGE EQUIPMENT:":PRINT
  87. 7020 FORA=0TO6:PRINTG$(A)TAB(23)"Y/N/S"TAB(29);
  88. 7030 GOSUB 6800:IFA$<>"Y" AND A$<>"N" AND A$<>"S" THEN 7030
  89. 7040 IF A$="N" THEN POKEA+J+40,0
  90. 7050 IF A$="Y" THEN POKEA+J+40,F(A)
  91. 7060 PRINTA$:NEXT
  92. 7070 PRINT"LARGE CARGO BAY"TAB(23)"Y/N/S"TAB(29);
  93. 7080 GOSUB6800:IFA$="S"THEN 7120
  94. 7090 IF A$<>"Y" AND A$<>"N" THEN 7080
  95. 7100 IF A$="N" THEN POKEJ+22,22
  96. 7110 IF A$="Y" THEN POKEJ+22,37
  97. 7120 PRINTA$
  98. 7130 PRINT"NUMBER OF MISSILES"TAB(23)"0-4/S"TAB(29);
  99. 7140 GOSUB 6800
  100. 7150 IF A$="S" THEN PRINTA$:GOTO7180
  101. 7160 IF A$<"0" OR A$>"4" THEN 7140
  102. 7170 PRINTA$:POKEJ+51,VAL(A$)
  103. 7180 PRINT"LASERS"TAB(23)"Y/N/S"TAB(29);
  104. 7190 GOSUB6800:IF A$<>"Y" AND A$<>"N" AND A$<>"S" THEN 7190
  105. 7200 IF A$="S" THEN PRINTA$:GOTO 7370
  106. 7210 PRINT
  107. 7220 IF A$="N" THEN POKEJ+16,15:FOR A=0 TO 2:POKEJ+17+A,0:NEXT:GOTO 7370
  108. 7230 PRINT"      LASERS-";
  109. 7240 PRINT,"1-PULSE",,,,"2-MINING",,,,"3-BEAM",,,,"4-MILITARY",,,"5-NONE"
  110. 7250 FORA=0TO3
  111. 7260 PRINTH$(A)TAB(15);
  112. 7270 GOSUB6800:IF A$<"1" OR A$>"5" THEN 7270
  113. 7280 IF A$="1" THEN POKEJ+16+A,15
  114. 7290 IF A$="2" THEN POKEJ+16+A,50
  115. 7300 IF A$="3" THEN POKEJ+16+A,143
  116. 7310 IF A$="4" THEN POKEJ+16+A,151
  117. 7320 IF A$="5" THEN POKEJ+16+A,0
  118. 7330 IF A=0 AND A$="5" THEN POKEJ+16,15
  119. 7340 PRINTA$
  120. 7350 NEXT
  121. 7360 REM
  122. 7370 PRINT"GALAXY NUMBER"TAB(23)"1-8/S"TAB(29);
  123. 7380 GOSUB6800
  124. 7390 IF A$="S" THEN PRINTA$:GOTO7450
  125. 7400 IFA$<"1" OR A$>"8" THEN 7380
  126. 7410 PRINTA$
  127. 7420 O=VAL(A$)
  128. 7430 FORA=0TO8:POKEJ+A,P(O-1,A):NEXT:POKEJ+15,O-1
  129. 7440 REM
  130. 7450 PRINT"CASH  (-1 TO SKIP)"TAB(27);
  131. 7460 INPUT MO:O=0
  132. 7470 IF MO=-1 THEN 7550
  133. 7480 MO=MO*10
  134. 7490 IF MO<0 OR MO>4*10^9 THEN 7460
  135. 7500 IF MO<256 THEN POKEJ+12,MO:GOTO7550
  136. 7510 T= INT(MO/256):IFT<255 THEN POKEJ+11,T:MO=MO-256*T:GOTO 7500
  137. 7520 T=INT(T/256):IFT<255 THEN POKEJ+10,T:MO=MO-T*256^2:GOTO 7500
  138. 7530 T=INT(T/256):IFT<255 THEN POKEJ+9,T:MO=MO-T*256^3:GOTO 7500
  139. 7540 REM
  140. 7550 PRINT"FUEL (0-7.0,-1 TO SKIP)"TAB(27);
  141. 7560 INPUT FU
  142. 7570 IF FU=-1 THEN 7620
  143. 7580 FU=FU*10
  144. 7590 IF FU<0 OR FU>70 THEN 7560
  145. 7600 POKEJ+13,FU
  146. 7610 REM
  147. 7620 PRINT"LEGAL STATUS:SELECT 1-CLEAN",,,,"2-OFFENDER",,,"3-FUGITIVE"
  148. 7630 PRINT;,"S-TO SKIP"
  149. 7640 GOSUB6800
  150. 7650 IF A$="S" THEN 7700
  151. 7660 IF A$<"1" OR A$>"3" THEN 7640
  152. 7670 IF A$="1" THEN POKEJ+52,0
  153. 7680 IF A$="2" THEN POKEJ+52,28
  154. 7690 IF A$="3" THEN POKEJ+52,255
  155. 7700 RETURN
  156. 8000 REM
  157. 8010 FORA=0TO16
  158. 8020 PRINTE$(A)TAB(12)PEEK(J+Y+A)TAB(17)"ALTER(Y/N)"TAB(30);
  159. 8030 GOSUB 6800
  160. 8040 IF A$<>"Y" AND A$<>"N" THEN 8030
  161. 8050 IF A$="N" THEN PRINTA$:GOTO 8110
  162. 8060 INPUT Q:IF Q<0 OR Q>255 THEN 8060
  163. 8070 IF Y=23 THEN PC=PEEK(J+A+23)
  164. 8080 IF Y=23 THEN IF TC-PC+Q>MA THEN Q=MA-TC
  165. 8090 IF Y=23 THEN TC=TC-PC+Q
  166. 8100 POKEJ+A+Y,Q
  167. 8110 NEXT:RETURN
  168. 8500 REM
  169. 8510 TC=0:FOR A=0 TO 16:TC=TC+PEEK(23+A+J):NEXT
  170. 8520 MA=PEEK(J+22)-2
  171. 8530 Y=23:PRINTCHR$(147):PRINT"ALTER CARGO:":PRINT
  172. 8540 GOSUB8010:GOTO6800
  173. 8600 REM
  174. 8610 Y=53:PRINTCHR$(147):PRINT"ALTER GOODS AVAILABLE:":PRINT
  175. 8620 GOSUB8010:GOTO6800
  176. 9000 REM
  177. 9010 DATA 162,73,24,138,134,187,69,187,106,125,175,37,93,176,37,202,208,242,141
  178. 9020 DATA251,37,162,73,24,138,125,175,37,93,176,37,202,208,247,141,252,37,73
  179. 9030 DATA169,141,250,37,96
  180. 9040 REM
  181. 9050 DATAFOOD,TEXTILES,RADIOACTIVES,SLAVES,WINES,LUXURIES,DRUGS
  182. 9060 DATACOMPUTERS,MACHINERY,ALLOYS,FIREARMS,FURS,MINERALS,GOLD
  183. 9070 DATAPLATINUM,GEM STONES,ALIEN ITEMS
  184. 9080 REM
  185. 9090 DATA255,ECM,255,FUEL SCOOPS,127,ENERGY BOMB,1,EXTRA ENERGY UNIT
  186. 9100 DATA255,DOCKING COMPUTER,255,GALACTIC HYPERSPACE,255,ESCAPE POD
  187. 9110 REM
  188. 9120 DATAFRONT,REAR,LEFT,RIGHT
  189. 9130 REM
  190. 9140 DATA0,20,173,74,90,72,2,83,183,0,0,3,232,70,64,0,15
  191. 9150 DATA3,0,16,15,17,0,3,28,14,0,0,10,0,17,58,7,9,8,0,0,0,0,64,239,39,70,28
  192. 9160 REM
  193. 9170 DATA162,8,169,1,32,186,255,173,48,117,162,49,160,117,32,189,255,169,176
  194. 9180 DATA133,251,169,37,133,252,162,253,160,37,169,251,32,216,255,96
  195. 9190 REM
  196. 9200 DATA0,20,173,74,90,72,2,83,183
  197. 9210 DATA0,103,81,148,180,144,4,166,111
  198. 9220 DATA16,101,137,41,105,33,8,77,222
  199. 9230 DATA16,90,121,82,210,66,16,154,189
  200. 9240 DATA16,91,107,164,165,132,32,53,123
  201. 9250 DATA16,95,72,73,75,9,64,106,246
  202. 9260 DATA16,99,86,146,150,18,128,212,237
  203. 9270 DATA16,99,90,37,45,36,1,169,219
  204.