a THE GAME OF STAR LANES - AN INTERSTELLAR COMMERCE GAMEb FOR 2-4 PLAYERSbbA$()b A$Mb( ( ): : :  )"* S * T * A * R **";Xb- B()tb2 "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,IGcPM$()"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)";P1Hd "DOES ANY PLAYER NEED INSTRUCTIONS";R$cd (R$,)"Y" @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"ePI: QeSUM: I :SUMSUMQ(I): I: SUMX %jePP: PP1 Pxe I eR(I)(()):C(I)( ())e I1I  : R(I)R(I1) C(I)C(I1) e I1: M(R(I),C(I))  f I1 : Q(I1)  TTf 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))f6 A1 A2 A3 A4 $g; A2 A1 A3 A4 Jg@ A3 A1 A2 A4 pgE A4 A1 A2 A3 gJ A1 A2 A3 A4 gO A2 A1 A3 A4 gP A3 A1 A2 A4 gT I: :,h^ P$(P); ", HERE ARE YOUR LEGAL MOVES FOR THIS TURN:"[hh I : R(I);(M$,C(I),);"/";: I: xhr "WHAT IS YOUR MOVE";R$hs (R$,)"M" MP: :MP: ^ht (R$,)"S" : ^hwR((R$,))i|C((R$,))@: I : RR(I) CC(I) Li 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):  i A1 A2 A1A2 $i A1 A3 A1A3 $j A1 A4 A1A4 $Aj A2 A3 A3A2 $dj A2 A4 A2A4 $j A3 A4 A3A4 $j A1 A2 A3 A4 j M(R,C)  j A1 IA1j A2 IA2j A3 IA3k A4 IA4BkQ(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"k "ITS NAME IS ";M$(I):S(I,P)S(I,P):Q(I)l : : : : : l A1 S1(I)S1(I):l A2 S1(I)S1(I)Wl A3 S1(I)S1(I)tl A4 S1(I)S1(I)l A1 S1(I)S1(I)d:Q(I)Q(I):M(R,C)Il A2 S1(I)S1(I)d:Q(I)Q(I):M(R,C)Im A3 S1(I)S1(I)d:Q(I)Q(I):M(R,C)IHm A4 S1(I)S1(I)d:Q(I)Q(I):M(R,C)Ifm  S1(I) T1I: xumM(R,C)Im  I :B(P)B(P)(L|S(I,P)S1(I)): Im* I : Q(I) m4 "YOUR CURRENT CASH EQUALS $";B(P)(n> "BUY HOW MANY SHARES OF ";M$(I);" AT $";S1(I): );jnH "YOU NOW OWN";S(I,P);" YOU CAN BUY ";B(P)S1(I);" SHARES."nR R3$: (R3$,)"M" R3$"": : >nW (R3$,)"S" R3$"": : >nXR3(R3$):R3$""n\ R3S1(I)B(P) p$of "YOU ONLY HAVE $";B(P);"-TRY AGAIN": >5op R3 _ozS(I,P)S(I,P)R3:B(P)B(P)(R3S1(I))mo I: o A$: )"MAP OF THE GALAXY"o MP :: )"MAP OF THE GALAXY"o )"*******************"p MP )"*******************"4p  )" A B C D E F G H I J K L"mp MP  )" A B C D E F G H I J K L"p R2 : )R2;: C2  : " ";p (L$,M(R2,C2),);" ";: C2:: R2p  MP q  MP R2 : )R2;: C2  : " ";0q  (L$,M(R2,C2),);" ";: C2:: R28q:>qXq$F1A1: F1 F1rq%F2A2: F2 F2q&F3A3: F3 F3q'F4A4: F4 F4q)TQ(F1):T1F1: Q(F2)Q(F1) TQ(F2):T1F2q. Q(F3)T TQ(F3):T1F3r8 Q(F4)T TQ(F4):T1F4+rB F1T1 A1 V:rLXF1: SrV F2T1 A2 jbr`XF2: {rj F3T1 A3 ~rtXF3: r~ F4T1 A4 rXF4: rr : M$(X);" HAS JUST BEEN MERGED INTO " ;'s M$(T1);"!": "PLEASE NOTE THE FOLLOWING TRANSACTIONS."Ys : )"OLD STOCK = ";M$(X);" NEW STOCK = ";is M$(T1): s "PLAYER"; )"OLD STOCK";)"NEW STOCK";");s "TOTAL HOLDINGS";5)"BONUS PAID"sTS: I1 P1:TSTSS(X,I1): I1: TS TSSt 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 It I : J  : M(I,J)X M(I,J)T1t# J,Iu(Q(T1)Q(T1)Q(X):S1(T1)S1(T1)S1(X)>u<S1(X)d:Q(X): I P1:S(X,I): IQuF : : : : uuPM(R,C)T1:Q(T1)Q(T1): %uU S1(T1) xuZux : "THE STOCK OF ";u M$(T1);" HAS SPLIT 2 FOR 1!":S1(T1)((S1(T1)))v : : :*v I1 P1:S(T1,I1)S(T1,I1): I14v %:vJv ( ): cv::"PLAYER ";P$(P)v "STOCK";)"PRICE PER SHARE";2)"YOUR HOLDINGS"v "STOCK";)"PRICE PER SHARE";2)"YOUR HOLDINGS"v I3 : S1(I3)d w M$(I3);)S1(I3);2)S(I3,P)=w M$(I3);)S1(I3);2)S(I3,P)Pw I3:::::vw )"SPECIAL ANNOUNCEMENT!!": |ww@ "NO INSTRUCTIONS YET": R3$:w% : "THE GAME IS OVER - HERE ARE THE FINAL STANDINGS"x%:: "THE GAME IS OVER - HERE ARE THE FINAL STANDINGS""x!%:`x&% "PLAYER"; )"CASH VALUE OF STOCK";!)"CASH ON HAND ";x+% "PLAYER"; )"CASH VALUE OF STOCK";!)"CASH ON HAND";x0% 2)"NET WORTH": x5% 2)"NET WORTH": y:% I P1: J :D1(I)D1(I)(S1(J)S(J,I)): J,I>yD% I P1: P$(I); )"$";D1(I);!)"$";B(I);[yN% 2)"$";D1(I)B(I): IyS% I P1: P$(I); )"$";D1(I);!)"$";B(I);yT% 2)"$";D1(I)B(I): IyU% ( )yX% "ANOTHER GAME";R$: (R$,)"Y" Fy]%z% "HIT 'RETURN' TO CONTINUE ",Z$:2)"$";D1(I)B(I): IyU