1000  COM D7,Z[20],F$[11]
1010  COM E$[10],A9,P,P1,P2,P3,P4,P5
1020  COM A[60],B[60],C[90],D[200],E[200]
1030  COM F[10],G[10],H[10],I[10],J[10]
1040  COM K[10],L[10],M[10],N[10],O[10],P[10]
1050  COM R[10]
1053  REM******************  STOX--BEGIN PROGRAM  **************
1055  DIM A$[5]
1060  IF F$="TTTT" THEN 1930
1070  MAT A=ZER
1080  MAT B=ZER
1090  MAT C=ZER
1100  MAT D=ZER
1110  MAT E=ZER
1120  PRINT "THINKING...."
1130  REM----------MATS A-E ARE STOCK SINE WAVES
1140  REM----------MATS F-J ARE 'HOLDING' MATS
1150  REM----------MAT K IS AN ADDITION ASSIST
1160  REM----------MAT L IS  STOCK # MAT
1170  REM----------MAT M IS # OF SHARES MAT
1180  REM----------MAT N IS  'CHANGE PRICE' MAT
1190  REM----------MAT O IS 'LAST PRICE' MAT
1200  REM----------MAT P IS'PRIVATE FUND' MAT
1210  MAT F=ZER
1220  MAT G=ZER
1230  MAT H=ZER
1240  MAT I=ZER
1250  MAT J=ZER
1260  MAT K=ZER
1270  MAT L=ZER
1280  MAT M=ZER
1290  MAT N=ZER
1300  MAT O=ZER
1310  MAT P=ZER
1320  MAT R=ZER
1330  MAT Z=ZER
1340  D7=51.5
1350  S=S1=S2=S3=S4=S5=0
1360  P=P1=P2=P3=P4=P5=INT(5*RND(0))+5
1370  O[1]=3.5*RND(0)+38
1380  O[2]=2.7*RND(0)+55
1390  O[3]=4.1*RND(0)+47
1400  O[4]=3.3*RND(0)+68
1410  O[5]=2.2*RND(0)+52
1420  FOR X=1 TO 5
1430  P[X]=10000
1440  NEXT X
1450  E$="****"
1460  REM**********STOCK 1
1470  Z1=1
1480  FOR X=1 TO 7.25 STEP .18
1490  Y=(1.5*SIN(X))/1.9
1500  IF Y>1.65 OR Y<-1.65 THEN 1530
1510  A[Z1]=Y
1520  Z1=Z1+1
1530  NEXT X
1540  REM ***********STOCK 2
1550  Z1=1
1560  FOR X=1 TO 5.21 STEP .091
1570  Y=(1.5*SIN(X))/1.9
1580  IF Y>1.65 OR Y<-1.65 THEN 1610
1590  B[Z1]=Y
1600  Z1=Z1+1
1610  NEXT X
1620  REM ***********STOCK 3
1630  Z1=1
1640  FOR X=1 TO 7.3 STEP .091
1650  Y=(1.2*SIN(X))/1.9
1660  Y=ABS(Y)
1670  IF Y>1.65 OR Y<-1.65 THEN 1700
1680  C[Z1]=Y
1690  Z1=Z1+1
1700  NEXT X
1710  REM ***********STOCK 4
1720  Z1=1
1730  FOR X=1 TO 15 STEP .091
1740  Y=(1.2*SIN(X))/1.9
1750  IF Y>1.65 OR Y<-1.65 THEN 1780
1760  D[Z1]=ABS(Y)
1770  Z1=Z1+1
1780  NEXT X
1790  REM ***********STOCK5
1800  Z1=1
1810  FOR X=1 TO 15 STEP .091
1820  Y=(1.2*SIN(X))/1.9
1830  Y=(ABS(Y))*-1
1840  IF Y<-1.65 THEN 1870
1850  E[Z1]=Y
1860  Z1=Z1+1
1870  NEXT X
1880  PRINT "WOULD YOU LIKE INSTRUCTIONS";
1890  INPUT A$
1900  IF A$[1,1]#"Y" THEN 1940
1910  F$="TTTT"
1920  CHAIN "STOXIN.A100"
1930  F$="RRRR"
1940  PRINT "HOW MANY INVESTORS";
1950  INPUT A9
1960  A9=INT(A9)
1970  IF A9>0 AND A9<5 THEN 2010
1980  PRINT "NOW HOLD IT."
1990  PRINT "      YOU CAN ONLY HAVE 1-4 PLAYERS"
2000  GOTO 1940
2010  CHAIN "STOX2.A100"
2020  END 
