*` THE GAME OF STAR LANES - AN INTERSTELLAR COMMERCE GAME@` FOR 2-4 PLAYERSb` "HOW MANY PLAYERS (2-4)";P1`( () : : :  );"* S * T * A * R **";`2 " L * A * N * E * S *"`< M( , ),S(,),N$(),D1(),S1(),Q()aA MX$(),B( ),P$( ),RX( ),CX( ),B1( )XaFMX$()"ERIDANI EXPEDITERS" : I  : J  : S(I,J) : JaKD1(I) : S1(I)d : Q(I) : B(I)p : IaPMX$()"CAPELLA FREIGHT CO." : MX$()"DENEBOLA SHIPPERS"bZMX$()"ALTAIR STARWAYS" : MX$()"BETELGEUSE, LTD."?bdL$".+*ABCDE" : M$"ABCDEFGHIJKL" : I  : J  kbn (()) M(I,J) : xbxM(I,J)b J,Ib "DOES ANYBODY NEED INSTRUCTIONS";R$b (R$,)"Y" @c I P1 : "PLAYER ";I; : "WHAT IS YOUR NAME";P$(I)@c I : : "NOW I WILL DECIDE WHO GOES FIRST..." : cI(P1()) : P$(I);" IS THE FIRST PLAYER TO MOVE."cKcPI : cKK : K0 %cPP : PP1 Pc I dRX(I)(()) : CX(I)( ())@d I1I   : RX(I)RX(I1) CX(I)CX(I1) cd I1 : M(RX(I),CX(I)) d I1  : Q(I1) Td I1 : M(RX(I),CX(I)) M(RX(I),CX(I)) Td M(RX(I),CX(I)) M(RX(I),CX(I)) Te"A1M(RX(I),CX(I)) : A2M(RX(I),CX(I))Me,A3M(RX(I),CX(I)) : A4M(RX(I),CX(I))se6 A1 A2 A3 A4 e; A2 A1 A3 A4 e@ A3 A1 A2 A4 eE A4 A1 A2 A3  fJ A1 A2 A3 A4 1fL A2 A1 A3 A4 WfO A3 A1 A3 A4 }fQ A4 A1 A2 A3 fT I :  : fY P$(P);f^ ", HERE ARE YOUR LEGAL MOVES FOR THIS TURN:" gh I  : RX(I);(M$,CX(I),);" /"; : I : Fgr "WHAT IS YOUR MOVE";R$ : (R$,)"M"  : Yigt (R$,)"S"  : Y|gwR((R$,))g|C((R$,))@ : I  : RRX(I) CCX(I) g I : "THAT SPACE WAS NOT INCLUDED IN THE LIST..." : r4hA1M(R,C) : A2M(R,C) : A3M(R,C) : A4M(R,C)kh A1 A2 A3 A4 M(R,C) :  h A1 A2 A2A1 $h A1 A3 A3A1 $h A1 A4 A4A1 $h A2 A3 A3A2 $i A2 A4 A4A2 $=i A3 A4 A3A4 $ci A1 A2 A3 A4 xi M(R,C)  i A1 IA1i A2 IA2i A3 IA3i A4 IA4iQ(I)Q(I) : S1(I)S1(I)d : M(R,C)I : j I  : Q(I) Bj I: M(R,C) M(R,C) :  zj  : "A NEW SHIPPING COMPANY HAS BEEN FORMED!"j "IT'S NAME IS ";MX$(I) : S(I,P)S(I,P) : Q(I)j : : : : j A1 S1(I)S1(I)k A2 S1(I)S1(I) k A3 S1(I)S1(I)=k A4 S1(I)S1(I)vk A1 S1(I)S1(I)d : Q(I)Q(I) : M(R,C)Ik A2 S1(I)S1(I)d : Q(I)Q(I) : M(R,C)Ik A3 S1(I)S1(I)d : Q(I)Q(I) : M(R,C)I!l A4 S1(I)S1(I)d : Q(I)Q(I) : M(R,C)IAl  S1(I) T1I : xPlM(R,C)Il  I  : B(P)B(P)(L|S(I,P)S1(I)) : Il* I  : Q(I) l4 "YOUR CURRENT CASH= $";B(P)m> "BUY HOW MANY SHARES OF ";MX$(I);" AT $";S1(I) : );"mH "YOU NOW OWN ";S(I,P);VmR R3$ : (R3$,)"M" R3$"" :  : >mW (R3$,)"S" R3$"" :  : >mXR3(R3$) : R3$""m\ R3S1(I)B(P) pmf "YOU ONLY HAVE $";B(P);"- TRY AGAIN" : >mp R3 'nzS(I,P)S(I,P)R3 : B(P)B(P)(R3S1(I))8n I : bn () : );"MAP OF THE GALAXY"n );"*******************"n  );"A B C D E F G H I J K L"n R2  : );R2; : C2  : " ";o (L$,M(R2,C2),);" "; : C2 : : R2o5o$F1A1 : F1 F1Po%F2A2 : F2 F2ko&F3A3 : F3 F3o(F4A4 : F4 F4o)TQ(F1) : T1F1 : Q(F2)Q(F1) TQ(F2) : T1F2o. Q(F3)T TQ(F3) : T1F3o8 Q(F4)T TQ(F4) : T1F4pB F1T1 A1 V%pLXF1 : >pV F2T1 A2 jOp`XF2 : hpj F3T1 A3 ~yptXF3 : p~ F4T1 A4 pXF4 : pp  : MX$(X);" HAS JUST BEEN MERGED INTO ";q MX$(T1);"!" : "PLEASE NOTE THE FOLLOWING TRANSACTIONS : "Wq : );"OLD STOCK = ";MX$(X);" NEW STOCK = ";jq MX$(T1) : q "PLAYER"; );"OLD STOCK";);"NEW STOCK";");q " TOTAL HOLDINGS";5);"BONUS PAID"r I P1 : P$(I); );S(X,I););((S(X,I)));