d ** NETWORK.BAS ** From CODEWORKS MAGAZINE Issue 6, Jul/Aug '86n ** AN ADAPTATION OF A PUBLIC DOMAIN PROGRAM **6p ** ORIGINALLY ENTITLED 'STAR-TRADERS' **s: CodeWorks Magazine. Tacoma, WA 206-475-2219 [modem 206-475-2356]x: Adapted for the Tandy 600 by Dave Thomas C,I: I P:S$S$" ":D$D$"-":: S$(X)(S$,,X): D$(X)(D$,,X)N M( , ),S(,),N$(),D1(),S1(),Q(),M$( ),C$(),C1$(),C2$()b 1,"AMERICUS "v 2,"COLUMBUS " 3,"NATIONUS " 4,"PUBLICUS " 5,"TURNICUS " I  J  S(I,J):D1(T):S1(I)d:Q(I):B(I)p J I, L$".+*ACNPT"B M$"ABCDEFGHIJKL"j : D$( )"The CodeWorks "D$(!); " )"N E T W O R K T A K E O V E R" , )"or, how to make it big in broadcasting" 6 D$(P); @ J  )"Build your own broadcasting network. Buy stock in any"c T  )"other network. Force mergers and stock splits. When it" ^  )"is your turn you may type S to see your stock. Typing M h  )"will return you to the map. During your turn, the number"0 r  )"of shares you own are indicated at the right of the map."c |  )"There are 48 turns to play. Good luck."i w  I   J   RR$(,,)(,,):RR(RR$): RR  () () M(I,J) : M(I,J)  J  I, "HOW MANY PLAYERS (2-4) ";P1D  P1 P1 J Y  I P1m  "PLAYER ";I;  "WHAT IS YOUR NAME ";P$  I P1$P$  I P2$P$  I P3$P$ & I P4$P$ 0 I:  );"... NOW I WILL DECIDE WHO GOES FIRST ":/DI(P1)9N bCX Ibcl I v,,,|v ) P1$;:P5$P1$: ) P2$;:P5$P2$: ) P3$;:P5$P3$: ) P4$;:P5$P4$:" GETS THE FIRST MOVE." W : WKPI: %KK: K0 H >PP: PP1 PL I b R(I)()y C(I)( ) I1I   R(I)R(I1) C(I)C(I1)   I1 M(R(I),C(I))   I1  * Q(I1) 4 I1m> M(R(I),C(I)) M(R(I),C(I)) M(R(I),C(I)) M(R(I),C(I)) H A1M(R(I),C(I)):A2M(R(I),C(I)):A3M(R(I),C(I)):A4M(R(I),C(I))R A1 A2 A3 A4  \ A2 A1 A3 A4 3f A3 A1 A2 A4 [p A4 A1 A2 A3 z A1 A2 A3 A4  A2 A1 A3 A4  A3 A1 A2 A4  A4 A1 A2 A3  I  IP bM", Here are your choices for turn"K": ";[ I { R(I);(M$,C(I),);" "; I ,"WHAT IS YOUR MOVE ";R$ (R$) R$"S" (R$,)"M" R$"" : . $ . (R$,)"S" R$"" : L%8  /B EL (R$) ~eV ((R$,,))@ ~` ((R$,,))@ ~ : j (R$) ~t (R$) ~~"I don't understand, TRY AGAIN.": R((R$,)) C((R$,))@ I 9 RR(I) CC(I) A Ip"THAT SPACE WAS NOT INCLUDED IN THE LIST"z A1M(R,C):A2M(R,C):A3M(R,C):A4M(R,C) A1 A2 A3 A4 M(R,C) :   A1 A2 A2A1 4 A1 A3 A3A1 W A1 A4 A4A1 z  A2 A3 A3A2  A2 A4 A4A2  A3 A4 A4A3 ( A1 A2 A3 A4 2 M(R,C) < A1 IA1#F A2 IA27P A3 IA3KZ A4 IA4[dQ(I)Q(I)nnS1(I)S1(I)d}xM(R,C)I , I  Q(I)  I M(R,C) M(R,C)  *  )" A new Network has been formed!", )" Its name is "; 2= N,C$N IN f C$;"Broadcasting"zS(I,P)S(I,P)Q(I)" : , A1 A2 A3 A4 S1(I)S1(I)6 A1 S1(I)S1(I)d : T@Q(I)Q(I)JM(R,C)I(T A2 S1(I)S1(I)d : r8^Q(I)Q(I)IhM(R,C)Ilr A3 S1(I)S1(I)d : ||Q(I)Q(I)M(R,C)I A4 S1(I)S1(I)d : Q(I)Q(I)M(R,C)I S1(I) T1I :  & M(R,C)I I > B(P)B(P)(?PS(I,P)S1(I))F IT I i Q(I)  B(P)S1(I)  : ) "Your current cash = $";B(P); : ) "Buy how many shares of "; & N,C$0 IN &: C$;"Broadcasting";/D " AT $";S1(I)N )" You now own ";S(I,P);" (and can afford to buy ";(B(P)S1(I));" )";X R3$: (R3$) R3$"0"b R3$(,)"M" R3$"" : l v  R3$(,)"S" R3$"" :    . R3(R3$); R3$""X R3S1(I)B(P)  "You only have $";B(P);" TRY AGAIN"  R3  S(I,P)S(I,P)R3 B(P)B(P)(R3S1(I)) I   );"THE TOTAL BROADCAST AREA"P  );"* = Possible Hq. Cities, + = Independent StationsV*4 );" A B C D E F G H I J K L Portfolio"> R2 H S$();R2;" ";R C2  \ " ";f Z2M(R2,C2)p Z2 Z2Z2!z (L$,Z2,)" ";, C2N R2 " ABC ";S(,P)p R2 " CBS ";S(,P) R2 " NBC ";S(,P) R2 " PBS ";S(,P) R2 " TBS ";S(,P) R2 R2 R2 R2  R2 %F1A1: F1 F1?F2A2: F2 F2YF3A3: F3 F3sF4A4: F4 F4 TQ(F1) T1F1 Q(F2)Q(F1) TQ(F2) : . $ T1F2. Q(F3)T TQ(F3) : B 8 T1F3B Q(F4)T TQ(F4) : V L T1F4!V F1T1 A1 t *` XF14j  Mt F2T1 A2  V~ XF2`  y F3T1 A3   XF3   F4T1 A4   XF4     *   N,C$ XN   C1$C$  ) C1$;.  " has just been merged into ";4 ( ? 2 N,C$Q < T1N 2 \ F C2$C$w P C2$;"Broadcasting !" Z )"Please note the following transactions" d n  );"OLD STOCK = ";C1$; " NEW STOCK = ";C2$ x !! )"PLAYER";);"OLD STOCK";);"NEW STOCK";N! *);"TOTAL HOLDING";=);"BONUS PAID"]! I P1i! b! );S(X,I););((@PS(X,I))@P);! *);S(T1,I)((@PS(X,I))@P);! X1! I1 P1! X1X1S(X,I1) " I16" =);" $";( ((S(X,I)X1)S1(X)))>" IM" I P1|" S(T1,I)S(T1,I)((@PS(X,I))@P)" B(I)B(I)( ((S(X,I)X1)S1(X)))" I"" I ", J  "6 M(I,J)X M(I,J)T1"@ J#J I7#T A1M(R,C):A2M(R,C):A3M(R,C):A4M(R,C)C#^ F1A3U#h F1 F1a#r F2A2s#| F2 F2# Q(T1)Q(T1)Q(X)# S1(T1)S1(T1)S1(X)# W : W# S1(T1) & # F3A3# F2 F3# F4A4 $ F4 F4$ S1(X)d"$ Q(X)1$ I P1@$ S(X,I)H$ IR$ : b$ M(R,C)T1h$ r$& * $0 )"THE STOCK OF ";$: $D N,C$$N T1N D $X C$;"Broadcasting has SPLIT 2 for 1 !!"$b S1(T1)(S1(T1))$l : %v I1 P1(% S(T1,I1)S(T1,I1)1% I17% =% D% n% ) "STOCK";&);"PRICE PER SHARE";% :);"YOUR HOLDINGS"% I3 % S1(I3)d  % % N,C$% I3N  % ) C$; & &);S1(I3);:);S(I3,P)& I3& & %&* K&4 );"SPECIAL ANNOUNCEMENT!!":Q&> W&H &R );"THE GAME IS OVER - HERE ARE FINAL STANDINGS"&\ &f )"PLAYER";);"CASH VALUE OF STOCK";));"CASH ON HAND";&p :);"NET WORTH"&z ' I P1' J 7' D1(I)D1(I)(S1(J)S(J,I))A' JI' IX' I P1d' b' );"$";D1(I);));"$";B(I);' :);"$";D1(I)B(I)' I'