a THE GAME OF STAR LANES - AN INTERSTELLAR COMMERCE GAMEb FOR 2-4 PLAYERSbbA$()b A$Nb( ( ): : :  )"* S * T * A * R **";Yb- B()ub2 "L * A * N * E * S *"b< M( , ),S(,),N$(),D1(),S1(),Q(),R()bFM$()"ERIDANI EXPEDITERS": I : J :S(I,J)cKD1(I):S1(I)d:Q(I):B(I)p: J,IHcPM$()"CAPELLA FREIGHT CO.":M$()"DENEBOLA SHIPPERS"~cZM$()"ALTAIR STARWAYS":M$()"BEETLEJUICE, LTD."c_cdL$".+*ABCDE":M$"ABCDEFGHIJKL": I : J  cn (()) M(I,J): cxM(I,J)d J,I: "HOW MANY PLAYERS (2-4)";P1Id "DOES ANY PLAYER NEED INSTRUCTIONS";R$jd (R$,)"Y" IP: @d I P1: "PLAYER";I;: "WHAT IS YOUR NAME";P$(I)d I: : "NOW I WILL DECIDE WHO GOES FIRST...": eI(P1()): P$(I);" IS THE FIRST PLAYER TO MOVE"+e II : II9ePI: neSUM: I :SUMSUMQ(I): I: SUMF %ePP: PP1 Pe I eR(I)(()):C(I)( ())e I1I  : R(I)R(I1) C(I)C(I1) f I1: M(R(I),C(I))  8f I1 : Q(I1)  Tqf I1: M(R(I),C(I))  M(R(I),C(I))  Tf M(R(I),C(I))  M(R(I),C(I))  Tf"A1M(R(I),C(I)):A2M(R(I),C(I))f,A3M(R(I),C(I)):A4M(R(I),C(I))g6 A1 A2 A3 A4 Ag; A2 A1 A3 A4 gg@ A3 A1 A2 A4 gE A4 A1 A2 A3 gJ A1 A2 A3 A4 gO A2 A1 A3 A4 gP A3 A1 A2 A4 hT I: : hY IP  Zh^ P$(P); ", HERE ARE YOUR LEGAL MOVES FOR THIS TURN:"hh I : R(I);(M$,C(I),);"/";: I: hr "WHAT IS YOUR MOVE";R$hs (R$,)"M" MP: :MP: ^ht (R$,)"S" : ^iwR((R$,))=i|C((R$,))@: I : RR(I) CC(I) zi I: "THAT SPACE WAS NOT INCLUDED IN THE LIST...": riA1M(R,C):A2M(R,C):A3M(R,C):A4M(R,C)i A1 A2 A3 A4 M(R,C):  j A1 A2 A1A2 $)j A1 A3 A1A3 $Lj A1 A4 A1A4 $oj A2 A3 A3A2 $j A2 A4 A2A4 $j A3 A4 A3A4 $j A1 A2 A3 A4 j M(R,C)  k A1 IA1k A2 IA2,k A3 IA3@k A4 IA4pkQ(I)Q(I):S1(I)S1(I)d:M(R,C)I: k I : Q(I) k I: M(R,C) M(R,C):  k : "A NEW SHIPPING COMPANY HAS BEEN FORMED"l "ITS NAME IS ";M$(I):S(I,P)S(I,P):Q(I).l : : : : : Kl A1 S1(I)S1(I)hl A2 S1(I)S1(I)l A3 S1(I)S1(I)l A4 S1(I)S1(I)l A1 S1(I)S1(I)d:Q(I)Q(I):M(R,C)I m A2 S1(I)S1(I)d:Q(I)Q(I):M(R,C)IAm A3 S1(I)S1(I)d:Q(I)Q(I):M(R,C)Ivm A4 S1(I)S1(I)d:Q(I)Q(I):M(R,C)Im  S1(I) T1I: xmM(R,C)Im  I :B(P)B(P)(L|S(I,P)S1(I)): Im* I : Q(I)  n/ IP  :IP1n4 "YOUR CURRENT CASH EQUALS $";B(P)ln> "BUY HOW MANY SHARES OF ";M$(I);" AT $";S1(I): );nH "YOU NOW OWN";S(I,P);" YOU CAN BUY ";(B(P)S1(I));" SHARES."nR R3$: (R3$,)"M" R3$"":MP: : >oW (R3$,)"S" R3$"": : >'oXR3(R3$):R3$""Bo\ R3S1(I)B(P) prof "YOU ONLY HAVE $";B(P);"-TRY AGAIN": >op R3 ozS(I,P)S(I,P)R3:B(P)B(P)(R3S1(I))o I: o A$: )"MAP OF THE GALAXY" p MP :: )"MAP OF THE GALAXY")p )"*******************"Rp MP )"*******************"p  )" A B C D E F G H I J K L"p MP  )" A B C D E F G H I J K L"p R2 : )R2;: C2  : " ";q (L$,M(R2,C2),);" ";: C2:: R2!q  MP Uq  MP R2 : )R2;: C2  : " ";~q  (L$,M(R2,C2),);" ";: C2:: R2q:qq$F1A1: F1 F1q%F2A2: F2 F2q&F3A3: F3 F3q'F4A4: F4 F4$r)TQ(F1):T1F1: Q(F2)Q(F1) TQ(F2):T1F2Br. Q(F3)T TQ(F3):T1F3`r8 Q(F4)T TQ(F4):T1F4yrB F1T1 A1 VrLXF1: rV F2T1 A2 jr`XF2: rj F3T1 A3 ~rtXF3: r~ F4T1 A4 sXF4: s8s : M$(X);" HAS JUST BEEN MERGED INTO " ;us M$(T1);"!": "PLEASE NOTE THE FOLLOWING TRANSACTIONS."s : )"OLD STOCK = ";M$(X);" NEW STOCK = ";s M$(T1): s "PLAYER"; )"OLD STOCK";)"NEW STOCK";");t "TOTAL HOLDINGS";5)"BONUS PAID"JtTS: I1 P1:TSTSS(X,I1): I1: TS TSt I P1:NS((S(X,I))):THS(T1,I)NS:BO( ((S(X,I)TS)S1(X)))t P$(I); )S(X,I);)NS;")TH;5)" $";BOtS(T1,I)TH:B(I)B(I)BOt I,u I : J  : M(I,J)X M(I,J)T16u# J,I_u(Q(T1)Q(T1)Q(X):S1(T1)S1(T1)S1(X)u<S1(X)d:Q(X): I P1:S(X,I): IuF : : : : uPM(R,C)T1:Q(T1)Q(T1): %uU S1(T1) xuZux : "THE STOCK OF ";?v M$(T1);" HAS SPLIT 2 FOR 1!":S1(T1)((S1(T1)))Nv : : :xv I1 P1:S(T1,I1)S(T1,I1): I1v %vvv::"PLAYER ";P$(P)v "STOCK";)"PRICE PER SHARE";2)"YOUR HOLDINGS"w "STOCK";)"PRICE PER SHARE";2)"YOUR HOLDINGS"9w I3 : S1(I3)d ]w M$(I3);)S1(I3);2)S(I3,P)w M$(I3);)S1(I3);2)S(I3,P)w I3:::::w (): )"SPECIAL ANNOUNCEMENT!!": wx@ (): "OK, HERE IS A DESCRIPTION OF 'STARLANES':":>xJ "YOU ARE COMPETING IN INTERSTELLAR COMMERCE. YOU"sxT "WILL SEE A MAP OF THE GALAXY CONTAINING ROWS"x^ "1 THRU 9 AND COLUMNS A THRU L. EACH POSITION WILL"xh "BE EITHER A '.', INDICATING SPACE, OR A '*',"yr "INDICATING A STAR. THE STARS ARE RANDOMLY PLACED"Sy| "ACCORDING TO WHAT SEED YOU ENTER FOR THE RANDOM"y "NUMBER GENERATOR. ENTERING THE SAME SEED WILL"y "PRODUCE THE SAME MAP.":y "EACH TURN YOU MUST CHOOSE A MOVE FROM A SET OF"y "FIVE CHOICES.":-z "IF YOU LAND NEXT TO A STAR, A NEW COMPANY IS"hz "FORMED. YOU WILL SEE THE COMPANY'S INITIAL IN THAT"z "SPACE WHEN THE MAP IS DISPLAYED AGAIN.":: %z (): "YOU START WITH A BANKROLL OF $6000. EACH TURN YOU"{ "MAY BUY SHARES IN ANY ACTIVE COMPANY (IF YOU CAN"3{ "AFFORD THEM).":l{ "EACH ROUND, EACH COMPANY DECLARES A 5% CASH DIV-"}{ "IDEND.":{ "WHEN TWO COMPANIES COME INTO CONTACT (HORIZONTALLY"{ "OR VERTICALLY), A MERGER OCCURS. THE COMPANY WITH"*| "THE LARGEST TERRITORY ABSORBS THE SMALLER. EACH"e| "STOCKHOLDER IN THE ABSORBED COMPANY RECEIVES STOCK"|& "IN THE SURVIVING COMPANY IN THE RATIO OF ONE NEW"|0 "FOR TWO OLD, PLUS A CASH BONUS BASED ON HIS HOLDING.":}: "THERE IS A MAXIMUM OF FIVE COMPANIES. WHEN ALL ARE"S}D "ACTIVE, NO NEW COMPANY CAN BE FORMED UNTIL AFTER A"e}N "MERGER.":}X "AFTER A MERGER, THE PRICE OF THE SURVIVOR'S STOCK"}b "IS THE SUM OF THE TWO PRIOR PRICES. IF A STOCK'S"~l "VALUE EXCEEDS $3000, A STOCK SPLIT OCCURS.":: %V~v (): "IF YOU MOVE TO AN EMPTY SPACE, YOU WILL SEE A '+'"~ "AT THAT LOCATION. IF YOU LAND NEXT TO A '+', A NEW"~ "COMPANY WILL BE FORMED WITH A LOW INITIAL STOCK"~ "PRICE.": "THE OBJECT OF THE GAME IS TO INCREASE YOUR NET"G "WORTH. THE GAME ENDS WHEN 70 POSITIONS ARE IN"m "THE POSESSION OF COMPANIES.": "I WILL GIVE YOU SOME ADDITIONAL INSTRUCTIONS" "DURING THE FIRST ROUND - AFTER THAT, YOU'RE ON" "YOUR OWN - GOOD LUCK!":: %: ():A "IF YOU WISH A LIST OF YOUR STOCK HOLDINGS, YOU"s "MAY ANSWER THE NEXT QUESTION WITH AN 'S'." "IF YOU WISH TO REDISPLAY THE MAP, ANSWER 'M'." "IF YOUR PRINTER IS READY, YOU GET HARD COPY.":% : "THE GAME IS OVER - HERE ARE THE FINAL STANDINGS"Z%:: "THE GAME IS OVER - HERE ARE THE FINAL STANDINGS"b!%:&% "PLAYER"; )"CASH VALUE OF STOCK";!)"CASH ON HAND ";݁+% "PLAYER"; )"CASH VALUE OF STOCK";!)"CASH ON HAND";0% 2)"NET WORTH": 5% 2)"NET WORTH":J:% I P1: J :D1(I)D1(I)(S1(J)S(J,I)): J,I~D% I P1: P$(I); )"$";D1(I);!)"$";B(I);N% 2)"$";D1(I)B(I): I΂S% I P1: P$(I); )"$";D1(I);!)"$";B(I);T% 2)"$";D1(I)B(I): IU% ( )%X% "ANOTHER GAME";R$: (R$,)"Y" F+]%R% "HIT 'RETURN' TO CONTINUE ",Z$:2)"$";D1(I)B(I): IU% ( )%X% "ANOTHER GAME";R$: (R$,)"Y" F+]%R