o :Avalon Hill STOCKS and BONDS  :Converted to IBM Personal Computer by THINK small  :January 1982   PINFO(,
,),PRC(,,),CPRC(),SPRC(),PV(),PO()   J$(L,S$) (L(S$))S$ >  C$(S$)((SCRW(S$)))S$ u  UPPER$(S$)( ((S$,)"a")((S$,)))   LOWER$(S$)( ((S$,)"Z")((S$,))) 	  ' :-- Initialize 
  YEAR       p   PS  NP (   PF : PLAYER  PO(PS) K<    PINFO(PLAYER,
,)    :: player's move TF  PS qP  BC  NPBC  d  |Z  YEAR d :End of Game -- Print Results n : P1$  "End of Game":  , x  L1  NP     L1,IND:  PNAM$(L1)" ";     (((PNAM$(L1)),"."); A     "$$,###,###"; PINFO(L1,
,) J  L1 y  ,IND:  "Play another game (y/n)"; AN$   UPPER$(AN$)"Y"   :  :---------- Determine Dividends and Net Worth ----------  PLAYER  NP 
  NW  PINFO(PLAYER,
,)    L   @     PINFO(PLAYER,L,)    B c     PRC(YEAR,L,)  2  8      DV  ((PINFO(PLAYER,L,)PRC(YEAR,L,)((STCK$(L),))2)d): L  DVDVPINFO(PLAYER,L,)XD $     NW  NW  DV 8    NW  NW  PINFO(PLAYER,L,)PRC(YEAR,L,) %B   L ;L  PV(PLAYER)  NW HV PLAYER v[:Determine player order (Richest first) ` L1  NP j  HV   t   L2  NP ~     PV(L2)  HV  HV  PV(L2):SL2    L2   PO(L1)S: PV(S)  L1  .:---------- Player's Move  ---------- K: P1$PNAM$(PLAYER)"'"  UPPER$((PNAM$(PLAYER),))"S"  P1$P1$"s" P1$P1$" Portfolio"  .  ,IND:  +:  "Shr   Prc    Val  Div":  + NW  L   :   :  A  ,IND:  "Cash";(,".");J$(,(PINFO(PLAYER,
,))); ]" ,IND:  "-----"; ~$NW  NW  PINFO(PLAYER,
,) &PINFO(PLAYER,
,)  NW ( ,IND:  "Net Worth.."; J$(,(NW)); *PF P4  PINFO(PLAYER,
,)  PINFO(PLAYER,
,): ,IND:  PNAM$(PLAYER);" is BANKRUPT and ELIMINATED": BCBC :  H k> YEAR     .	:  xH *:  :---------- Display Holdings in Stock L  L,IND  PINFO(PLAYER,L,)  P1$"":P3$"":P4$"":HV: 	  PF  DVPD(L): 	 2 PRC(YEAR,L,)2  P4$"": 	  	DV((PINFO(PLAYER,L,)PRC(YEAR,L,)((STCK$(L),))2)d): L  DVDVPINFO(PLAYER,L,)XD 	PINFO(PLAYER,
,)  PINFO(PLAYER,
,)DV 	PD(L)DV 	 DV  P4$"" : P4$(DV) M	P1$ (PINFO(PLAYER,L,)): HV  PINFO (PLAYER,L,)  PRC(YEAR,L,): P3$(HV) j	P2$   (PRC(YEAR,L,)) 	 STCK$(L);IND);J$(,P1$);J$(,P2$);J$(,P3$);J$(,P4$); 	NWNWHV $	 .	:---------- Player Move Dialogue 8	 < &B	 ,IND:  "    1 - Buy and Sell Securities"; WL	 ,IND:  "    2 - Display Price History"; V	 ,IND:  "    3 - Security Review"; `	 ,IND:  "    4 - Instructions"; j	 ,IND:  "    5 - End Turn"; t	 ,IND:  "Select Action: ", AN$ ~	 AN$"1"   :  .	 /	 AN$"2"   :   L	 AN$"3"   (#:   i	 AN$"4"   %:   {	 AN$"5"   	 t	  :---------- Buy and Sell Securities  <  ,IND:  "  Type first two letters of name," , ,IND:  "  then ENTER.  Hit ENTER only to exit." R ,IND:  "Which security"; AN$  AN$""  (AN$,)"N"  (AN$,)"n"    \+ :-- Adjust AN$ for comparison  L  :  (AN$,)(STCK$(L),,)   :    +:  :  + *& L  T$"shares" : T$"bonds" 4+ < v: L  HV   (PINFO(PLAYER,
,)  PRC (YEAR,L,)) :  b D PRC(YEAR,L,)  HV:  b NHV  (PINFO(PLAYER,
,)  PRC(YEAR,L,)  
)  
 b ,IND:  "  You may buy  up to";J$(,(HV));" ";T$ @g PINFO(PLAYER,L,)   SCRW):   l ,IND:  "  You may sell up to";J$(,(PINFO(PLAYER,L,)));" ";T$ v L   ,IND:  BLINE$;:   HP  (PINFO(PLAYER,L,)PINFO(PLAYER,L,)   )  ,IND:   "  You paid $$## per share"; HP; > ,IND:  "How many ";T$;:  AN$ Q AN$""  
 rAN   (AN$):  L    AN  (AN
)
:  AN  (AN$,)"0"  ANAN
  AN  HV  AN  PINFO(PLAYER,L,)  + PD (L) R PINFO(PLAYER,L,)  PINFO(PLAYER,L,)AN: PINFO(PLAYER,
,)PINFO(PLAYER,
,)  (AN  PRC(YEAR,L,))   AN    PINFO(PLAYER,L,)PINFO(PLAYER,L,)ANHP:    PINFO(PLAYER,L,)PINFO(PLAYER,L,)ANPRC(YEAR,L,)   ,IND:  J$(,(PINFO(PLAYER,
,))) !
  !
  =!< ILINE  :  ILINE,IND:  ');:  C! q!:---------- Display Stock Price History !: P1$"Price History":  , ! ,IND ! L3  :  ,IND:  " ";L3;" - ";SNAM$(L3):  ! ,IND:  ((,) " ,IND:  "Enter selection by number," I" ,IND:  "or depress ESC to play on..."; c"AN$:  AN$""   x" AN$()   " (A$)   " "1"  AN$  AN$  "9"   "AN(AN$) ": P1$SNAM$(AN):  , "" L3  YEAR #,  PPRC(L3,AN,) 2#1   P  SPLIT : PPRC(L3,AN,): SPLIT >#6    G#@ L3 Q#J * [#T  #:----- Display this year's bar #HIND(L3) #TOP(P
): RESP  
 # TOP  TOP: RES # Y  TOP #  Y,H:  ""; # Y 0$   RES  RES     TOP,H:  ""; X$   RES   TOP,H:  ""; w$ SPLIT  PPRC(L3,AN,) $ dP, $ ,H:   "###";P; $ SPLIT   $ , $ (P
),H:  ""; $  , $* %p:---------- Determine Market -------- W%FBB  :  BBCRD(YEAR)    FBB :-- bull=0, bear=1 f% L1   %DICE  (())(()):  DICE    DICE     %DDICE: CPRC(L1)CALC%(FBB,D,L1):  L1:   &DDICE: L1  : CPRC(L1)CALC%(FBB,D,L1): L1  &  &&W T&X:---------- Display BULL or BEAR MARKET q&Y +:  ,IND: XIIND &Z ,XI:  "          " &[ ,XI:  "          " &\ ,XI:  "             " '] ,XI:  "      " '^ +:   /'q +:  ,IND: XIIND V'r ,XI:  "     " }'s ,XI:  "    " 't ,XI:  "              " 'u ,XI:  "          " 'v + 'XIIND:  ,IND ( ,XI:  "          " P( ,XI:  "          " ( ,XI:  "                    " ( ,XI:  "                   " ( (:---------- Display Bull/Bear and Market conditions ( ^) FBB   WITM$ :  X                                                    :  DIRGE$:  q ) PAUSE  :  PAUSE: :  PAUSE  ,:  PAUSE ): P1$"Market Situation":  . ): : XD   t* BBCRD(YEAR)  ,,,,[,,,,$,(,_,,,,',h,,,, ,D ,l , , , ,!,R!,!,!,!,",G",j",",", # * +:  * *:-- Compute new prices * L1     *   PRC(YEAR,L1,)  PRC(YEAR,L1,)dCPRC(L1)SPRC(L1): * 2+  PRC(YEAR,L1,)PRC(YEAR,L1,)CPRC(L1)SPRC(L1) S+   PRC(YEAR,L1,)     +  : PRC(YEAR,L1,):  :  C$(SNAM$(L1)) +
   :  C$("is BANKRUPT ... stock declared WORTHLESS"); +   L2  NP: PINFO(L2,L1,):  L2 ,   F  d    :  F,:  .,   (,:  *:  * k,  PRC(YEAR,L1,)    * :-- check for stock split , PRC(YEAR,L1,)  PRC(YEAR,L1,): PRC(YEAR,L1,)(PRC(YEAR,L1,)   ) -  PLAYER  NP: PINFO(PLAYER,L1,)PINFO(PLAYER,L1,):  PLAYER -* L1 5-9:-- Display changes and new prices ^-:: P1$  "Price Change Board":  . h-< + -= ,IND:  );"   Old   Reg   Spc      New" -> ,IND:  );"   Prc   +/-   +/-      Prc" -? + -@ L1   '.CP1PRC(YEAR,L1,):P2CPRC(L1):P3SPRC(L1):P4PRC(YEAR,L1,) f.H L1,IND:   "\          \ ##### "; (STCK$(L1),);P1; .L P2    "+#### "; P2; :  ); .N P3    "+####  ";P3; :  ); .O P4    "###"; P4;: PC$"/###" : PC$"#######" /P  PC$; PRC(YEAR,L1,) /QSPRC(L1) '/R L1 1/W  ;/\ * A/f o/:---------- Market Scenarios ---------- / ,IND: "Company prospectors find huge, new"; / ,IND: "high-grade ore deposits."; / + 0 
,IND: "     Uranium Enterprises, Inc. +10";  0SPRC()  
:  V0 ,IND: "War scare promotes mixed activity on"; t0 ,IND: "Wall Street."; ~0 + 0 
,IND: "    Pioneer Mutual Fund       -8"; 0 ,IND: "    Stryker Drilling          +8"; 1 ,IND: "    Uranium Enterprises, Inc. +5"; B1SPRC() : SPRC() : SPRC() :  z1 ,IND: "President announces expansion plans to"; 1 ,IND: "increase productive capacity 30%."; 1 + 1 
,IND: "    United Auto Company +15"; 1SPRC() :  /2 ,IND: "General market rise over the last two"; H2 ,IND: "months."; R2) + 2. 
,IND: "    Growth Corporation     +8"; 28 ,IND: "    Metro Properties, Inc. +5"; 2B ,IND: "    Pioneer Mutual Fund    +5"; 3L ,IND: "    United Auto Company    +7"; H3VSPRC() : SPRC() : SPRC() : SPRC() :  |3[ ,IND: "Experimental nuclear power station"; 3e ,IND: "proves more economical than anticipated."; 3j ,IND: "Three electrical power companies"; 4t 
,IND: "announce plans to build large-scale"; F4~ ,IND: "nuclear power plants."; P4 + 4 
,IND: "    Uranium Enterprises, Inc. +10"; 4SPRC()
 :  4 ,IND: "Company lands ten-year contract with"; 5 ,IND: "large industrial equipment corporation."; 5 + <5 
,IND: "    Tricity Transport +15"; O5SPRC() :  5 ,IND: "Commission grants permission to con-"; 5 ,IND: "struct a new nuclear generating plant of"; 5 ,IND: "great capacity and efficiency."; 5 + '6 ,IND: "    Valley Power & Light +5"; 96SPRC() :  n6 ,IND: "United Auto announces new advanced-"; 6  ,IND: "design auto entry in the mini-car"; 6
 ,IND: "field."; 6 + 6 ,IND: "    United Auto Company +10"; 7#SPRC()
 :  97$ ,IND: "Three-for-one split rumored.";:   o7( ,IND: "Corporation releases high profit and"; 72 ,IND: "sales financial report and announces"; 7< ,IND: "plans to invest an additional $2 million"; 8A 
,IND: "on special research projects next year."; #8K + O8P ,IND: "    Growth Corporation +8"; a8ZSPRC() :  8_ ,IND: "Influx of personnel of new company in"; 8i ,IND: "nearby town creates a severe housing"; 8s ,IND: "shortage."; 8} + 9 ,IND: "    Shady Brooks +5"; +9SPRC() :  c9 ,IND: "National firm leases company's largest"; 9 ,IND: "office building."; 9 + 9 
,IND: "    Metro Properties, Inc. +5"; 9SPRC() :  
: ,IND: "Corporation announces new metal forming"; @: ,IND: "process which it claims will revolu-"; v: ,IND: "tionize all metal-working industries"; : 
,IND: "covered by U.S. and foreign patents."; : + : ,IND: "    Growth Corporation +10"; :SPRC()
: ,; ,IND: "Corporation unexpectedly relinquishes"; e; ,IND: "its monopoly on its major product after"; ;	 ,IND: "a lengthy anti-trust suit."; ; + ; ,IND: "    Growth Corporation -10"; ;"SPRC()
 :  <' ,IND: "Large petroleum corporation offers to"; L<1 ,IND: "buy all assets for cash.  Offer is well"; <; ,IND: "above book value.  Directors approve and"; <@ 
,IND: "will submit recommendation to stock-"; <J ,IND: "holders."; <T + 
=Y 
,IND: "    Stryker Drilling +17";  =cSPRC() :  P=h ,IND: "Buying wave raises the market."; Z=r + =w ,IND: "    Pioneer Mutual Fund  +3"; = ,IND: "    Valley Power & Light +4"; =SPRC() : SPRC() :  	> ,IND: "Major coal company announces reduced"; C> ,IND: "coal prices to electric power utilities."; M> + {> 
,IND: "    Valley Power & Light +5"; >SPRC() :  > ,IND: "Intensive advertising campaign gains"; > ,IND: "company three major, long-term con-"; ? ,IND: "tracts."; ? + G? ,IND: "    Tricity Transport +10"; Z?SPRC()
 :  ? ,IND: "Competitor invents a new economical"; ? ,IND: "automatic transmission."; ? + ?  
,IND: "    United Auto Company -5"; @
 SPRC() :  8@  ,IND: "City Council considers the company's"; p@  ,IND: "choicest property for large industrial"; @&  ,IND: "fair."; @0  + @5  ,IND: "    Metro Properties, Inc. +10"; @? SPRC()
 :  AD  ,IND: "Public Utility Commission rejects"; :AN  ,IND: "company's request for rate hike."; DAX  + sA]  
,IND: "    Valley Power & Light -14"; Ag SPRC() :  Al  ,IND: "Land rights litigation holds up pro-"; Av  ,IND: "gress."; A  + 
B  
,IND: "    Stryker Drilling -10"; B SPRC()
 :  TB  ,IND: "Internal Revenue depletion allowance"; rB  ,IND: "reduced 50%."; |B  + B  
,IND: "    Stryker Drilling -15"; B SPRC() :  B  ,IND: "Surge of profit-taking drops stock"; C  ,IND: "market."; C  + BC  
,IND: "    Growth Corporation     -8"; rC  ,IND: "    Metro Properties, Inc. -5"; C  ,IND: "    United Auto Company    -7"; C SPRC():SPRC():SPRC(): C  ,IND: "Company moves to a new, excellent"; D  ,IND: "location."; !D! + LD! 
,IND: "    Tricity Transport +5"; ^D!SPRC() :  D! ,IND: "Extra year-end dividend of $2 per share"; D%! ,IND: "declared by the board of directors."; D/! + E4! 
,IND: "    Growth Corporation +10"; /E>! ,IND: "    Stockholders $2/Share"; 8EH!XD KEM!SPRC()
 :  ~ER! ,IND: "Large terminal destroyed by fire;"; E\! ,IND: "insufficient insurance on building due"; Ef! ,IND: "to company's delayed move to new"; Fp! 
,IND: "location."; Fz! + :F! ,IND: "    Tricity Transport -25"; NF!SPRC() :  F! ,IND: "President, Vice-President, and chief"; F! ,IND: "counsel of Growth Corporation of America"; F! ,IND: "reach retirement age."; F! + G! ,IND: "    Growth Corporation -10"; 0G!SPRC()
 :  jG! ,IND: "Government suddenly announces it will no"; G! ,IND: "longer support ore prices, since it has"; G! ,IND: "large stockpiles."; G! + H! ,IND: "    Uranium Enterprises, Inc. -25"; H!SPRC() :  JH! ,IND: "Urban renewal program delayed by"; H! ,IND: "indecision of city planning commission."; H" + H" 
,IND: "    Metro Properties, Inc. -10"; H"SPRC()
 :  
I" ,IND: "Two founders and major stockholders of"; ?I" ,IND: "the corporation disagree on policy."; sI)" ,IND: "One sells out his entire holdings."; }I3" + I8" ,IND: "    Growth Corporation -8"; IB"SPRC() :  IG" ,IND: "Foreign car rage hits the buying public.";  JL" ,IND: "Big cars in slow demand."; *JV" + XJ[" 
,IND: "    United Auto Company -15"; lJe"SPRC() :  Jj" ,IND: "Strikes halt production in all eight"; Jt" ,IND: "United Auto plants as U.A.W. and company"; K~" ,IND: "official fail to reach agreement on"; 3K" 
,IND: "labor contract."; =K" + kK" ,IND: "    United Auto Company -15"; K"SPRC() :  K" ,IND: "Company's annual report shows net"; K" ,IND: "earnings off during fourth quarter."; K" + !L" 
,IND: "    Metro Properties, Inc. -5"; 4L"SPRC() :  kL" ,IND: "Community steadily deteriorates.  The"; L" ,IND: "management is forced to lower rental"; L" ,IND: "rates to attract tenants."; L" + L" ,IND: "    Shady Brooks -5"; M"SPRC() :  IM # ,IND: "President hospitalized in sanatorium for"; pM
# ,IND: "an indefinite period."; zM# + M# 
,IND: "    Tricity Transport -5"; M##SPRC() :  M(#:---------- Security Review M*# N,#P1$"Securities Review":  , 
N.# P- N0#HIPAGENR
 ,N2#P:  7# 6N4# - DN6# P   NN7# + }N8# ,IND:  SNAM$(P); (SNAM$(P))); N:# ((STCK$(P),))   "No Yield"                                  :  "Yield ";(STCK$(P),); N<# + &O># P  J#,R#,b#,n#,x#,~#,#,#,#,# 4O@#    HOB#   SCRWP   `OD#   ,IND:  BLINE$; fOF# pOH# 4# }OI#:----- OJ# ,IND:  "An AAA bond with a good yield.  This    "; OL# ,IND:  "investment represents extreme security  "; .PN# ,IND:  "and good income, but, of course, no     "; VPP# 
,IND: "appreciation.";);:  hPQ#:---------- PR# ,IND:  "A well-established company with a pheno-"; PT# ,IND:  "menal growth record.  It is an expanding"; QV# ,IND:  "industry, spends a lot of money on re-  "; TQX# 
,IND: "search, and is expected to continue its "; QZ# ,IND: "growth pattern.  The company's policy of"; Q\# ,IND: "reinvesting earnings causes low yield.  "; R^# 
,IND: "The price-to-earnings ratio of this     "; 9R`# ,IND: "stock is extremely high.";); :  KRa#:---------- Rb# ,IND:  "An investment representing good pros-   "; Rd# ,IND:  "pects of high appreciation.  No divi-   "; Rf# ,IND:  "dends are expected in the immediate     "; 7Sh# 
,IND: "future.  However, the city's proposed   "; rSj# ,IND: "urban renewal program could have great  "; Sl# ,IND: "effect on earnings.";);:  Sm#:---------- Sn# ,IND:  "A common stock mutual fund offer-       "; (Tp# ,IND:  "ed by a large mututal fund company.  It "; cTr# ,IND:  "has a good yield of 4%.  Stock in this  "; Tt# 
,IND: "fund represents a good, steady income,  "; Tv# ,IND: "but only a fair appreciation investment.";:  Tw#:---------- )Ux# ,IND:  "A real estate investment representing   "; dUz# ,IND:  "extremely high income, but steadily de- "; U|# ,IND:  "preciating capital assets.              ";:  U}#:---------- U~# ,IND:  "A stock representing extremely specula- "; *V# ,IND:  "tive investment.  Profits go toward     "; eV# ,IND:  "drilling new oil wells, so no dividends "; V# 
,IND: "are expected.  This stock could be worth"; V# ,IND: "rags or riches.";);:  V#:---------- W# ,IND:  "A stock representing a high appreciation"; RW# ,IND:  "investment prospect with a good stable  "; W# ,IND:  "outlook depending on the administrative "; W# 
,IND: "ability and ambition of its respected,  "; X# ,IND: "ethical, and energetic young president. "; >X# ,IND: "As all profits go back into the company,"; yX# 
,IND: "dividends are not expected to be de-    "; X# ,IND: "clared in the forseeable future.        ";:  X#:---------- Y# ,IND:  "A medium large company in the large,    "; ?Y# ,IND:  "oligopolistic automobile industry.      "; zY# ,IND:  "United Auto, like others in the indus-  "; Y# 
,IND: "try, is subject to the whims of public  "; Y# ,IND: "fancy.  Stock in this company represents"; +Z# ,IND: "a somewhat speculative investment with a"; fZ# 
,IND: "good growth pattern.  Because it is pop-"; Z# ,IND: "ular with the investing public, it has  "; Z# ,IND: "a fairly high price-to-earnings ratio   "; [# ,IND: "and low yield.";); :  [#:---------- S[# ,IND:  "A highly speculative, high income stock "; [# ,IND:  "ideal for the short or medium term in-  "; [# ,IND:  "vestor.  Its long term prospects are    "; [# 
,IND: "fair to poor.";);: \#:---------- =\# ,IND:  "A stable, steadily growing public util- "; x\# ,IND:  "ity company located in a well-establish-"; \# ,IND:  "ed, healthy industrial area.  Stock in  "; \# 
,IND: "this company represents a safe, medium  "; ,]# ,IND: "yield, medium growth investment.        ";:  V]%:---------- Instructions ---------- \]!% z]&%P1$"Instructions":  , ]D% P- ]N%HIPAGENR ]S%P:  g% ]X% - ]]% P   ]g% ,IND":   "Page #";P; ]l% P  %,%,H& ]q% X% 	^%: page 1 ^% ,IND 1^% +:  "PLAY";:  + _^% ".  During each of the 10 years of   "; ^% ,IND:  "play, each player invests in securities "; ^% ,IND:  "at the current market price for the     "; _% ,IND:  "year.  As a guide in selecting invest-  "; K_% ,IND:  "ments, players should consult the secur-"; _% 
,IND: "iies review and price history graphs.   "; _% ,IND: "All stock is sold only in blocks of 10  "; _% ,IND: "shares.  Player turn sequence is in net "; 7`% 
,IND: "worth order.  Wealthiest Player goes    "; r`% ,IND: "first.  All players start the game with "; `% ,IND: "$5000 cash.                             "; `% ,IND: BLINE$; `% ,IND:  +:  "ESTABLISHING BULL OR BEAR MARKET"; a%     +: ".  The  "; Va% ,IND: "IBM will determine the market for each  "; a% ,IND: "year.  The chances are 50/50 for a BULL "; a% ,IND: "or BEAR market.                         "; a% a%: page 2 a% ,IND:  + )b%   "DETERMINING CURRENT MARKET PRICE OF     ";: Ib% ,IND:  "STOCKS";:  + wb%   ".  The IBM will determine how many"; b% ,IND:  "points each stock rises or falls for the"; b% ,IND:  "year.  In addition to the normal yearly "; (c% ,IND:  "changes, prices are further adjusted by "; cc% 
,IND: "special yearly situations.              "; zc% ,IND: BLINE$; c% + c% ,IND: "DIVIDENDS AND INTEREST";:  +:  ); c% 
,IND: "At the beginning of each year, dividends"; 3d% ,IND: "and interest will be posted to each     "; nd & ,IND: "player's cash account.  If the price of "; d& ,IND: "a stock drops below $50, players holding"; d& ,IND: "that stock receive no dividends.  When  "; e& ,IND: "the price again reaches $50, the payment"; Ze& ,IND: "of dividends is resumed.                "; qe
& ,IND: BLINE$; we& eH&: page 3 eJ& ,IND:  +:  "STOCK SPLITS";:  + eL&   ".  When the price of a stock"; fN& ,IND:  "reaches $150 or more, the stock splits  "; QfP& ,IND:  "2-for-1.  The price of the stock is     "; fR& ,IND:  "halved and the number of shares in that "; fT& ,IND:  "stock held by each player is doubled.   "; fV& 
,IND: BLINE$; gX& ,IND:  +:  "WORTHLESS STOCK";:  + 4gZ&   ".  When the price of a   "; og\& ,IND: "stock drops to $0 or below, the corpor- "; g^& 
,IND: "ation is declared bankrupt.  Players    "; g`& ,IND: "owning this stock lose all shares.  The ";  hb& ,IND: "price of the stock is re-established the"; [hd& ,IND: "following year.                         "; rhf& ,IND: BLINE$; hh& ,IND:  +:  "CLOSINGS";:  + hj&   ".  At the end of the 10 years,  "; il& ,IND: "closing prices are posted and the player"; >in& ,IND: "with the most net worth wins the game.  "; Dip& pi':---------- Initialization ---------- i'SEED((,))((,,))((,))((,))((,,))o((,)) i' SEED x i' SEG:  j , .j': Determine Screen Width and Indent Value 9j':   fj'SCRWP:  ));:  ()  (  SCRW( j 'IND  (SCRW(): BLINE$((," ") j"': Announce Game and play song j$'WITM$ "mbt255mso3l4eg.e8fg..p4eg.e8fg..p4o4ee.c8dccdeccdc" "k%'DIRGE$"mbt200mno1l2g.gg4g.b-a4ag4gf+4g." /k)' WITM$ <k.':  , [k0' ,IND: "";(%,"");"" k2' ,IND: "                  " k4' ,IND: "                         "  l6' ,IND: "                      " 7l8' ,IND: "             " Ql:' ,IND: "";%);"" vl<' ,IND: "";);"AND";);"" l>' ,IND: "";%);"" l@' ,IND: "               " lB' ,IND: "                    " 5mD' ,IND: "                          " lmF' ,IND: "                     " mH' ,IND: "";(%,"");"" mJ' ,IND: "           An Avalon Hill            " mL' ,IND: "         Microcomputer Game          " nN' ,IND: "";(%,"");"" ,nV' CALC%(,
,) Un`' L1   :  L2  
:  L3   mnj'   CALC%(L1,L2,L3) ynt': :  n~' STCK$() n'STCK$()  "5% City Bonds" n'STCK$()  "1% Growth Corp" n'STCK$()  "0% Metro Prop" o'STCK$()  "4% Pioneer Mutl" (o'STCK$()  "7% Shady Brooks" Io'STCK$()  "0% Stryker Drlg" jo'STCK$()  "0% Tricity Tran" o'STCK$()  "2% United Auto" o'STCK$()  "6% Uranium Ent" o'STCK$()  "3% Valley Power" o' L1  : PRC(L1,,)  :  p' L1  :  PRC(,L1,)  d:  %p ( SNAM$() Sp
(SNAM$()  "Central City Municipal Bonds" p(SNAM$()  "Growth Corporation of America" p(SNAM$()  "Metro Properties, Inc." p((SNAM$()  "Pioneer Mutual Fund" p2(SNAM$()  "Shady Brooks Development" #q<(SNAM$()  "Stryker Drilling Company" NqF(SNAM$()  "Tricity Transport Company" sqP(SNAM$()  "United Auto Company" qZ(SNAM$()  "Uranium Enteprises, Inc." qd(SNAM$()  "Valley Power & Light Company" qn(: Bull market calculator data rx( -2, -10, -7, -9, -2, -9, -7, -16, -4 Cr( 26, 16, 25, 8, -14, 21, 14, -4, 17 lr( 18, 23, 11, 12, 46, 18, -5, 34, 15 r( 23, 28, -2, 11, 56, 19, 30, 29, 14 r( 20, 15, 15, 7, -20, 15, 13, -10, 12 r( 17, 21, 13, -2, 37, 23, 23, 19, 14 s( 19, 24, 17, 9, -5, 26, 13, -7, 15 9s( 11, 18, 14, 11, 67, 15, 22, 18, 13 cs( 13, 31, 1, 14, -11, 18, 18, -14, 10 s( 14, -8, 19, -1, -9, 25, -10, 13, 19 s( 24, 24, 23, 20, 51, 27, 38, 33, 18 s(:Bear market calculator data t( 12, 14, 13, 10, 10, 20, 21, 25, 8 (t( 7, -6, 10, -10, 30, 6, 19, 22, 2 Ot) 9, 10, 7, -5, -20, 12, 21, 18, 7 ut) 7, 8, 5, -6, -40, 3, 16, -14, 4 t) 8, 6, 4, -4, 40, 8, 4, -12, 3 t") 6, 4, 3, 3, -15, 5, 8, -8, 5 t,) 5, 7, -1, -3, 45, 6, -10, 10, 4 u6) -2, 6, -3, 8, -20, 7, 10, 14, 6 3u@) 11, 11, -5, -7, 30, 10, -11, -18, -4 [uJ) -5, 13, -8, 6, 25, 4, 18, -22, -4 uT) -8, -10, -10, -15, -20, -20, -23, -25, -7 u^) BBCRD(
) uh) L1   : : Generate 11 unique scenarios (range 1 to 36) ur)  RN   ($()) v|)  L2   4v)   BBCRD(L2)    BBCRD(L2)  RN:  ) Sv)   BBCRD(L2)  RN   r) mv)  L2  L2   :  ) sv) v) WITM$ v) ,IND: BLINE$ v) ,IND: "Would you like instructions? (y/n) ", AN$ "w) AN$  "y"  AN$  "Y"   % :  AN$  "n"  AN$  "N"   ) :  ) Vw):  ,IND:  "How many investors (1 to 6)"; NP rw) NP    NP    ) w)NP  NP w) L    NP: PINFO(L,
,)  : PINFO(L,
,)   :  w) ,IND:  "Enter their names (up to 10 characters):" x) PNAM$(NP):  L1    NP Sx):  ,IND:  "Investor #"; L1; ":"; :  " ",PNAM$(L1) x* (PNAM$(L1))    (PNAM$(L1))  
   ,IND:  "Name missing or too long. Try again.":  ) $y* L2  L1:  PNAM$(L1)PNAM$(L2)  :  ,IND:  "Duplicate name; please use another name.":  ) \y*: (PNAM$(L1),,)UPPER$((PNAM$(L1),,)):   by* y*:---------- Pause for any key y* SEG:  j, y+P1$"Press any key to continue...":  ,SCRWIND(P1$):  P1$; y+ ()  : :  j, !z+ ,SCRWIND(P1$):  (P1$)) 'z + Xz\+:---------- Adjust AN$ for Name Comparison iz^+AN$AN$"  " z`+AN$UPPER$(AN$)LOWER$((AN$,,)) zb+ z+:---------- Display:  BOLD on z+  :  z+:---------- Display:  BOLD off z+  :  "{+:---------- Display:  REVERSE on /{+ ,:  W{+:---------- Display:  REVERSE off d{+ ,:  {+:---------- Display:  BLINK on {+ :  {+:---------- Display:  BLINK off {+ :   |,:---------- Display P1$ in box, centered and reversed 
|, + |,LP1(P1$) =|,XIND((((LP1)))IND I| - ,XIND y|-   ();();(LP1,);();() |
- ,XIND |-   ();();" ";P1$;" ";();() |- ,XIND |-   ();();(LP1,);();() |- + }#- /}P-:---------- Display paging instructions H}U- ,IND:  ((,) {}Z- ,IND:  "Press:  PgDn key for next page,"; }_- ,IND:  "        PgUp key for previous page,"; }d- ,IND:  "        ESC  key to proceed with game."; }i- ~-:---------- Handle paging controls j~-:set HIPAGENR to number of highest page.  P is returned in [1,HIPAGENR]. ~-:if P=0 on return, ESC was depressed. ~-CMD$:  CMD$""  - ~- CMD$()  P:  ~-  (CMD$)   - : CMD$(CMD$,,) 7- CMD$(I)  PP :  CMD$(Q)  PP : - d- P  PHIPAGENR :  PHIPAGENR  P j- .:---------- Display P1$ Boxed with Year or Closing Appended ".P1$P1$  " -- " ,. YEAR  
  P2$  "Closing" : P2$  "Year"(YEAR) 6.P1$P1$P2$:  , @.   osing Appended ".P1$P1$  " -- " ,. YEA