a STAR TRADERS'b - MODIFIED FOR 'ALTAIR BASIC 4.0' BY - S J SINGER-b3b;b# CCb$ I~b( M( , ),S(,),N$(),D1(),S1(),Q(),M$( ),C$()b2 C1$(),C2$()b< 1,"'ALTAIR STARWAYS'"bF 2,"'BETELGEUSE,LTD.'"bP 3,"'CAPELLA FREIGHT CO.'" cZ 4,"'DENEBOLA SHIPPERS'")cd 5,"'ERIDANI EXPEDITERS'">cnZ1$()()Hcx Z1$Xc I ic J cS(I,J): D1(I): S1(I)d: Q(I): B(I)pc Jc IcL$".+*ABCDE"cM$"ABCDEFGHIJKL"d" ********** STAR TRADERS **********":d:Ad "TYPE A 3 DIGIT NUMBER ";R1TdR1(R1)dd I vd J  d ((R1)) M(I,J) : M(I,J)d Jd Id Z1$d" "HOW MANY PLAYERS (1-4) ";P1d,:e6 "DOES ANY PLAYER NEED INSTRUCTIONS "7e; "(Type 0 for NO)";QJe@ Q R TeJ Z1$eeT I P1we^ "PLAYER",I,er " WHAT IS YOUR NAME ";P$e| I P1$P$e I P2$P$e I P3$P$e I P4$P$e Ie Z1$1f  ),"...NOW I WILL DECIDE WHO GOES FIRST...":: :9f:Cf::YfI(P1(R1))cf mf &sff I ,,,: - IDENTIFY PLAYERf P1$;:P5$P1$: f P2$;:P5$P2$: f P3$;:P5$P3$: f P4$;:P5$P4$: g& " IS THE FIRST PLAYER TO MOVE."3g0 W : ;g:KIgDPI: bagNKK: Kc b{gXPP: PP1 Pgb I : SELECT 5 LEGAL MOVESglR(I)((R1))gvC(I)( (R1))g I1I  h R(I)R(I1) C(I)C(I1) lh I1:h M(R(I),C(I)) lLh I1 ah Q(I1) fmh I1h M(R(I),C(I)) fh M(R(I),C(I)) fh M(R(I),C(I)) fh M(R(I),C(I)) fhA1M(R(I),C(I)) iA2M(R(I),C(I))#iA3M(R(I),C(I))9i A4M(R(I),C(I))`i A1 A2 A3 A4 li  A2 A1 A3 A4 li* A3 A1 A2 A4 li4 A4 A1 A2 A3 li> A1 A2 A3 A4 l#jH A2 A1 A3 A4 lJjR A3 A1 A2 A4 lqj\ A4 A1 A2 A3 l{jf Ijp  jzjIPj j ", HERE ARE YOUR LEGAL MOVES FOR THIS TURN"jj I k R(I);(M$,C(I),);" "; k Ik:3k "WHAT IS YOUR MOVE ";R$Kk (R$) R$"S"mk (R$,)"M" R$"" : wk  k k (R$,)"S" R$"" : $k  k k$ (R$) Vk. ((R$,,))@ Vl8 ((R$,,))@ V : `*lB (R$) V?lL (R$) VtlV "I DIDN'T UNDERSTAND THAT - TRY AGAIN ": l`R((R$,))ljC((R$,))@lt I  l~ RR(I) CC(I) l Im "THAT SPACE WAS NOT INCLUDGD IN THE LIST..."m "mA1M(R,C)2mA2M(R,C)BmA3M(R,C)RmA4M(R,C)m A1 A2 A3 A4 M(R,C) : m m A1 A2 A2A1 : - LINE 2090 ISm A1 A3 A3A1  THE MERGER SUB. n A1 A4 A4A1 Cn A2 A3 A3A2 fn  A2 A4 A4A2 n A3 A4 A4A3 n A1 A2 A3 A4 n( M(R,C) n2 A1 IA1n< A2 IA2oF A3 IA3oP A4 IA4$oZQ(I)Q(I)7odS1(I)S1(I)dFonM(R,C)IPox "`o I so Q(I) }o Io M(R,C) M(R,C)o o Z1$o * o "A NEW SHIPPING COMPANY HAS BEEN FORMED !"o "IT'S NAME IS ",pp N,C$p IN (p C$qrQ(I)Q(I)Oq|M(R,C)Irq A3 S1(I)S1(I)d : qQ(I)Q(I)qM(R,C)Iq A4 S1(I)S1(I)d : qQ(I)Q(I)qM(R,C)Iq S1(I) T1I : r  rM(R,C)Ir I CrB(P)B(P)(L|S(I,P)S1(I))Lr I[r I nr Q(I) r: "YOUR CURRENT CASH= $";B(P)r: "BUY HOW MANY SHARES OF ";r&r0 N,C$r: IN 0rD C$;rN " AT $";S1(I)sX ); "YOU NOW OWN ";S(I,P);;sb R3$: (R3$) R3$"0"^sl R3$(,)"M" R3$"" : hsv  rs s R3$(,)"S" R3$"" : s  s sR3(R3$)sR3$""s R3S1(I)B(P)  t "YOU ONLY HAVE $";B(P);" - TRY AGAIN"t %t R3 :tS(I,P)S(I,P)R3StB(P)B(P)(R3S1(I))]t Igt Nt  Z1$: SUBROUTINE - PRINT MAPt );"MAP OF THE GALAXY"t  );"*******************"u* );"A B C D E F G H I J K L"u4 R2 1u>" ";R2;" ";>uHC2 HuR" ";Xu\Z2M(R2,C2)jufZ2Z2Z2up(L$,Z2,)" ";uuuuuF1A1: F1 F1: SUBROUTINE - CALCULATES THEvF2A2: F2 F2: SURVIVOR IN THE EVENT8vF3A3: F3 F3: OF A MERGERSvF4A4: F4 F4_vTQ(F1)ivT1F1v Q(F2)Q(F1) TQ(F2) : vT1F2v Q(F3)T TQ(F3) :  v T1F3v Q(F4)T TQ(F4) : $ v T1F4w$ F1T1 A1 B w. XF1w8  -wB F2T1 A2 ` 6wL XF2@wV  Yw` F3T1 A3 ~ bwj XF3lwt  w~ F4T1 A4  w XF4w  w w Z1$w * : SUBROUTINE - PERFORMS CALCULATIONSx : TO ACCOMPLISH A MERGERx N,C$ x XN  +x C1$C$6x C1$;[x " HAS JUST BEEN MERGED INTO ";ax lx N,C$~x T1N  x C2$C$x C2$;"!"x2 "PLEASE NOTE THE FOLLOWING TRANSACTIONS."x< yF );"OLD STOCK = ";C1$;" NEW STOCK = "; yP C2$yZ Byd "PLAYER"; );"OLD STOCK";);"NEW STOCK";pyn ");"TOTAL HOLDINGS";5);"BONUS PAID"yx I P1y y  );S(X,I););((S(X,I)));y ");S(T1,I)((S(X,I)));y X1z I1 P1z X1X1S(X,I1)!z Lz 5);" $";( ((S(X,I)X1)S1(X)))Vz Igz I P1z S(T1,I)S(T1,I)((S(X,I)))z B(I)B(I)( ((S(X,I)X1)S1(X)))z Iz I z J  { M(I,J)X M(I,J)T1{" J{, I-{6 A1M(R,C)={@ A2M(R,C)M{J A3M(R,C)]{T A4M(R,C)i{^ F1A3{{h F1 F1{r F2A2{| F2 F2{ Q(T1)Q(T1)Q(X){ S1(T1)S1(T1)S1(X){ S1(T1)  { F3A3{ F3 F3 | F4A4| F4 F4)| S1(X)d4| Q(X)E| I P1R| S(X,I)\| Id| :t| M(R,C)T1z| | * : SUBROUTINE - CALCULATES STOCK SPLITS|& "THE STOCK OF ",|0 |: N,C$|D T1N : |N C$,}X " HAS SPLIT 2 FOR 1 !",}b S1(T1)(S1(T1))4}l :F}v I1 P1^} S(T1,I1)S(T1,I1)i} I1o} y} Z1$} } "STOCK";);"PRICE PER SHARE";} 2);"YOUR HOLDINGS"} I3 } S1(I3)d  } } N,C$ ~ I3N  ~ C$,3~ );S1(I3);2);S(I3,P)>~ I3D~ J~ V~* ()~~4 );"SPECIAL ANNOUNCEMENT !!!":~> ~H ~R Z1$~\ " STAR LANES IS A GAME OF INTERSTELLAR TRADING." f "THE OBJECT OF THE GAME IS TO AMASS THE GREATEST AMOUNT"Jp "OF MONEY. THIS IS ACCOMPLISHED BY ESTABLISHING VAST,"z "INTERSTELLAR SHIPPING LANES, AND PURCHASING STOCK IN" "THE COMPANIES THAT CONTROL THOSE TRADE ROUTES. DURING" "THE COURSE OF THE GAME, STOCK APPRECIATES IN VALUE AS"A "THE SHIPPING COMPANIES BECOME LARGER. ALSO, SMALLER"} "COMPANIES CAN BE MERGED INTO LARGER ONES, AND STOCK" "IN THE SMALLER FIRM IS CONVERTED INTO STOCK IN THE"ံ "LARGER ONE AS DESCRIBED BELOW.": "EACH TURN, THE COMPUTER WILL PRESENT THE PLAYER WITH"Y "FIVE PROSPECTIVE SPACES TO OCCUPY ON A 9X12 MATRIX" "(ROWS 1-9, COLUMNS A-L). THE PLAYER, AFTER EXAMINING"Ձ "THE MAP OF THE GALAXY TO DECIDE WHICH SPACE HE WISHES" "TO OCCUPY, RESPONDS WITH THE ROW AND COLUMN OF THAT"L "SPACE, I.E., 7E, 8A, ETC. THERE ARE FOUR POSSIBLE"q "MOVES A PLAYER CAN MAKE."::w $ L$ "PRESS RETURN TO CONTINUE";X2$BL Z1$V " 1. HE CAN ESTABLISH AN UNATTACHED OUTPOST- IF HE"<` "SELECTS A SPACE THAT IS NOT ADJACENT TO A STAR, ANOTHER"{j "UNATTACHED OUTPOST, OR AN EXISTING SHIPPING LANE, THIS"t "SPACE WILL BE DESIGNATED WITH A '+'. HE WILL THEN PROCEED"~ "WITH STOCK TRANSACTIONS, AS LISTED BELOW.":0 " 2. HE CAN ADD TO AN EXISTING LANE- IF HE SELECTS A"n "SPACE THAT IS ADJACENT TO ONE - AND ONLY ONE EXISTING" "SHIPPING LANE, THE SPACE HE SELECTS WILL BE ADDED TO"섦 "THAT SHIPPING LANE AND WILL BE DISIGNATED WITH THE FIRST"- "LETTER OF THE COMPANY THAT OWNS THAT LANE. IF THERE ARE"k "ANY STARS OR UNATTACHED OUTPOSTS ALSO ADJACENT TO THE" "SELECTED SPACE, THEY, TOO, WILL BE INCORPORATED INTO THE" "EXISTING LANE. EACH NEW SQUARE ADJACENT TO A STAR ADDS"- "$500 PER SHARE, AND EACH NEW OUTPOST ADDS $100 PER SHARE"g "TO THE MARKET VALUE OF THE STOCK OF THAT COMPANY."o:y $ Z1$  " 3. HE MAY ESTABLISH A NEW SHIPPING LANE- IF THERE" "ARE FIVE OR LESS EXISTING SHIPPING LANES ESTABLISHED,"@ "THE PLAYER MAY, GIVEN THE PROPER SPACE TO PLAY, ESTABLISH"( "A NEW SHIPPING LANE. HE MAY DO THIS BY OCCUPYING A SPACE"2 "ADJACENT TO A STAR OR ANOTHER UNATTACHED OUTPOST, BUT"< "NOT ADJACENT TO AN EXISTING SHIPPING LANE. IF HE"7F "ESTABLISHES A NEW SHIPPING LANE, HE IS AUTOMATICALLY"sP "ISSUED 5 SHARES KN THE NEW COMPANY AS A REWARD. HE"Z "MAY THEN PROCEED TO BUY STOCK IN ANY ACTIVE COMPANY,"d "INCLUDKNG THE ONE JUST FORMED, AS DESCRIBED BELOW."'n "THG MARKET VALUE OF THE NEW STOCK IS ESTABLISHED BY"dx "THE NUMBER OF STARS AND OCCUPIED SPACES AS DESCRIBED"y "IN #2 ABOVE.": $ Z1$Չ " 4. HE MAY MERGE TWO EXISTING COMPANIES- IF A PLAYER" "SELECTS A SPACE ADJACENT TO TWO EXISTING SHIPPING"R "LANES, A MERGER OCCURS. THE LARGER COMPANY TAKES OVER THE" "SMALLER COMPANY - (IF BOTH COMPANIES ARE THE SAME SIZE"ъ "PRIOR TO THE MERGER, THEN THE SURVIVOR IS DETERMINED BY" "ALPHABETICAL ORDER OF THE TWO COMPANY NAMES - THE EARLIER"M "SURVIVES). THE STOCK OF THE SURVIVING COMPANY IS" "INCREASED IN VALUE ACCORDING TO THE NUMBER OF SPACES"Ƌ "AND STARS ADDED TO ITS LANE. EACH PLAYERS STOCK IN" "THE DEFUNCT COMPANY IS EXCHANGED FOR SHARES KN THE"< "SURVIVOR ON A RATIO OF 2 FOR 1. ALSO, EACH PLAYER"x "IS PAID A CASH BONUS PROPORTIONAL TO THE PERCENTAGE"" "OF OUTSTANDING STOCK HE HELD IN THE DEFUNCT COMPANY.", "NOTE: AFTER A COMPANY BECOMES DEFUNCT THROUGH THE"(6 "MERGER PROCESS, IT CAN REAPPEAR ELSEWHERE ON THE"b@ "BOARD WHEN, AND IF, A NEW COMPANY IS ESTABLISHED."jJ:tT $~^ Z1$h " NEXT THE COMPUTER CDDS STOCK DIVIDENDS TO THE PLAYER'S"r "CASH ON HAND (5% OF THE MARKET VALUE OF THE STOCK IN HIS"A| "POSSESSION), AND OFFERS HIM THE OPPORTUNITY TO PURCHASE"| "STOCK KN ANY OF THE ACTIVE COMPANIES ON THE BOARD." "STOCK MAY NOT BE SOLD, BUT THE MARKET VALUE OF EACH" "PLAYER'S STOCK IS TAKEN INTO ACCOUNT AT THE END OF THE"< "GAME TO DETERMINE THE WINNER. IF THE OARKET VALUE OF A GIVEN"z "STOCK EXCEEDS $3000 AT ANY TIME DURING THE GAME, THAT" "STOCK SPLITS 2 FOR 1. THE PRICE IS CUT IN HALF, AND" "THE NUMBER OF SHARES OWNED BY GACH PLAYER IS DOUBLED."; "NOTE: THE PLAYER MAY LOOK AT HIS PORTFOLIO AT ANY TIME"| "DURING THE COURSE OF HIS TURN BY RESPONDING WITH 'STOCK'" "TO AN INPUT STATEMENT. LIKEWISE, HE CAN REVIEW THE MAP" "OF THE GALAXY BY TYPING 'MAP' TO AN INPUT STATEMENT.":  $ Z1$):::::::U& );"** GAME ENDS AFTER 99 MOVES **"a0:::: "PLAYER WITH THE GREATEST NET WORTH AT THAT POINT IS THE WINNER."D:őN W : WˑXՑb Z1$ߑl * v W : W: () W : W: ()V  )," THE GAME IS OVER - HERE ARE THE FINAL STANDINGS"b:::n () "PLAYER"; );"CASH VALUE OF STOCK";!);"CASH ON HAND",Ē 2);"NET WORTH"ʒے I P1 J  D1(I)D1(I)(S1(J)S(J,I)) J  I1 I P1; _   );"$";D1(I);!);"$";B(I);y 2);"$";D1(I)B(I)  I*:::4 I1 I P1; _   );"$"