1000 IF T=0 THEN 1020
1010 FORA=0 TO 3:POKE43+A,B(A):NEXT:GOTO5010
1020 POKE55,175:POKE56,37:CLR
1030 DIM B(3),E$(16),F(6),G$(6),H$(3),M(10),P(7,8):J=9648
1040 REM
1050 FOR A= 0 TO 42: READ D:POKE20000+A,D:NEXT
1060 REM
1070 FOR A= 0 TO 16: READ E$(A):NEXT
1080 REM
1090 FOR A= 0 TO 6:READ F(A),G$(A):NEXT
1100 REM
1110 FOR A= 0 TO 3:READ H$(A):NEXT
1120 REM
1130 FOR A= 0 TO 77:POKEJ+A,0:NEXT
1140 FOR A=0TO16:READ D:POKEJ+A,D:NEXT
1150 FOR A=0TO26:READ D:POKEJ+A+51,D:NEXT
1160 POKEJ+22,22
1170 REM
1180 FOR A=0TO34:READ D:POKE25000+A,D:NEXT
1190 REM
1200 FOR A=0TO7:FOR T=0 TO 8:READP(A,T):NEXT:NEXT
1210 GOTO 5010
2000 REM
2010 PRINTCHR$(147):PRINT"SAVE FILE:":PRINT
2020 INPUT"FILENAME";N$:IFLEN(N$)>15 OR LEN(N$)<1 THEN 2010
2030 POKE30000,LEN(N$)
2040 FOR A=1 TO LEN(N$)
2050 POKE30000+A,ASC(MID$(N$,A,1)):NEXT
2060 SYS20000
2070 SYS25000
2080 RETURN
3000 REM
3010 PRINTCHR$(147):PRINT"EQUIPMENT:":PRINT
3020 FOR A=0TO6:IF PEEK(J+40+A)=F(A) THEN PRINTG$(A):NEXT
3030 IF PEEK(J+22)=37 THEN PRINT"LARGE CARGO BAY"
3040 PRINT"NO. OF MISSILES:";PEEK(J+51)
3050 FOR A=0TO3:K=PEEK(J+16+A):IF K<>0 THEN PRINTH$(A);:GOSUB3510:PRINT"LASER"
3060 NEXT
3070 PRINT
3080 PRINT"FUEL";TAB(14)PEEK(J+13)/10;" LIGHT YEARS"
3090 PRINT"LEGAL STATUS"TAB(15);:K=PEEK(J+52)
3100 IF K<>0 AND K<>28 THEN PRINT"FUGITIVE"
3110 IF K=28 THEN PRINT"OFFENDER"
3120 IF K=0 THEN PRINT"CLEAN"
3130 PRINT"GALAXY NO."TAB(14)PEEK(J+15)+I
3140 PRINT"CASH"TAB(14);
3150 PRINT(PEEK(J+12)+PEEK(J+11)*256+PEEK(J+10)*256^2+PEEK(J+9)*256^3)/10;" CR."
3160 GOTO 6800
3500 REM
3510 IF K=15 THEN PRINT" PULSE";
3520 IF K=50 THEN PRINT" MINING";
3530 IF K=143 THEN PRINT" BEAM";
3540 IF K=151 THEN PRINT" MILITARY";
3550 RETURN
4000 REM
4010 PRINTCHR$(147):PRINT"LOAD:":PRINT
4020 FOR A=0TO3:B(A)=PEEK(43+A):NEXT:T=1
4025 PRINT:INPUT"NAME";K$
4030 LOAD K$,8,1
5000 REM
5010 PRINTCHR$(147):PRINT"ELITE EDITOR"
5020 PRINT"1 LIST EQUIPMENT"
5030 PRINT"2 LIST CARGO"
5040 PRINT"3 LIST CARGO AVAILABLE AT PLANET"
5050 PRINT"4 CHANGE EQUIPMENT"
5060 PRINT"5 CHANGE CARGO"
5070 PRINT"6 CHANGE GOODS AVAILABLE"
5080 PRINT"7 SAVE FILE"
5090 PRINT"8 LOAD FILE"
5100 PRINT"9 END"
5110 GOSUB6800:Z=ASC(A$)-48:IFZ<1 OR Z>9THEN5110
5120 ON Z GOSUB 3010,6510,6610,7010,8510,8610,2010,4010,5140
5130 GOTO 5010
5140 END
6000 REM
6010 FORA=0TO16:PRINT E$(A)TAB(15)PEEK(J+A+Y):NEXT:RETURN
6500 REM
6510 PRINTCHR$(147):PRINT"CARGO:":PRINT
6520 Y=23:GOSUB 6010:GOTO 6800
6600 REM
6610 PRINTCHR$(147):PRINT"GOODS AVAILABLE":PRINT:Y=53:GOSUB6010
6800 GETA$:IFA$<>"" THEN 6800
6810 GETA$:IF A$="" THEN 6810
6820 RETURN
7000 REM
7010 PRINTCHR$(147):POKEJ+73,0:PRINT"CHANGE EQUIPMENT:":PRINT
7020 FORA=0TO6:PRINTG$(A)TAB(23)"Y/N/S"TAB(29);
7030 GOSUB 6800:IFA$<>"Y" AND A$<>"N" AND A$<>"S" THEN 7030
7040 IF A$="N" THEN POKEA+J+40,0
7050 IF A$="Y" THEN POKEA+J+40,F(A)
7060 PRINTA$:NEXT
7070 PRINT"LARGE CARGO BAY"TAB(23)"Y/N/S"TAB(29);
7080 GOSUB6800:IFA$="S"THEN 7120
7090 IF A$<>"Y" AND A$<>"N" THEN 7080
7100 IF A$="N" THEN POKEJ+22,22
7110 IF A$="Y" THEN POKEJ+22,37
7120 PRINTA$
7130 PRINT"NUMBER OF MISSILES"TAB(23)"0-4/S"TAB(29);
7140 GOSUB 6800
7150 IF A$="S" THEN PRINTA$:GOTO7180
7160 IF A$<"0" OR A$>"4" THEN 7140
7170 PRINTA$:POKEJ+51,VAL(A$)
7180 PRINT"LASERS"TAB(23)"Y/N/S"TAB(29);
7190 GOSUB6800:IF A$<>"Y" AND A$<>"N" AND A$<>"S" THEN 7190
7200 IF A$="S" THEN PRINTA$:GOTO 7370
7210 PRINT
7220 IF A$="N" THEN POKEJ+16,15:FOR A=0 TO 2:POKEJ+17+A,0:NEXT:GOTO 7370
7230 PRINT"      LASERS-";
7240 PRINT,"1-PULSE",,,,"2-MINING",,,,"3-BEAM",,,,"4-MILITARY",,,"5-NONE"
7250 FORA=0TO3
7260 PRINTH$(A)TAB(15);
7270 GOSUB6800:IF A$<"1" OR A$>"5" THEN 7270
7280 IF A$="1" THEN POKEJ+16+A,15
7290 IF A$="2" THEN POKEJ+16+A,50
7300 IF A$="3" THEN POKEJ+16+A,143
7310 IF A$="4" THEN POKEJ+16+A,151
7320 IF A$="5" THEN POKEJ+16+A,0
7330 IF A=0 AND A$="5" THEN POKEJ+16,15
7340 PRINTA$
7350 NEXT
7360 REM
7370 PRINT"GALAXY NUMBER"TAB(23)"1-8/S"TAB(29);
7380 GOSUB6800
7390 IF A$="S" THEN PRINTA$:GOTO7450
7400 IFA$<"1" OR A$>"8" THEN 7380
7410 PRINTA$
7420 O=VAL(A$)
7430 FORA=0TO8:POKEJ+A,P(O-1,A):NEXT:POKEJ+15,O-1
7440 REM
7450 PRINT"CASH  (-1 TO SKIP)"TAB(27);
7460 INPUT MO:O=0
7470 IF MO=-1 THEN 7550
7480 MO=MO*10
7490 IF MO<0 OR MO>4*10^9 THEN 7460
7500 IF MO<256 THEN POKEJ+12,MO:GOTO7550
7510 T= INT(MO/256):IFT<255 THEN POKEJ+11,T:MO=MO-256*T:GOTO 7500
7520 T=INT(T/256):IFT<255 THEN POKEJ+10,T:MO=MO-T*256^2:GOTO 7500
7530 T=INT(T/256):IFT<255 THEN POKEJ+9,T:MO=MO-T*256^3:GOTO 7500
7540 REM
7550 PRINT"FUEL (0-7.0,-1 TO SKIP)"TAB(27);
7560 INPUT FU
7570 IF FU=-1 THEN 7620
7580 FU=FU*10
7590 IF FU<0 OR FU>70 THEN 7560
7600 POKEJ+13,FU
7610 REM
7620 PRINT"LEGAL STATUS:SELECT 1-CLEAN",,,,"2-OFFENDER",,,"3-FUGITIVE"
7630 PRINT;,"S-TO SKIP"
7640 GOSUB6800
7650 IF A$="S" THEN 7700
7660 IF A$<"1" OR A$>"3" THEN 7640
7670 IF A$="1" THEN POKEJ+52,0
7680 IF A$="2" THEN POKEJ+52,28
7690 IF A$="3" THEN POKEJ+52,255
7700 RETURN
8000 REM
8010 FORA=0TO16
8020 PRINTE$(A)TAB(12)PEEK(J+Y+A)TAB(17)"ALTER(Y/N)"TAB(30);
8030 GOSUB 6800
8040 IF A$<>"Y" AND A$<>"N" THEN 8030
8050 IF A$="N" THEN PRINTA$:GOTO 8110
8060 INPUT Q:IF Q<0 OR Q>255 THEN 8060
8070 IF Y=23 THEN PC=PEEK(J+A+23)
8080 IF Y=23 THEN IF TC-PC+Q>MA THEN Q=MA-TC
8090 IF Y=23 THEN TC=TC-PC+Q
8100 POKEJ+A+Y,Q
8110 NEXT:RETURN
8500 REM
8510 TC=0:FOR A=0 TO 16:TC=TC+PEEK(23+A+J):NEXT
8520 MA=PEEK(J+22)-2
8530 Y=23:PRINTCHR$(147):PRINT"ALTER CARGO:":PRINT
8540 GOSUB8010:GOTO6800
8600 REM
8610 Y=53:PRINTCHR$(147):PRINT"ALTER GOODS AVAILABLE:":PRINT
8620 GOSUB8010:GOTO6800
9000 REM
9010 DATA 162,73,24,138,134,187,69,187,106,125,175,37,93,176,37,202,208,242,141
9020 DATA251,37,162,73,24,138,125,175,37,93,176,37,202,208,247,141,252,37,73
9030 DATA169,141,250,37,96
9040 REM
9050 DATAFOOD,TEXTILES,RADIOACTIVES,SLAVES,WINES,LUXURIES,DRUGS
9060 DATACOMPUTERS,MACHINERY,ALLOYS,FIREARMS,FURS,MINERALS,GOLD
9070 DATAPLATINUM,GEM STONES,ALIEN ITEMS
9080 REM
9090 DATA255,ECM,255,FUEL SCOOPS,127,ENERGY BOMB,1,EXTRA ENERGY UNIT
9100 DATA255,DOCKING COMPUTER,255,GALACTIC HYPERSPACE,255,ESCAPE POD
9110 REM
9120 DATAFRONT,REAR,LEFT,RIGHT
9130 REM
9140 DATA0,20,173,74,90,72,2,83,183,0,0,3,232,70,64,0,15
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
9160 REM
9170 DATA162,8,169,1,32,186,255,173,48,117,162,49,160,117,32,189,255,169,176
9180 DATA133,251,169,37,133,252,162,253,160,37,169,251,32,216,255,96
9190 REM
9200 DATA0,20,173,74,90,72,2,83,183
9210 DATA0,103,81,148,180,144,4,166,111
9220 DATA16,101,137,41,105,33,8,77,222
9230 DATA16,90,121,82,210,66,16,154,189
9240 DATA16,91,107,164,165,132,32,53,123
9250 DATA16,95,72,73,75,9,64,106,246
9260 DATA16,99,86,146,150,18,128,212,237
9270 DATA16,99,90,37,45,36,1,169,219