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#:)"NOTE: TRANSITION FROM 'NORMAL-' TO 'HYPER-' SPACE"\f$"RESULTS IN WARP-INDUCED PHOTONIC STRESS EMMISSIONS WHICH"f%"CAUSE OPTICAL SCANNERS TO OPERATE ERRATICALLY.":f," COMMANDS AVAILABLE ARE AS FOLLOWS:"f6 4 f@R1(() )fJgT" INPUT RANDOM NUMBER BETWEEN 1 AND 500";,g^ I:I(I)2gh@gr J INg|D9(R1)Vg Jrg A(R1)((R1))g B(N2)(N2(R1))g C(R1)A(R1)A(R1)gB2$tgB4gD() gS1gE1PCgE2PCgE3$t hN2$hN3 hW1'hW2W16h I ChH(I,)Kh& IUh0 dh: I ohD P(I)whN IhXT5hbT6hlT7hv h MAIN LOGICh B31n h \h (R1) #z #yB2E3 h ioi "\ \ #########,.## \ \ ###";"ACCOUNT BALANCE ";B2;"EMPTY CARGO SPACE ";W2i"SHIP TIME ";T6;"YEARS. ENTER COMMAND";i C1i C1c zi C1 C1 C1((C1)) i 4 i j C1 ,,6,l,,f,p-jB3B2B4T1>j B3 zTj  T6T5 Zjj "THE LEASE HAS EXPIRED ON YOUR SHIP."j* B3$t zj4"ANOTHER TWO-YEAR LEASE WILL COST YOU 2 MILLION CREDITS."k> "DO YOU WISH TO RENEW YOUR LEASE (Y/N)";kH A$$kR A$"N" z4k\B2B2$t@kfT5T5Jkp \kz END PROGRAMwk B2B4T1(kn k"YOU CAN NOW RETIRE."kG1(B3B4$t)T6kA$"LOSS"k G1 kA$"GAIN"k B3 l();(0);(@)l C1c Ul"YOU NO LONGER HAVE SUFFICIENT FUNDS TO OPERATE YOUR SHIP."pl ();(0);(@)l"YOU STARTED WITH 4 MILLION CREDITS,"l"AND YOU NOW HAVE ";B2l"CARGO IN HOLD IS WORTH ";T1m"SOLARIAN EXPRESS ACCOUNT BALANCE ";B4 mFm"THIS REPRESENTS A ";A$;" OF ";G1;"CREDITS PER YEAR."Pm hm STRIKE SUBROUTINEnmm$"THE CREW HAS GONE ON STRIKE!"m."YOU ARE CURRENTLY PAYING THEM ";E3;"CREDITS ANNUAL SALARY."m8E5E3(R1)E3&nB"THEY ARE ASKING FOR ";E5;"CREDITS ANNUAL SALARY."/nLN4GnVE6E3N4(E5E3) Mn`pnj"WHAT IS YOUR COUNTER OFFER";ynt E7n~ E7E5 n E7E6 n (E5E7)(E5E6)(R1) n"YOUR OFFER HAS BEEN REJECTED, TRY AGAIN."nN4N4o V,o"YOUR OFFER HAS BEEN ACCEPTED."6oE3E7vOvB2B2H(K,)`vW2W2H(K,)pvT6T6Dx}vH(K,)v"TRANSACTION COMPLETED."vv LIST STARPORTS SUBROUTINEv "STAR NUM NAME TRADE CLASS";w" DISTANCE DIRECTION"w $w* I  0w4 A$,B$w> " ## \ \ \ \ ##.## ###";I,A$,B$,D(I),T(I)wH THIS IS ANOTHER GAPwR Iw\wf TRAVEL SUBROUTINEwp B2 xz"YOU CANNOT LEAVE STARPORT UNTIL ALL DEBTS ARE CLEARED." xOx"WHAT IS YOUR DESTINATION STAR'S NUMBER";Wx Iix IS1 x"YOU ARE ALREADY AT ";Ixx I((I)) I IN3 x"INVALID STAR NUMBER."xxS1I y( ): GET STAR TRADE AND LOCATION DATAy()?y I : J :" ";My J:: Ihy ();(0);(R)ry  y S1 $ y I (S1)y D9y Iy$ X3,Y3,M1y. I y8 M2(I)yB S(I)(M1M2)yL M1M1S(I)M2zV Iz` APPRAISE CARGO IN HOLD(zj T17zt I Lz~ H(I,) F Vz  kz H(I,)  z J (H(I,))z D9z Jz D2z J z D3z D2D2D3S(J)z Jz B1z P2C(R1)D2z P2  { P2{ P2 ( !{ P25{( H(I,)P(P2)dP{2 H(I,)P(P2)B1H(I,)a{< T1T1H(I,)i{F I{K ();(0);(S){P GET CARGOS FOR SALE{Z N1{d I  {n D2{x T2B(N2){ A(I,)T2{  { T2  | J (T2)| D9| J)| J 2| D3D| D2D2D3S(J)L| J_| P2C(R1)D2p| P2  y| P2| P2  | P2| A(I,)P(P2)d|" B1,Q1|, Q2|6 T2 ^ |@ Q2|J T2 ^ |T Q2 |^ Q3 }h J Q1!}r Q3A(R1)Q2Q3)}| J7} A(I,)Q3N} A(I,)B1Q3P(P2)V} Ip} ();(0);(R)} DISTANCE AND DIRECTION OF STARS} D4D(S1)}  } I  } X1,Y1,D9} X2X1X3} Y2Y1Y3} X2 & ~ Y2  ~ T(I)Z~ l +~ T(I)5~ l Q~& T(I)(Y2X2)Ib~0 X2 D s~: 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)~v I ARRIVAL EXPENSES AND STAR NAME T6T6 #{D4 #{. E4(T6T7)E38 T7T6> O S1  ` I S1l A$,B$t I A$,B$  () I  :: I "YOU HAVE ARRIVED (SAFELY) AT ";A$ "EXPENSES HAVE BEEN DEDUCTED AS FOLLOWS:" "DOCKING FEE ";E1( "FUEL ";E2D4? "CREW SALARY ";E4W B2B2(E1E2D4E4)m% B4(kn zs* 4 );"COMMAND";);"DESCRIPTION"> );"1";);"LIST CARGO IN HOLD"H );"2";);"LIST CARGO WHICH MAY BE PURCHASED"R );"3";);"BUY CARGO"4\ );"4";);"SELL CARGO"Wf );"5";);"LIST STARPORTS"~p );"6";);"TRAVEL TO NEW STAR"u );"7";);"GO TO SOLARIAN EXPRESS OFFICE"Ӂy );"99";);"TO EXIT GAME"z );"OTHER";);"LIST AVAILABLE COMMANDS" 0 RESTORE TO STAR DATA SUBROUTINE6 L L (N3N2)U A$] Lc RESTORE TO CARGO DATA SUBROUTINE  L N3 D9 L  RESTORE TO PRICE DATA SUBROUTINE   L N2$ D9. L8&B STAR NAMESCL "LALANDE 21185","NI,P"aV "ALPHA CENTAURI","NA,I"s` "SIRUS","A"j "BERNARD'S STAR","I,P"t "SOL","R"~ "ROSS 154","NI,NA"׃ "EPSILON ERIDANI","A,P" "LUYTEN 726-8","NA" "LUYTEN 789-6","A,NI,P"& "ROSS 248","A,I"8 CARGO NAMESI "CRYSTALS"^ "RADIOACTIVES"u "SPECIAL ALLOYS" "PHARMACEUTICALS" "GEMS" "AIRCRAFT" "GRAV SLEDS"Є "COMPUTERS"܄  "ATV" "AFV" "FIREARMS" ( "AMMUNITION" 2 "PLASMA GUNS".< "TOOLS"AF "BODY ARMOR"XP "FARM MACHINERY"gZ "LIQUOR"vd "SILVER"n "SPICES"x "ELECTRONIC PARTS" "MECHANICAL PARTS"Ѕ "CYBERNETIC PARTS"煖 "COMPUTER PARTS" "MACHINE TOOLS" "SPACE SUITS" "FRUIT"0 "TEXTILES"A "POLYMERS"N "MEAT"e "PETROCHEMICALS"s "GRAIN" "WOOD" "COPPER" "TIN" "STEEL" "ALUMINUM"ʆ" STAR DATAކ, 2.83,-7.36,206 -2.4,-3.56,9@ 8.38,9.93,2J -6.1,0,24 T 0,0,323^ -8.87,2.05,5Fh 8.45,6.65,18Xr 2.99,7.42,1k| -4.43,9.3,22 -.89,10.26,10 CARGO DATA 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,1Z 2,0,-1,1,0,0,6E+06,1u 1,0,-2,0,0,0,1E+07,1 -2,2,-2,1,1,0,300000,1 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,2Y0 -2,2,-6,0,6,-4,150000,1u: 3,3,-1,0,-3,0,10000,1D 6,-1,3,-1,0,-2,70000,1N 4,-2,3,-1,-5,2,6000,1ʉX 0,0,-4,4,1,1,100000,1b 0,1,-3,3,2,1,75000,1l 1,0,-4,2,1,0,250000,1v -1,0,-2,3,0,0,150000,1: 1,0,-2,1,0,0,750000,1W -1,2,-3,2,2,0,400000,1r 1,2,3,3,-4,-6,1000,2 3,0,-3,1,-5,-3,3000,3 -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,2H 2,2,3,-4,-1,-2,9000,3a -1,2,6,0,0,0,500,4} -1,1,3,-2,0,-2,1000,5 PRICE DATA  .4,.5,.7,.8,.9,1,1.1,1.2,1.3,1.5,1.7,2,3,4ŋ\:"THERE IS AN URGENT REQUEST THAT YOU VISIT THE NEAREST"&]"SOLARIAN EXPRESS OFFICE...",fQp S() S() S() z"THERE IS NO SOLARIAN EXPRESS OFFICE AT THIS STARPORT." B3(kn ،"MESSAGE TO MASTER OF MERCHANT STARSHIP:":"YOU ARE A BILLIONAIRE!!":A"WE HEREBY EXTEND OUR HEARTIEST CONGRATULATIONS AND ADVISE THAT""YOU SELL ALL CARGOS AND JUMP FOR SOL. (WAY TO GO, YOU LUCKY DOG.)":7)"MESSAGE ENDS.": ~"I DID NOT UNDERSTAND YOUR ANSWER, SO I'LL ASK YOU AGAIN,"1"DO YOU WISH TO MAKE A DEPOSIT TO YOUR ACCOUNT (Y/N)";A$P (A$"Y" A$"N") ~c A$"N" t B4 "OUR RECORDS DO NOT SHOW THAT YOU HAVE AN ACCOUNT WITH US."ӎ:"ALLOW ME TO EXPLAIN:":"SOLARIAN EXPRESS SELLS A SERVICE."C"THIS SERVICE LETS YOU TRANSFER FUNDS BETWEEN THE HOME OFFICE,""ON SOL, AND ANY OUT-LYING CLASS 'A' OR 'I' STARPORT, OR VICE-""VERSA."׏:"TO OPEN AN ACCOUNT, A DEPOSIT OF TEN MILLION CREDITS IS""REQUIRED, OF WHICH ONE MILLION WILL BE DEDUCTED FOR ADMINI-"0"STRATIVE FEES."{:"DEPOSITS TRANSFERED FROM OUT-LYING STARPORTS WILL NOT BE ACCEPTED"Ő "UNLESS THEY ARE IN INCREMENTS OF TEN MILLION CREDITS. WITHDRAWLS," "HOWEVER, IF MADE FROM AN OUT-LYING STARPORT, MAY BE MADE FOR ANY"P"MULTIPLE OF ONE MILLION CREDITS, PLUS THE TRANSMISSION FEE."(:"DUE TO THE EXTREMELY HIGH COST OF SUB-COM TRANSMISSIONS,"ݑ2"A FEE OF ONE MILLION CREDITS WILL BE DEDUCTED FROM EACH TRANSACTION" <"THAT OCCURES AT AN OUT-LYING STARPORT."/A "PRESS RETURN TO CONTINUE";A$zF:"TRANSACTIONS THAT OCCURE AT SOL'S STARPORT MAY BE IN MULTIPLES OF"ĒP"ONE MILLION CREDITS (EXCEPT FOR THE OPENING OF AN ACCOUNT), AND AS" Z"SUB-COM TRANSMISSIONS ARE NOT REQUIRED THERE, TRANSMISSION FEES"Md"WILL NOT BE DEDUCTED FROM TRANSACTIONS ORIGINATING AT SOL."Wh ei"HUNH?";n: "DO YOU UNDERSTAND, ACCEPT AND AGREE TO THESE TERMS (Y/N";A$ɓx (A$"Y" A$"N") ܓ A$"N"  B2T1 B2B2B4B4@T ' S() 7B4B4$tT"TRANSACTION COMPLETE.""THANK YOU FOR OPENING AN ACCOUNT WITH SOLARIAN EXPRESS."ٔ"BUT YOU DO NOT SEEM TO HAVE SUFFICIENT FUNDS TO MAKE THE""REQUIRED TRANSACTION, SO...";"WE THANK YOU FOR DISCUSSING THIS MATTER WITH US, AND WE"_"HOPE TO SEE YOU AGAIN, SOON."e "HOW MUCH WOULD YOU LIKE TO DEPOSIT";C1 S() rʕ (C1)C1 , "THAT IS AN IMPROPER AMOUNT FOR TRANSFER, PLEASE RE-ENTER."" ., B2T1 Jg6"INSUFFICIENT FUNDS FOR TRANSFER. REQUEST DENIED."m@zJB2B2C1TB4B4C1$t^"TRANSACTION COMPLETE. THANK YOU."hߖr (C1$t)C1$t |"IMPROPER AMOUNT FOR TRANSFER, PLEASE RE-ENTER." 8 B2T1$t q"INSUFFICIENT FUNDS FOR TRANSFER. REQUEST DENIED."wB2B2C1B4B4C1 ^ B4 Ɨ"WELL THEN, ";"HOW MANY CREDITS DO YOU NEED TRANSFERED FROM "; "YOUR ACCOUNT";C1& B4C1 J (C1$t)C1$t "IMPROPER AMOUNT FOR TRANSFER, PLEASE RE-ENTER."  (S() S()) :& B4$tC1 ј0B4B4$tޘ:B4B4C1DB2B2C1'N"TRANSACTION COMPLETE. GLAD TO HAVE BEEN OF SERVICE."-X$tC1