I STAR TRADERSI - MODIFIED FOR 'ALTAIR BASIC 4.0' BY - S J SINGERIJ J# CJ$ ILJ( M( , ),S(,),N$(),D1(),S1(),Q(),M$( ),C$()bJ2 C1$(),C2$()~J< 1,"'ALTAIR STARWAYS'"JF 2,"'BETELGEUSE,LTD.'"JP 3,"'CAPELLA FREIGHT CO.'"JZ 4,"'DENEBOLA SHIPPERS'"Jd 5,"'ERIDANI EXPEDITERS'" KnZ1$()()Kx Z1$&K I 7K J iKS(I,J): D1(I): S1(I)d: Q(I): B(I)ptK J~K IKL$".+*ABCDE"KM$"ABCDEFGHIJKL"K" ********** STAR TRADERS **********":K:L "TYPE A 3 DIGIT NUMBER ";R1"LR1(R1)2L I DL J  uL ((R1)) M(I,J) : M(I,J)L JL IL Z1$L" "HOW MANY PLAYERS (1-4) ";P1L,:L6 "DOES ANY PLAYER NEED INSTRUCTIONS "M; "(Type 0 for NO)";QM@ Q R "MJ Z1$3MT I P1EM^ "PLAYER",I,eMr " WHAT IS YOUR NAME ";P$xM| I P1$P$M I P2$P$M I P3$P$M I P4$P$M IM Z1$M  ),"...NOW I WILL DECIDE WHO GOES FIRST...":: :N:N::'NI(P1(R1))1N ;N &ANpN I ,,,: - IDENTIFY PLAYERN P1$;:P5$P1$: N P2$;:P5$P2$: N P3$;:P5$P3$: N P4$;:P5$P4$: N& " IS THE FIRST PLAYER TO MOVE."O0 W : O:KODPI: b/ONKK: K0 bIOXPP: PP1 PrOb I : SELECT 5 LEGAL MOVESOlR(I)((R1))OvC(I)( (R1))O I1I  O R(I)R(I1) C(I)C(I1) lO I1P M(R(I),C(I)) lP I1 /P Q(I1) f;P I1XP M(R(I),C(I)) fuP M(R(I),C(I)) fP M(R(I),C(I)) fP M(R(I),C(I)) fPA1M(R(I),C(I))PA2M(R(I),C(I))PA3M(R(I),C(I))Q A4M(R(I),C(I)).Q A1 A2 A3 A4 lUQ  A2 A1 A3 A4 l|Q* A3 A1 A2 A4 lQ4 A4 A1 A2 A3 lQ> A1 A2 A3 A4 lQH A2 A1 A3 A4 lRR A3 A1 A2 A4 l?R\ A4 A1 A2 A3 lIRf ISRp  YRzaRIPkR R ", HERE ARE YOUR LEGAL MOVES FOR THIS TURN"RR I R R(I);(M$,C(I),);" ";R IR:S "WHAT IS YOUR MOVE ";R$S (R$) R$"S";S (R$,)"M" R$"" : ES  OS qS (R$,)"S" R$"" : ${S  S S$ (R$) VS. ((R$,,))@ VS8 ((R$,,))@ V : `SB (R$) V TL (R$) VBTV "I DIDN'T UNDERSTAND THAT - TRY AGAIN ": UT`R((R$,))kTjC((R$,))@|Tt I  T~ RR(I) CC(I) T IT "THAT SPACE WAS NOT INCLUDGD IN THE LIST..."T TA1M(R,C)UA2M(R,C)UA3M(R,C) UA4M(R,C)VU A1 A2 A3 A4 M(R,C) : `U U A1 A2 A2A1 : - LINE 2090 ISU A1 A3 A3A1  THE MERGER SUB.U A1 A4 A4A1 V A2 A3 A3A2 4V  A2 A4 A4A2 WV A3 A4 A4A3 }V A1 A2 A3 A4 V( M(R,C) V2 A1 IA1V< A2 IA2VF A3 IA3VP A4 IA4VZQ(I)Q(I)WdS1(I)S1(I)dWnM(R,C)IWx ".W I AW Q(I) KW IeW M(R,C) M(R,C)oW yW Z1$W * W "A NEW SHIPPING COMPANY HAS BEEN FORMED !"W "IT'S NAME IS ",WW N,C$W IN W C$ XS(I,P)S(I,P)XQ(I)!X:::>X" A1 S1(I)S1(I)[X, A2 S1(I)S1(I)xX6 A3 S1(I)S1(I)X@ A4 S1(I)S1(I)XJ A1 S1(I)S1(I)d : hXTQ(I)Q(I)X^M(R,C)IXh A2 S1(I)S1(I)d :  YrQ(I)Q(I)Y|M(R,C)I@Y A3 S1(I)S1(I)d : PYQ(I)Q(I)aYM(R,C)IY A4 S1(I)S1(I)d : YQ(I)Q(I)YM(R,C)IY S1(I) T1I : Y  YM(R,C)IY I ZB(P)B(P)(L|S(I,P)S1(I))Z I)Z I " ";R2;" "; ]HC2 ]R" ";']\Z2M(R2,C2)9]fZ2Z2Z2N]p(L$,Z2,)" ";T]Z]`]f]]F1A1: F1 F1: SUBROUTINE - CALCULATES THE]F2A2: F2 F2: SURVIVOR IN THE EVENT^F3A3: F3 F3: OF A MERGER"^F4A4: F4 F4.^TQ(F1)8^T1F1[^ Q(F2)Q(F1) TQ(F2) : e^T1F2^ Q(F3)T TQ(F3) :  ^ T1F3^ Q(F4)T TQ(F4) : $ ^ T1F4^$ F1T1 A1 B ^. XF1^8  ^B F2T1 A2 ` _L XF2_V  (_` F3T1 A3 ~ 1_j XF3;_t  T_~ F4T1 A4  ]_ XF4g_  m_ w_ Z1$_ * : SUBROUTINE - PERFORMS CALCULATIONS_ : TO ACCOMPLISH A MERGER_ N,C$_ XN  _ C1$C$` C1$;*` " HAS JUST BEEN MERGED INTO ";0` ;` N,C$M` T1N  X` C2$C$f` C2$;"!"`2 "PLEASE NOTE THE FOLLOWING TRANSACTIONS."`< `F );"OLD STOCK = ";C1$;" NEW STOCK = ";`P C2$`Z ad "PLAYER"; );"OLD STOCK";);"NEW STOCK";?an ");"TOTAL HOLDINGS";5);"BONUS PAID"Pax I P1Za a  );S(X,I););((S(X,I)));a ");S(T1,I)((S(X,I)));a X1a I1 P1a X1X1S(X,I1)a b 5);" $";( ((S(X,I)X1)S1(X)))%b I6b I P1cb S(T1,I)S(T1,I)((S(X,I)))b B(I)B(I)( ((S(X,I)X1)S1(X)))b Ib I b J  b M(I,J)X M(I,J)T1b" Jb, Ib6 A1M(R,C) c@ A2M(R,C)cJ A3M(R,C),cT A4M(R,C)8c^ F1A3Jch F1 F1Vcr F2A2hc| F2 F2}c Q(T1)Q(T1)Q(X)c S1(T1)S1(T1)S1(X)c S1(T1)  c F3A3c F3 F3c F4A4c F4 F4c S1(X)dd Q(X)d I P1!d S(X,I)+d I3d :Cd M(R,C)T1Id d * : SUBROUTINE - CALCULATES STOCK SPLITSd& "THE STOCK OF ",d0 d: N,C$dD T1N : dN C$,dX " HAS SPLIT 2 FOR 1 !"db S1(T1)(S1(T1))el :ev I1 P1-e S(T1,I1)S(T1,I1)8e I1>e He Z1$Ne te "STOCK";);"PRICE PER SHARE";e 2);"YOUR HOLDINGS"e I3 e S1(I3)d  e e N,C$e I3N  e C$,f );S1(I3);2);S(I3,P) f I3f f %f* ()Mf4 );"SPECIAL ANNOUNCEMENT !!!":Sf> YfH cfR Z1$f\ " STAR LANES IS A GAME OF INTERSTELLAR TRADING."ff "THE OBJECT OF THE GAME IS TO AMASS THE GREATEST AMOUNT"gp "OF MONEY. THIS IS ACCOMPLISHED BY ESTABLISHING VAST,"Vgz "INTERSTELLAR SHIPPING LANES, AND PURCHASING STOCK IN"g "THE COMPANIES THAT CONTROL THOSE TRADE ROUTES. DURING"g "THE COURSE OF THE GAME, STOCK APPRECIATES IN VALUE AS"h "THE SHIPPING COMPANIES BECOME LARGER. ALSO, SMALLER"Lh "COMPANIES CAN BE MERGED INTO LARGER ONES, AND STOCK"h "IN THE SMALLER FIRM IS CONVERTED INTO STOCK IN THE"h "LARGER ONE AS DESCRIBED BELOW.":h "EACH TURN, THE COMPUTER WILL PRESENT THE PLAYER WITH"(i "FIVE PROSPECTIVE SPACES TO OCCUPY ON A 9X12 MATRIX"fi "(ROWS 1-9, COLUMNS A-L). THE PLAYER, AFTER EXAMINING"i "THE MAP OF THE GALAXY TO DECIDE WHICH SPACE HE WISHES"i "TO OCCUPY, RESPONDS WITH THE ROW AND COLUMN OF THAT"j "SPACE, I.E., 7E, 8A, ETC. THERE ARE FOUR POSSIBLE"@j "MOVES A PLAYER CAN MAKE."::FjPj $Zj Lj$ "PRESS RETURN TO CONTINUE";X2$jBjL Z1$jV " 1. HE CAN ESTABLISH AN UNATTACHED OUTPOST- IF HE" k` "SELECTS A SPACE THAT IS NOT ADJACENT TO A STAR, ANOTHER"Jkj "UNATTACHED OUTPOST, OR AN EXISTING SHIPPING LANE, THIS"kt "SPACE WILL BE DESIGNATED WITH A '+'. HE WILL THEN PROCEED"k~ "WITH STOCK TRANSACTIONS, AS LISTED BELOW.":k " 2. HE CAN ADD TO AN EXISTING LANE- IF HE SELECTS A"=l "SPACE THAT IS ADJACENT TO ONE - AND ONLY ONE EXISTING"zl "SHIPPING LANE, THE SPACE HE SELECTS WILL BE ADDED TO"l "THAT SHIPPING LANE AND WILL BE DISIGNATED WITH THE FIRST"l "LETTER OF THE COMPANY THAT OWNS THAT LANE. IF THERE ARE":m "ANY STARS OR UNATTACHED OUTPOSTS ALSO ADJACENT TO THE"{m "SELECTED SPACE, THEY, TOO, WILL BE INCORPORATED INTO THE"m "EXISTING LANE. EACH NEW SQUARE ADJACENT TO A STAR ADDS"m "$500 PER SHARE, AND EACH NEW OUTPOST ADDS $100 PER SHARE"6n "TO THE MARKET VALUE OF THE STOCK OF THAT COMPANY.">n:Hn $Rn Z1$n  " 3. HE MAY ESTABLISH A NEW SHIPPING LANE- IF THERE"n "ARE FIVE OR LESS EXISTING SHIPPING LANES ESTABLISHED,"o "THE PLAYER MAY, GIVEN THE PROPER SPACE TO PLAY, ESTABLISH"Qo( "A NEW SHIPPING LANE. HE MAY DO THIS BY OCCUPYING A SPACE"o2 "ADJACENT TO A STAR OR ANOTHER UNATTACHED OUTPOST, BUT"o< "NOT ADJACENT TO AN EXISTING SHIPPING LANE. IF HE"pF "ESTABLISHES A NEW SHIPPING LANE, HE IS AUTOMATICALLY"BpP "ISSUED 5 SHARES KN THE NEW COMPANY AS A REWARD. HE"pZ "MAY THEN PROCEED TO BUY STOCK IN ANY ACTIVE COMPANY,"pd "INCLUDKNG THE ONE JUST FORMED, AS DESCRIBED BELOW."pn "THG MARKET VALUE OF THE NEW STOCK IS ESTABLISHED BY"3qx "THE NUMBER OF STARS AND OCCUPIED SPACES AS DESCRIBED"Hq "IN #2 ABOVE."Pq:Zq $dq Z1$q " 4. HE MAY MERGE TWO EXISTING COMPANIES- IF A PLAYER"q "SELECTS A SPACE ADJACENT TO TWO EXISTING SHIPPING"!r "LANES, A MERGER OCCURS. THE LARGER COMPANY TAKES OVER THE"`r "SMALLER COMPANY - (IF BOTH COMPANIES ARE THE SAME SIZE"r "PRIOR TO THE MERGER, THEN THE SURVIVOR IS DETERMINED BY"r "ALPHABETICAL ORDER OF THE TWO COMPANY NAMES - THE EARLIER"s "SURVIVES). THE STOCK OF THE SURVIVING COMPANY IS"Ys "INCREASED IN VALUE ACCORDING TO THE NUMBER OF SPACES"s "AND STARS ADDED TO ITS LANE. EACH PLAYERS STOCK IN"s "THE DEFUNCT COMPANY IS EXCHANGED FOR SHARES KN THE" t "SURVIVOR ON A RATIO OF 2 FOR 1. ALSO, EACH PLAYER"Gt "IS PAID A CASH BONUS PROPORTIONAL TO THE PERCENTAGE"t" "OF OUTSTANDING STOCK HE HELD IN THE DEFUNCT COMPANY."t, "NOTE: AFTER A COMPANY BECOMES DEFUNCT THROUGH THE"t6 "MERGER PROCESS, IT CAN REAPPEAR ELSEWHERE ON THE"1u@ "BOARD WHEN, AND IF, A NEW COMPANY IS ESTABLISHED."9uJ:CuT $Mu^ Z1$uh " NEXT THE COMPUTER CDDS STOCK DIVIDENDS TO THE PLAYER'S"ur "CASH ON HAND (5% OF THE MARKET VALUE OF THE STOCK IN HIS"v| "POSSESSION), AND OFFERS HIM THE OPPORTUNITY TO PURCHASE"Kv "STOCK KN ANY OF THE ACTIVE COMPANIES ON THE BOARD."v "STOCK MAY NOT BE SOLD, BUT THE MARKET VALUE OF EACH"v "PLAYER'S STOCK IS TAKEN INTO ACCOUNT AT THE END OF THE" w "GAME TO DETERMINE THE WINNER. IF THE OARKET VALUE OF A GIVEN"Iw "STOCK EXCEEDS $3000 AT ANY TIME DURING THE GAME, THAT"w "STOCK SPLITS 2 FOR 1. THE PRICE IS CUT IN HALF, AND"w "THE NUMBER OF SHARES OWNED BY GACH PLAYER IS DOUBLED."w x "NOTE: THE PLAYER MAY LOOK AT HIS PORTFOLIO AT ANY TIME"Kx "DURING THE COURSE OF HIS TURN BY RESPONDING WITH 'STOCK'"x "TO AN INPUT STATEMENT. LIKEWISE, HE CAN REVIEW THE MAP"x "OF THE GALAXY BY TYPING 'MAP' TO AN INPUT STATEMENT."x:x $x Z1$x:::::::$y& );"** GAME ENDS AFTER 48 MOVES **"0y0:::xy: "PLAYER WITH THE GREATEST NET WORTH AT THAT POINT IS THE WINNER."yD:yN W : WyXyb Z1$yl * yv W : W: ()y W : W: ()%z  )," THE GAME IS OVER - HERE ARE THE FINAL STANDINGS"1z:::=z ()|z "PLAYER"; );"CASH VALUE OF STOCK";!);"CASH ON HAND",z 2);"NET WORTH"zz I P1z J zD1(I)D1(I)(S1(J)S(J,I))z Jz I{ I P1 { .{   );"$";D1(I);!);"$";B(I);H{ 2);"$";D1(I)B(I)R{  I^{*:::d{4 I{ I P1 { .{   );"$