' +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`A$,40,1)" "ĺ"XBOAT TENDER REFUELS SHIP.":FYFU:DADA1:40440=((A$(0),16,1)"S"(A$(0),16,1)"W"(A$(0),16,1)"A"(A$(0),16,1)"B")SE2ĺ"SCOUT BASE REFUELS SHIP.":FYFU:40440:>ꜭ((A$(0),16,1)"N"(A$(0),16,1)"D"(A$(0),16,1)"A"(A$(012 ";Z$;zDEA(Z$" ",1)"I"40000;zDEA:A0Ā;@ TRADER SCREEN 3;JCRCR((CWPHPM)2000)(LP100): LIFE SUPPORT;T;^3000 ";Z$IOH(LP100)((PHPMCW)2000)(SAL.5)100((.00124)1E6CST)(SAL24)ICRCROHIū30020 M͠Ǡɠ­Ġà͠ǠŠɠ͠ǠĠΠàϠǠӠŠɠϠǠŠΠ̠ɠϠŠǠƠɠŠǠŠɠŠǠذϠɠӠ͠ҠíŠɠΠ͠ǠɠƭŠΠɠ­Šɠ͠ƠΠϠŠ͠ǠƠɠ͠ǠƠ̠͠ǠɠƠɠŠƠŠɠϠǠӠŠɠϠǠ° ɠӠϠǠ­ƠΠɠ͠ǠɠŠǠɠ͠ǠµàŠǠ¶ĠǠ͠ǠӠ͠ǠƠΠɠ͠ǠɠŠΠɠϠǠӠóàɠ͠Ǡàɠ͠Ǡò ɠϠ͠öàǠɠŠǠŠŠǠɠǠŠΠɠϠϠǠӠŠɠϠǠӠĠɠϠǠõàϠɠϠϠǠ÷í̠͠Ǡ͠ҠǠŵƠϠɠϠŠǠƠϠŠɠµàà͠ǠŠɠΠ͠ǠòŠϠɠ͠ϠǠöĠϠɠϠǠƠɠ͠ǠɠزϠɠϠĠɠΠӠ͠ǠɠصɠϠŠɠŠǠ±ŠŠǠƠ ɠ͠ǠɠµàϠ͠Ǡɠ·à̠Ϡôɠ Ǡ͠Ǡ² ɠ͠ƭŠנɠ͠ǠɠŰŠϠɠӠ͠ǠĭŠ͠ǠƠȵĠɠ͠ǠĠɠϠǠӠشϠɠϠҠǠعǠɠϠҠǠøɠ̠͠Ǡó±ƠΠɠ͠ǠùĠϠɠ͠ĠɠŠƠΠɠΠŠǠŠΠɠ͠ǠɠàɠϠǠӠŠӠ͠ɠƠɠ͠ǠíƠà͠ǠŠɠ͠ǠC$"ICE-CAPPED.":HY2T?:((A$(0),9,1))48((A$(0),8,1))1C$"PRESENT. ":HY1\?DC$?NGG1Ą"SKIM GAS GIANT? > ";A$?X1000:A$"Y"DADA2:FYFU:UFUF1:40430?bHY1SL$"U"Ą"OCEAN REFUEL? > ";A$@l1000:A$"Y"DADA1:F> ";Z$cCOH(LP100)((PHPMCW)2000)(SAL.5)100((.00124)1E6CST)(SAL24):CRCROH:30020"LN VM`XCC4000.lX18333Hv(A1$,X,2)" "7090WX11232gX1107070(A1$,X,2)("AGASHIINPO",X1,2)CCCC1000:7080X1117080(A1$,X,2)("BADEFLLONIVARI",X110,2)CCCC1000:7080X1X0TLYC6200!OP7PO(X,Y)062008XC2(XC2)6190sOD(N,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)BFL(FL)(FL(FL))D2AVAV(D)*CDAVCC(1(BR.05))6CCCDB<JpFL0:JJPXFL1169eFL(FL)0qJ(FL)0yFLFL0M7J7JXXC7MN7J7JYYC7NX1X326200Y1Y406200PO(X,Y)06200XXCY))"0"P1((A$(0),10,1))55hT1((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 CC=PRICE OF GOODS  BR=BROKER LEVELD15D15D2$ DD365YRYR1:DDDD365:MNT1F DA$("00"(DD),3)"-"(YR)L 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))55P1((A$(0),10,1)):P10((A$(0),10,1)"*"CRCR50000-A$(A$,41)"*"" "K (4);"WRITE ";FI$;",R";AS*A$_4XRXR1q>(4);"CLOSE"wH DA03060 DDDD1:DADA1 DD28(DD28)PA0CRCR((CST1E6)480):PAPA1 DD28(DD28)CRCRSAL DA03020RETURNS TO SHIP LIST"@Z"ACCEPT SHIP? > ";A$:(A$,1)""1920Hb lTY((A$,1))64:TY1TY26A$"/":CR0:OH0:1920v1500(4);"OPEN ";FI$;",L50"(4);"READ ";FI$;",R";AA$OP62110XL02110 (A$,42,1$;" MONTHS."5 &(PA$,1)"S"(PA$)1ĺ"PAID OFF."Q 0"CR FUND: ";CR :OV(FU500)((CST480)1000000)(LP100)(SR2000)(SAL2)(CST.001)100 DOV(OV) N"MAX OVERHEAD: ";OVX22:" ACCEPT SHIP. A-Z DISPLAYS OTHERS / L$ "SERVICE: ";; SE((SH$,32,1)):SE$(SE)U "OPERATIONS: ";| OP((SH$,30,1)):TI$SE$(OP):TI$ "PAYMENTS: "; PA$(SH$,89,3):PA(PA$) (PA$,1)"S"ĺ"HALF OF REVENUES." (PA$)0ĺ((CS240)1E6);" FOR ";PATATEROOMS: ";SRF LP((SH$,15,2)):"LOW BERTHS: ";LPv CW((SH$,49,2)):"CREW: ";CW SA((SH$,34,6)):"CREW SALARIES: ";SA CS((SH$,41,7)):"SHIP COST: ";CS;" MCR" AL$(SH$,86,2):"ALLEGIANCE: ";ARMANCE: ";:"JUMP-";(SH$,8,1);:JP((SH$,8,1))J ^PN((SH$,10,1))_ hNA$(SH$,52,15) rG((SH$,9,1)):" ";G;"-G" |FU((SH$,23,4)):"FUEL TANKAGE: ";FU FYFU CH((SH$,18,4)):"CARGO HOLD: ";CH SR((SH$,12,2)):"SCLOSE" #  TRADER SCREEN 5- "3000] ,FI$;" ";TI$;" ";NA$;:30:" ";DA$:"5";BL$ 64:(SH$,69,15);" ";(SH$,52,15) @TN((SH$,3,4)):"TONNAGE: ";TN;:A$"STREAMLINED":SL$(SH$,28,1):SL$"U"A$"UN"A$ J" ";A$4 T"PERFOA  10000)d EDITION OF 18 AUG 1985<A$(A$" ",1)W INPUT SUBROUTINE A$"?"A$"CHANGE"Ą"WHAT SHIP LETTER? > ";A$:A$("A"A$,1):TY(A$)64:1500(4);"OPEN SHIPS, L100"(4);"READ SHIPS, R";TYSH$ (4);"                     \ ::"TRADER ---------------------------15 AUG 85 --"n(4);"/"::" HIT RETURN ";A$((4);"RUN COPYRIGHT1985" "F$$'F$""FI$F$0$':"READING SECTOR..."C$'(4);"MONICO"c$'(4);"OPEN ";FI$;".MAP,L7"$ '(4);"READ ";FI$;".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 %(5(K2DM6V4))#$CGCG(K3DM2):9510=#%CG10(K1DM6)V#%CGCG5(K2DM7V4)h#%CGCG(K3DM)w#&%CG0CG0}#0%#'SP255: STARTPOINT#'#'FI$"SPINWARD"#' TRADER SCREEN 0#'4:"USE SECTOR: > ";FI$$'4:"USE SECTOR: > ";M2V4):9510!"$CG10(K1DM2):"$CGCG5(K2DM3V4)T"$CGCG(K3DM3):9510h"$CG10(K1DM3)"$CGCG5(K2DM4V4)"$CGCG(K3DM3):9510"$CG10(K1DM4)"$CGCG5(K2DM5V4)"$CGCG(K3DM2):9510"$CG10(K1DM5)#$CGCG480!,$CG0:9510&!6$CG10(K1DM4)E!@$CGCG5(K2DM4V4):9510Y!J$CG10(K1DM2)x!T$CGCG5(K2DM1V4):9510!^$CG10(K1DM1)!h$CGCG5(K2DMV4):9510!r$CG10(K1DM)!|$CGCG5(K2DM1V4):9510!$CG10(K1DM1) "$CGCG5(K2DPM0PM0 #PL0PL0& # CARGOL #DM(T1T2)(4(P25))(1(P27))U $CG0t $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,9:PMC(6)DMA(7):PLB(6)B(8)DM:9160j#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 #(6)DMA(6):PMB(6)DMA(7):PLC(6)DMA(5):9160v#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),PL,CAF#PH0:PM0:PL0:CG0XP#P19060,9070,9080,9090,9100,9110,9120,9130,9140,9150bZ#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:91606#PHBR0(B$,3,1)"0"TR0:8640Q!TR((B$,3,1))55:TR19TRTR1:TR24TRTR1c!TT(TLTR).1z!TT1CC0:8670!CCCC(CCTT)!CC0CC0!(#DM(T1T2)(3(P25))(3(P27))(TZ6)2# INPUT P1,P2,T1,T2,TZ<# OUTPUT: PH,PMAGDEHIINNARI",Z,2)CCCC1000$>!Z>H!(B$,X,2)"VA"8560KR!Z152u\!(A$,Y,2)("ASINVA",Z,2)CCCC1000|f!Zp!(B$,X,2)"WA"8600z!Z152!(A$,Y,2)("INRIWA",Z,2)CCCC1000!Z! !Y!X!TR((B$,3,1)):T  Z1728 (A$,Y,2)("AGASDEVA",Z,2)CCCC1000? ZY (B$,X,2)"NI"8470x!(A$,Y,2)"IN"CCCC1000 !(A$,Y,2)"NI"CCCC1000!(B$,X,2)"PO"(A$,Y,2)"PO"CCCC1000 !(B$,X,2)"RI"8520*!Z11124!(A$,Y,2)("v (B$,X,2)"IC"(A$,Y,2)"IN"CCCC1000F (B$,X,2)"IN"8360T Z1212 (A$,Y,2)("AGASFLHILONIPORI",Z,2)CCCC1000 Z (B$,X,2)"LO"8400 Z132 (A$,Y,2)("INRI",Z,2)CCCC1000 Z (B$,X,2)"NA"8440(B$,X,2)"DE"8230! Z132I (A$,Y,2)("DENA",Z,2)CCCC1000P Zj& (B$,X,2)"FL"8270w0 Z132: (A$,Y,2)("FLIN",Z,2)CCCC1000D ZN (B$,X,2)"HI"8310X Z132b (A$,Y,2)("HILORI",Z,2)CCCC1000l Z, Z1152A(A$,Y,2)("AGASDEHIINLONARI",Z,2)CCCC1000HZb(B$,X,2)"AS"8150oZ192(A$,Y,2)("ASINNARIVA",Z,2)CCCC1000Z(B$,X,2)"BA"8190Z132(A$,Y,2)("AGIN",Z,2)CCCC1000Z00ST$"X"CCCC5000U CA$ST$"-"(HE$,TL1,1)" "(A1$,18,15)" CR"(CC)`A$CA$f r@CC5000TX5203^(B$,X,2)" "8620hY5203r(A$,Y,2)"BA"CCCC2000:8600|(A$,Y,2)" "8600(B$,X,2)"AG"8110((A1$,14,1)):TL0(A1$,14,1)"0"TL0:7110ETL0TL107110|TL((A1$,14,1))55:TL19TLTL1:TL24TLTL1CCCC(TL100)ST$(A1$,6,1)ST$"A"CCCC1000ST$"C"CCCC1000ST$"D"CCCC2000ST$"E"CCCC30000)E4w33:PF10);PF100);PF1000);PF10000);PF100000);(PF)P4w30710Z4w(4)j4wIFL307604wFL(I1)0307604wIFL307604xI16I1I11:II1:303004 x21:"SHOW MORE? (Y/N) > ";A$:10004xA$"Y"307605xI11:II1:30300OP5OP6ĺ" ":30670H3twG$(" "((CC)),6):19:G$;i3~wG$(" "((CCCA)),6)z3w25:G$;" ";3wPHSRCWPHSRCW3wPMSR(CWPH)PMSR(CWPH)3wPLLPPLLP3wCGCHCGCH4wPF(PH10000)(PM8000)(PL1000)(CG1;" ";428wOP6XPL0ĺ" UNSURVEYED.":30670=2BwE$;2LwSL$"U"((A1$,6,1)"C"(A1$,38,1)"G")ĺ"INACCESSIBLE.":306802VwOP7(A1$,40,1)" "ĺ"NOT A TRADEWORLD.":306802`wOP5MSG1HX$(FL(I))CG$ĺ"MESSAGE ADDRESSEE.":30670!3jwOP94000X1vOP5MSG0((A1$,16,1)"N"(A1$,16,1)"A")MSG1:B$HX$(((R)R)1):CG$B$r1vOP9OP5OP630470|1v70001vB0CC((CG$,23)):B$CG$1v80001v90001wA$(I)A$1wCA((B$,23))1wI1131$wI10);I;". ";2.wHX$(FL(I))A1$,16,1)"S"(A1$,16,1)"W"(A1$,16,1)"A"(A1$,16,1)"B"XPL1U0vE$(A1$,6,1)`0vF$" "0v((A1$,9,1))0(A1$,8,1)"1"F$"O"0v((A1$,9,1))0(A1$,8,1)"2"F$"I"0vE$E$F$(A1$,38,1)(A1$,36,1)(A1$,16,1)" "(A1$,33,2)" "1v-----"/*v6000L/4v12:" # HEX SHGZB AL PRICE PROFIT FARES?":"--";BL$}/>vFL0ĺ"YOUR SHIP CAN'T REACH ANY WORLDS.":/Hv(4);"OPEN ";FI$;",L50"/RvI1:I11/\v(4);"READ ";FI$;",R";FL(I)/fvA1$/pv(4)/zv C0vXPL0:(A1$,42,1)"*"("CARGO: ";CG$:30220-.u"CARGO HERE: ";CA$8.vB$CA$u. v"FARES RCVD: ";(PH10000)(PM8000)(PL1000)(CG1000).v"FARES- HI ";PH10);PH;" MD ";PM10);PM;" LO ";PL10);PL;" CG ";CG10);CG100);CG/ v11:"--------------DESTINATIONS--------(OH);" (MAX= ";OV;"). "O-u"CR BALANCE: ";(CR);:UF0ĺ" UNREFINED FUEL.";U-uc-uA1$A$(0)-uMSG1B$HX$(A)ĺ"MESSAGE DELIVERED.":MSG0:B$"":CG$""-uOP5MSG1ĺ"MESSAGE TO: ";CG$-uOP6ĺXR;" UNSURVEYED WORLDS."-u7000.uB0TE: ";DA$ ,O:"PROCESSING..."7,0u TRADER SCREEN 2@,:uASPM,DuX(X):W,Nu3000,XuFI$;" ";TI$;" ";NA$;:30:" ";DA$:"2";BL$,bu2000,luXC((A$,2)):YC((A$,3,2)),vu"SYSTEM: ";(A$,14);,uA$(0)A$,u30:(A$,33)-u"OVERHEAD: ";0+OPO(X,Y)0SP(PO(X,Y))L+OPO(X,Y)0ĺ"INVALID STARTPOINT.":20300l+O"NEW STARTPOINT: ";HX$(SP)+O15:"DATE? (000-0000) > ";DA$:15:"DATE? (000-0000) > ";A$:A$""20390+ODD((A$,3)):DD1DD36520381+OYR((A$,5)) ,O3000:"DA3(A$).*O" LIAISON- ";A$:1000:V4(A$)V*O"CREDIT BALANCE? > ";CR$:CR(CR$)*LO13:"STARTPOINT? (0000) > ";HX$(SP)*VO13:"STARTPOINT? (0000) > ";A$:A$""20381*`OA$("0000"A$,4)*jOX((A$,2)):Y((A$,2))+tOY1Y40X1X322031 )N1500)NA$"/"20000>)N:"SHIP CHARACTERISTICS":BL$c)N"SHIP NAME? > ";A$:A$""20200n)NNA$A$)N"CREW SKILLS: ")N" STEWARD- ";A$:1000:V1(A$):SASA(V1300))N" ADMIN- ";A$:1000:V2(A$)*O" STREETWISE- ";A$:1000:V SHIPS, R";X1(fNA$#(pN(X2)4@(zN(X65);" ";(A$,69,16)^(N(4);"READ SHIPS, R";X2f(NA$(N(X2)4:20:(X66);" ";(A$,69,16)(NX(N(4);"CLOSE"(N:"SELECT YOUR SHIP? > ";A$(NA$(A$"A",1):TY(A$)64(NTY1TY2620150'(4);"READ DATAFILE" '(HE$+' (X097'(SE$(X)>'((XJ'(X115U'(AV(X)\')Xn')(4);"CLOSE"' N TRADER SCREEN 1'*N'4N3000'>NFI$;" ";TI$;" ";NA$;:30:" ";DA$:"1";BL$'HN(4);"OPEN SHIPS, L100"'RNX0252(\N(4);"READ'D(N)C(N)A(N)B&'BL$"------------------------------------"v&'::FI$;" ";TI$;" ";NA$;:30:" ";DA$:"0";BL$&'(4);"OPEN OD JUMP"&'(4);"READ OD JUMP"&'X113:Y113&'OD(X,Y)&':&'(4);"CLOSE"&'(4);"OPEN DATAFILE"''A$:X((A$,2)):Y((A$,3,2)).%.'PO(X,Y)ZV%0'(A$,5,1)"T"PO(X,Y)PO(X,Y)(1)i%2'HX$(Z)(A$,4)p%4'Z%6'(4);"CLOSE"%7'(4);"NOMONICO"%:'DA1:YR1107:DA$"001-1107"%'A(N)((5)6)1%'B(N)A(N)A(N)%'C(N)B(N)A(N)&;"OPEN ";FI$;", L50"4D*(4);"WRITE ";FI$;", R";DEJD/(A$(0),41);"* "\D1(4);"CLOSE"sDPò TRADER SCREEN 4DQíB150350DZâ11Ddð3000DnúFI$;" ";TI$;" ";NA$;:30:" ";DA$:"4";BL$DxB$CG$DA1$A$(0):7000:8000DúB;" TONS OF ";ER/U) > ";A$:A$(A$"R",1)2CƝA$"R"RF0A$"U"[CНA$"R"CF(FUFY)500:FYFU:UFUF1CڝA$"U"CF(FUFY)100:FYFU:UFUF1C䝭CF0ĺ"BOUGHT CR";CF;" OF FUEL."CUF1UF0CCBBCCOP750000C MARK EXPLORED WORLDSD (4)(A$(0),6,1)"B"RF11BRF1ĺ"REFINED AND ";RB"UNREFINED FUEL AVAILABLE."B(SH$,28,1)"U"(A$(0),6,1)"C"ĺ"SURFACE REFUELLING FACILITIES ARE INACCESSIBLE. REFUELLING TAKES 14 DAYS.":DA14:3000:UFUF1:FYFU:40440C"REFUEL WITH (DADA2:FYFU:UFUF1:40430MAbHY1SL$"U"Ą"OCEAN REFUEL? > ";A$|Al1000:A$"Y"DADA1:FYFU:UFUF1:40430AvHY2Ą"ICECAP REFUEL? > ";A$A1000:A$"Y"DADA4:FYFU:UFUF1:40430AFYFU40440BRF0:(A$(0),6,1)"A"$"U"ĺ:40270@22'@"OCEANS: ";>@&C$"ABSENT. ":HY0@0((A$(0),9,1))48((A$(0),8,1))50C$"ICE-CAPPED.":HY2@:((A$(0),9,1))48((A$(0),8,1))1C$"PRESENT. ":HY1@DC$@NGG1Ą"SKIM GAS GIANT? > ";A$AX1000:A$"Y"SCOUT BASE REFUELS SHIP.":FYFU:40440?ꜭ((A$(0),16,1)"N"(A$(0),16,1)"D"(A$(0),16,1)"A"(A$(0),16,1)"B")SE1ĺ"NAVAL BASE REFUELS SHIP.":FYFU:40440?"GAS GIANT: ";:C$"ABSENT.":GG0:(A$(0),38,1)"G"C$"PRESENT.":GG1?C$;@SL2000>XL0>A$A$(0)7>œ"SYSTEM: ";(A$,14);\>̜30:(A$,33,2);" ";(A$,36,1)>֜OP9(A$,40,1)" "ĺ"XBOAT TENDER REFUELS SHIP.":FYFU:DADA1:40440&?((A$(0),16,1)"S"(A$(0),16,1)"W"(A$(0),16,1)"A"(A$(0),16,1)"B")SE2ĺ":A0Ā=@ TRADER SCREEN 3T=JCRCR((CWPHPM)2000)(LP100): LIFE SUPPORTZ=Td=^3000k=h1=rFI$;" ";TI$;" ";NA$;:30:" ";DA$:"3";BL$=|"LIFE SUPPORT COSTS: ";((CWPHPM)2000)(LP100)="FUEL USED: ";FUFY=ADE=XL1>Y((4)40)1 ";Z$ ";A$:1000:A$"Y"DADA1:31230p:yDADA5w:y :zADE:zXF((A1$,2)):YF((A1$,3,2)):z FUEL CONSUMPTION:&zFYFY((JFTN10)(10PN))$;0zFY0(B$,5,5)"HI IN"FYFYB: 9hyBACHCG9ryA1$A$(0)%9|y700059yBB(CRCC)H9y(BCBA)BCBAY9yBCBBBCBBc9yB$A$n9yCG$B$|9yCW$A$(0)9yCRCR(BCCC)9y21:20:" ";BC;" FOR ";(BCCC):y20:"ADVANCE DELIVERY? > ";A$:1000:A$"Y"CRCR(.2(BCCC)):DADA3:";PH;" MID: ";PM;" LOW: ";PL;" CARGO: ";CG;" TONS."C8"yB031200T8,yCRCC31200g86yCGBCH312008@y21:868:"BUY GOODS? > ";A$:1000:A$"Y"312208JyA$"Y"Ģ21:868:"HOW MANY TONS? > ";A$8TyA$""A$"9999"9^yBC(A$):BC1BC0:31190H0:PM0:PL0:CG0:31000*7xA$"P"CG0E7xA$"F"PH0:PM0:PL0u7xPF(PH10000)(PM8000)(PL1000)(CG1000)7x(SH$,89,1)"S"CRCR(PF2):309807xCRCRPF7y"FARES= ";PF;:(SH$,89,1)"S"ĺ" LESS 50% FOR SUBSIDY.";7y38y23:"HI: 6xA1$A$6x40006x900066xPHSRCWPHSRCWW6xPMSR(CWPH)PMSR(CWPH)h6xPLLPPLLP}6xCGBCHCGCHB6x21:"BOARD PASSENGERS & FREIGHT? > ";A$:10006xA$"W"Ą"WAIT HOW MANY DAYS? > ";A$:1000:DADA(A$):309407xA$"N"P#5(x21:"WHAT DESTINATION? > ";A$552xA$"A"30290F5 ";A$ A$A$" ":A$(A$,* INSTRUCTIONS FOR TRADER':5"TRADER"U(:"COPYRIGHT 1985 GDW INC"2:" THIS PROGRAM REPRODUCES THE TRADE AND COMMERCE RULES FROM TRAVELLER (MERCHANT PRINCE) AGAINST THE BACKGROUND OF A TRAVELLER SECTOR."<" F P" 1     HANKS" " "MARC W. MILLER"( > "HIT RETURN ";A$[ (4);"RUN INSTRUCTIONS"] "THIS DISK IS"1"COPYRIGHT 1985"Q"GAME DESIGNERS' WORKSHOP"d("PO BOX 1646"2"BLOOMINGTON, IL 61702"<F"TRAVELLER IS A REGISTERED TRADEMARK OF"P"GDW, INC."Zd"PLEASE DON'T PIRATE THIS DISK."n x"Tڍԍٍԍԍҍҍٍҍԍԍ  ?HĭMNT150410BHĺFI$;" ";TI$;" ";NA$;:30:" ";DA$:"6";BL$uHĭMNT0ĺ:"THE SHIP NEEDS ANNUAL MAINTENANCE."HĭOP5((A$(0),26,1)"B"(A$(0),26,1)"W")50380HĭST350380Hī50400(IĄ"PERFORM IT NOW? > ";A$:1000:A$"Y"DAAD14:MNT0NO PROFIT.":50300@GhĭE100ĺ"SOLD AT ";100E;"% LOSS.":50300pGrĭE100ĺ"SOLD AT ";E100;"% PROFIT.":50300G|ĺ"BROKER COMMISSION: ";BR5;"%."Gĺ"PROCEEDS: ";CC;" (";(CCB);" PER TON)."GCRCRCCGB$"":B0:BC0HIJ PERFORM MAINTENANCEĭBR1ĺ"BROKER-1 TO ";BR;" AVAILABLE."IFĄ"USE A BROKER? > ";A$:1000qFĭ(A$,1)"Y"Ą"WHICH NUMBER? > ";A$F"ĭ(A$)0(A$)BR50190F,BR(A$)F6A$A$(0)F@ĺB;" TONS AT CR";CB;" BASE COST."FJİ5000FTE(100CDCB)G^ĭE100ĺ"SOLD AT úB$"Eú"BASE COST: ";(B$,19);*EÖ21BEú"BASE PRICE: ";CCUECB((B$,23))tEÄ"SELL GOODS? > ";A$:1000EíA$"Y"50420EBR((A$(0),6,1))64EBR5BREíBR1ĺ"NO BROKERS AVAILABLE.":BR0:50230EíBR1ĺ"BROKER-1 AVAILABLE."(F-----------------"." TRADER ALLOWS ALL THE ROUTINE WORK OF INTERSTELLAR EXPLORATION, TRAVEL, TRADE AND COMMERCE TO BE HANDLED BY COMPUTER."." TWENTY-FOUR SHIP TYPES ARE AVAILABLE."!." COMPLETE TRAVELLER SECTORS ARE ALSO PROVIDED, AS IS A ST HAVEAN ASSOCIATED PARAMETER FILE (ENDING IN @)."Z#" ALWAYS RUN PREPROCESSOR AFTER GENERA- TING A SECTOR OR SETTING TRADEWORLDS. IT CREATES THE FILE SECTOR.MAP."'185*.:"INTRODUCTION 0---------------------" SECTOR GEN ALLOWS A NEW SECTOR TO BE RANDOMLY GENERATED; YOU SUPPLY THE SECTOR NAME."F#" SET TRADEWRLDS ALLOWS YOU TO ESTABLISHWORLDS AS POINTS ON A TRADE ROUTE."3P#" EDITOR ALLOWS EDITING OF SECTORS AND SHIP FILES. FILES TO BE EDITED MUTOMATICALLY DEDUCTED."%'#185~(#:"AUXILIARY PROGRAMS 9--------------------------------------"2#" THERE ARE THREE AUXILIARY PROGRAMS:"::" * SECTOR GEN":" * EDITOR":" * SET TRADEWRLDS"7#" * PREPROCESSOR."^<#:S)."^" SHIPS CANNOT BUY GOODS FOR SPECU- LATION IF CREDIT BALANCE IS LESS THAN ZERO (BUT FUEL AND OTHER COSTS CAN BE HANDLED ON CREDIT)."h" REFUELLING AT AN OCEAN TAKES 1 DAY; AT A GAS GIANT TAKES 2 DAYS."r" SHIP PAYMENTS ARE AU----------------------------------"gJ" TRADE USES THE MERCHANT PRINCE TRADE AND COMMERCE SYSTEM."T" SHIPS USE FUEL UNDER THE BASIC TRAVELLER RULES. UNREFINED FUEL CAN CAUSE MISJUMPS IN MERCHANT SHIPS (TYPE I TO IGNORE MISJUMP RESULT-------------"b" TRADERS MAY TRAVEL ANYWHERE; TRANSPORTS MAY ONLY VISIT WORLDS ON THE MAIN TRADE ROUTES-- TRADEWORLDS."l" BOTH TYPES CAN CARRY PASSENGERS AND ENGAGE IN TRADE."?185#@:"GENERAL INFORMATION 8---- SURVEYED OR NOT. SURVEY SHIPS MUST VISITSUCH WORLDS TO SURVEY THEM."" SURVEY IS ESPECIALLY ENTERTAINING WHENA RANDOM SYSTEM IS USED AS CREATED WITH SECTOR GEN."W185X:"TRADERS AND TRANSPORTS 7-------------------------ESTRICTED TO THE MAJOR TRADEROUTES."-o185p:"SURVEY DUTY 6--------------------------------------"Iz" SURVEY SHIPS EXPLORE UNSURVEYED SYSTEMS. WITHIN EACH SECTOR, SYSTEMS IN THE SECTOR FILE ARE MARKED AS NEVER THEY VISIT A NAVAL BASE AND DO NOT HAVE A MESSAGE ON BOARD. THE MESSAGE IS AUTOMATICALLY DELIVERED WHEN THE SHIP VISITS THE DESTINATION SYSTEM."$" XBOATS DO NOT CARRY SPECIFIC MESSAGES;THEY CARRY WHATEVER MAIL IS AVAILABLE. XBOATS ARE R POSSIBLEIN TRADER: TRADER (TRADER OR TRANSPORT);COURIER (COURIER OR XBOAT); AND SURVEY.a185:"COURIER DUTY AND XBOATS 5--------------------------------------"" COURIER SHIPS ARE ASSIGNED A MESSAGE (A HEX DESTINATION) WHEE FILE INCLUDES SHIP NAME, CREW SIZE AND CREW COSTS, FUEL TANKAGE, PASSENGER AND CARGO CAPACITY, AND PERFORMANCE."185:"OPERATIONS 4--------------------------------------"X" THREE TYPES OF OPERATIONS ARE SPECIFYING IT WHEN YOU RUN TRADER."8 185 :"SHIPS 3--------------------------------------" " THE SHIPS FILE CONTAINS DATA ON THE VARIOUS SHIPS AVAILABLE FOR OPERATIONS."x " SHIP DATA IN TH 2--------------------------------------" " THE FOLLOWING SECTORS ARE PROVIDED ON THIS DISK. EACH IS THE OFFICIAL TRAVELLER SECTOR DATA." :" * SPINWARD MARCHES." :" * SOLOMANI RIM."/:" YOU CAN ACCESS A SECTOR BY 'SPINWARD')." " SOME FILES CAN BE EDITED: ANY WHICH HAVE A COMPANION FILE WITH THE @ SUFFIX. 'FILE@' IS USED BY EDITOR TO TELL THE CONTENTS AND PARAMETERS OF A TEXT DATA FILE NAMED 'FILE'. 1853 :"AVAILABLE SECTORS 1--------------------------------------" " TRADER IS CARRIED ON DISK AS 'TRADER' WITH 'TRADER C' A COMPRESSED VERSION. SUPPORT FILES NECESSARY FOR THE PRO- GRAM INCLUDE 'DATA FILE', 'OD JUMP', 'SHIPS', AND ONE SECTOR FILE (FOR EXAMPLE:! 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 1960$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."2185BRANDOM SECTOR GENERATOR."." TRADER SHOWS WHAT WORLDS CAN BE REACHEDAND WHAT THEY WILL PROBABLY PROVIDE IN THE WAY OF PROFITS." /" TRADER PRESENTS A CHALLENGE TO PROFIT- ABLY TRAVEL THROUGH A SECTOR; OR TO SUCCESSFULLY SURVEY IT; OR TO---------------------------+":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))110);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))\F::"SET TRADEWORLDS ---------------------------------------"P:" WORLDS MARKED AS TRADEWORLDS ARE THE HUBS THAT MAJOR TRADEROUTES TOUCH. XBOATS AND SHIPS LABELLED 'TRANSPORT' CAN ONLY CALL AT TRADEWORLDS."c R   )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$ +ALE? > ";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(IAV(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)61902OD(P1((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%AV1 DD28(DD28)CRCRSAL. DA03020R DD365YRYR1:DDDD365:MNT1v 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))55H);"READ ";FI$;",R";A:A$:OP621103XL02110T (A$,42,1)"*"CRCR50000A$(A$,41)"*"" ":(4);"WRITE ";FI$;",R";A:A$:XRXR1>(4);"CLOSE": DA03060 DDDD1:DADA1:DD28(DD28)PA0CRCR((CST1E6)480):PAPA0: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":(4A$(SH$,89,3):PA(PA$):(PA$,1)"S"ĺ"HALF OF REVENUES."r (PA$)0ĺ((CS240)1E6);" FOR ";PA$;" MONTHS." &(PA$,1)"S"(PA$)1ĺ"PAID OFF."k 0"CR FUND: ";CR:OV(FU500)((CST480)1000000)(LP100)(SR2000)(SAL2)(CST.001)10:SA((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: ";:P):G((SH$,9,1)):" ";G;"-G":FU((SH$,23,4)):"FUEL TANKAGE: ";FU:FYFU:CH((SH$,18,4)):"CARGO HOLD: ";CHW 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$x J" ";A$:"PERFORMANCE: ";:"JUMP-";(SH$,8,1);:JP((SH$,8,1)):PN((SH$,10,1)):NA$(SH$,52,15d;  10000)d EDITION OF 18 AUG 1985A$(A$" ",1):A$"?"A$"CHANGE"Ą"WHAT SHIP LETTER? > ";A$:A$("A"A$,1):TY(A$)64:15002 (4);"OPEN SHIPS, L100":(4);"READ SHIPS, R";TY:SH$:(4);"CLOSE"::3000:FI$;" ";TI$;" ";NA$;:30:"                      !W16) Y(4);"WRITE ";FI$;",R";PO(X,Y)@ ^(A$(PO(X,Y)),44)J cRR1Q hYX iXu j(4);"WRITE ";FI$;",R0"| kR r(4);"CLOSE"  ;60E A$(Z)(A$(Z),39)(A$(Z),33,1)" * "o A$(Z)(A$(Z)" ",50)z A$(Z) 210 ,:"SAVE UNDER WHAT FILENAME? > ";FI$ 6(4);"OPEN ";FI$;",L50" JR0 TX132 UY140 VPO(X,Y)0360 XXYY?"* "WHAT HEX NO.? > ";A$: A$"Q"300P A$(A$"0000",4)o X((A$,2)):X1X32209 Y((A$,2)):Y1Y40209 ZPO(X,Y) Z0ĺ"":210 (A$,5,1)""A$(Z)(A$(Z),39)(A$,5,1)" * ":28 (4);"READ ";FI$;",R";X) A$(X)> XA((A$(X),2))U YA((A$(X),3,2))g 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 THE HEX NUMBERS OF TRADEWORLDS USING THEIR FOUR-DIGIT NUMBER, FOR EXAMPLE: 0101."r ZPO(32,40)x _ d"FILENAME? > ";FI$ e(4);"MONICO" n(4);"OPEN ";FI$;",L50" x(4);"READ ";FI$;",R0" R A$(R) X1R 1(K2DM7V4):CGCG(K3DM))!&%CG0CG0/!0% ";FI$:4:"USE SECTOR: > ";F$:F$""FI$F$"':"READING SECTOR...":(4);"MONICO":(4);"OPEN ";FI$;".MAP,L7":(4);"READ ";FI$;".MAP,R0":R:HX$(:CGCG(K3DM3):9510* $CG10(K1DM3)Y $CGCG5(K2DM4V4):CGCG(K3DM3):9510m $CG10(K1DM4) $CGCG5(K2DM5V4):CGCG(K3DM2):9510 $CG10(K1DM5) $CGCG5(K2DM6V4):CGCG(K3DM2):9510 %CG10(K1DM6)!%CGCG54V4):9510J$CG10(K1DM2)>T$CGCG5(K2DM1V4):9510R^$CG10(K1DM1)oh$CGCG5(K2DMV4):9510r$CG10(K1DM)|$CGCG5(K2DM1V4):9510$CG10(K1DM1)$CGCG5(K2DM2V4):9510$CG10(K1DM2) $CGCG5(K2DM3V4)(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) @$CGCG5(K2DMB(8)DM:9160M#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#PL0PL0O#DM):PLC(6)DMA(5):9160Y#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)DMA(7):PLB(6):CG0:P19060,9070,9080,9090,9100,9110,9120,9130,9140,9150EZ#9160kd#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)DMA(6):PMB(6)DMA(7! !B!:TR((B$,3,1)):TR0(B$,3,1)"0"TR0:8640w!TR((B$,3,1))55:TR19TRTR1:TR24TRTR1!TT(TLTR).1:TT1CC0:8670!CCCC(CCTT)!CC0CC0!;(#DM(T1T2)(3(P25))(3(P27))(TZ6):PH0:PM0:PL00 !(B$,X,2)"RI"8520U*!Z1112:(A$,Y,2)("AGDEHIINNARI",Z,2)CCCC1000[>!uH!(B$,X,2)"VA"8560R!Z152:(A$,Y,2)("ASINVA",Z,2)CCCC1000f!p!(B$,X,2)"WA"8600z!Z152:(A$,Y,2)("INRIWA",Z,2)CCCC1000!A$,Y,2)("INRI",Z,2)CCCC1000& @ (B$,X,2)"NA"8440u 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$,Y,2)"PO"CCCC100,X,2)"HI"8310CX Z132:(A$,Y,2)("HILORI",Z,2)CCCC1000Il wv (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"8400  Z132:((B$,X,2)"BA"8190NZ132:(A$,Y,2)("AGIN",Z,2)CCCC1000Tn(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)CCCC1000D N (B$"86205hY5203:(A$,Y,2)"BA"CCCC2000:8600N|(A$,Y,2)" "8600h(B$,X,2)"AG"8110Z1152:(A$,Y,2)("AGASDEHIINLONARI",Z,2)CCCC1000(B$,X,2)"AS"8150Z192:(A$,Y,2)("ASINNARIVA",Z,2)CCCC100017CCCC(TL100):ST$(A1$,6,1):ST$"A"CCCC1000OST$"C"CCCC1000gST$"D"CCCC2000ST$"E"CCCC3000ST$"X"CCCC5000 CA$ST$"-"(HE$,TL1,1)" "(A1$,18,15)" CR"(CC):A$CA$:@CC5000:X5203:(B$,X,2)" 107070>(A1$,X,2)("AGASHIINPO",X1,2)CCCC1000:7080NX1117080(A1$,X,2)("BADEFLLONIVARI",X110,2)CCCC1000:7080:TL((A1$,14,1)):TL0(A1$,14,1)"0"TL0:7110TL((A1$,14,1))55:TL19TLTL1:TL24TLTLN,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:X1760"1FxDE(A$):DEFLDE130730d1PxJFJ(DE):DEFL(DE):11:33:HX$(DE):OP9OP5DADA1:31230}1nxOP6DADA7:312301xADE:2000:A1$A$:4000:9000:PHSRCWPHSRCW1xPMSR(CWPH)PMSR(CWPH)1xPLLPPLLP1xCGBCHCGCHBj2x2100000);(PF)0w30710/0w(4):IFL30760D0wFL(I1)030760T0wIFL30760s0xI16I1I11:II1:303000 x21:"SHOW MORE? (Y/N) > ";A$:1000:A$"Y"307600xI11:II1:303000(x21:"WHAT DESTINATION? > ";A$:A$"A"302901 ";DA$:15:"DATE? (000-0000) > ";A$:A$""20390^(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((A$,2)):YC((A$,3,X$(SP)7'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)9(O15:"DATE? (000&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:"STARTPOINT? (0000) > ";H:(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? > ";A$:A$""20200 (4);"OPEN DATAFILE":(4);"READ DATAFILE":HE$:X09:SE$(X)::X115:AV(X)::(4);"CLOSE"e$ NT%*N:3000:FI$;" ";TI$;" ";NA$;:30:" ";DA$:"1";BL$:(4);"OPEN SHIPS, L100":X0252:(4);"READ SHIPS, R";X1:A$:(X2)4:(X65);" ";(A$,69,16)A(N)((5)6)1:B(N)A(N)A(N):C(N)B(N)A(N):D(N)C(N)A(N):BL$"------------------------------------"_$'::FI$;" ";TI$;" ";NA$;:30:" ";DA$:"0";BL$:(4);"OPEN OD JUMP":(4);"READ OD JUMP":X113:Y113:OD(X,Y):::(4);"CLOSE":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)u#2'HX$(Z)(A$,4)::(4);"CLOSE":(4);"NOMONICO":DA1:YR1107:DA$"001-1107":ĭE100ĺ"SOLD AT ";100E;"% LOSS.":50300ZArĭE100ĺ"SOLD AT ";E100;"% PROFIT.":50300A|ĺ"BROKER COMMISSION: ";BR5;"%.":"PROCEEDS: ";CC;" (";(CCB);" PER TON).":CRCRCC:B$"":B0:BC0AĭMNT1504102BĺFI$;" ";TI$;" ";NA$;:30:" ";DA$:"6";BR1ĺ"BROKER-1 TO ";BR;" AVAILABLE."k@Ą"USE A BROKER? > ";A$:1000:(A$,1)"Y"Ą"WHICH NUMBER? > ";A$@"ĭ(A$)0(A$)BR50190@,BR(A$)@6A$A$(0):B;" TONS AT CR";CB;" BASE COST.":5000:E(100CDCB):E100ĺ"SOLD AT NO PROFIT.":50300*Ah(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 AVAILABLE."&@ĭCF0ĺ"BOUGHT CR";CF;" OF FUEL."1>UF1UF0I>: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";BL$:B$CG$:A1$A$FUELLING 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:FYFU:UFUF1">䝭HY2Ą"ICECAP REFUEL? > ";A$R<1000:A$"Y"DADA4:FYFU:UFUF1:40430d ";A$;X1000:A$"Y"DADA2:FYFU:UFUF1:40430;bHY1SL$"U"Ą"OCEAN REFUEL? > ";A$;l1000:A$"Y"DADA1:FYFU:UFUF1:40430# ";Z$:DEA(Z$" ",1)"I"400007zDEA:A0Ā7@8JCRCR((C(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):Z11340000e7z"MISJUMP (";Z1;"): ";:X((6)32)1:Y((4)40)1:CC)V5y20:"ADVANCE DELIVERY? > ";A$:1000:A$"Y"CRCR(.2(BCCC)):DADA3:31230\5y5yPM0PH0PL0CG0BC0Ą"LEAVE IMMEDIATELY? > ";A$:1000:A$"Y"DADA1:312305yDADA55yN6zADE:XF((A1$,2)):YF((A1$,3,2)):FYFY((JFTN10)A$"Y"31220<4JyA$"Y"Ģ21:868:"HOW MANY TONS? > ";A$Q4TyA$""A$"9999"p4^yBC(A$):BC1BC0:311904hyBACHCG:A1$A$(0):7000:BB(CRCC):(BCBA)BCBA4yBCBBBCBB5yB$A$:CG$B$:CW$A$(0):CRCR(BCCC):21:20:" ";BC;" FOR ";(BCRCR(PF2):30980 3xCRCRPF_3y"FARES= ";PF;:(SH$,89,1)"S"ĺ" LESS 50% FOR SUBSIDY.";e3y3y23:"HI: ";PH;" MID: ";PM;" LOW: ";PL;" CARGO: ";CG;" TONS.":B0312003,yCRCC3120036yCGBCH312004@y21:868:"BUY GOODS? > ";A$:1000:1:"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:PL03xPF(PH10000)(PM8000)(PL1000)(CG1000):(SH$,89,1)"S"C" "1""TRADEWORLD"%"1"7"EXPLORED? "@"1"R(4);"CLOSE"(4);"CLOSE"P(4);"OPEN ";FI$;"@"2(4);"WRITE ";FI$;"@";("9"B-NL2"49"^<"HEX "gA"4"yF"UPP "K"9"P"BASES "U"1""TRADE CLAS""14""ALLEGIANCE""2""TRAVEL ZON""1""GAS GIANT AKE SURE THE RIGHT DISK IS IN THE DRIVE. IS IT? (Y/N) > ";A$\d(A$"Y",1)"Y"1122n~(4);"CLOSE"(4);"OPEN ";FI$;", L50"X1N(4);"WRITE ";FI$;",R";XA$(X)X(4);"WRITE ";FI$;",R0"N(4);"CLOSE""A$AL$" "*G$"G ":B(4)10G$" "8H$" "g(SB2NB2)(ST3PO8)H$(AL$,1)" * "A$(N)UP$" "BA$G$H$A$(N):NN1$:.NBGNN1LX1NVA$(X)`XAb"THE SECTOR IS READY TO SAVE TO DISK.":"M$"WA ""HY0AM1A$A$"DE "=SI0A$A$"AS ":950SAM0A$A$"VA "YtAM2HY0A$A$"IC "PO0GO0LL0A$A$"BA "A$(A$" ",15)AL$"IM"BB1BA$(AL$,1)" "A$AL$" " BA$(BB$,BB1,1)" HY9)(PO4PO8)A$A$"AG "=RAM4HY4PO5A$A$"NA "i\(AM3AM4AM7AM9)PO8A$A$"IN "fPO7A$A$"NI "p(AM6AM8)(PO5PO9)(GO3GO10)A$A$"RI "zAM1AM6HY4A$A$"PO "HY0AM9A$A$"FL "HY10A$ABB0:B(5)9ST4BB1* UP$HX$" "UP$UP$(HE$,ST10,1)(HE$,SI1,1)(HE$,AM1,1)(HE$,HY1,1)(HE$,PO1,1)(HE$,GO1,1)(HE$,LL1,1)"-"(HE$,TL1,1) *A$""4PO8A$A$"HI ">PO4A$A$"LO "H(AM3AM10)(HY3PERIAL BASES.NB0:B(5)7NB1:ST2NB0TNB1ST1FL0(4).1NB2:FL1}SB0:B(8)(4ST)6SB1:ST4SB0SB1(ST1ST2)(5).5SB2BBNB:SB0BBSB4SB1NB1BB3SB2NB1BB4SB2NB2BB27808TLTL1:HY9TLTL1. &PO0PO6TLTL1@ 0PO9TLTL2S :PO10TLTL4j DGO0GO5TLTL1} NGO13TLTL2 XST0TLTL6 bST1TLTL4 lST2TLTL2 vST6TLTL4 ST6ST22 TL0TL0 AL$"IM"770  IMST6  POB(6)2+ GOB(6)7PO= LLB(6)7GOL LL0LL0[ GO0GO0j AM0AM0y HY0HY0 490 PO0:GO0:LL0:TL0  TLA(6) SI5TLTL1:TL2TLTL1 AM4TLTL1 AM9AM15TLTL1 HYAL$"NA"( AL$"NA"(4).3AL$"CS"7 SIB(5)2T "AMB(4)7SI:SI0AM0f ,HYB(5)7SIu 6SI2HY0 @AM2AM9HYHY4 JSTB(6):ST5ST1:390 TST7ST2:390 ^ST9ST3:390 hST10ST4:390 rST12ST5:390 |S" BB$" NDABSWMGZ"D HE$"0123456789ABCDEFGHJKLMNPQRSTUVWXYZ"a DE(DE$):DE1DE9931o DEDE100 N1:X132 Y140 (7)DE1060 X$("0"(X),2) Y$("0"(Y),2) HX$X$Y$ AL$""AL$"NA" AL$"CS"(4).1$(A$"Y",1):A$"N"UNEX1r d"SECTOR DENSITY? (1-99) > ";DE$:DE$("0"DE$,2):DE(DE$):DE1DE99100 n"SECTOR ALLEGIANCE? > ";AL$:AL$(AL$" ",2) xAL$""AL$"NA" AL$"CS"(4).1AL$"NA" AL$"NA"(4).3AL$"CS  N1 A(A)((A)6)17B(A)A(A)A(A)D(A$(500)L2:<"SECTOR GENERATOR ---------------------------------------"FP"SECTOR NAME? > ";FI$ Z"EXPLORED? (Y/N) > ";A$:A! ! ! ! ! !!!!!!!!!BL$:MNT0ĺ:"THE SHIP NEEDS ANNUAL MAINTENANCE."hBĭOP5((A$(0),26,1)"B"(A$(0),26,1)"W")50380xBĭST350380Bī50400BĄ"PERFORM IT NOW? > ";A$:1000:A$"Y"DAAD14:MNT0:"MAINTENANCE COST: ";((CST1E6).001)BIJCĢ23:"CONTINUE? ::"SECTOR GEN: ";::" PRODUCES A TRAVELLER SECTOR SUITABLE FOR USE WITH TRADER; CANBE EDITED WITH EDITOR."" ";::"SECTOR GEN.EXP:";::" PRODUCES AN EXPANDED SECTOR WHICH INCLUDES STELLAR DATA AS STATED IN SCOUTS."Z" ";::"SYSTEM G------------------------"" SYSTEM SURVEY PROVIDES PROGRAMS TO HELP IN THE PRODUCTION AND ANALYSIS OF WORLDS AND STAR SYSTEMS."" ";::"UPP ANALYSIS:";::" ALLOWS INPUT OF A UPP AND TELLS IF IT CONFORMS TO TRAVELLER RULES."q" ";DROYNE VARGR "  " IN ADDITION, A WORD ANALYZER ALLOWS A LANGUAGE SAMPLE TO BE INPUT, AND THEN PRODUCES WORDS USING THE SAME LETTER FREQUENCIES AS THE SAMPLE."185:"SYSTEM SURVEY ---------------5Z :"LANGUAGE ---------------------------------------" " LANGUAGE PROVIDES A WORD GENERATOR WHICH PRODUCES WORDS IN THE FOLLOWING LANGUAGES:"  " ASLAN K'KREE ZHODANI VILANI FOR ALL DEFINED TERRAIN TYPES ON ALL POSSIBLE WORLDS IN TRAVELLER."j " TWENTY-FOUR TERRAIN TYPES." " SPECIFIC TABLES FOR ANY WORLD (MINIMUMSIZE 1+, ATMOS 1+)." " ANIMAL ENCOUNTER TABLES CAN BE SAVED TO DISK OR SENT TO PRINTER." 18T- ABLY TRAVEL THROUGH A SECTOR; OR TO SUCCESSFULLY SURVEY IT; OR TO CARRY MESSAGES THROUGH IT."q 185 :"BEASTIARY ---------------------------------------"F " BEASTIARY PROVIDES ANIMAL ENCOUNTER TABLES ALL THE ROUTINE WORK OF INTERSTELLAR EXPLORATION, TRAVEL, TRADE AND COMMERCE TO BE HANDLED BY COMPUTER." " TRADER SHOWS WHAT WORLDS CAN BE REACHEDAND WHAT THEY WILL PROBABLY PROVIDE IN THE WAY OF PROFITS."h " TRADER PRESENTS A CHALLENGE TO PROFI(A$) BB1:A$" "AB) A0BA7 A$"/"ĀF B012000X A$"0"12000x A1000,2000,3000,4000,5000 A$"Q"11000 20 :"TRADER --------------------------------------"i " TRADER ALLOWS GRAMS ARE OFFERRED." A- F" 1. TRADER."C P" 2. BEASTIARY."X Z" 3. LANGUAGE."r d" 4. SYSTEM SURVEY." n" 5. ORDERING." B1 20 :"MORE DATA ON WHICH DISK? (/END, 0=INTRO) > ";A$ A$A$" ":A$(A$,1) AW  ADVERTISEMENTS:<"GDW TRAVELLER PROGRAMS"\(:"COPYRIGHT 1985 GDW INC"2:" GDW OFFERS FOUR DISK-BASED PROGRAM SETS FOR TRAVELLER. ALL ARE INTENDED AS REFEREE-AIDS AND FOLLOW THE TRAVELLERRULES." <:" THE FOLLOWING PRO" """""""""  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""" " "