	

             B L A C K F R I D A YA
i
(                     JUNE 14, 1977
 ()PF: ()
2 PLAYER.NAME$()
< STOCK.NAME$()
F ABBR$()
P FLUCT()
Z DIV.FACTOR()
d CASH()n DIVIDENDS()x PORTFOLIOS(,
)3 STOCK.PRICE(
)H NET.CHANGE(
)YNEW.STOCK
l YEAR.DIV(
)DOW.JONES  ELAPSED.YEARS  LENGTH.OF.TREND   CHANGE  ((()))STOCK.NAME$()HIGHWAY IMPROVEMENT BONDSSTOCK.NAME$()OLD WEST LAND CO.QSTOCK.NAME$()FINE AND DANDY CANDY CO.STOCK.NAME$()GENTLE TOUCH MASSAGE PARLORS, INCSTOCK.NAME$()SQUARE WHEEL BICYCLE CO.STOCK.NAME$()BITE SHOPS, INC.
STOCK.NAME$()GOOD KARMA SHOE CO.4
STOCK.NAME$()MAKEABUCK HOLDING CORP.^
STOCK.NAME$()SLIPPERY OIL COMPANY
,STOCK.NAME$(
)CONSOLIDATED INVESTMENT CO.
6STOCK.NAME$()GUARDALL BURGLAR ALARM SYSTEMS
@STOCK.NAME$()STUDEBAKER MOTOR CAR CORP.JSTOCK.NAME$(
)TREE FROG BREWERYKTSTOCK.NAME$()WINNEMUCCA MUNI BONDS^STOCK.NAME$()U.S. ROBOTS AND MECHANICAL MEN, INC.hSTOCK.NAME$()BONDO CEMENT CONTRACTORSrABBR$()HIGH|ABBR$()LANDABBR$()CANDYABBR$()GENTLEABBR$()BIKE0ABBR$()BITEDABBR$()SHOEXABBR$()BUCKkABBR$()OILABBR$(
)INVESTABBR$()ALARMABBR$()STUDEABBR$(
)BREWABBR$()MUNIABBR$()ROBOTSABBR$()CEMENTFLUCT(),FLUCT() ?FLUCT()R0FLUCT()e:FLUCT() xDFLUCT()NFLUCT() XFLUCT()bFLUCT()@lFLUCT(
)vFLUCT()FLUCT()FLUCT(
)FLUCT())FLUCT() =FLUCT()@RDIV.FACTOR()gDIV.FACTOR()<|DIV.FACTOR()2DIV.FACTOR()DIV.FACTOR()(DIV.FACTOR()7DIV.FACTOR()<DIV.FACTOR()2DIV.FACTOR()DIV.FACTOR(
)5DIV.FACTOR()< DIV.FACTOR()R*DIV.FACTOR(
)h4DIV.FACTOR()2>DIV.FACTOR()HDIV.FACTOR()R 
);B  L  A  C  K       F  R  I  D  A  Y\ 
);fp(z WANT INSTRUCTIONS (Y OR N);3 ANS$W (ANS$,)Y   d
 :  (ANS$,)N   WHAT DID YOU SAY ? : z ENTER NUMBER OF PLAYERS (1 TO 4) ; NO.OF.PLAYERS NO.OF.PLAYERS  NO.OF.PLAYERS   ONLY 1, 2, 3 OR 4 CAN PLAY :  = X  NO.OF.PLAYERSCv PLAYER ;X;, ENTER YOUR NAME (8 CHARS) ; PLAYER.NAME$(X)PLAYER.NAME$(X)(PLAYER.NAME$(X),) X 	BANKRUPT$5. STOCK.NAME$(X); WENT BANKRUPTi8 ALL HOLDINGS ARE LIQUIDATED AT $1 PER SHAREB A NEW STOCK WILL TAKE ITS PLACE ON THE 'BIG BOARD'LVNEW.STOCKNEW.STOCK NEW.STOCK   CROAK  GAME OVER :YEAR' :  FORCE END OF GAMEj@tSTOCK.NAME$(X)STOCK.NAME$(NEW.STOCK)^ABBR$(X)ABBR$(NEW.STOCK) THE NEW STOCK IS: ;STOCK.NAME$(X) ITS ABBREVIATION IS: ;ABBR$(X)STOCK.PRICE(X)(()\) ITS STARTING PRICE IS: $;STOCK.PRICE(X)NET.CHANGE(X) Q  NO.OF.PLAYERSSCASH(Q)CASH(Q)PORTFOLIOS(Q,X)iPORTFOLIOS(Q,X)q Qw} ENTER NUMBER OF YEARS (3 TO 50) ; NO.OF.YEARS
 NO.OF.YEARS  NO.OF.YEARS2   ANYWHERE FROM THREE TO FIFTY ONLY :   X  KCASH(X):             STARTING DOLLARSy(DIVIDENDS(X):           ZERO DIVIDENDS2 Y  
<PORTFOLIOS(X,Y):        NO STOCKS TO STARTF YP XZ X  
dSTOCK.PRICE(X)(()\)n X<x 
);HERE ARE THE STOCKS CURRENTLY TRADED ON THEg 
);          BIG BOARDm );STOCK NAME;();ABBR (
FOR  NEXT LOOP YEAR  NO.OF.YEARS ,:                       CALC NEW MARKET:f YEARNO.OF.YEARS   x
:          BUY AND SELLq YEAR :                                 END OF GAME I    : I:MOREGAMES.BASCALCULATE DOW JONES AVERAGETOTAL.PRICE X  
PTOTAL.PRICETOTAL.PRICESTOCK.PRICE(X)X Xt,OLD.DOW.JONESDOW.JONES6DOW.JONESTOTAL.PRICE@DIFFOLD.DOW.JONESDOW.JONESJ DIFF  Q$DOWN : Q$UPTDIFF(DIFF)^'hLIQUIDATE6r Y  
i|CASH(X)CASH(X)STOCK.PRICE(Y)PORTFOLIOS(X,Y)q YwFIND THE WINNERHIGHEST X  NO.OF.PLAYERS
 CASH(X)HIGHEST  WINNERX :HIGHESTCASH(X) XVCALCULATE NEW TRENDvLENGTH.OF.TREND(CHANGE) LENGTH.OF.TREND  LENGTH.OF.TRENDELAPSED.YEARSBIAS(CHANGE) BIAS  BIAS   BIASBIAS. LENGTH=;LENGTH.OF.TREND;   BIAS=;BIAS4o0STOCK SPLITu:D STOCK.NAME$(X); STOCK SPLITNSTOCK.PRICE(X)KXNET.CHANGE(X)b Q  NO.OF.PLAYERSlPORTFOLIOS(Q,X)PORTFOLIOS(Q,X)v QLE N D      O F      G A M Ef X  NO.OF.PLAYERS h:                LIQUIDATE X :                        GET WINNER
  
);HERE IS THE FINAL ACCOUNTING AFTER ;YEAR;YEARS  3  X  NO.OF.PLAYERSj  XWINNER  WINNER$()WINNER : WINNER$  );PLAYER.NAME$(X););$;CASH(X););  WINNER$  X   * 
); 4 >7HS  E  L  LeR 
);DO YOU WISH TO SELL ANY STOCKS ;p\ ANS$f (ANS$,)N  p (ANS$,)Y   Hz 
);STOCK ; STOCK$ 	:                       RECOGNIZE STOCK NAME 
);HOW MANY SELLING ;1 SELLG SELL   H SELLPORTFOLIOS(X,N)   
);YOU ONLY HAVE ;PORTFOLIOS(X,N);SHARES : PORTFOLIOS(X,N)PORTFOLIOS(X,N)SELLRESALESELLSTOCK.PRICE(N)
 
);RESALE VALUE OF $;RESALECASH(X)CASH(X)RESALE HoB  U  Y	 
);DO YOU WISH TO BUY ANY STOCKS ;	 ANS$	 (ANS$,)N  $	 (ANS$,)Y   .	 
);STOCK ;$8	 STOCK$8$B	 	:                       RECOGINIZE STOCK NAME>$L	]$V	 
);HOW MANY BUYING ;g$	 BUY|$j	 BUY   t	 BUYSTOCK.PRICE(N)CASH(X)   
);YOU ONLY HAVE $;CASH(X) :  
);THAT'S ENOUGH FOR ; :  (CASH(X) STOCK.PRICE(N)) ;SHARES : L	,	COSTBUYSTOCK.PRICE(N)J	 
);THAT COST $;COSTc	CASH(X)CASH(X)COST	PORTFOLIOS(X,N)PORTFOLIOS(X,N)BUY	 	FIND STOCK NAME	 N  
	 STOCK$ABBR$(N)  	 N9	 
);THAT STOCK IS NOT TRADED ON THE 'BIG BOARD'd	 
);THESE ARE THE CURRENT STOCKS:j		 (
 :              PRINT STOCK NAMES AND ABBR


 
);STOCK ;
 STOCK$
 	'(
PRINT THE STOCK NAMES AND ABBR'2
'<
 M  
>'F
 STOCK.NAME$(M);();ABBR$(M)F'P
 ML'Z
'd
I N S T R U C T I O N S'n
 Sorry, no instructions, yet:::'x
B U Y      A N D      S E L L(
 X  NO.OF.PLAYERS(
5(
 
);> PLAYER ;PLAYER.NAME$(X);U(
  YOU NOW HAVE $;CASH(X)[(
l(
OWNER.FLAG{(
 Y  
(
 PORTFOLIOS(X,Y)  OWNER.FLAG(
 Y(
 OWNER.FLAG   H:       SELL RTN(
OWNER.FLAG(
 Y  
)
 CASH(X)STOCK.PRICE(Y)  OWNER.FLAG+) YV) OWNER.FLAG   :       BUY RTN^) Xd)),NEW YEAR ON THE MARKET)6ELAPSED.YEARSELAPSED.YEARS)@ ELAPSED.YEARSLENGTH.OF.TREND   :     CALC NEW TREND*J X  
;*TCHANGECHANGE:         CHANGE FUNCTIONW*^ CHANGE  CHANGE*h   CHANGECHANGE:  5050 IT'S MINUS*rNET.CHANGE(X)((CHANGEFLUCT(X))BIAS)*|STOCK.PRICE(X)STOCK.PRICE(X)NET.CHANGE(X)* X+ :                        CALC DOW JONES2+ X  
i+ STOCK.PRICE(X)   0:        STOCK SPLITS+ STOCK.PRICE(X)   :        STOCK BANKRUPTS+ X+ X  
+YEAR.DIV(X)(STOCK.PRICE(X)DIV.FACTOR(X)), Y  NO.OF.PLAYERS>,DIVIDENDS(Y)DIVIDENDS(Y)YEAR.DIV(X)PORTFOLIOS(Y,X)F, YN, XT,Z,, ); YEAR ;YEAR;, );DOW JONES INDUSTRIAL AVERAGE ;Q$; ;DIFF;, TO ;DOW.JONES 0 STOCK     NET     CURRENT   DIV              P O R T F O L I O SJ: ABBR.    CHANGE    PRICE   IDEND dD X  NO.OF.PLAYERSN (X));PLAYER.NAME$(X);X Xb  l X  
v ABBR$(X););NET.CHANGE(X);); STOCK.PRICE(X); );YEAR.DIV(X);. Y  NO.OF.PLAYERS=. (Y)*);PORTFOLIOS(Y,X);E. YO.  W. Xx. DIVIDENDS FOR THE YEAR:;. X  NO.OF.PLAYERS. (X)*);DIVIDENDS(X);. X.  . X  NO.OF.PLAYERS.
 (X)*);______;
 X
   
 PLAYERS NEW CASH TOTAL:;I*
 X  NO.OF.PLAYERSj4
CASH(X)CASH(X)DIVIDENDS(X)>
 (X)*);CASH(X);H
 XR
  \
 X  NO.OF.PLAYERSf
DIVIDENDS(X)p
 Xz
^F^:t^F^^:sBV
F@FH;FuF]	VVkzLTCLQQ|6ZU
P^S^
S4FF]V\Vz8OLECLQQZ2|pUPvv:uANFt52Fr*Fvvvv:tF
F@FH;FuF]	V_VzEQDLQQlF|2UPvv4FF]'V\VzNEDLQQ.