rem *----------------------------------------------*
rem *            STOCK GRAPH PROGRAM               *
rem *		 -------------------		   *
rem *						   *
rem *	COPYRIGHT: E.A. Valenzuela		   *
rem *	     DATE: February 25, 1983		   *
rem *	  VERSION: 1.35				   *
rem *----------------------------------------------*

rem ----- requires following subroutines -----
rem	stkplot.bas
rem	linreg.bas
rem 	stkbeta.bas
rem 	scrnin.bas    ... for screen handling
rem     portprfm.bas
rem     qksort%.bas

COMMON option%,entry%, nstk%,morestock$ 

rem ... dimension arrays ...
 dim x0(99), x(99), y(99), xr(99), yr(99)
 dim key%(99), ynew%(99)

rem ... define functions ...
%include SCRNIN

rem ... proceed to stkbeta ...
INITIALIZE
entry% = 3

900 rem ... print main menu ...

if option% = 6 then GOSUB 9001
if option% = 9 then gosub 8000

rem ... return to main program ...
  drive$ = "A:"
  prog.name$ = "STKBASE"
  CHAIN DRIVE$ + PROG.NAME$

goto 99

rem --- other programs ---
%include STKBETA
%include STKPLOT
%include LINREG
%include PORTPRFM
%include QKSORT%

99 end