( STARLANE  D ADD'L SOFTWARE FROM\ SOFTWARE,BOX AF,WOODBRIDGE,CT. 06525  6 MODIED 'NTHSTAR BASIC' BY HBR VERSI 2.0  + T9 48 \ TAL # TURNS BEE GAME OVER ;( M10,13),S5,4),N$5),D15),S15),Q5),M$12),C$25) 2 C1$25),C2$25) < 1,"'ALTAIR STARWAYS'" F 2,"'BETELGEUSE,LTD.'" P 3,"'CAPELLA FREIGHT CO.'" Z 4,"'DENEBOLA SHIPPERS'" d 5,"'ERIDANI EXPEDITERS'" n Z1$26) x Z1$ -} \\30),"* S T A R L A N E *"\\\  I1 5  J1 4 4 SI,J)0\ D1I)0\ S1I)100\ QI)0\ BI)6000 J I  L$".+*ABCDE"  M$"ABCDEFGHIJKL" > "ENTER A 3 DIGIT NUMBER TO START THINGS ROLLING....",R1  R1R11000)  I1 9  J1 12 , 200)1)10 MI,J)1 MI,J)3  J  I  Z1$ %" "HOW MANY PLAYERS (2-4)? ",P1 , \ /6 "DOES ANY PLAYER NEED INSTRUCTIONS? ",Q$ @ Q$1,1)"Y" R J Z1$ T I1 P1 ^ "PLAYER",I, r " WHAT IS YOUR NAME? ",P$ | I1 P1$P$  I2 P2$P$  I3 P3$P$  I4 P4$P$  I  Z1$ > 10),"...NOW I WILL DECIDE WHO GOES FIRST..."\ \\\  \\  F5R1)  IP10)1)    &  . I ,,,\ IDENTY PLAYER  P1$,\P5$P1$\  P2$,\P5$P2$\  P3$,\P5$P3$\  P4$,\P5$P4$\ && " IS THE FIRST PLAYER TO MOVE." 0 W1 2000\ : K0 D PI\ b N KK1\ KT9 b X PP1\ PP11 P1 )b I1 5\ SELECT 5 LEGAL MOVES l RI)90)1) v CI)120)1)  I1I1 0 1 & RI)RI1) CI)CI1) l  I1  MRI),CI))1 l  I11 5  QI1)0 f  I1  MRI),CI)1)3 f  MRI),CI)1)3 f  MRI)1,CI))3 f  MRI)1,CI))3 f  A1MRI),CI)1)  A2MRI),CI)1)  A3MRI)1,CI))   A4MRI)1,CI)) ' A12 A24 A34 A44 l '  A22 A14 A34 A44 l '* A32 A14 A24 A44 l '4 A42 A14 A24 A34 l '> A13 A24 A34 A44 l 'H A23 A14 A34 A44 l 'R A33 A14 A24 A44 l '\ A43 A14 A24 A34 l f I p  z  IP   2 ", HERE ARE YOUR LEGAL MOVES FOR THIS TURN"   I1 5  RI),M$CI),CI))," ",  I  \  "WHAT IS YOUR MOVE? ",R$  R$)0 R$"S"  R$1,1)"M" R$""       R$1,1)"S" R$"" $    $ R$)2 V . R$2,2))641 V #8 R$2,2))6412 V ` B R$)1 V L R$)9 V 5V "I DIDN'T UNDERSTAND THAT - TRY AGAIN "\  ` RR$1,1)) j CR$2))64 t I 1 5 ~ RRI) CCI)   I 3 "THAT SPACE WAS NOT INCLUDED IN THE LIST..."    A1MR1,C)  A2MR1,C)  A3MR,C1)  A4MR,C1) 1 A11 A21 A31 A41 MR,C)2    0 A13 A23 A2A1 \ 2090 IS 6 A13 A33 A3A1 \ THE MERGER SUB. " A13 A43 A4A1  " A23 A33 A3A2  "  A23 A43 A4A2  " A33 A43 A4A3  & A14 A24 A34 A44  ( MR,C)3  2 A13 IA13 < A23 IA23 F A33 IA33 P A43 IA43 Z QI)QI)1 d S1I)S1I)100 n MR,C)I3 x "  I1 5  QI)0   I  MR,C)3 MR,C)2    Z1$  * 1 "A NEW SHIPPING COMPANY HAS BEEN FORMED !"  "IT'S NAME IS ",   N,C$  IN   C$  SI,P)SI,P)5  QI)1  \\\ " A13 S1I)S1I)500 , A23 S1I)S1I)500 6 A33 S1I)S1I)500 @ A43 S1I)S1I)500 #J A12 S1I)S1I)100 h T QI)QI)1 ^ MR1,C)I3 #h A22 S1I)S1I)100  r QI)QI)1 | MR1,C)I3 # A32 S1I)S1I)100   QI)QI)1  MR,C1)I3 # A42 S1I)S1I)100   QI)QI)1  MR,C1)I3  S1I)3000 T1I     MR,C)I3  I1 5 " BP)BP).05SI,P)S1I))  I  I1 5  QI)0  & \ "YOUR CURRENT CASH= $",BP) % \ "BUY HOW MANY SHARES OF ", & 0 N,C$ : IN 0 D C$, N " AT $",S1I) #X 5), "YOU NOW OWN ",SI,P), b R3$\ R3$)0 R3$"0" "l R3$1,1)"M" R3$""  v    " R3$1,1)"S" R3$""      R3R3$)  R3$""  R3S1I)BP)  , "YOU ONLY HAVE $",BP)," - TRY AGAIN"    R30   SI,P)SI,P)R3  BP)BP)R3S1I))  I  N *  Z1$\ SUBRINE MAP  22),"MAP OF THE GALAXY" "  21),"*******************" 2* 12)," A B C D E F G H I J K L" 4 R21 9 > 9),R2," ", H C21 12 R " ", \ Z2MR2,C2) f Z20 Z2Z21 p L$Z2,Z2), z " ",  C2   R2  8 F1A13\ F10 F10\ SUBRINE CALCULATES THE 6 F2A23\ F20 F20\ SURVIV IN THE EVENT 0 F3A33\ F30 F30\ OF A MERGER  F4A43\ F40 F40  TQF1)  T1F1 " QF2)QF1) TQF2)   T1F2  QF3)T TQF3)   T1F3  QF4)T TQF4) $  T1F4 $ F1T1 A14 B . XF1 8 B F2T1 A24 ` L XF2 V ` F3T1 A34 ~ j XF3 t ~ F4T1 A44 XF4  Z1$ / * \ SUBRINE PERMS CALCULATIS ' \ ACCOMPLISH A MERGER N,C$  XN C1$C$ C1$, % " HAS JUST BEEN MERGED INTO ",  N,C$  T1N  C2$C$  C2$, ( "!" 02 "PLEASE NOTE THE FOLLOWING TRANSACTIONS." < 4F 3),"OLD STOCK = ",C1$," NEW STOCK = ", P C2$ Z 4d "PLAYER",10),"OLD STOCK",22),"NEW STOCK", 0n 34),"TOTAL HOLDINGS",53),"BONUS PAID" x I1 P1  , 10),SX,I),22),.5SX,I)).5), ' 34),ST1,I).5SX,I)).5), X10  I11 P1  X1X1SX,I1) I1 + 53)," $",10SX,I)X1)S1X))) I  I1 P1 & ST1,I)ST1,I).5SX,I)).5) ( BI)BI)10SX,I)X1)S1X))) I  I1 9  J1 12  MI,J)X3 MI,J)T13 " J , I 6 A1MR1,C) @ A2MR1,C) J A3MR,C1) T A4MR,C1) ^ F1A33 h F10 F10 r F2A23 | F20 F20  QT1)QT1)QX)  S1T1)S1T1)S1X)  S1T1)3000  F3A33  F30 F30 F4A43  F40 F40  S1X)100 QX)0  I1 P1 SX,I)0 I  \  MR,C)T13  6 * \ SUBRINE CALCULATES SCK SPLITS & "THE STOCK OF ", 0 : N,C$ D T1N : N C$, X " HAS SPLIT 2 FOR 1 !" b S1T1)S1T1)2) l \ v I11 P1  ST1,I1)2ST1,I1) I1  Z1$  ' "STOCK",30),"PRICE PER SHARE",  50),"YOUR HOLDINGS"  I31 5  S1I3)100  N,C$  I3N C$, ! 30),S1I3),50),SI3,P) I3   * 7) '4 22),"SPECIAL ANNOUNCEMENT !!!" > H R Z1$ 9\ " STAR LANES IS A GAME OF INTERSTELLAR TRADING." ?f "THE OBJECT OF THE GAME IS TO AMASS THE GREATEST AMOUNT" >p "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" = "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" ; "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" ; "SPACE, I.E., 7E, 8A, ETC. THERE ARE FOUR POSSIBLE" % "MOVES A PLAYER CAN MAKE."\\   $  L %$ 1"PRESS RETURN TO CONTINUE",X2$ B L Z1$  " 2. HE CAN ADD TO AN EXISTING LANE- IF HE SELECTS A" > "SPACE THAT IS ADJACENT TO ONE - AND ONLY ONE EXISTING" = "SHIPPING LANE, THE SPACE HE SELECTS WILL BE ADDED TO" A "THAT SHIPPING LANE AND WILL BE DISIGNATED WITH THE FIRST" A "LETTER OF THE COMPANY THAT OWNS THAT LANE. IF THERE ARE" > "ANY STARS OR UNATTACHED OUTPOSTS ALSO ADJACENT TO THE" A "SELECTED SPACE, THEY, TOO, WILL BE INCORPORATED INTO THE" @ "EXISTING LANE. EACH NEW SQUARE ADJACENT TO A STAR ADDS" A "$500 PER SHARE, AND EACH NEW OUTPOST ADDS $100 PER SHARE" : "TO THE MARKET VALUE OF THE STOCK OF THAT COMPANY."  \  $  Z1$ =  " 3. HE MAY ESTABLISH A NEW SHIPPING LANE- IF THERE" > "ARE FIVE OR LESS EXISTING SHIPPING LANES ESTABLISHED," B "THE PLAYER MAY, GIVEN THE PROPER SPACE TO PLAY, ESTABLISH" B( "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" =F "ESTABLISHES A NEW SHIPPING LANE, HE IS AUTOMATICALLY"  "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 EACH PLAYER IS DOUBLED."  @ "NOTE: THE PLAYER MAY LOOK AT HIS PORTFOLIO AT ANY TIME" A "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$  \\\\\\\ -& 16),"** GAME ENDS AFTER 48 MOVES **" 0 \\\ H: "PLAYER WITH THE GREATEST NET WORTH AT THAT POINT IS THE WINNER." D \ N W1 2000\ W X b Z1$ l * v W1 500\ W\ 7)  W1 500\ W\ 7) ? 10)," THE GAME IS OVER - HERE ARE THE FINAL STANDINGS"  \\\  7) A "PLAYER",10),"CASH VALUE OF STOCK",33),"CASH ON HAND",  50),"NET WORTH"   I1 P1  J1 5  D1I)D1I)S1J)SJ,I))  J  I  I1 P1   &  10),"$",D1I),33),"$",BI),  50),"$",D1I)BI)  I * \\\ 4