' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?  1 +".*$ (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#01)*#;?;/$>:(+02&<#)#0:Eb ;1h  !"`H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌` ƥ 0LꢭɛL8`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(mPy0\޼e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV% [l^ eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZL?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRMAXFILEFINBSAVBLOABRUTYPū!pppp p p p p`" t""#x"p0p@p@@@p@p@!y q q 0@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKEDOS ERROR NO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( Ϡ-@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`F d ΠĠz# u`RMANCE.":185:"OPERATIONS 4--------------------------------------":" THREE TYPES OF OPERATIONS ARE POSSIBLEIN TRADER: TRADER (TRADER OR TRANSPORT);COURIER (COURIER OR XBOAT); AND SURVEY.":185?:"COURIER DUTY AND ------------------------------------":" THE SHIPS FILE CONTAINS DATA ON THE VARIOUS SHIPS AVAILABLE FOR OPERATIONS."  " SHIP DATA IN THE FILE INCLUDES SHIP NAME, CREW SIZE AND CREW COSTS, FUEL TANKAGE, PASSENGER AND CARGO CAPACITY, AND PERFON THIS DISK. EACH IS THE OFFICIAL TRAVELLER SECTOR DATA."::" * SPINWARD MARCHES."::" * SOLOMANI RIM.": " YOU CAN ACCESS A SECTOR BY SPECIFYING IT WHEN YOU RUN TRADER.":185x :"SHIPS 3--HE @ SUFFIX. 'FILE@' IS USED BY EDITOR TO TELL THE CONTENTS AND PARAMETERS OF A TEXT DATA FILE NAMED 'FILE'.":185u :"AVAILABLE SECTORS 2--------------------------------------":" THE FOLLOWING SECTORS ARE PROVIDED OITH 'TRADER C' A COMPRESSED VERSION. SUPPORT FILES NECESSARY FOR THE PRO- GRAM INCLUDE 'DATA FILE', 'OD JUMP', 'SHIPS', AND ONE SECTOR FILE (FOR EXAMPLE: 'SPINWARD')."~ " SOME FILES CAN BE EDITED: ANY WHICH HAVE A COMPANION FILE WITH TUN TRADER C" B012000- A$"0"12000o A1000,2000,3000,4000,5000,6000,7000,8000,9000:A$"Q"11000w 20 :"REQUIRED FILES 1--------------------------------------" " TRADER IS CARRIED ON DISK AS 'TRADER' WLE.":" 3. SHIPS.":" 4. OPERATIONS.":" 9. AUXILIARY PROGRAMS":B1 20::"INSTRUCTIONS FOR WHICH PART? (/=END, R=TRADER, 0=INTRO) > ";A$:A$A$" ":A$(A$,1):A(A$):BB1:A$" "AB A0BA A$"/"Ā A$"R"ĺ(4);"Ro::"TRADER"::"COPYRIGHT 1985 GDW INC"::" THIS PROGRAM REPRODUCES THE TRADE AND COMMERCE RULES FROM TRAVELLER (MERCHANT PRINCE) AGAINST THE BACKGROUND OF A TRAVELLER SECTOR.":" "::" 1. REQUIRED FILES."D " 2. SECTORS USED AND AVAILAB      (4);"RUN INSTRUCTIONS":"THIS DISK IS":"COPYRIGHT 1985":"GAME DESIGNERS' WORKSHOP":"PO BOX 1646":"BLOOMINGTON, IL 61702"::"TRAVELLER IS A REGISTERED TRADEMARK OF":"GDW, INC."::"PLEASE DON'T PIRATE THIS DISK."::"THANKS"::"MARC W. MILLER"::"HIT RETURN ";A$  ڍԍٍԍԍҍҍٍҍԍԍ 23:"CONTINUE? > ";Z$sCOH(LP100)((PHPMCW)2000)(SAL.5)100((.00124)1E6CST)(SAL24):CRCROH:300200:" ";DA$:"6";BL$:MNT0ĺ:"THE SHIP NEEDS ANNUAL MAINTENANCE."xBĭOP5((A$(0),26,1)"B"(A$(0),26,1)"W")50380BĭST350380Bī50400BĄ"PERFORM IT NOW? > ";A$:1000:A$"Y"DADA14:MNT0:"MAINTENANCE COST: ";((CST1E6).001)BIJCFIT.":50300:AhĭE100ĺ"SOLD AT ";100E;"% LOSS.":50300jArĭE100ĺ"SOLD AT ";E100;"% PROFIT.":50300A|ĺ"BROKER COMMISSION: ";BR5;"%.":"PROCEEDS: ";CC;" (";(CCB);" PER TON).":CRCRCC:B$"":B0:BC0AĭMNT150410BBĺFI$;" ";TI$;" ";NA$;:3AVAILABLE."6@ĭBR1ĺ"BROKER-1 TO ";BR;" AVAILABLE."{@Ą"USE A BROKER? > ";A$:1000:(A$,1)"Y"Ą"WHICH NUMBER? > ";A$@"ĭ(A$)0(A$)BR50190@,BR(A$) A6A$A$(0):B;" TONS AT CR";CB;" BASE COST.":5000:E(100CDCB):E100ĺ"SOLD AT NO PROL$:B$CG$:A1$A$(0):7000:8000:B;" TONS OF ";:B$:"BASE COST: ";(B$,19);:21:"BASE PRICE: ";CC:CB((B$,23)):"SELL GOODS? > ";A$:1000:A$"Y"50420?BR((A$(0),6,1))64:BR5BR:BR1ĺ"NO BROKERS AVAILABLE.":BR0:50230 @íBR1ĺ"BROKER-1 FU:UFUF12>䝭CF0ĺ"BOUGHT CR";CF;" OF FUEL."A>UF1UF0Y>:BBC:OP750000> (4);"OPEN ";FI$;", L50":(4);"WRITE ";FI$;", R";DE:(A$(0),41);"* ":(4);"CLOSE">Pò>QíB150350?Zâ11:3000:FI$;" ";TI$;" ";NA$;:30:" ";DA$:"4";B"C"ĺ"SURFACE REFUELLING FACILITIES ARE INACCESSIBLE. REFUELLING TAKES 14 DAYS.":DA14:3000:UFUF1:FYFU:40440="REFUEL WITH (R/U) > ";A$:A$(A$"R",1):A$"R"RF0A$"U"=НA$"R"CF(FUFY)500:FYFU:UFUF1 >ڝA$"U"CF(FUFY)100:FYUF1:404303 ";A$b<1000:A$"Y"DADA4:FYFU:UFUF1:40430t ";A$;X1000:A$"Y"DADA2:FYFU:UFUF1:40430;bHY1SL$"U"Ą"OCEAN REFUEL? > ";A$ ";Z$:DEA(Z$" ",1)"I"400007zDEA:A0Ā8@YFY((JFTN10)(10PN)):FY0(B$,5,5)"HI IN"FYFYB:B$" ":B06:zDADA9:ADE:2000:XC((A$,2)):YC((A$,3,2)):A$(0)A$:SE1SE2400006zZ1B(5)(UF0)(MNT0):Z11340000u7z"MISJUMP (";Z1;"): ";:X((6)32)1;BC;" FOR ";(BCCC)f5y20:"ADVANCE DELIVERY? > ";A$:1000:A$"Y"CRCR(.2(BCCC)):DADA3:31230l5y5yPM0PH0PL0CG0BC0Ą"LEAVE IMMEDIATELY? > ";A$:1000:A$"Y"DADA1:312305yDADA55y^6zADE:XF((A1$,2)):YF((A1$,3,2)):FS? > ";A$:1000:A$"Y"31220L4JyA$"Y"Ģ21:868:"HOW MANY TONS? > ";A$a4TyA$""A$"9999"4^yBC(A$):BC1BC0:311904hyBACHCG:A1$A$(0):7000:BB(CRCC):(BCBA)BCBA4yBCBBBCBB5yB$A$:CG$B$:CW$A$(0):CRCR(BCCC):21:20:" "(SH$,89,1)"S"CRCR(PF2):3098003xCRCRPFo3y"FARES= ";PF;:(SH$,89,1)"S"ĺ" LESS 50% FOR SUBSIDY.";u3y3y23:"HI: ";PH;" MID: ";PM;" LOW: ";PL;" CARGO: ";CG;" TONS.":B0312003,yCRCC3120036yCGBCH312004@y21:868:"BUY GOODHCGCHBz2x21:"BOARD PASSENGERS & FREIGHT? > ";A$:1000:A$"W"Ą"WAIT HOW MANY DAYS? > ";A$:1000:DADA(A$):309402xA$"N"PH0:PM0:PL0:CG0:310002xA$"P"CG02xA$"F"PH0:PM0:PL0#3xPF(PH10000)(PM8000)(PL1000)(CG1000):901 ";A$:1000:A$"Y"307600xI11:II1:303001(x21:"WHAT DESTINATION? > ";A$:A$"A"302 ":30670n/twG$(" "((CC)),6):19:G$;:G$(" "((CCCA)),6):25:G$;" ";:PHSRCWPHSRCW/wPMSR(CWPH)PMSR(CWPH)/wPLLPPLLP/wCGCHCGCH0wPF(PH10000)(PM8000)(PL1000)(CG1000):33:PF10);PF100);PF10000ĺ" UNSURVEYED.":30670l.BwE$;:SL$"U"((A1$,6,1)"C"(A1$,38,1)"G")ĺ"INACCESSIBLE.":30680.VwOP7(A1$,40,1)" "ĺ"NOT A TRADEWORLD.":30680.`wOP5MSG1HX$(FL(I))BB$ĺ"MESSAGE ADDRESSEE.":30670 /jwOP9OP5OP6ĺ" "(A1$,33,2)" ":4000:OP5MSG0((A1$,16,1)"N"(A1$,16,1)"A")MSG1:BB$HX$(((R)R)1)z-vOP9OP5OP630470-v7000:B0CC((CG$,23)):B$CG$-v8000:9000 .wA$(I)A$:CA((B$,23)):I113:I10);I;". ";:HX$(FL(I));" ";:OP6XPL(4):XPL0:(A1$,42,1)"*"(A1$,16,1)"S"(A1$,16,1)"W"(A1$,16,1)"A"(A1$,16,1)"B"XPL1,vE$(A1$,6,1):F$" ":((A1$,9,1))0(A1$,8,1)"1"F$"O",v((A1$,9,1))0(A1$,8,1)"2"F$"I"`-vE$E$F$(A1$,38,1)(A1$,36,1)(A1$,16,1)" 10);CG100);CG:11:"--------------DESTINATIONS-------------":6000+4v12:" # HEX SHGZB AL PRICE PROFIT FARES?":"--";BL$:FL0ĺ"YOUR SHIP CAN'T REACH ANY WORLDS.":+Hv(4);"OPEN ";FI$;",L50"+RvI1:I11a,\v(4);"READ ";FI$;",R";FL(I):A1$:ESSAGE TO: ";BB$4*uOP6ĺXR;" UNSURVEYED WORLDS."Z*u7000:B0ĺ"CARGO: ";CG$:30220y*u"CARGO HERE: ";CA$:B$CA$E+ v"FARES RCVD: ";(PH10000)(PM8000)(PL1000)(CG1000):"FARES- HI ";PH10);PH;" MD ";PM10);PM;" LO ";PL10);PL;" CG ";CG(A$,2)):YC((A$,3,2)):"SYSTEM: ";(A$,14);:A$(0)A$:30:(A$,33):"OVERHEAD: ";(OH);" (MAX= ";OV;"). ":"CR BALANCE: ";(CR);:UF0ĺ" UNREFINED FUEL.";)u:A1$A$(0):MSG1CG$HX$(A)ĺ"MESSAGE DELIVERED.":MSG0:BB$"":CG$""*uOP5MSG1ĺ"MM(O15:"DATE? (000-0000) > ";DA$:15:"DATE? (000-0000) > ";A$:A$""20390r(ODD((A$,3)):DD1DD36520381(OYR((A$,5)):3000:"DATE: ";DA$(O:"PROCESSING...":ASP)DuX(X)::3000:FI$;" ";TI$;" ";NA$;:30:" ";DA$:"2";BL$:2000:XC(TPOINT? (0000) > ";HX$(SP)K'VO13:"STARTPOINT? (0000) > ";A$:A$""20381'`OA$("0000"A$,4):X((A$,2)):Y((A$,2)):Y1Y40X1X3220310'OPO(X,Y)0SP(PO(X,Y))'OPO(X,Y)0ĺ"INVALID STARTPOINT.":20300'O"NEW STARTPOINT: ";HX$(SP) ";A$:A$""20200&NNA$A$&N"CREW SKILLS: ":" STEWARD- ";A$:1000:V1(A$):SASA(V1300):" ADMIN- ";A$:1000:V2(A$):" STREETWISE- ";A$:1000:V3(A$):" LIAISON- ";A$:1000:V4(A$):"CREDIT BALANCE? > ";CR$:CR(CR$)'LO13:"STAR65);" ";(A$,69,16):(4);"READ SHIPS, R";X2:A$:(X2)4:20:(X66);" ";(A$,69,16)::(4);"CLOSE"%N:"SELECT YOUR SHIP? > ";A$:A$(A$"A",1):TY(A$)64:TY1TY2620150%N1500:A$"/"20000&N:"SHIP CHARACTERISTICS":BL$:"SHIP NAME? >:::(4);"CLOSE":(4);"OPEN DATAFILE":(4);"READ DATAFILE":HE$:X09:SE$(X)::X115:AV(X)::(4);"CLOSE"y$ Nh%*N:3000:FI$;" ";TI$;" ";NA$;:30:" ";DA$:"1";BL$:(4);"OPEN SHIPS, L100":X0252:(4);"READ SHIPS, R";X1:A$:(X2)4:(X107:DA$"001-1107":A(N)((5)6)1:B(N)A(N)A(N):C(N)B(N)A(N):D(N)C(N)A(N):BL$"------------------------------------"s$'::FI$;" ";TI$;" ";NA$;:30:" ";DA$:"0";BL$:(4);"OPEN OD JUMP":(4);"READ OD JUMP":X113:Y113:OD(X,Y)$;".MAP,R0":R:HX$(R),AV(15),PO(32,40),OD(13,13),FL(169),J(169),A$(169):Z1R:15:(4);"READ ";FI$;".MAP,R";Z:A$:X((A$,2)):Y((A$,3,2)):PO(X,Y)Z"0'(A$,5,1)"T"PO(X,Y)PO(X,Y)(1)#2'HX$(Z)(A$,4)::(4);"CLOSE":(4);"NOMONICO":DA1:YR11DM6).!%CGCG5(K2DM7V4):CGCG(K3DM)=!&%CG0CG0C!0%P!'SP255:!':FI$"SPINWARD":4:"USE SECTOR: > ";FI$:4:"USE SECTOR: > ";F$:F$""FI$F$"':"READING SECTOR...":(4);"MONICO":(4);"OPEN ";FI$;".MAP,L7":(4);"READ ";FICGCG5(K2DM3V4):CGCG(K3DM3):9510> $CG10(K1DM3)m $CGCG5(K2DM4V4):CGCG(K3DM3):9510 $CG10(K1DM4) $CGCG5(K2DM5V4):CGCG(K3DM2):9510 $CG10(K1DM5) $CGCG5(K2DM6V4):CGCG(K3DM2):9510!%CG10(K@$CGCG5(K2DM4V4):95103J$CG10(K1DM2)RT$CGCG5(K2DM1V4):9510f^$CG10(K1DM1)h$CGCG5(K2DMV4):9510r$CG10(K1DM)|$CGCG5(K2DM1V4):9510$CG10(K1DM1)$CGCG5(K2DM2V4):9510$CG10(K1DM2)* $#PL0PL0c#DM(T1T2)(4(P25))(1(P27)):CG0:K1A(5):K2A(6):K3A(7):TZ2CG0:9510$TZ1ĴP19280,9300,9320,9340,9360,9380,9410,9430,9460,9490"$P19270,9290,9310,9330,9350,9370,9400,9420,9450,9480,$CG0:95106$CG10(K1DM4)DMA(7):PLB(6)B(8)DM:9160a#PHC(6)DMA(6):PMC(6)DM:PLB(6)B(8)A(5)DM:9160#PHC(6)DM:PMB(6)B(5)DM:PLB(6)B(8)B(5)DM:9160#PHPHV1:PMPMV2:PLPLV3:PH0PH0#OP8OP7PH0:PM0:PL0:CG0#PM0PM0 (6):PMB(6)DMA(7):PLC(6)DMA(5):9160m#PHB(6)DMA(6):PMC(6)DMB(7):PLC(6)DMA(5):9160#PHC(6)DMB(6):PMC(6)DMB(7):PLC(6)DM:9160#PHC(6)DMB(6):PMC(6)DMA(7):PLC(6)DM:9160!#PHC(6)DMA(6):PMC(6)Z6):PH0:PM0:PL0:CG0:P19060,9070,9080,9090,9100,9110,9120,9130,9140,9150YZ#9160d#PMA(6)DM2:PLB(6)DM6:9160n#PHA(6)DMA(6):PMA(6)DM:PLB(6)DM:9160x#PHB(6)DMB(6):PMB(6)DMA(7):PLB(6)DM:9160-#PHB(6)DMAZ,2)CCCC1000!!!!V!:TR((B$,3,1)):TR0(B$,3,1)"0"TR0:8640!TR((B$,3,1))55:TR19TRTR1:TR24TRTR1!TT(TRTL).1:TT1CC0:8670!CCCC(CCTT)!CC0CC0!O(#DM(T1T2)(3(P25))(3(P27))(T,Y,2)"PO"CCCC1000/ !(B$,X,2)"RI"8520i*!Z1112:(A$,Y,2)("AGDEHIINNARI",Z,2)CCCC1000o>!H!(B$,X,2)"VA"8560R!Z152:(A$,Y,2)("ASINVA",Z,2)CCCC1000f!p!(B$,X,2)"WA"8600z!Z152:(A$,Y,2)("INRIWA",4004 Z132:(A$,Y,2)("INRI",Z,2)CCCC1000: T (B$,X,2)"NA"8440 Z172:(A$,Y,2)("AGASDEVA",Z,2)CCCC1000  (B$,X,2)"NI"8470!(A$,Y,2)"IN"CCCC1000 !(A$,Y,2)"NI"CCCC1000!(B$,X,2)"PO"(A$1000 D $N (B$,X,2)"HI"8310WX Z132:(A$,Y,2)("HILORI",Z,2)CCCC1000]l v (B$,X,2)"IC"(A$,Y,2)"IN"CCCC1000 (B$,X,2)"IN"8360 Z1212:(A$,Y,2)("AGASFLHILONIPORI",Z,2)CCCC1000  (B$,X,2)"LO"8",Z,2)CCCC10001(B$,X,2)"BA"8190bZ132:(A$,Y,2)("AGIN",Z,2)CCCC1000h(B$,X,2)"DE"8230 Z132:(A$,Y,2)("DENA",Z,2)CCCC1000 & (B$,X,2)"FL"82700 Z132:(A$,Y,2)("FLIN",Z,2)CCCC203:(B$,X,2)" "8620IhY5203:(A$,Y,2)"BA"CCCC2000:8600b|(A$,Y,2)" "8600|(B$,X,2)"AG"8110Z1152:(A$,Y,2)("AGASDEHIINLONARI",Z,2)CCCC1000(B$,X,2)"AS"8150Z192:(A$,Y,2)("ASINNARIVALTL1:TL24TLTL1KCCCC(TL100):ST$(A1$,6,1):ST$"A"CCCC1000cST$"C"CCCC1000{ST$"D"CCCC2000ST$"E"CCCC3000ST$"X"CCCC5000 CA$ST$"-"(HE$,TL1,1)" "(A1$,18,15)" CR"(CC):A$CA$:@CC5000:X5107070=(A1$,X,2)("AGASHIINPO",X1,2)CCCC1000:7080MX1117080(A1$,X,2)("BADEFLLONIVARI",X110,2)CCCC1000:7080:TL((A1$,14,1)):TL0(A1$,14,1)"0"TL0:7110TL0TL107110TL((A1$,14,1))55:TL19T,M)JFLFL1:J(FL)OD(N,M):FL(FL)PO(X,Y):6200;$6200|.OD(14N,M)JFLFL1:J(FL)OD(14N,M):FL(FL)PO(X,Y):6200811:2:" ";("0"(X),2);("0"(Y),2):FL(FL)(FL(FL)):::XCC4000:X18333:(A1$,X,2)" "7090X11232:X1V(D):CDAVCC(1(BR.05)):CCCDB:pFL0:JJP:FL1169:FL(FL)0:J(FL)0::FL0:M7J7J:XXC7M:N7J7J:YYC7N:X1X326200Y1Y406200PO(X,Y)06200XXCYYC6200OP7PO(X,Y)06200XC2(XC2)61901OD(NP1((A$(0),10,1)):P10((A$(0),10,1))"0"P1((A$(0),10,1))55T1((A$(0),14,1)):T10((A$(0),14,1))"0"T1((A$(0),14,1))55TZ0:(A1$,36,1)"A"TZ1(A1$,36,1)"R"TZ2DB(8)BR:D15D15D2D2$AVA DD28(DD28)CRCRSAL- DA03020Q DD365YRYR1:DDDD365:MNT1u DA$("00"(DD),3)"-"(YR):P2((A1$,10,1)):P20((A1$,10,1))"0"P2((A1$,10,1))55T2((A1$,14,1)):T20((A1$,14,1))"0"T2((A1$,14,1))55G;"READ ";FI$;",R";A:A$:OP621102XL02110S (A$,42,1)"*"CRCR50000A$(A$,41)"*"" ":(4);"WRITE ";FI$;",R";A:A$:XRXR1>(4);"CLOSE": DA03060 DDDD1:DADA1:DD28(DD28)PA0CRCR((CST1E6)480):PAPA1:OV(OV):"MAX OVERHEAD: ";OV:22:" ACCEPT SHIP. A-Z DISPLAYS OTHERS / RETURNS TO SHIP LIST" Z"ACCEPT SHIP? > ";A$:(A$,1)""1920 lTY((A$,1))64:TY1TY26A$"/":CR0:OH0:1920 v1500 #(4);"OPEN ";FI$;",L50":(4)$(SH$,89,3):PA(PA$):(PA$,1)"S"ĺ"HALF OF REVENUES."q (PA$)0ĺ((CS240)1E6);" FOR ";PA$;" MONTHS." &(PA$,1)"S"(PA$)1ĺ"PAID OFF."j 0"CR FUND: ";CR:OV(FU500)((CST480)1000000)(LP100)(SR2000)(SAL2)(CST.001)100SA((SH$,34,6)):"CREW SALARIES: ";SA:CS((SH$,41,7)):"SHIP COST: ";CS;" MCR": AL$(SH$,86,2):"ALLEGIANCE: ";AL$:"SERVICE: ";:SE((SH$,32,1)):SE$(SE):"OPERATIONS: ";:OP((SH$,30,1)):TI$SE$(OP):TI$:"PAYMENTS: ";:PA:G((SH$,9,1)):" ";G;"-G":FU((SH$,23,4)):"FUEL TANKAGE: ";FU:FYFU:CH((SH$,18,4)):"CARGO HOLD: ";CHV SR((SH$,12,2)):"STATEROOMS: ";SR:LP((SH$,15,2)):"LOW BERTHS: ";LP:CW((SH$,49,2)):"CREW: ";CW:";DA$:"5";BL$:4:(SH$,69,15);" ";(SH$,52,15) @TN((SH$,3,4)):"TONNAGE: ";TN;:A$"STREAMLINED":SL$(SH$,28,1):SL$"U"A$"UN"A$w J" ";A$:"PERFORMANCE: ";:"JUMP-";(SH$,8,1);:JP((SH$,8,1)):PN((SH$,10,1)):NA$(SH$,52,15)t;  10000(d EDITION OF 2 NOV 1985A$(A$" ",1):A$"?"A$"CHANGE"Ą"WHAT SHIP LETTER? > ";A$:A$("A"A$,1):TY(A$)64:15001 (4);"OPEN SHIPS, L100":(4);"READ SHIPS, R";TY:SH$:(4);"CLOSE"::3000:FI$;" ";TI$;" ";NA$;:30:"                    \ ::"TRADER ---------------------------31 DEC 85 --"n(4);"/"::" HIT RETURN ";A$((4);"RUN COPYRIGHT1985" ",Z,2)CCCC10001(B$,X,2)"BA"8190bZ132:(A$,Y,2)("AGIN",Z,2)CCCC1000h(B$,X,2)"DE"8230 Z132:(A$,Y,2)("DENA",Z,2)CCCC1000 & (B$,X,2)"FL"82700 Z132:(A$,Y,2)("FLIN",Z,2)CCCC203:(B$,X,2)" "8620IhY5203:(A$,Y,2)"BA"CCCC2000:8600b|(A$,Y,2)" "8600|(B$,X,2)"AG"8110Z1152:(A$,Y,2)("AGASDEHIINLONARI",Z,2)CCCC1000(B$,X,2)"AS"8150Z192:(A$,Y,2)("ASINNARIVALTL1:TL24TLTL1KCCCC(TL100):ST$(A1$,6,1):ST$"A"CCCC1000cST$"C"CCCC1000{ST$"D"CCCC2000ST$"E"CCCC3000ST$"X"CCCC5000 CA$ST$"-"(HE$,TL1,1)" "(A1$,18,15)" CR"(CC):A$CA$:@CC5000:X5107070=(A1$,X,2)("AGASHIINPO",X1,2)CCCC1000:7080MX1117080(A1$,X,2)("BADEFLLONIVARI",X110,2)CCCC1000:7080:TL((A1$,14,1)):TL0(A1$,14,1)"0"TL0:7110TL0TL107110TL((A1$,14,1))55:TL19T,M)JFLFL1:J(FL)OD(N,M):FL(FL)PO(X,Y):6200;$6200|.OD(14N,M)JFLFL1:J(FL)OD(14N,M):FL(FL)PO(X,Y):6200811:2:" ";("0"(X),2);("0"(Y),2):FL(FL)(FL(FL)):::XCC4000:X18333:(A1$,X,2)" "7090X11232:X1V(D):CDAVCC(1(BR.05)):CCCDB:pFL0:JJP:FL1169:FL(FL)0:J(FL)0::FL0:M7J7J:XXC7M:N7J7J:YYC7N:X1X326200Y1Y406200PO(X,Y)06200XXCYYC6200OP7PO(X,Y)06200XC2(XC2)61901OD(NP1((A$(0),10,1)):P10((A$(0),10,1))"0"P1((A$(0),10,1))55T1((A$(0),14,1)):T10((A$(0),14,1))"0"T1((A$(0),14,1))55TZ0:(A1$,36,1)"A"TZ1(A1$,36,1)"R"TZ2DB(8)BR:D15D15D2D2$AVA DD28(DD28)CRCRSAL- DA03020Q DD365YRYR1:DDDD365:MNT1u DA$("00"(DD),3)"-"(YR):P2((A1$,10,1)):P20((A1$,10,1))"0"P2((A1$,10,1))55T2((A1$,14,1)):T20((A1$,14,1))"0"T2((A1$,14,1))55G;"READ ";FI$;",R";A:A$:OP621102XL02110S (A$,42,1)"*"CRCR50000A$(A$,41)"*"" ":(4);"WRITE ";FI$;",R";A:A$:XRXR1>(4);"CLOSE": DA03060 DDDD1:DADA1:DD28(DD28)PA0CRCR((CST1E6)480):PAPA1:OV(OV):"MAX OVERHEAD: ";OV:22:" ACCEPT SHIP. A-Z DISPLAYS OTHERS / RETURNS TO SHIP LIST" Z"ACCEPT SHIP? > ";A$:(A$,1)""1920 lTY((A$,1))64:TY1TY26A$"/":CR0:OH0:1920 v1500 #(4);"OPEN ";FI$;",L50":(4)$(SH$,89,3):PA(PA$):(PA$,1)"S"ĺ"HALF OF REVENUES."q (PA$)0ĺ((CS240)1E6);" FOR ";PA$;" MONTHS." &(PA$,1)"S"(PA$)1ĺ"PAID OFF."j 0"CR FUND: ";CR:OV(FU500)((CST480)1000000)(LP100)(SR2000)(SAL2)(CST.001)100SA((SH$,34,6)):"CREW SALARIES: ";SA:CS((SH$,41,7)):"SHIP COST: ";CS;" MCR": AL$(SH$,86,2):"ALLEGIANCE: ";AL$:"SERVICE: ";:SE((SH$,32,1)):SE$(SE):"OPERATIONS: ";:OP((SH$,30,1)):TI$SE$(OP):TI$:"PAYMENTS: ";:PA:G((SH$,9,1)):" ";G;"-G":FU((SH$,23,4)):"FUEL TANKAGE: ";FU:FYFU:CH((SH$,18,4)):"CARGO HOLD: ";CHV SR((SH$,12,2)):"STATEROOMS: ";SR:LP((SH$,15,2)):"LOW BERTHS: ";LP:CW((SH$,49,2)):"CREW: ";CW:";DA$:"5";BL$:4:(SH$,69,15);" ";(SH$,52,15) @TN((SH$,3,4)):"TONNAGE: ";TN;:A$"STREAMLINED":SL$(SH$,28,1):SL$"U"A$"UN"A$w J" ";A$:"PERFORMANCE: ";:"JUMP-";(SH$,8,1);:JP((SH$,8,1)):PN((SH$,10,1)):NA$(SH$,52,15)t;  10000(d EDITION OF 2 NOV 1985A$(A$" ",1):A$"?"A$"CHANGE"Ą"WHAT SHIP LETTER? > ";A$:A$("A"A$,1):TY(A$)64:15001 (4);"OPEN SHIPS, L100":(4);"READ SHIPS, R";TY:SH$:(4);"CLOSE"::3000:FI$;" ";TI$;" ";NA$;:30:"                     ԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍ         ԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍ           ؠРӠŠӍō̠΍ӠԠčĿĿ ɠϠǠӠ³ɠàϠǠŠϠ͠ijŠϠɠϠ͠Ǡ¶Ϡ͠ĠΠɠϠǠӠصǠϠҠǠȵŭ ͠Ǡ÷Ǡ͠ǠĠɠ͠Ǡ²ƠɠϠ͠ǠõǠ͠Ǡõķ¹Ϡɠ̠ϠǠŠɠ͠ǠŵŠϠɠ̠͠±ƠɠϠ͠Ǡõà͠ǠĠϠ͠µŠɠ͠ǠĴƠϠɠϠ͠ǠàɠϠǠµĭàϠǠӠ¸Šɠ̠͠ǠƠɠ͠ɠõǠɠ͠Ǡ²ɠΠ͠Ǡ¹Ӡɠ͠Ǡ͠ǠɠŠ͠ǠɠĸŠϠɠ͠ǠɠŠΠɠ͠ǠɠàΠɠϠǠӠ¹µà̠͠Ǡ͠Ǡ÷Šɠ̠͠ǠµŠà͠Ǡ¶Š͠ǠĸŠ̠͠ǠĠɠϠǠӠƭàϠӠƠɠ͠Ǡñ͠Ǡ Ӡɠ͠ǠòàɠϠɠϠ͠ǠɠðƠϠɠӠ͠±´Š͠ǠŠΠϠǠàϠϠǠӠĠɠŠ͠Ǡ÷̠͠ҠǠĴɠϠ͠ǠŠΠ͠ɠíƠΠ͠ǠƴĵŠϠɠϠϠǠƠɠϠ͠ǠɠĭƠ ͠ɠɠ͠ǠƠΠɠ͠ɠ°ŠɠӠ͠ǠƠנ͠Ǡɠ¶àɠϠǠĠɠϠǠӠõĠϠɠϠǠĹŠΠɠϠǠӠĠɠ͠Ǡɠ·Ġɠ͠Šנɠ̠͠ǠɠðɠӠ͠ǠǠƠΠɠ͠ǠùŠ̠͠ŠΠϠŠϠǠöϠǠӠŠϠϠǠӠ͠³ƭ ͠ǠذϠɠӠ͠Ҡ´à͠ǠðŠϠɠӠ͠ǠôĠϠ͠͠Ǡɠ¶ŠǠɠϠǠñàɠϠŠϠǠŠϠӠŠɠ͠Ǡij Ϡɠ͠ǠŠ͠Ǡ­Ơɠ͠Ǡɠ͠ǠíĠɠ͠ǠƠΠɠŠɠϠӠ´ĠϠ͠ǠƠ͠ɠ͠ǠŠɠ͠Ǡ²ŠŠӠɠ͠Š͠ǠɠƴŠ̠͠ǠĠɠΠ͠ǠķŠϠɠϠǠöɠ̠͠¸Šɠ͠Šɠ͠Ǡøøàɠ̠͠ǠŭŠɠΠ͠ǠɠöǠɠ͠ǠôŠɠϠ͠ǠķϠɠ͠ǠôƭĠ͠ǠĸϠɠ͠ǠǠòà͠Ǡشɠà͠ҠǠ¶àɠ͠ǠôϠ͠Ǡµ͠͠ǠóƠϠɠ͠Ǡöàɠ̠͠Ǡ°ƭŠɠΠӠ͠Ǡó ɠ͠ǠŠΠɠΠϠ͠͠ǠµàɠϠ͠ŲàϠɠϠǠ­ɠΠӠϠíĠɠ͠öĭĠϠɠӠϠҠ¹ɠ̠ϠǠĠӠɠ͠ǠɠƠɠΠ͠Ǡ­ɠ͠ǠƠɠƠΠɠŠǠɠĠ̠͠ǠĠΠɠΠà͠ǠɠùĠϠɠ̠͠Ǡ÷ĠɠϠǠذ̴ĠϠɠ͠Ǡ·àΠɠϠǠķĠΠ̠ϠǠӠ¸Ơɠ͠ǠɠðàɠӠŠŠΠ͠Ǡɠø¶Šɠ̠ŠǠŠǠɠŠǠ­ƠΠɠ͠Ǡõ ͠ǠÍí ɠ͠Ǡ° ɠӠ͠²ŠϠ͠ǠŠΠɠ͠Ǡ±à͠Ųɠ͠ǠɠƠӠɠ͠Ǡɠ·Ġɠ̠͠¶Ġɠ͠Ǡ´ŠϠɠϠ͠Ǡ͠ǠíƠנɠΠ͠Ǡɠ°ŠɠӠ͠ǠíŠΠɠ͠ǠŠŠǠƠŠŠ²Š͠Ǡ¹Ơ͠ǠĠɠ͠ǠŠǠ͠ŠɠΠ͠ǠŠ͠ǠĭƠɠӠ͠Ǡ²ƭàϠ͠ǠɠƠɠŠǠŠϠ ɠ͠ǠɠŠΠɠΠ͠ɠŠΠǠ͠ǠàɠϠǠ­Š͠Ǡ²­ŠɠƠɠΠŠǠɠƠɠŠǠóŠǠŠǠƠɠ͠ǠɠàɠΠ͠ǠƳ· ϠŠϠǠŠΠɠϠŷƠɠ̠͠ǠƭƠϠŠ͠ǠŠϠŠŠǠɠ¶àǠŠǠŠӠŠŠΠ͠ŴϠɠϠϠǠŠɠϠǠӠôƠϠɠà͠Ǡ¶ŭǠɠ͠Ǡ­Ġɠ͠ǠŠǠɠ͠Ơ ɠŠǠɠǠõ ŠǠ¶àɠϠ͠ǠŠӠ͠ĠɠϠǠĠàϠǠϠǠӠŠǠϠǠӠ±Šɠ͠ǠõɠϠ͠Ǡóà͠Ǡ±àɠϠŠ͠Ǡɠ­Ġà͠ǠŠɠ͠ǠĠΠàϠǠӠŠɠϠǠŠΠ̠ɠϠŠǠƠɠŠǠŠɠŠǠذϠɠӠ͠ҠíŠɠΠ͠ǠɠƭŠΠɠ­Šɠ͠ƠΠϠŠ͠ǠƠɠ͠ǠƠ̠͠ǠɠƠɠŠƠŠɠϠǠӠŠɠϠǠ° ɠӠϠǠ­ƠΠɠ͠ǠɠŠǠɠ͠ǠµàŠǠ¶ĠǠ͠ǠӠ͠ǠƠΠɠ͠ǠɠŠΠɠϠǠӠóàɠ͠Ǡàɠ͠Ǡò ɠϠ͠öàǠɠŠǠŠŠǠɠǠŠΠɠϠϠǠӠŠɠϠǠӠĠɠϠǠõàϠɠϠϠǠ÷í̠͠Ǡ͠ҠǠŵƠϠɠϠŠǠƠϠŠɠµàà͠ǠŠɠΠ͠ǠòŠϠɠ͠ϠǠöĠϠɠϠǠƠɠ͠ǠɠزϠɠϠĠɠΠӠ͠ǠɠصɠϠŠɠŠǠ±ŠŠǠƠ ɠ͠ǠɠµàϠ͠Ǡɠ·à̠Ϡôɠ Ǡ͠Ǡ² ɠ͠ƭŠנɠ͠ǠɠŰŠϠɠӠ͠ǠĭŠ͠ǠƠȵĠɠ͠ǠĠɠϠǠӠشϠɠϠҠǠعǠɠϠҠǠøɠ̠͠Ǡó±ƠΠɠ͠ǠùĠϠɠ͠ĠɠŠƠΠɠΠŠǠŠΠɠ͠ǠɠàɠϠǠӠŠӠ͠ɠƠɠ͠ǠíƠà͠ǠŠɠ͠ǠµĠ͠Ǡ¸øƠɠ̠͠Ǡ¹à̠͠ǠĠɠΠϠǠŠΠɠϠϠǠӠϠӠðŭӠϠǠƠ͠ǠƠΠϠ͠ǠƠɠ͠Ǡ¶Ơ͠Ǡ͠ǠĭƠɠ͠ŵĭƠϠɠϠ͠õǠɠ͠ǠƠΠɠΠ͠ǠɠĠà̠͠ǠƠɠ͠ǠôǠɠ͠ƭɠ͠ǠɠĠɠϠ͠Ǡɠò ϠɠϠɠϠ͠Ǡ²Ġɠ͠ǠôϠɠϠŠ͠ǠĸĠϠɠ̠͠ǠöϠŠ͠ǠøàɠĭĠɠ͠ǠĴɠϠǠŠɠϠӠŭŠϠǠôϠ͠Ǡ´µƠΠ̠͠Ǡɠ´ ͠ǠĠɠ̠͠Ǡ¶­ĠɠΠϠ͠ǠàΠɠ͠­Ġɠ͠ǠðĠɠӠ͠ǠŠɠ͠ó ɠ͠Ǡ´í ɠΠ͠òɠ͠ǠصϠɠϠ͠ҠǠ·Ġ̠͠Ǡ¶Ġɠ͠ǠŠɠ͠ǠɠǠôĠǠɠ͠Š͠ǠɠĶ¹ƠϠɠ̠͠Ǡµɠà͠ǠõĠ̠͠Ǡɠ͠ǠõàϠɠϠϠǠӠôĠϠɠϠµàɠϠϠǠµŠɠϠǠöàɠϠ͠͠ǠɠŠɠ͠Ǡ°ŭŠӠ͠øƠϠɠ̠͠Ǡ·ŠϠ͠ǠŠϠǠõ Ϡɠ͠ðӠ͠Ǡõ Ǡɠ͠òǠ͠ƠӠɠƠӠɠ͠ǠɠíŠɠ͠ǠɠŠΠɠ͠Ǡɠõ ɠϠϠǠ³àɠàϠǠö à͠Ǡ¸ŭŠ͠ǠµĠɠϠŠ͠­Ơɠ͠ǠŲŠϠɠ͠Ǡõ ɠϠǠ¶ĠɠàϠǠ²ĠΠàϠǠ´ĠǠϠǠ³àɠϠǠ³ɠϠŠ͠±Šɠ͠ǠƠǠ͠·ŠǠɠ͠Ǡ±ŠϠŠ͠ǠǠŠɠΠà͠íĠΠɠ̠ϠǠӠ±àϠǠ´ ɠΠϠϠǠöǠɠϠǠ͠Ǡ¶¹àɠ̠͠Ǡ´ƭŠɠΠϠ͠ó ɠ͠Šɠ͠Ǡɠ­àΠɠΠ͠ϠǠӠ·Š̠ϠǠӠ­ĠΠɠϠǠӠĠǠɠϠӠ´ĭŠɠΠϠ͠ǠôĠϠɠɠ͠Ǡ Ǡɠ͠õɠ͠ǠàɠϠӠĴɠϠŠϠǠӠíĠΠɠɠϠŠϠøǠɠϠŠϠ͠ǠɠƠנɠ͠ǠɠíŠɠ͠ǠɠƠҶŠϠɠ͠ǠƠϠ͠ǠŠΠɠ͠ǠɠشϠɠ͠ҠǠĭƠΠǠ͠Ǡ÷ŵɠ͠ǠƭĠΠɠ͠Ǡ­ɠΠ͠Ǡɠ­Šɠ͠Ǡɠ                                        ؠРӠŠӍō̠΍ӠԠčĿ Ϡɠ͠Ǡ±͠ǠƠɠΠ͠ǠɠöǠ͠àϠɠ͠ɠĴíӠɠΠϠŠ͠Ǡò ɠϠŠ͠Ǡ÷Ǡɠ͠ǠõӠϠɠà͠öµӠǠɠ͠Ǡɠ´ĭנɠ͠ɠðɠӠ͠ǠµΠϠɠ͠Ǡɠùɠ̠͠Ǡ³Ǡ͠Ǡöɠ͠ıӠϠɠϠŠ͠÷ƠɠΠ͠ǠɠظǠɠ͠ҠǠشĠɠ͠ҠǠ° ɠŠ͠ɠ¸ɠ͠¸ΠϠɠ͠ǠصϠɠ͠Ҡ͠Ǡ Ϡɠ͠ǠķӠɠ͠Ǡõɠ̠͠Ǡɠ´Ӡɠ͠ǠòàϠɠϠ͠͠ǠŠɠΠà͠ɠùӠɠ͠Ǡɠ²  ɠϠ͠Ǡɠ¹Ǡɠ͠ñɠϠɠà͠Ǡôɠ͠ǠùϠɠ͠Ǡ¶Ĺ͠àɠ͠ǠɠŴϠɠ Πɠ͠Ǡɠ¸Ǡɠ͠ǠŸɠ͠ǠŷɠŠ͠سϠɠ͠ҠǠó ̹̠͠Ǡ¹ Ӡɠ͠ǠɠعǠɠ͠Ҡ¶ɠ͠ôķǠɠ͠Ǡ¹µɠ͠ǠµΠɠ͠Ǡ­ ɠϠ͠ǠɠĵӠɠ͠Ǡɠ÷Ϡɠ͠ǠÍ°ɠӠ͠óΠϠɠ͠Ǡ ɠà͠ǠɠõӠϠɠϠ͠ǠŹǠɠ͠Ǡɠöɠ͠Ǡô ɠ͠ǠŲíǠ͠Ǡ Ǡɠ͠Ǡ´ɠ͠Ǡɠ͠ǠɠôӠϠɠà͠ǠŶϠɠ͠ǠĵǠɠ͠Ǡ·ɠŠ͠öӠɠ͠Ǡ͠ǠΠɠŠ͠ǠɠصϠɠ͠ҠǠòíɠϠŠ͠öӠϠɠ͠ǠµΠɠɠ͠ĭ ͠ǠɠĸӠǠɠ͠ǠôƭӠɠΠϠ͠Ǡɠųɠ͠Ǡö±í ɠ̠ɠ͠ǠƠɠ͠ɠøϠɠ͠ǠõϠɠ͠ɠƭ Ϡ͠Ǡ¶Ϡɠ͠Ǡ¶Ǡɠ͠ǠŶàϠɠ͠öɠ͠Πɠ͠Ǡɠz#  ϭ  ɮР Ҡ ĠĠ Ů" Ԯ  Ԯ! ½ĠW  ɠP  ĮР ԠĠҠà=ԠΠ,Ҡ٠ Ӡ  Ϡ Ҡ=ĠР Š ԱӠҠ,$F1$:Z01210 18300 LK100:ZL:A$(L)6 g :" ------------ CENTRAL MENU ----------- "= 3:"FILENAME: ";F$;:24:"(L="K1"; R="K")"::" 1. READ THE DISK FILE.":" 2. INPUT/EDIT FILE IN MEMORY.":" 3. SORT THE FILE IN MEMORY.":" 4. PRI*O L$(20),L(20),B(20),E(20):TY(20):M$(20):A9(X):ER0:F0$"SHIPS":9700L::" ------------ CENTRAL MENU ----------- ":D$(4):I1127:BL$BL$" ":C$C$".":BZ$BZ$"0"::3:"FILENAME? > ";F0$:3:"FILENAME? > ";F1$:F1$""F$F0$:1170 F                CARRY MESSAGES THROUGH IT.")2185A SECTOR; OR TO SUCCESSFULLY SURVEY IT; OR TO CARRY MESSAGES THROUGH IT."2185BIT- ABLY TRAVEL THROUGH A SECTOR; OR TO SUCCESSFULLY SURVEY IT; OR TO CARRY MESSAGES THROUGH IT.":185DE IN THE WAY OF PROFITS." /" TRADER PRESENTS A CHALLENGE TO PROFIT- ABLY TRAVEL THROUGH A SECTOR; OR TO SUCCESSFULLY SURVEY IT; OR TO ARE AVAILABLE.":" COMPLETE TRAVELLER SECTORS ARE ALSO PROVIDED, AS IS A RANDOM SECTOR GENERATOR.":" TRADER SHOWS WHAT WORLDS CAN BE REACHEDAND WHAT THEY WILL PROBABLY PROVIDE IN THE WAY OF PROFITS."n." TRADER PRESENTS A CHALLENGE TO PROFP.":185*.:"INTRODUCTION 0--------------------------------------":" TRADER ALLOWS ALL THE ROUTINE WORK OF INTERSTELLAR EXPLORATION, TRAVEL, TRADE AND COMMERCE TO BE HANDLED BY COMPUTER."." TWENTY-FOUR SHIP TYPESTRADE ROUTE."*#" EDITOR ALLOWS EDITING OF SECTORS AND SHIP FILES. FILES TO BE EDITED MUST HAVEAN ASSOCIATED PARAMETER FILE (ENDING IN @).":" ALWAYS RUN PREPROCESSOR AFTER GENERA- TING A SECTOR OR SETTING TRADEWORLDS. IT CREATES THE FILE SECTOR.MALIARY PROGRAMS:"::" * SECTOR GEN":" * EDITOR":" * SET TRADEWRLDS":" * PREPROCESSOR.": )#" SECTOR GEN ALLOWS A NEW SECTOR TO BE RANDOMLY GENERATED; YOU SUPPLY THE SECTOR NAME.":" SET TRADEWRLDS ALLOWS YOU TO ESTABLISHWORLDS AS POINTS ON A REDIT).":" REFUELLING AT AN OCEAN TAKES 1 DAY; AT A GAS GIANT TAKES 2 DAYS."C" SHIP PAYMENTS ARE AUTOMATICALLY DEDUCTED.":185[(#:"AUXILIARY PROGRAMS 9--------------------------------------":" THERE ARE THREE AUXI TRAVELLER RULES. UNREFINED FUEL CAN CAUSE MISJUMPS IN MERCHANT SHIPS (TYPE I TO IGNORE MISJUMP RESULTS)."PB" SHIPS CANNOT BUY GOODS FOR SPECU- LATION IF CREDIT BALANCE IS LESS THAN ZERO (BUT FUEL AND OTHER COSTS CAN BE HANDLED ON C" BOTH TYPES CAN CARRY PASSENGERS AND ENGAGE IN TRADE.":185@:"GENERAL INFORMATION 8--------------------------------------":" TRADE USES THE MERCHANT PRINCE TRADE AND COMMERCE SYSTEM."uA" SHIPS USE FUEL UNDER THE BASIC M SYSTEM IS USED AS CREATED WITH SECTOR GEN.":185X:"TRADERS AND TRANSPORTS 7--------------------------------------":" TRADERS MAY TRAVEL ANYWHERE; TRANSPORTS MAY ONLY VISIT WORLDS ON THE MAIN TRADE ROUTES-- TRADEWORLDS."?Y------"q" SURVEY SHIPS EXPLORE UNSURVEYED SYSTEMS. WITHIN EACH SECTOR, SYSTEMS IN THE SECTOR FILE ARE MARKED AS SURVEYED OR NOT. SURVEY SHIPS MUST VISITSUCH WORLDS TO SURVEY THEM."2r" SURVEY IS ESPECIALLY ENTERTAINING WHENA RANDOSITS THE DESTINATION SYSTEM."" XBOATS DO NOT CARRY SPECIFIC MESSAGES;THEY CARRY WHATEVER MAIL IS AVAILABLE. XBOATS ARE RESTRICTED TO THE MAJOR TRADEROUTES.":185p:"SURVEY DUTY 6--------------------------------XBOATS 5--------------------------------------""" COURIER SHIPS ARE ASSIGNED A MESSAGE (A HEX DESTINATION) WHENEVER THEY VISIT A NAVAL BASE AND DO NOT HAVE A MESSAGE ON BOARD. THE MESSAGE IS AUTOMATICALLY DELIVERED WHEN THE SHIP VI110);K1100);K11000);K1;") >";:" ";A$:(A$)K1(A$)0M(A$)ZMK14080" HIGHEST ITEM? (";M110);M1100);M11000);M1;"-";K10);K100);K1000);K;") >";:" ";A$:(A$)K(A$)MP(A$)ZFF1:1830:FF0::" FIELD SORI1N:A$(A)A$(A)M$(I)" "::AA1:3040/ 5 :3:" ------------ FILE SORTER ------------ "::M1:PK:K21:K24120"SPECIAL SORT PARAMETERS? (N/Y) > ";A$:1960:A$"Y"4120I:" LOWEST ITEM? (";M10);M100);M1000);M;"-";K,L(I)):N10N1N1IN1:3310` IN$""ĢI4:13:(A$,B(I),L(I)):M$(I)(A$,B(I),L(I)):3410|* (IN$,1)"/"IN:34904 TY(I)1IN$(BZ$,20)IN$:IN$(IN$,L(I)):I4:13:IN$:M$(I)IN$:3410> M$(I)IN$BL$:M$(I)(M$(I),L(I)))R :A$(A)"": 23:20:"NEXT: ";(A$(A1),B)] A$A$(A):I1N:4I:L$(I);": ";(A$,B(I),L(I))::I1N 12:I4:">";:1500:(IN$,1)"#"A((IN$,2)):3070 (IN$,1)"*"A$(A)A$(K):A$(K)"":KK1:3040 (IN$,1)";"N1((IN$,2)):I6:13:(A$,B(I));A;".":::A$(A)""A$(A)(C$,K1)2X A13220Sb A$(A1)""A$(A1)(C$,K1)cl :A13220 B12:(A$(A1))BB(A$(A1)) 23:1:"PREV: ";(A$(A1),B) AK3260 A$(A1)""A$(A1)(C$,K1) B12:(A$(A1))BB(A$(A1))! A1:A$(1)""A$(1)(C$,K1)> A$(K)""A$(K)(C$,K1)D _ K1ĺ"NO FILE.":3490q A1AK3010 A(A):A(0.9K)ĺ""; 16:"FOR ANY R=RECORD NO., #R GOES TO THAT RECORD. / QUITS." AKĞ$& 2:"RECORD NO. ";A100);A10>D$;"READ "F$",R"I:2170>R1510:IN$""IN$(BL$,K1)LfERR2190V2200nzERR(222):ERR5Ħ"ERROR ";ERR:KI1:2220A$(I)IN$:II1:2100D$;"CLOSE "F$:216,0: :3:" -------------- EDIT FILE ------------ ":LE ----------------"::" READ FROM DISK. NEW DATA IS READ FROM THE DISK UNDER FILENAME: ";F$:" THE DATA CURRENTLY IN MEMORY IS LOST."::" READ FROM DISK? (N/Y) > ";A$:1960:A$"Y"ı"READ "F$" FROM DISK":D$;"OPEN "F$",L"K11:I14IK2220)0:(L$(I),1)"="TY(I)16A$" ":TY(I)1A$"N"" ";B(I)100);B(I)10);B(I);" ";E(I)100);E(I)10);E(I);" ";A$::FF11955"RETURN TO MENU? > ";A$:A$A$" ":A$(A$,1):A$"/"ġ::"----------- READ FID$;"READ "F$"@":N:K:K1:I1N:L$(I):L(I)::D$;"CLOSE "F$"@":5:1:998:B(1)1':"NO FIELD LENGTH BEGIN END TYPE":I1N:I6:I10);I;". ";qL$(I);" ";L(I)100);L(I)10);L(I);" ";:I1B(I)E(I1)2{E(I)B(I)L(I)1:TY(I"="TY(N)1:A$"N"sN:24:B(N)10);B(N)100);B(N);" ";E(N)10);E(N)100);E(N);" ";A$:K1(LN)101765N181620D$;"OPEN "F$"@":D$;"WRITE "F$"@":N:K:K1:I1N:L$(I):L(I)::D$;"CLOSE "F$"@":!T&D$;"OPEN "F$"@":N:35:K1(LN)1:N:16:">";L$:L$""L$(L(N))A(L$):A1(AK1(LN))AK1(LN)1:9:30:A10);A100);A;" ";:1680L(N)(L$):N:17:L(N)10);L(N)100);L(N);:LLL(N):N1B(N)E(N1)2E(N)B(N)L(N)1:A$" ":TY(N)0:(L$(N),1)$(N)" " rL$""1675D wA$"":(L$,1)"="L$(L$,2):A$"="a |(L$,1)"/"NN1:1770 L$(N)L$" ":L$(N)(L$(N),10):A$"="L$(N)(L$(N),9)A$ L(N)0L(N)K1(LN)12N:4:">";L$(N);:N:17:L(N)10);L(N)100);L(N);:(IN$" ",1): @| A:1:1:"------------- FIELD INPUT -------------":7:"/ ENDS INPUT. (R=";K;"; L=";K1;")":N0:L0 TNN1 YN:1:N10);N;:N:4:">";L$:(L$)01625 hA$"":L$""L$(N)""N10A$" " mL$""L$(N)""L$"FIELD "A:A$"Q"9900' #(A$)9(A$)11210e ((A$)2000,3000,4000,5000,6000,7000,8000,9000,9200:1210o 21210u  ERR0:ERRČ54572 B512751:(B)0Ă IN$"":(131)256(132)1,0:(131)256(132)2,2:(131)256(132),B512 ,IN$NT THE FILE TO SCREEN/PRINTER.":" 5. SAVE THE FILE TO DISK." " 6. ":" 7. CHANGE FILENAME OR PARAMETERS.":" 8. ":" 9. SEARCH FOR A PATTERN.":" Q. QUIT" 19:1 "WHICH NUMBER? (1-9) > ";A$:(A$" ",1)"/"9900 1960LE? > ";F1$:F1$""6120*)F1$F$6120H)F2$F1$:F$F1$:1770:FL1)D$(4):D$;"OPEN "F$", L"K11:AK0K:D$;"WRITE "F$", R"A:(A$(A))K1A$(A)(A$(A),K1))(A$(A),1)(13)A$(A)A$(A)(13)*$A$(A)::D$;"WRITE ";F$;", R0":K:D$;"CLOATA TO AN NEW (DIFFERENT) FILENAME AS A BACKUP. THE NEW FILENAME CANNOT BE AN EXISTING FILE AS THE CURRENT CONTENTS OF THE FILE ARE LOST.":::" SAVE TO DISK? (N/Y/S) > ";A$::1960:K01:A$"S"6080(A$"Y"6120(6220)FL0:"WHAT FI%"'<'?"'B::PRNTR5966,'K19502'N'p:3:" ------------ SAVE TO DISK ----------- "::" SAVE TO DISK. CURRENT DATA IS SAVED TOTHE DISK UNDER FILENAME: ";F$:" PREVIOUS DATA UNDER THAT NAME IS DESTROYED."(" S ALLOWS SAVING D):BSM(I)2K:C(AB):D(CK):AD:6230:36,39(A$):A$;:PRNTR1A(MX(I)MN(I))1:6230:36,48(A$):A$;&3PRNTR1AMN(I):6230:36,57(A$):A$;&6PRNTR1AMN(I):6230:36,66(A$):A$;'9PRNTR1AD(SM(I)K)100:6230:36,74(A$):A$;"LUMN SUMS: ":"NO FIELD = SUM.... AVG.... STD DEV.";:PRNTR1ĺ" RANGE... MIN..... MAX..... CRV....."x%PRNTR0ĺ%I1N:(L$(I),1)"="5951n&!I10);I;". ";L$(I);" ";:ASM(I):6230:36,22(A$):A$;:ASM(I)K:6230:36,30(A$):A$;:ASS(I---------------------------+":3$0XX1:XK5650:$50@$^$Q1N:TY(Q)0A0:5820$A((A$(I),B(Q),L(Q))):(A$(I))B(Q)SM(Q)SM(Q)0:5880$SM(Q)SM(Q)A:SS(Q)SS(Q)(A2):AMX(Q)MX(Q)A$AMN(Q)MN(Q)A$:$ i%:"CO:0:" READY? > ";A$:1960:A$"Y"5605.#9#1:X1$"+--(";(FI$,10);"-------------------------------+":"! ";(A$(X),B(1),L(1));" ";(A$(X),B(2),L(2));" !":"! ";(A$(X),B(3),L(3));" !":"! ";(A$(X),B(4),L(4));" !":"+-----------------5):"+--------------------------------------------+":"! !":"! !":"! !"(#"+--------------------------------------------+"1A1:A2BA5A5A:A2K5485a!OA210);A2100);A2;" ";:A3((132(A16))A1):A3K15A3K15p!^A2K5485!c(A$(A2),A3);:A3((A$(A2),A3)));" ";!m::LLLL1:LL60ĺ(140);:LL1!p:(140);:I1K:5800::5900:0::!"1:(1 :" ";:K45ĺ(140);4 5900:(140);:0::  1:(15);:(9);"132N";:"LIST OF CONTENTS OF STANDARD FILE: ";F$;" (L="K"; R="K1")."::LL1:A1(130(K16)):5435 6A1K60:(A1)A1A1(A1)1!;A1((KA1)1):A5((KA1)1):B::I1K:5800:I100);I10);I;". ";:(A$(I),L1):K1132ĺ(A$(I),L11):I30(I30)ĺ(140);:5360I60(I60)5360(140);:" ";:V1N:L(V)10ĺL$(V);:L(V)9);" ";L(V)10ĺL$(V);" ";L(V)10ĺ(L$(V),L(V));" "; :;d"LIST OF CONTENTS OF STANDARD FILE: ";F$;" (L= "K1"; R="K").";:L0:L10::I1N:LLL(I)1:L131L1132N1I1:IN:5250}L1L:" ";:I1N:L(I)10ĺL$(I);:L(I)9);L(I)10ĺL$(I);" ";L(I)10ĺ(L$(I),L(I));" ";h4PRNTR0:5100A15200+A254009A35600I1K:I100);I10);I;". ";A$(I):5800:::"RETURN TO MENU? (Y/N/S) > ";A$:1960:A$"S"İ5900A$"N"51001210PU1:K180ĺ(18);(9);"80N";_K179ĺ(15);(9);"132N":3:" ----------- PRINT OUT FILE ---------- "::PRNTR0::"OPTIONS AVAILABLE: "::" 1. SINGLE COLUMN PRINT-OUT.":" 2. MULTI- COLUMN PRINT-OUT.":" 3. LABELS.":" 4. SCREEN LIST."::"WHICH OPTION? > ";A$:1960:A(A$):A1A4A4PRNTR1:A((LOW$,K2))LOW$A$(B):YB:4210-Y42103^^h(A$(B),K2)(LOW$,K2)LOW$A$(B):YBr:A10);A100);A;". ";LOW$:LOW$A$(A)4240A$(Y)A$(A):A$(A)LOW$:K24270A10);A100);A;". ";A$(A):"SORT FINISHED. ";A$:SO0:T POSITION? ( 1-";K110);K1100);K11000);K1;") >";:" ";A$:(A$)1(A$)K1K2(A$) " ALPHA OR NUMERIC SORT? (A/N) > ";A$:1960:SO0:A$"N"SO1AMP1:A$(A)""A$(A)" ",LOW$A$(A):Y0:BA1P:SO04190#T((A$(B),K2))608 A$(Z)(A$(Z)" ",50):A$(Z):207 ,:"SAVE UNDER WHAT FILENAME? > ";FI$:(4);"OPEN ";FI$;",L50":R0:X132:Y140:PO(X,Y)0360 W16:(4);"WRITE ";FI$;",R";R:(A$(PO(X,Y)),44):RR1hY:X:(4);"WRITE ";FI$;",R0":R,5,1)"0"A$(Z)(A$(Z),39)(A$(Z),33,1)" * ":260 (A$,5,1)" "A$(Z)(A$(Z),39)(A$,5,1)" * ":260 (A$,5,1)" "A$(Z)(A$(Z),39)" ":2ARACTER> TO MAKE IT THAT TYPE TO MARK IT A TRADEWORLD"_ 10:" XXYY?" "WHAT HEX NO.? > ";A$:A$"Q"300 A$(A$"00000",5):X((A$,2)):X1X32207 Y((A$,3,2)):Y1Y40207 ZPO(X,Y):Z0ĺ"":210T (A$(A$(X),2)):YA((A$(X),3,2)):XA0YA0ĂR A$(X)(A$(X)" ",50):PO(XA,YA)X:(A$(X),16)" "A$(A$,39)(A$,33,1)(A$,41)> X:(4);"CLOSE"::"INPUT WORLD HEX NUMBER FOLLOWED BY: TO INDICATE -NOT A TRADEWORLDS- ";FI$:(4);"MONICO":(4);"OPEN ";FI$;",L50":(4);"READ ";FI$;",R0":R:A$(R):X1R:18:(4);"READ ";FI$;",R";X:A$(X)+ HXA(F::"SET TRADEWORLDS ---------------------------------------"::" WORLDS MARKED AS TRADEWORLDS ARE THE HUBS THAT MAJOR TRADEROUTES TOUCH. XBOATS AND SHIPS LABELLED 'TRANSPORT' CAN ONLY CALL AT TRADEWORLDS.": G")17:L$(3)"TITLE ":L(3)40:L$(4)"KEYWORDS ":L(4)40:1770:8000:1180R2*&2&:" ------------ END PROGRAM ------------- "::"TO WARM START WITHOUT LOSING DATA"::10:"]GOTO 1200":9::A#";(222);" AT LINE ";(218)(219)256:1&"FILE: ";F$;" IS BEING CREATED.":"CHECK ITS PARAMETERS AND CONTINUE.":"YOU MUST DEFINE THE FILE FIRST."::(4);"OPEN ";F$:(4);"CLOSE"L2 &N4:K1128:K400:L$(1)"AUTHOR ":L(1)20:L$(2)"DATA ":L(2%(140);:" ";G0b%:" ";:::FR0ĺ"NO RECORDS FOUND WITH ";B$o0%FR0ĺFR;" RECORDS FOUND WITH ";B$0%::SU$"Y"96600%59000%0:"RETURN TO MENU? (Y/N) > ";A$:1960:A$"N"92000%0%0%ER0(222)5ER1:9730)1%"ERROR ";::FR0:I1K:N2(A$(I)):FL0FRFR1d/$FL0:N41N2N3:(A$(I),N4,N3)B$FL1:N4N2N3u/$:FL09570/%5800:I1I11:I100);I10);I;". ";:(A$(I),L1):K1132ĺ(A$(I),L11):I130(I130)ĺ(140);:9570/D%I160(I160)95700N"Y"SU$"Y"C.,$"HARDCOPY? (N/Y) > ";A$:1960:A$"Y"9310f.6$:1:K180ĺ(18);(9);"80N";.T$K179ĺ(15);(9);"132N";.^$:"STANDARD FILE: ";F$:"ENTRIES WITH: ";B$:L0:L10::I1N:LLL(I)1:L131L1132IN:9370.$L1L./$:" 1:1770:FF0- U-#:" ------------ CATALOG ----------------"::(4);"/":1950-#:"------------ WORD SEARCH -------------":FR0:FL0::"SEARCH FOR WHAT WORD? > ";B$:B$""9200-$B$"/"ı .$N3(B$):"COLUMNS SUMMED? (N/Y) > ";A$:1960:A$;F$m,4:" ";K100);K10);K:4:"CHANGE NO. OF RECORDS? > ";F1$:F1$""8120,A(F1$):AZ8080,KA,4:"CHANGE NO. OF RECORDS? > ";K100);K10);K:5:" ";K1100);K110);K1 -FF0A$".00""+A100A$"-"A$(++@::"---------- CHANGE PARAMETERS ---------":FF1:1830:3:" ";F$:3:"CHANGE FILENAME? > ";F1$:F1$""8070+rF1$"/"8200+|F$F1$,3:"CHANGE FILENAME? > "SE "F$:FL1FL0:F$F2$*L$*Vx*`A(A100.05)100:AA100:((A10)(A0))((A10)(A0))A$"0"((A)):6270*tA$((A))*~A1$(A$,2):A0A100B$"-."A1$*A100A0A$"."A1$*(A)100A2$(A$,(A$)2):A$A2$"."A1$ +A65);" ";(A$,69,16):(4);"READ SHIPS, R";X2:A$:(X2)4:20:(X66);" ";(A$,69,16)::(4);"CLOSE"%N:"SELECT YOUR SHIP? > ";A$:A$(A$"A",1):TY(A$)64:TY1TY2620150%N1500:A$"/"20000&N:"SHIP CHARACTERISTICS":BL$:"SHIP NAME? >:::(4);"CLOSE":(4);"OPEN DATAFILE":(4);"READ DATAFILE":HE$:X09:SE$(X)::X115:AV(X)::(4);"CLOSE"y$ Nh%*N:3000:FI$;" ";TI$;" ";NA$;:30:" ";DA$:"1";BL$:(4);"OPEN SHIPS, L100":X0252:(4);"READ SHIPS, R";X1:A$:(X2)4:(X107:DA$"001-1107":A(N)((5)6)1:B(N)A(N)A(N):C(N)B(N)A(N):D(N)C(N)A(N):BL$"------------------------------------"s$'::FI$;" ";TI$;" ";NA$;:30:" ";DA$:"0";BL$:(4);"OPEN OD JUMP":(4);"READ OD JUMP":X113:Y113:OD(X,Y)$;".MAP,R0":R:HX$(R),AV(15),PO(32,40),OD(13,13),FL(169),J(169),A$(169):Z1R:15:(4);"READ ";FI$;".MAP,R";Z:A$:X((A$,2)):Y((A$,3,2)):PO(X,Y)Z"0'(A$,5,1)"T"PO(X,Y)PO(X,Y)(1)#2'HX$(Z)(A$,4)::(4);"CLOSE":(4);"NOMONICO":DA1:YR11DM6).!%CGCG5(K2DM7V4):CGCG(K3DM)=!&%CG0CG0C!0%P!'SP255:!':FI$"SPINWARD":4:"USE SECTOR: > ";FI$:4:"USE SECTOR: > ";F$:F$""FI$F$"':"READING SECTOR...":(4);"MONICO":(4);"OPEN ";FI$;".MAP,L7":(4);"READ ";FICGCG5(K2DM3V4):CGCG(K3DM3):9510> $CG10(K1DM3)m $CGCG5(K2DM4V4):CGCG(K3DM3):9510 $CG10(K1DM4) $CGCG5(K2DM5V4):CGCG(K3DM2):9510 $CG10(K1DM5) $CGCG5(K2DM6V4):CGCG(K3DM2):9510!%CG10(K@$CGCG5(K2DM4V4):95103J$CG10(K1DM2)RT$CGCG5(K2DM1V4):9510f^$CG10(K1DM1)h$CGCG5(K2DMV4):9510r$CG10(K1DM)|$CGCG5(K2DM1V4):9510$CG10(K1DM1)$CGCG5(K2DM2V4):9510$CG10(K1DM2)* $#PL0PL0c#DM(T1T2)(4(P25))(1(P27)):CG0:K1A(5):K2A(6):K3A(7):TZ2CG0:9510$TZ1ĴP19280,9300,9320,9340,9360,9380,9410,9430,9460,9490"$P19270,9290,9310,9330,9350,9370,9400,9420,9450,9480,$CG0:95106$CG10(K1DM4)DMA(7):PLB(6)B(8)DM:9160a#PHC(6)DMA(6):PMC(6)DM:PLB(6)B(8)A(5)DM:9160#PHC(6)DM:PMB(6)B(5)DM:PLB(6)B(8)B(5)DM:9160#PHPHV1:PMPMV2:PLPLV3:PH0PH0#OP8OP7PH0:PM0:PL0:CG0#PM0PM0 (6):PMB(6)DMA(7):PLC(6)DMA(5):9160m#PHB(6)DMA(6):PMC(6)DMB(7):PLC(6)DMA(5):9160#PHC(6)DMB(6):PMC(6)DMB(7):PLC(6)DM:9160#PHC(6)DMB(6):PMC(6)DMA(7):PLC(6)DM:9160!#PHC(6)DMA(6):PMC(6)Z6):PH0:PM0:PL0:CG0:P19060,9070,9080,9090,9100,9110,9120,9130,9140,9150YZ#9160d#PMA(6)DM2:PLB(6)DM6:9160n#PHA(6)DMA(6):PMA(6)DM:PLB(6)DM:9160x#PHB(6)DMB(6):PMB(6)DMA(7):PLB(6)DM:9160-#PHB(6)DMAZ,2)CCCC1000!!!!V!:TR((B$,3,1)):TR0(B$,3,1)"0"TR0:8640!TR((B$,3,1))55:TR19TRTR1:TR24TRTR1!TT(TRTL).1:TT1CC0:8670!CCCC(CCTT)!CC0CC0!O(#DM(T1T2)(3(P25))(3(P27))(T,Y,2)"PO"CCCC1000/ !(B$,X,2)"RI"8520i*!Z1112:(A$,Y,2)("AGDEHIINNARI",Z,2)CCCC1000o>!H!(B$,X,2)"VA"8560R!Z152:(A$,Y,2)("ASINVA",Z,2)CCCC1000f!p!(B$,X,2)"WA"8600z!Z152:(A$,Y,2)("INRIWA",4004 Z132:(A$,Y,2)("INRI",Z,2)CCCC1000: T (B$,X,2)"NA"8440 Z172:(A$,Y,2)("AGASDEVA",Z,2)CCCC1000  (B$,X,2)"NI"8470!(A$,Y,2)"IN"CCCC1000 !(A$,Y,2)"NI"CCCC1000!(B$,X,2)"PO"(A$1000 D $N (B$,X,2)"HI"8310WX Z132:(A$,Y,2)("HILORI",Z,2)CCCC1000]l v (B$,X,2)"IC"(A$,Y,2)"IN"CCCC1000 (B$,X,2)"IN"8360 Z1212:(A$,Y,2)("AGASFLHILONIPORI",Z,2)CCCC1000  (B$,X,2)"LO"81:(4);"CLOSE":;BC;" FOR ";(BCCC)f5y20:"ADVANCE DELIVERY? > ";A$:1000:A$"Y"CRCR(.2(BCCC)):DADA3:31230l5y5yPM0PH0PL0CG0BC0Ą"LEAVE IMMEDIATELY? > ";A$:1000:A$"Y"DADA1:312305yDADA55y^6zADE:XF((A1$,2)):YF((A1$,3,2)):FS? > ";A$:1000:A$"Y"31220L4JyA$"Y"Ģ21:868:"HOW MANY TONS? > ";A$a4TyA$""A$"9999"4^yBC(A$):BC1BC0:311904hyBACHCG:A1$A$(0):7000:BB(CRCC):(BCBA)BCBA4yBCBBBCBB5yB$A$:CG$B$:CW$A$(0):CRCR(BCCC):21:20:" "(SH$,89,1)"S"CRCR(PF2):3098003xCRCRPFo3y"FARES= ";PF;:(SH$,89,1)"S"ĺ" LESS 50% FOR SUBSIDY.";u3y3y23:"HI: ";PH;" MID: ";PM;" LOW: ";PL;" CARGO: ";CG;" TONS.":B0312003,yCRCC3120036yCGBCH312004@y21:868:"BUY GOODHCGCHBz2x21:"BOARD PASSENGERS & FREIGHT? > ";A$:1000:A$"W"Ą"WAIT HOW MANY DAYS? > ";A$:1000:DADA(A$):309402xA$"N"PH0:PM0:PL0:CG0:310002xA$"P"CG02xA$"F"PH0:PM0:PL0#3xPF(PH10000)(PM8000)(PL1000)(CG1000):901 ";A$:1000:A$"Y"307600xI11:II1:303001(x21:"WHAT DESTINATION? > ";A$:A$"A"302 ":30670n/twG$(" "((CC)),6):19:G$;:G$(" "((CCCA)),6):25:G$;" ";:PHSRCWPHSRCW/wPMSR(CWPH)PMSR(CWPH)/wPLLPPLLP/wCGCHCGCH0wPF(PH10000)(PM8000)(PL1000)(CG1000):33:PF10);PF100);PF10000ĺ" UNSURVEYED.":30670l.BwE$;:SL$"U"((A1$,6,1)"C"(A1$,38,1)"G")ĺ"INACCESSIBLE.":30680.VwOP7(A1$,40,1)" "ĺ"NOT A TRADEWORLD.":30680.`wOP5MSG1HX$(FL(I))BB$ĺ"MESSAGE ADDRESSEE.":30670 /jwOP9OP5OP6ĺ" "(A1$,33,2)" ":4000:OP5MSG0((A1$,16,1)"N"(A1$,16,1)"A")MSG1:BB$HX$(((R)R)1)z-vOP9OP5OP630470-v7000:B0CC((CG$,23)):B$CG$-v8000:9000 .wA$(I)A$:CA((B$,23)):I113:I10);I;". ";:HX$(FL(I));" ";:OP6XPL(4):XPL0:(A1$,42,1)"*"(A1$,16,1)"S"(A1$,16,1)"W"(A1$,16,1)"A"(A1$,16,1)"B"XPL1,vE$(A1$,6,1):F$" ":((A1$,9,1))0(A1$,8,1)"1"F$"O",v((A1$,9,1))0(A1$,8,1)"2"F$"I"`-vE$E$F$(A1$,38,1)(A1$,36,1)(A1$,16,1)" 10);CG100);CG:11:"--------------DESTINATIONS-------------":6000+4v12:" # HEX SHGZB AL PRICE PROFIT FARES?":"--";BL$:FL0ĺ"YOUR SHIP CAN'T REACH ANY WORLDS.":+Hv(4);"OPEN ";FI$;",L50"+RvI1:I11a,\v(4);"READ ";FI$;",R";FL(I):A1$:ESSAGE TO: ";BB$4*uOP6ĺXR;" UNSURVEYED WORLDS."Z*u7000:B0ĺ"CARGO: ";CG$:30220y*u"CARGO HERE: ";CA$:B$CA$E+ v"FARES RCVD: ";(PH10000)(PM8000)(PL1000)(CG1000):"FARES- HI ";PH10);PH;" MD ";PM10);PM;" LO ";PL10);PL;" CG ";CG(A$,2)):YC((A$,3,2)):"SYSTEM: ";(A$,14);:A$(0)A$:30:(A$,33):"OVERHEAD: ";(OH);" (MAX= ";OV;"). ":"CR BALANCE: ";(CR);:UF0ĺ" UNREFINED FUEL.";)u:A1$A$(0):MSG1CG$HX$(A)ĺ"MESSAGE DELIVERED.":MSG0:BB$"":CG$""*uOP5MSG1ĺ"MM(O15:"DATE? (000-0000) > ";DA$:15:"DATE? (000-0000) > ";A$:A$""20390r(ODD((A$,3)):DD1DD36520381(OYR((A$,5)):3000:"DATE: ";DA$(O:"PROCESSING...":ASP)DuX(X)::3000:FI$;" ";TI$;" ";NA$;:30:" ";DA$:"2";BL$:2000:XC(TPOINT? (0000) > ";HX$(SP)K'VO13:"STARTPOINT? (0000) > ";A$:A$""20381'`OA$("0000"A$,4):X((A$,2)):Y((A$,2)):Y1Y40X1X3220310'OPO(X,Y)0SP(PO(X,Y))'OPO(X,Y)0ĺ"INVALID STARTPOINT.":20300'O"NEW STARTPOINT: ";HX$(SP) ";A$:A$""20200&NNA$A$&N"CREW SKILLS: ":" STEWARD- ";A$:1000:V1(A$):SASA(V1300):" ADMIN- ";A$:1000:V2(A$):" STREETWISE- ";A$:1000:V3(A$):" LIAISON- ";A$:1000:V4(A$):"CREDIT BALANCE? > ";CR$:CR(CR$)'LO13:"STAR1(4);"RENAME SECTOR,";FI$71(4);"OPEN ";FI$;"@"R1(4);"WRITE ";FI$;"@"Y1 9`1Rh1 49y1*"HEX "1441>"UPP "1H91R"BASES "1\11f"TRADE CLA"1p141z"ALLEG "121"TRAVEL ZO"11 2"0X SAVE TO DISK0bRR1;0l(4);"WRITE SECTOR, R";RC0vA$M0(4)U0A$g0DR$""ĺ""n0Yu0X0 SAVE FILE LENGTH0(4);"WRITE SECTOR, R0"0R0(4);"CLOSE"0 SAVE FILE PARAMETERS0"NAME THIS FILE? > ";FI$23:"CONTINUE? > ";Z$sCOH(LP100)((PHPMCW)2000)(SAL.5)100((.00124)1E6CST)(SAL24):CRCROH:30020S200:" ";DA$:"6";BL$:MNT0ĺ:"THE SHIP NEEDS ANNUAL MAINTENANCE."xBĭOP5((A$(0),26,1)"B"(A$(0),26,1)"W")50380BĭST350380Bī50400BĄ"PERFORM IT NOW? > ";A$:1000:A$"Y"DADA14:MNT0:"MAINTENANCE COST: ";((CST1E6).001)BIJCFIT.":50300:AhĭE100ĺ"SOLD AT ";100E;"% LOSS.":50300jArĭE100ĺ"SOLD AT ";E100;"% PROFIT.":50300A|ĺ"BROKER COMMISSION: ";BR5;"%.":"PROCEEDS: ";CC;" (";(CCB);" PER TON).":CRCRCC:B$"":B0:BC0AĭMNT150410BBĺFI$;" ";TI$;" ";NA$;:3AVAILABLE."6@ĭBR1ĺ"BROKER-1 TO ";BR;" AVAILABLE."{@Ą"USE A BROKER? > ";A$:1000:(A$,1)"Y"Ą"WHICH NUMBER? > ";A$@"ĭ(A$)0(A$)BR50190@,BR(A$) A6A$A$(0):B;" TONS AT CR";CB;" BASE COST.":5000:E(100CDCB):E100ĺ"SOLD AT NO PROL$:B$CG$:A1$A$(0):7000:8000:B;" TONS OF ";:B$:"BASE COST: ";(B$,19);:21:"BASE PRICE: ";CC:CB((B$,23)):"SELL GOODS? > ";A$:1000:A$"Y"50420?BR((A$(0),6,1))64:BR5BR:BR1ĺ"NO BROKERS AVAILABLE.":BR0:50230 @íBR1ĺ"BROKER-1 FU:UFUF12>䝭CF0ĺ"BOUGHT CR";CF;" OF FUEL."A>UF1UF0Y>:BBC:OP750000> (4);"OPEN ";FI$;", L50":(4);"WRITE ";FI$;", R";DE:(A$(0),41);"* ":(4);"CLOSE">Pò>QíB150350?Zâ11:3000:FI$;" ";TI$;" ";NA$;:30:" ";DA$:"4";B"C"ĺ"SURFACE REFUELLING FACILITIES ARE INACCESSIBLE. REFUELLING TAKES 14 DAYS.":DA14:3000:UFUF1:FYFU:40440="REFUEL WITH (R/U) > ";A$:A$(A$"R",1):A$"R"RF0A$"U"=НA$"R"CF(FUFY)500:FYFU:UFUF1 >ڝA$"U"CF(FUFY)100:FYUF1:404303 ";A$b<1000:A$"Y"DADA4:FYFU:UFUF1:40430t ";A$;X1000:A$"Y"DADA2:FYFU:UFUF1:40430;bHY1SL$"U"Ą"OCEAN REFUEL? > ";A$ ";Z$:DEA(Z$" ",1)"I"400007zDEA:A0Ā8@YFY((JFTN10)(10PN)):FY0(B$,5,5)"HI IN"FYFYB:B$" ":B06:zDADA9:ADE:2000:XC((A$,2)):YC((A$,3,2)):A$(0)A$:SE1SE2400006zZ1B(5)(UF0)(MNT0):Z11340000u7z"MISJUMP (";Z1;"): ";:X((6)32)1[*\::"TRAVELLER SECTOR GENERATOR ----------------------------(1 JAN 87)-"" THIS PROGRAM GENERATES WORLD UPP DATA FOR TRAVELLER. COPYRIGHT 1986 GDW." LHX$"0123456789ABCDEFGHJKLMNPQRSTUVWXYZ":SP$"AAAABBCCDEEX":BA$"ABCDEFGHJKLM               23:"CONTINUE? > ";Z$sCOH(LP100)((PHPMCW)2000)(SAL.5)100((.00124)1E6CST)(SAL24):CRCROH:30020S200:" ";DA$:"6";BL$:MNT0ĺ:"THE SHIP NEEDS ANNUAL MAINTENANCE."xBĭOP5((A$(0),26,1)"B"(A$(0),26,1)"W")50380BĭST350380Bī50400BĄ"PERFORM IT NOW? > ";A$:1000:A$"Y"DADA14:MNT0:"MAINTENANCE COST: ";((CST1E6).001)BIJCFIT.":50300:AhĭE100ĺ"SOLD AT ";100E;"% LOSS.":50300jArĭE100ĺ"SOLD AT ";E100;"% PROFIT.":50300A|ĺ"BROKER COMMISSION: ";BR5;"%.":"PROCEEDS: ";CC;" (";(CCB);" PER TON).":CRCRCC:B$"":B0:BC0AĭMNT150410BBĺFI$;" ";TI$;" ";NA$;:3AVAILABLE."6@ĭBR1ĺ"BROKER-1 TO ";BR;" AVAILABLE."{@Ą"USE A BROKER? > ";A$:1000:(A$,1)"Y"Ą"WHICH NUMBER? > ";A$@"ĭ(A$)0(A$)BR50190@,BR(A$) A6A$A$(0):B;" TONS AT CR";CB;" BASE COST.":5000:E(100CDCB):E100ĺ"SOLD AT NO PROL$:B$CG$:A1$A$(0):7000:8000:B;" TONS OF ";:B$:"BASE COST: ";(B$,19);:21:"BASE PRICE: ";CC:CB((B$,23)):"SELL GOODS? > ";A$:1000:A$"Y"50420?BR((A$(0),6,1))64:BR5BR:BR1ĺ"NO BROKERS AVAILABLE.":BR0:50230 @íBR1ĺ"BROKER-1 FU:UFUF12>䝭CF0ĺ"BOUGHT CR";CF;" OF FUEL."A>UF1UF0Y>:BBC:OP750000> (4);"OPEN ";FI$;", L50":(4);"WRITE ";FI$;", R";DE:(A$(0),41);"* ":(4);"CLOSE">Pò>QíB150350?Zâ11:3000:FI$;" ";TI$;" ";NA$;:30:" ";DA$:"4";B"C"ĺ"SURFACE REFUELLING FACILITIES ARE INACCESSIBLE. REFUELLING TAKES 14 DAYS.":DA14:3000:UFUF1:FYFU:40440="REFUEL WITH (R/U) > ";A$:A$(A$"R",1):A$"R"RF0A$"U"=НA$"R"CF(FUFY)500:FYFU:UFUF1 >ڝA$"U"CF(FUFY)100:FY͠ǠàΠɠǠ͠͠Ǡøɠ͠ǠøӠɠɠǠ͠ǠøðϠɠ͠Ǡø­Ӡ͠ĴϠɠϠɠ͠Ǡ¸Π͠Ǡ´̠͠Ǡ­àɠϠ͠ǠðӠ͠¹¹à̠Ӡɠ̠͠Ǡ¹ö̠͠ǠشӠĴɠǠ͠ҠǠ´ɠ̠͠ҠǠĸϠɠ͠Ǡ´ Ӡ̵ɠǠ͠ǠàϠɠ͠ǠĵӠɠ͠ǠΠϠɠ͠ǠöɠǠ͠ǠŵùijӠϠɠ̠͠Ǡàɠɠ͠ض­Ӡɠ͠ҠǠ·ӠɠɠǠ͠ǠGAS GIANT"21"2"TRADEWRLD")21:2"EXPLORED?"A21S2(4);"CLOSE"Y2d)"Z"3300 3400! ASLANM ((AL$,2,1))48((AL$,2,1))572720l GO20:PO4B(6)11GO16v 2730 WDA(4):RDA(3)(3(PO4))(2(PO9))(3(PO10)):RD0WD0 GO16WD:RD6GO17 AR((AL$,2,1)):GO20AR0(AL$,2,1)"  PP(B(3)2)DR:PP0PP0/ PP9PP9F DR$(DR$,1)(PP)f( FIND SPECIFIC ALLEGIANCE}2 (AL$,1)"A"2700< AL$"CH"2800F AL$"DR"2800P AL$"HV"2900Z AL$"KK"3000d AL$"SO"3100n (AL$,1)"V"3200 x (AL$,1DP0:PO8DP2' RRB(5):RLB(5)= DMDMDNDODPRRO DM(8)2600s (DM9)(RL11)DR5:DR$"DR" (DM0)(RL10)DR4:DR$"DR" (DM9)(RL9)DR2:DR$"DR" (DM15)(RL8)DR0:DR$"DR" DR$""2600 B(4)5DR$"CH:AM2DN2:AM3DN1:AM4DN0:AM5DN2:AM6DN1:AM7DN4:AM8DN3z~ AM10DN6:AM11DN7:AM12DN3 DO1:HY3DO0:HY0DO1 HY7DO0:HY9DO3 DP5:PO0DP4:PO1DP3:PO2DP2:PO3DP1:PO5DP1:PO7(3)7PO:GOGO(GO0)4 LAB(4)7GO:LALA(LA0)C PO12600_` FIND DROYNE PRESENCEj DM5:SI0DM0:SI1DM1:SI2DM2:SI3DM3:SI4DM2:SI5DM1:SI6DM0:SI7DM2:SI8DM4o AM9DN5Ot DN5:AM0DN4:AM1DN3(4):RNDE7070* GENERATE WORLD UPPGSTB(4):ST$(SP$,ST,1)iSIB(4)2:AL$"DR"SIA(6)AMB(2)7SI:AMAM(AM0):SI0AM0HYB(2)7SI:SI2HY0AM2AM9HYHY4HY0HY0HY10HY10POB(3)2 GOBLO$(B),3,2))Y)2):DRA(B)AL$AL$(B):D(.9RA(B))B(4)9AL$"NA":B(4)6AL$"CS":2080d B}4 WORLD OCCURRENCE>DEDE(1):A122150HBA121RD((((L1$(B),2))X)2(((L1$(B),3,2))Y)2):DRD(B)DEDE(B):2140\BfRN(L1$(B)"0000",4)E"RADIUS (PARSECS) IS: ";RD(B):RD(B)1RD(B)1LBRh PRODUCE SECTOR(4);"OPEN SECTOR, L50"X132Y140 FIND ALLEGIANCEDR$"":AL$AL$(1):DR0 BA21]D((((LO$(B),2))X)2((( ARE DECIMAL FRACTIONS.":o" THE FIRST DENSITY IS THE DEFAULT (AUTOMATIC) DENSITY FOR THE SECTOR.":{B1A1"DENSITY ";B;" IS: ";DE(B):DE(B)11480B1L1$(B)"1620":RD(B)22:1520"LOCATION (HEX) IS: ";L1$(B):L1$(B)ESZ :"DENSITIES --------------------------------------" " YOU MAY ASSIGN UP TO 10 DENSITIES (WITHA BASE LOCATION AND A RADIUS FOR EACH).": "HOW MANY DENSITIES IN AREA? > ";A1:A11A1101430" DENSITIESB1A "ALLEGIANCE ";B;H " IS: ";AL$(B):AL$(B)(AL$(B)"BB",2)n B1LO$(B)"1620":RA(B)22:1330 "LOCATION (HEX) IS: ";LO$(B):LO$(B)(LO$(B)"0000",4) ("RADIUS (PARSECS) IS: ";RA(B):RA(B)1RA(B)1 2B x DESIGNATE DENSITI" ALLEGIANCES ARE TWO-LETTER CODES. THE FOLLOWING USE SPECIAL PROCEDURES IN THIS PROGRAM:"::"A* CS CH DR HV IM KK NA SO V* Z*":" (*=WILDCARD)"  " THE FIRST ALLEGIANCE IS THE DEFAULT (AUTOMATIC) ALLEGIANCE FOR THE SECTOR.": ADIUS FOR EACH). THE SAME ALLEGIANCE MAY BE USED MORE THAN ONCE (TO ALLOW NON-CIRCULAR REGIONS).": "HOW MANY ALLEGIANCES IN AREA? > ";A:A1A101230 :"ALLEGIANCES ---------------------------------------" NPQRSTUVWXYZ":AL$"IM"@ tA(X)((4)6)1:B(X)A(X)A(X)^  DETERMINE ALLEGIANCES :"ALLEGIANCES --------------------------------------"i " YOU MAY ASSIGN UP TO 10 ALLEGIANCES (WITH A BASE LOCATION AND R[*\::"TRAVELLER SECTOR GENERATOR ----------------------------(1 JAN 87)-"" THIS PROGRAM GENERATES WORLD UPP DATA FOR TRAVELLER. COPYRIGHT 1986 GDW." LHX$"0123456789ABCDEFGHJKLMNPQRSTUVWXYZ":SP$"AAAABBCCDEEX":BA$"ABCDEFGHJKLM               B(5)6B11:B$"G":4650]& DM2:ST4DM1:ST6DM0:ST8DM1:ST9DM2:ST11DM3y&B(5)DM8B21:B$"C"& B11B21B$"H"&*6000&\ ZHODANI BASES&fDM2:ST4DM1:ST6DM0:ST94740&pB(6)DM8B11:B$"Z"'zST5"T"%XB21B$"R"*%bB11B21B$"U"A%lGO16B11B$"T"K%v6000^% KKREE BASES%B(5)6B11:B20:B$"K":4550%ST$"D"4550%DM0:ST9DM1:ST7DM2:ST5ST3%B(4)DM6B21:B$"O"%6000% VARGR BASES&5T1(5S1)6B11,$GO20S15T17B11M$GO22S15T1(5S1)9B11|$(GO17GO18GO21)S15T2(5S1)7B21$&GO19S15T2(5S1)6B21$0GO22S15T2(5S1)8B21$:GO18S15T27B21$DGO19S15T28B21%NB11B$"CS")B10B$"J";#h(AL$"IM"AL$"CS")B20B$"M"E#r6000X# ASLAN BASES#B10:B20:T1B(5):T2B(4):S1(ST$)64:B$" "#GO16S13T1(5ST)13B11#GO16S13T2(5S1)12B21#GO17S15T1(5S1)8B11$GO20S10" IMPERIAL BASES1"ST$"C"B(5)7B11C"ST$"D"4150{""DM3:ST4DM2:ST6DM1:ST8DM0:ST94150",(B(5)DM)6B21"6B11B20B$"N""@(B(4)DM)6B21"JB10B21B$"S""TB11B21B$"A"#^(AL$"IM"AL$ST$"C"ST$"D"ST$"E")B(5)10TZ4E!ST$"X"(AL$,1)"Z"TZ3[! GENERATE BASESp!B10:B20:B$" "!(AL$,1)"A"4300!AL$"DR"4900!AL$"HV"5000!AL$"KK"4500!AL$"SO"4800!(AL$,1)"V"4600"(AL$,1)"Z"470TL8TL8 BAM12TL9TL98 t GENERATE GAS GIANTP ~GG0:B(4)10GG1m  GENERATE TRAVEL ZONESv TZ0 AL$"IM"3845 DR$""TZ0ĭB(5)8TZ1 ST$"X"TZ2 TZ0B(4)10TZ1 (AL$,1)"Z"4000&! (AL$,1)"Z"({ (AL$,1)"Z"((AM3TL8)(AM3TL7)((AM4AM7AM9)TL6)((AM10AM11)TL9)(AM12TL10))PO0:GO0:LA0:TL0 3700 BASIC ALIEN TL LEVELLERAM3TL7TL7$AM3TL6TL6.(AM4AM7AM9)TL5TL5 8(AM10AM11)4p ST$"C"TLTL2,z ST$"X"TLTL4L SI5TLTL1:SI2TLTL1^ AM4TLTL1p AM9TLTL1 HY8TLTL1:HY9TLTL1 PO0PO6TLTL1 PO8TLTL2:PO9TLTL2 GO0GO5TLTL1 GO13TLTL2 TL0TL0 GO25DMDM1! TLA(4)9DM2 TL15TL15< 3600L SOLOMANIV& 3400c VARGR{ (B(5)PO)15GO7 3400 ZHODANI ST11POA(4)4 3400H FIND TECH LEVELR TLA(6)\ ST$"A"TLTL6f ST$"B"TLTL4)7)PO:GOGO(GO0):LA(B(4)7)GO:LALA(LA0):3040Z GO23:PO2GO24:PO5GO25d LA19 PO1PO0:ST10:ST$"E":GO0:LA0  DM3:ST4DM2:ST6DM0:ST8DM1:ST9DM2:ST11DM9 GO23DMDM3 GO24DMDM1(2(AM3))(1(AM3))(3(AM5AM6AM8))(1(AM10))(2(AM11AM13AM14AM15))(3(AM12)) DMDM(2(HY0))(1(HY2HY6))(2(HY3HY4HY5))(1(HY8))(2(HY9))(3(HY10))8 NK0:POA(4)DM:PO11PO12:NK1:POB(4)2:GO(B("C"DM1:ST$"D"DM22 (PO4GO6)DMDM3K (PO3PO7)DMDM2] PO7DMDM1o TLB(4)8DM TL15TL15 3700 KKREE GO23:PO2GO24:PO5GO25 DM(2(ST$"A"))(ST$"B")(1(ST$"E"))(6(ST$"X"))f DMDMH0:((AM0AM5)(AM9AM13))B(5)8PO0NH1Lc GOPOA(6):GO0GO0ah GO4GO5GO26vm GO6GO7GO27r GO8GO28w GO9GO29| GO3GO6 PO7NH1GO6 LAA(4):NH1LAB(5) DM3:ST$"A"DM2:ST$"B"DM0:ST$ AL$"DR"AA(4):GO31:A5GO7:A3GO6c LA(B(4)6)PO:TL(B(5)A(3))2:ST(B(4)7)TL LALA(LA0):TLTL(TL0):STST(ST0)" ST12ST12, ST$("XXXXEEDCCBBAAAA",ST1,1)6 3700T HIVERSY PO1GO0:LA0:TL0:37001^ N"0"AL$"A"(((5)10))' LAB(5). e DM3:ST4DM2:ST6DM0:ST8DM1:ST9DM2 PO3GO16DMDM3:2760 PO8DMDM1:PO7DMDM1 TLA(4)8DM:TL14TL14 3600 DROYNE AL$"DR"AL$"CH"POA(4)2, \d::"RELAY STATION PLACEMENT ---------------------------------------"* n" THIS PROGRAM EXAMINES AN EXISTING SECTOR FILE AND DETERMINES THE NEED FOR AND LOCATION OF ZHODANI RELAY STATIONS (WHICH MUST BE PLACED BETWEEN ZHODANI     4);"WRITE ";FI$;".MAP, R0"! >NR3 CN(4);"CLOSE"H GN(4);"NOMONICO" S2,1)"*"XRXR1 .'PO(X,Y)ZI 0'(A$,40,1)" "PO(X,Y)PO(X,Y)(1)\ 2'HX$(Z)(A$,4)} 3'PO(X,Y)0HX$(Z)HX$(Z)"T" 4'Z 6'(4);"CLOSE" N(4);"OPEN ";FI$;".MAP, L7" %NN1R *N(4);"WRITE ";FI$;".MAP, R";N /NHX$(N) 4NN 9N( "'RE #'HX$(R),AV(15),PO(32,40),OD(13,13),FL(169),J(169),A$(169)P %'Z1RX &'15u ''(4);"READ ";FI$;",R";Z ('A$:X((A$,2)):Y((A$,3,2)) *'(A$,42,1)"*"XRXR1 ,'((A$,16,1)"S"(A$,16,1)"W"(A$,16,1)"A"(A$,16,1)"B")(A$,4J'SP255: STARTPOINT'2'FI$"SPINWARD"I' TRADER SCREEN 0h'4:"USE SECTOR: > ";FI$'4:"USE SECTOR: > ";F$'F$""FI$F$':"READING SECTOR..."'(4);"MONICO"'(4);"OPEN ";FI$;",L50" '(4);"READ ";FI$;",R0"/A$A$B$" "!/PO0DR$""L/DR$""A$A$DR$" "(TC$,12):6650Z/A$A$TC$l/A$A$AL$" "/TZ1A$A$"A "/TZ2A$A$"R "/TZ3A$A$"F "/"TZ4A$A$"U "/,TZ0A$A$" "/6GG0A$A$" "/@GG1A$A$"G ".xX10A$"0".A$A$(X)3.Y10A$A$"0"F.A$A$(Y)" "U.HY0HY0d.AM0AM0.A$A$ST$(HX$,SI1,1)(HX$,AM1,1)(HX$,HY1,1).A$A$(HX$,PO1,1)(HX$,GO1,1)(HX$,LA1,1)"-".TL0TL0.A$A$(HX$,TL1,1)" "KK"(SI7SI8)(AM6AM8)(HY2HY6)TC$TC$"ST "m-$(AM3AM10)(HY3HY9)(PO4PO8)TC$TC$"AG "-.AM4HY4PO5TC$TC$"NA "-8PO0GO0LA0TC$TC$"BA "-BTC$(TC$" ",15)-d CREATE WORLD DATA STRING-nA$"")(AM6AM8)(PO5PO9)TC$TC$"RI ":6120e,(AM6AM8)(PO5PO9)(GO3GO10)TC$TC$"RI ",(AM1AM6)HY4TC$TC$"PO ",HY10TC$TC$"WA ",HY0AM1TC$TC$"DE ",SI0TC$TC$"AS ",AM0SI0TC$TC$"VA "5-AL$"Y0TC$TC$"FL "c+((AL$,1)"A"AL$"HV"AL$"KK")(AM6AM8)(PO5PO9)TC$TC$"RI ":6120+(AL$,1)"V"(AM6AM8)(PO5PO9)(GO7)TC$TC$"RI ":6120+AL$"DR"(AM6AM8)(PO5PO9)TC$TC$"RI ":6120-,(AL$,1)"Z"(TZ3TZ4AL$"HV"NH1TC$TC$"NH "_*AL$"HV"NH1PO7(AM3AM4AM10AM11AM12)TC$TC$"FA "w*PO8TC$TC$"HI "*PO4TC$TC$"LO "*(AM3AM4AM7AM9)PO8TC$TC$"IN "*(AM2HY0)TC$TC$"IC "*PO7TC$TC$"NI "+AM9HST$"D"(B02B011)B283)ST$"D"B012B29K)ST$"E"B012B28c)ST$"X"B012B28t) B16B$"E")B17B$"L")B28B$"M")(B29B$"F")26000)p TRADE CLASSIFICATIONS)zTC$"")AL$"KK"NK1TC$TC$"NK "*V6000( HIVER BASES1(B0B(5):B10:B20H(ST$"A"B06B16k(ST$"A"B07B17:B012B18((ST$"B"ST$"C")B03B28(ST$"B"(B010B011)B17(ST$"B"B012B29(ST$"C"(B010B011)B28(ST$"C"B012B29)B(4)10B12:B$"Y"' $'6000:' SOLOMANI BASESC'B20]'ST$"C"B(5)7B11n'B11B$"J"x'6000'$ DROYNE BASES'.ST$"D"4950'8B(5)(4((ST$)64))7B11:B$"P"'BGO6B12:B$"N"'L(B(5)7)TL6B21:B$"Q"(͠ˠӠȠҠɠР̠֠͠ՠǠƠ̠ РԠ̠͠ՠӠԠҠҠҠ͠ɠӠǠˠҠ͠ˠӠƠɠРŠԠ͠РŠՠΠŠԠ͠РƠӠӠŠҠҠ͠ƠՠĠàҠ͠РàՠĠàҠ͠РŠՠŠŠŠҠӠԠˠŠҠӠĠƠԠŠҠנàӠƠŠҠ͠Ӡ   (4);"CLOSE"5PO(((A$,2)),((A$,3,2)))5:4020;pBzYIX]XY140:X132xbPO(X,Y)0ĺ".";:7020gPO(X,Y);l:;" ";::F2060100(F3F4F5)06010M"RELAY STATION NEEDED."fR1F2(((90)F21))(4);"OPEN ";FI$;",L50"(4);"READ ";FI$;",R";R1A$A$(A$,15)"X"(A$" ",17,31)(4);"WRITE ";FI$;",R";R1A$ :HX$(F1(J));" ";::RF20ĺNA$(2);": ";F2;"; ";:J1F2:HX$(F2(J));" ";::F30ĺNA$(3);": ";F3;"; ";:J1F3:HX$(F3(J));" ";::F40ĺNA$(4);": ";F4;"; ";:J1F4:HX$(F4(J));" ";:: F50ĺNA$(5);": ";F5;"; ";:J1F5:HX$(F5(J))(M,N)3F3F31:F3(F3)PP(M,N)DPO(M,N)4F4F41:F4(F4)PP(M,N)jPO(M,N)5F5F51:F5(F5)PP(M,N)pTPO(M,N)0ĺ".";:4894PO(M,N);XMNYĺ"*";$M%&N.F10ĺNA$(1);": ";F1;"; ";:J1F10:OD0:(X2(X2))(M2(M2))EV1M (X2(X2))(M2(M2))EV1] EV1OD1 X1XM:Y1YN:Z1((X12)((.857)Y12)) OD1Z1Z1.5 Z144890 PO(M,N)1F1F11:F1(F1)PP(M,N) PO(M,N)2F2F21:F2(F2)PP(M,N)PO";NA$(PO(X,Y)) 1 F10:F20:F30:F40:F50P "WORLDS WITHIN JUMP-4: ";X :g NY5Y5v MX5X5 M1M324900 N1N404894 XMNYğ:PO(X,Y);::4894 XMNYZ1(YN):4080 YNXMZ1(XM):4080' EVHX$(A)(A$,4) Z1. (A$,33,1)"Z"Z2F (A$,16,1)"Z"Z3^ (A$,16,1)"Y"Z4v (A$,16,1)"X"Z5 PO(X,Y)Z:PP(X,Y)A A  X132 Y140 1 PO(X,Y)16000 "WORLD HEX ";("0"(X),2);("0"(Y),2);"  NA$(3)"NAVAL BASE"/ NA$(4)"DEPOT "G NA$(5)"RELAY "_ "FILENAME? > ";FI$| (4);"OPEN ";FI$;",L50" (4);"READ ";FI$;",R0" R HX$(R) A1R (4);"READ ";FI$;",R";A A$ X((A$,2)):Y((A$,3,2)) NAVAL BASES MORE THAN 4 HEXES DISTANT."t x" THIS PROGRAM ORIGINALLY APPEARED IN CHALLENGE MAGAZINE NO. 26."z PO(32,40),PP(32,40),OD(13,13) F2(169),F3(169),F4(169),F5(169) F1(169) NA$(1)"WORLD " NA$(2)"ZHO WORLD "ɠŷǠɠɠǠŲϠɠǠ³ ɠϠǠĠĸϠɠϠǠɠ̠µ ΠǠɠ͠Ǡɠ± ΠϠɠϠŠ͠ɠŶϠɠǠøǠɠȠǠôγɠǠö¶ɠ̠ǠϠɠıɠϠŠŶ­ɠ´óɠϠŠȠǠñ¹ϠŠȠǠ² ڠɠɠȠڠóϠɠȠĸ²̠Ǡ                !!! ! ! ! ! !!!!!!!!!""" " " " " """""""""         ŠŠŠÍӍנӍϠč̠ōРҍРɍӠРԠנŠРŠōӠĠ ĠԯҠ͠РؠՠحӠԠ͠РӠȠҠԠҠ͠ӠӠӠ̠ԯҠ͠РӠӠˠñ ӠǠҠ͠ϠӠĠǠҠ͠ҠӠΠנԠҠҠΠՠΠԠǠҠ͠Πՠ٠ԠǠҠ͠ϠӠΠΠ РԠŠ͠ՠĠ Ҡ͠Ӡ͠ՠӠ Ҡ͠ӠӠɠӠŷǠɠķǠɠǠűϠɠǠŷɠ̠Ǡ÷³Ϡ ΠϠ͠ǠŹóϠɠ̠ǠñɠנǠŶǠɠǠ¸ϠɠӠǠŸŲɠǠàΠǠɠ͠ǠɠŵɠàǠĵڠɠǠŸϠɠµزϠɠϠҠôǠɠ²­àΠɠϠĠñ͠ϠɠϠŠǠĠijϠɠǠàڠɠȠǠڠŷǠǠõڠϠɠȠǠڠ²àɠϠӠųàɠנǠ÷ӠǠ͠Ǡó­à͠ŷɠ͠ǠɠųɠŷɠӠŸǠɠנǠıɠϠŠǠĠɠϠĠظϠɠҠǠɠàڠɠȠڠ·ڠǠȠǠڠ¸àɠȠǠ²ڠǠȠǠڠɠǠɠ͠ɠ´ΠǠ͠ɠõϠɠ͠ǠŹǠǠöǠɠɠŸɠ ͠ɠĠŵ­ǠǠŴɠϠĵǠɠӠôɠɠŠ͠ǠàĶǠɠ÷ϠɠǠŵɠȠǠĴɠӠķǠɠɠǠµǠɠŴϠɠϠ÷ǠɠӠ·Π͠ɠıϠɠǠôɠŸöɠ̠ӠŸɠΠǠĠõǠǠ´͠ǠĠǠŲ­ɠϠ͠¹ ͠ǠɠõɠҠҠŸɠ²ڠϠɠȠǠڠȠڠ´ڠϠȠڠ´ɠǠòǠϠǠ³͠ɠǠĠóɠϠöǠҠҠǠŷɠǠöǠɠɠǠ²­àڠɠàȠǠڠĠڠɠɠӠ͠Ǡŷ̠ǠôӠǠɠɠӠ¸µ̠ӠųɠϠŷŶɠǠ·Πɠ͠ǠɠŵϠɠ͠¶͠ǠɠɠנӠųϠɠ͠ǠŰŹ²Ϡɠ̠ӠǠ³àɠǠ¶­ΠǠɠɠӠ¶ɠȠ ڠɠȠǠڠ¶͠נǠӠ·à͠ɠΠנǠӠ³ӠǠɠ͠ɠŲɠǠضϠɠҠǠǠĵϠɠ͠ǠµӠɠ͠ǠɠµàɠàǠŴΠϠɠ͠ĸǠɠ͠נǠӠ³͠נǠӠõӠϠɠӠǠŵɠ̠¶ĠӠɠΠӠǠöĸӠӠǠĹϠɠ͠ĵɠ̠͠Ŵ͠Ǡ´͠ǠנǠ ͠ɠΠɠȠǠǠɠɠ͠Ǡɠôɠŵ¹ǠɠŵɠŴϠɠ֭ӠɠϠŠנŵɠİӠϠɠӠӠǠôɠµǠɠӠǠŴιӠ͠ǠɠɠΠ͠µ͠ɠϠŠנǠ´͠ǠɠנǠӠ¸̠͠נǠӠŲ±õɠȠǠ¶ڠȠǠڠàɠΠ͠Ǡɠ÷ӠɠǠΠɠ͠ɠ³ ͠ǠɠɠנǠӠ¹ ͠ɠנǠӠŵϠɠϠôɠϠǠõàɠ· ӠǠɠ͠ǠɠıɠϠŠǠõ­ɠòϠɠ͠ǠõǠɠ͠͠ɠ·ɠ̠ıíϠɠϠŠǠĵϠǠõǠɠɠӠǠà´ Ӡɠ͠ǠӠǠض°ϠɠŠҠ´͠ɠנǠӠ³͠ɠנǠӠµ͠ɠΠנǠӠ  ɠϠɠ̠Ǡ·ڠǠɠȠǠڠóɠ÷ǠŲϠɠà²ɠ ɠ͠Ǡسɠ͠ҠǠóɠŠ͠ǠŴϠɠ͠ҠǠĹǠ͠Ǡ÷ӠɠΠ͠ǠɠŹôɠ̠͠ǠõӠà͠Ǡ´ɠΠϠ͠ǠƠɠΠӠ͠ǠɠÍ÷ɠ͠´Ǡɠ͠Ǡɠ¸ Π͠Ǡɠõɠ͠Ǡ³ Ӡɠ͠ɠ±ĠΠɠϠŠ͠ǠɠųɠɠŠ͠Ǡɠ÷Ӡɠ͠Ǡøµɠ̠͠Ǡ ɠ͠Ǡ͠ǠɠòӠɠ͠àɠ͠Ǡɠ¶ӠǠɠ͠ǠɠصǠɠ͠ҠǠض­ɠ͠ҠǠ͠Ǡɠ° ɠӠ͠ǠŠϠɠ͠ɠűϠŠ͠ĠΠϠɠ͠Ǡɠ³ĠӠɠ̠͠Ǡɠıɠ͠Ǡ²Πɠà͠ǠɠضǠ͠ҠǠĵӠ͠Ǡ­ Πɠ͠ŶϠɠ͠ǠŸǠɠ͠ǠŸɠ͠Ǡ÷ɠΠǠ÷ӠɠɠϠŠ͠ǠöΠɠ̠͠Ǡɠøɠ͠Ǡö̠͠ǠöɠϠ͠´IJ· Ӡɠ͠ǠóϠɠ͠ñϠŠ͠Ǡ ɠ͠Ǡűɠ͠ǠıĠ ɠΠ͠ɠ´íɠ͠´Π͠ɠ ɠ͠ɠòàϠɠ͠÷±ɠ̠ӠǠŲàӠ÷ɠǠϠɠ¹àɠ̠͠ǠضϠɠ͠ҠǠøǠɠ͠ŵϠɠנǠŲϠɠàנŵϠɠנǠנǠŸϠɠǠ´ΠɠӠǠij¸ɠΠಠӠ͠ɠijɠΠϠ͠נǠӠ¶ ͠ϠɠנǠӠ¶͠ǠɠנǠӠ¶͠נǠӠ³͠ǠɠנǠɠŶϠɠϠɠϠǠöϠɠӠó͠Ǡس÷Ϡ͠ҠŵϠɠ͠Ǡ¹͠ɠɠϠ͠ɠ¶Ǡɠ͠Ǡõɠ͠ǠðíàɠӠ͠Ǡɠŷ͠õظǠɠ͠ҠǠǠɠ͠Ǡ°ŠΠɠӠ͠ǠĠϠɠ͠ø­ɠ͠Ǡ ɠ͠ǠɠӠɠϠŠ͠ǠɠŵϠɠ͠ǠŴĭɠϠŠ͠Ǡ¶͠ǠǠ¶ӠɠϠ͠ɠ¶¹ɠΠ͠Ǡ´Ǡɠɠ͠ǠŵϠɠ͠Ǡôɠɠ͠Ǡ͠ǠΠϠɠ͠Ǡùĭɠ̠͠Ǡɠôɠ͠ǠôϠɠ͠ǠŹõɠ̠͠͠ǠɠµΠɠ͠Ǡɠɠɠ͠Ǡò÷ΠϠ͠ǠŰϠɠӠ͠Ǡ¶Ϡɠ̠Ǡ͠Ǡɠ÷ӠϠɠ͠ǠôǠɠ͠ǠŴɠ͠ǠõϠɠ͠Ǡµ ӠàǠɠ͠ɠ¶Ǡɠ͠ǠŲ͠Ǡ ɠ͠ǠŲɠϠŠ͠Ǡµ·ΠǠ͠ɠõϠɠ͠ǠĠΠɠΠ͠ɠŵɠ͠ĭàà͠Ǡɠñɠ͠³ɠ͠Ǡɠ³Ϡɠ͠ǠصϠɠ͠ҠǠ³ ӠϠɠ͠Ǡɠطɠ͠ҠǠŷ´ɠ̠͠ǠIJϠ͠õϠɠ͠ĶϠɠ͠ǠǠñ ɠ͠ǠıɠϠŠ͠Ǡ÷ӠϠɠ͠÷öɠ̠͠ذӠ͠ҠǠ͠ǠôϠɠ͠Ǡ·נ͠ǠɠĸǠɠ͠ǠɠŴɠ͠Ǡ÷µ ɠ̠͠͠Ǡɠĸĭɠ͠ǠôɠΠ͠òí̠͠ǠϠɠ̠͠Ǡ±ɠϠŠɠϠ͠ŴǠɠɠ͠ǠóӠ͠ɠ´ ɠϠŠ͠ǠɠùӠɠ͠ɠɠĠɠΠ͠ɠ¹ ӠǠɠ͠ǠɠعϠɠ͠ҠóϠŠ͠ŲɠϠ͠õ