a I :: Ia STAR MERCHANTa BY LLOYD JOHNSONb( b2 INITIALIZE SECTIONEb< A$(),B$(),A( ,),D( ),H(,)\bF P(),S(),T( )ubP)"STAR MERCHANT"bZ" YOU HAVE JUST SPENT 2 MILLION CREDITS ON A 2-YEAR"bd"LEASE FOR A MERCHANT STARSHIP. THIS LEAVES YOU WITH " cn"2 MILLION CREDITS FOR OPERATING CAPITAL."&cxgc" YOUR SHIP CAN HOLD A TOTAL OF 20 CARGOS WITH A TOTAL"c"CARGO WEIGHT OF 200 TONS. THE FUEL CAPACITY OF YOUR"c"SHIP IS GREAT ENOUGH SUCH THAT TRAVEL BETWEEN ANY"d"TWO STARPORTS IS POSSIBLE WITHOUT REFUELING."dZd" YOU ARE PRESENTLY TRAVELING FROM ALPHA CENTAURI TO SOL."|d"YOU ARE CARRYING NO CARGO."dd" THE STARPORT TRADE CLASSIFICATION DETERMINES THE CARGO"e"PRICE BUT DOES NOT DETERMINE WHICH CARGOS ARE AVAILABLE." eLe" ABBREVIATIONS USED FOR TRADE CLASSES ARE AS FOLLOWS:"e"R=RICH;P=POOR;I=INDUSTRIAL;NI=NON-INDUSTRIAL;"e"A=AGRICULTURIAL;NA=NON-AGRICULTURIAL."ee"PRESS RETURN TO CONTINUE";e" A$ f," COMMANDS AVAILABLE ARE AS FOLLOWS:"f6 4 -f@R1(() )3fJffT" INPUT RANDOM NUMBER BETWEEN 1 AND 500";vf^ I:I(I)|fhfr J If|D9(R1)f Jf A(R1)((R1))f B(N2)(N2(R1))f C(R1)A(R1)A(R1)gB2$tgD() gS1&gE1PC3gE2PC@gE3$tJgN2$TgN3 ^gW1hgW2W1wg I gH(I,)g& Ig0 g: I gD P(I)gN IgXT5gbT6glT7gv g MAIN LOGICh (R1) #z #yB2E3 h #hVh"ACCOUNT BALANCE ";B2;"EMPTY CARGO SPACE ";W2h"SHIP TIME ";T6;"YEARS. ENTER COMMAND";h C1h C1 C1 C1((C1)) h 4 h h C1 ,,6,l,,fhB3B2T1 i B3 z"i  T6T5 (iSi "THE LEASE HAS EXPIRED ON YOUR SHIP."hi* B3$t zi4"ANOTHER TWO-YEAR LEASE WILL COST YOU 2 MILLION CREDITS."i> "DO YOU WISH TO RENEW YOUR LEASE (Y/N)";iH A$iR A$"N" zj\B2B2$tjfT5T5jp *jz END PROGRAM?jG1(B3$t)T6MjA$"LOSS"^j G1 ljA$"GAIN"}j B3 jj"YOU NO LONGER HAVE SUFFICIENT FUNDS TO OPERATE YOUR SHIP."jj"YOU STARTED WITH 4 MILLION CREDITS,"k"AND YOU NOW HAVE ";B23k"CARGO IN HOLD IS WORTH ";T19ktk"THIS REPRESENTS A ";A$;" OF ";G1;"CREDITS PER YEAR."~k k STRIKE SUBROUTINEkk$"THE CREW HAS GONE ON STRIKE!"l."YOU ARE CURRENTLY PAYING THEM ";E3;"CREDITS ANNUAL SALARY."l8E5E3(R1)E3TlB"THEY ARE ASKING FOR ";E5;"CREDITS ANNUAL SALARY."]lLN4ulVE6E3N4(E5E3) {l`lj"WHAT IS YOUR COUNTER OFFER";lt E7l~ E7E5 l E7E6 l (E5E7)(E5E6)(R1) m"YOUR OFFER HAS BEEN REJECTED, TRY AGAIN."+mN4N45m VZm"YOUR OFFER HAS BEEN ACCEPTED."dmE3E7jm~m LIST HOLDINGSm"CARGO STORED IN HOLD..."m W2W1  m"ALL PARTITIONS ARE EMPTY."m:"(YOU'RE LOW ON STASH, TOO!)"m'n "PARTITION DESCRIPTION TONS";Dn" PRICE % OF BASE"Sn I Yn(nn2 H(I,) xn< J H(I,)nF A$nP JnZ A$nd " ## \ \ ### ######### ###";I,A$,H(I,),H(I,),H(I,) on THIS IS A GAPox Io2o LIST CARGO FOR SALEZo"CARGOS AVAILABLE FOR PURCHASE..."ko N2 o:"ALL AVAILABLE CARGOS HAVE BEEN PURCHASED."oo"CARGO NUM. DESCRIPTION TONS";o" PRICE % OF BASE."o I  pp A(I,) "-p J A(I,)6p A$>p JGp A$p " ## \ \ ### ######### ###";I,A$,A(I,),A(I,),A(I,)p" Ip,p6 BUY CARGO SUBROUTINEp@"WHICH LOT NUMBER WOULD YOU LIKE TO PURCHASE";qJ K(qT K((K)) K K rCq^"INVALID LOT NUMBER."Iqh^qr A(K,) q|"LOT ";K;"HAS ALREADY BEEN PURCHASED."qq A(K,)B2 q"YOU CANNOT BUY CARGO ON CREDIT."qq A(K,)W2 #r"YOU DO NOT HAVE SUFICIENT CARGO SPACE REMAINING.")r8r I Mr H(I,) Ur Ir"ALL 20 CARGO PARTITIONS ARE OCCUPIED."rr J rH(I,J)A(K,J)r JrA(K,)r&W2W2H(I,)r0B2B2H(I,)r:T6T6DxrDN1N1sN"TRANSACTION COMPLETED."=sX"CARGO STORED IN PARTITION ";ICsb_sl SELL CARGO SUBROUTINEsv"WHAT IS THE PARTITION # OF THE CARGO TO BE SOLD";s Ks K((K)) K K s"INVALID PARTITION NUMBER."st H(K,) &t"THAT CARGO PARTITION IS EMPTY.",t=tB2B2H(K,)NtW2W2H(K,)^tT6T6DxktH(K,)t"TRANSACTION COMPLETED."tt LIST STARPORTS SUBROUTINEt "STAR NUM NAME TRADE CLASS";t" DISTANCE DIRECTION"u u* I  u4 A$,B$yu> " ## \ \ \ \ ##.## ###";I,A$,B$,D(I),T(I)uH THIS IS ANOTHER GAPuR Iu\uf TRAVEL SUBROUTINEup B2 vz"YOU CANNOT LEAVE STARPORT UNTIL ALL DEBTS ARE CLEARED."v=v"WHAT IS YOUR DESTINATION STAR'S NUMBER";Ev IWv IS1 tv"YOU ARE ALREADY AT ";Izvv I((I)) I IN3 v"INVALID STAR NUMBER."vvS1Iv GET STAR TRADE AND LOCATION DATAv  w S1 $ #w I (S1),w D94w ICw$ X3,Y3,M1Qw. I `w8 M2(I)swB S(I)(M1M2)wL M1M1S(I)M2wV Iw` APPRAISE CARGO IN HOLDwj T1wt I w~ H(I,) F w  w H(I,)  x J (H(I,))x D9 x J)x D27x J @x D3Rx D2D2D3S(J)Zx Jcx B1vx P2C(R1)D2x P2  x P2x P2 ( x P2x( H(I,)P(P2)dx2 H(I,)P(P2)B1H(I,)x< T1T1H(I,)xF IyP GET CARGOS FOR SALEyZ N1&yd I  /yn D2=yx T2B(N2)Ky A(I,)T2Uy  fy T2  {y J (T2)y D9y Jy J y D3y D2D2D3S(J)y Jy P2C(R1)D2y P2  y P2y P2  z P2z A(I,)P(P2)d&z" B1,Q1/z, Q2Az6 T2 ^ Jz@ Q2\zJ T2 ^ fzT Q2 oz^ Q3~zh J Q1zr Q3A(R1)Q2Q3z| Jz A(I,)Q3z A(I,)B1Q3P(P2)z Iz DISTANCE AND DIRECTION OF STARSz D4D(S1){  { I  "{ X1,Y1,D9/{ X2X1X3<{ Y2Y1Y3N{ X2 & _{ Y2  k{ T(I)Zu{ l { T(I){ l {& T(I)(Y2X2)I{0 X2 D {: T(I)T(I){D T(I)h X {N T(I)T(I)h|X T(I) l |b T(I)T(I)h-|l D(I)(X2Y2)5|v IZ| ARRIVAL EXPENSES AND STAR NAMEs| T6T6 #{D4 #{| E4(T6T7)E3| T7T6| | S1  | I S1| A$,B$| I| A$,B$| } "YOU HAVE ARRIVED (SAFELY) AT ";A$4} "EXPENSES HAVE BEEN DEDUCTED AS FOLLOWS:"K} "DOCKING FEE ";E1^} "FUEL ";E2D4u} "CREW SALARY ";E4} B2B2(E1E2D4E4)}* }4 );"COMMAND";);"DESCRIPTION"}> );"1";);"LIST CARGO IN HOLD"~H );"2";);"LIST CARGO WHICH MAY BE PURCHASED"5~R );"3";);"BUY CARGO"T~\ );"4";);"SELL CARGO"w~f );"5";);"LIST STARPORTS"~p );"6";);"TRAVEL TO NEW STAR"~z );"OTHER";);"LIST AVAILABLE COMMANDS"~ ~ RESTORE TO STAR DATA SUBROUTINE  L (N3N2)  A$( L. U RESTORE TO CARGO DATA SUBROUTINE_  p L N3y D9 L  RESTORE TO PRICE DATA SUBROUTINE   L N2$ D9. L8B STAR NAMESL "LALANDE 21185","NI,P",V "ALPHA CENTAURI","NA,I">` "SIRUS","A"[j "BERNARD'S STAR","I,P"kt "SOL","R"~ "ROSS 154","NI,NA" "EPSILON ERIDANI","A,P" "LUYTEN 726-8","NA"ڀ "LUYTEN 789-6","A,NI,P" "ROSS 248","A,I" CARGO NAMES "CRYSTALS") "RADIOACTIVES"@ "SPECIAL ALLOYS"X "PHARMACEUTICALS"e "GEMS"v "AIRCRAFT" "GRAV SLEDS" "COMPUTERS"  "ATV" "AFV"ā "FIREARMS"ׁ( "AMMUNITION"2 "PLASMA GUNS"< "TOOLS" F "BODY ARMOR"#P "FARM MACHINERY"2Z "LIQUOR"Ad "SILVER"Pn "SPICES"ix "ELECTRONIC PARTS" "MECHANICAL PARTS" "CYBERNETIC PARTS" "COMPUTER PARTS"Ȃ "MACHINE TOOLS"܂ "SPACE SUITS"ꂴ "FRUIT" "TEXTILES"  "POLYMERS" "MEAT"0 "PETROCHEMICALS"> "GRAIN"K "WOOD"Z "COPPER"f "TIN"t "STEEL" "ALUMINUM"" STAR DATA, 2.83,-7.36,206 -2.4,-3.56,9΃@ 8.38,9.93,2ރJ -6.1,0,24T 0,0,32^ -8.87,2.05,5h 8.45,6.65,18#r 2.99,7.42,16| -4.43,9.3,22J -.89,10.26,10[ CARGO DATAx 3,-2,2,-2,0,-4,20000,1 0,1,4,-3,0,-2,1E+06,1 -2,0,-4,6,1,-2,200000,1Є -1,4,-4,3,-2,0,100000,1 4,-2,4,-4,-1,1,1E+06,1  -2,4,-3,3,1,-1,1E+06,1% 2,0,-1,1,0,0,6E+06,1@ 1,0,-2,0,0,0,1E+07,1] -2,2,-2,1,1,0,300000,1y 0,2,-2,0,0,1,700000,1 -2,6,-4,1,0,0,30000,2 -1,6,-5,2,0,0,30000,2΅ -1,3,-2,0,0,0,200000,2 -4,7,-8,4,5,0,10000,2& -3,6,-4,1,0,0,50000,2$0 -2,2,-6,0,6,-4,150000,1@: 3,3,-1,0,-3,0,10000,1]D 6,-1,3,-1,0,-2,70000,1yN 4,-2,3,-1,-5,2,6000,1X 0,0,-4,4,1,1,100000,1b 0,1,-3,3,2,1,75000,1̆l 1,0,-4,2,1,0,250000,1v -1,0,-2,3,0,0,150000,1 1,0,-2,1,0,0,750000,1" -1,2,-3,2,2,0,400000,1= 1,2,3,3,-4,-6,1000,2Y 3,0,-3,1,-5,-3,3000,3s -2,0,3,3,0,0,7000,4 0,0,5,2,-5,5,1500,4 2,0,4,-2,3,0,10000,6 0,0,1,3,-5,6,300,8ۇ 0,0,1,2,-7,3,1000,2 2,2,3,-2,-1,-4,2000,2 2,2,3,-4,-1,-2,9000,3, -1,2,6,0,0,0,500,4H -1,1,3,-2,0,-2,1000,5Y PRICE DATA  .4,.5,.7,.8,.9,1,1.1,1.2,1.3,1.5,1.7,2,3,4 -1,2,6,0,0,0,500,4H -1,1,3,-2