BCG101/dec/STOCK.BAS

100 REM STOCK MARKET SIMULATION     -STOCK-
101 REM REVISED 8/18/70 (D. PESSEL, L. BRAUN, C. LOSIK)
102 REM IMP VRBLS: A-MRKT TRND SLP; B5-BRKRGE FEE; C-TTL CSH ASSTS;
103 REM C5-TTL CSH ASSTS (TEMP); C(I)-CHNG IN STK VAL; D-TTL ASSTS;
104 REM E1,E2-LRG CHNG MISC; I-STCK #; I1,I2-STCKS W LRG CHNG;
105 REM N1,N2-LRG CHNG DAY CNTS; P5-TTL DAYS PRCHSS; P(I)-PRTFL CNTNTS;
106 REM Q9-NEW CYCL?; S4-SGN OF A; S5-TTL DYS SLS; S(I)-VALUE/SHR;
107 REM T-TTL STCK ASSTS; T5-TTL VAL OF TRNSCTNS;
108 REM W3-LRG CHNG; X1-SMLL CHNG(<$1); Z4,Z5,Z6-NYSE AVE.; Z(I)-TRNSCTN.
109  PRINT TAB(20);"THE STOCK MARKET"
110  DIM S(5),P(5),Z(5),C(5)
112 REM SLOPE OF MARKET TREND:A  (SAME FOR ALL STOCKS)
113  RANDOMIZE
114  LET A=INT((RND(X)/10)*100+.5)/100
115  LET T5=0
116  LET X9=0
117  LET N1=0
118  LET N2=0
119  LET E1=0
120  LET E2=0
121 REM INTRODUCTION
122  PRINT "DO YOU WANT THE INSTRUCTIONS (YES-TYPE 1, NO-TYPE 0)";
123  INPUT Z9
124  PRINT
125  PRINT
126  IF Z9<1 THEN 200
130  PRINT "THIS PROGRAM PLAYS THE STOCK MARKET.  YOU WILL BE GIVEN"
132  PRINT "$10,000 AND MAY BUY OR SELL STOCKS.  THE STOCK PRICES WILL"
134  PRINT "BE GENERATED RANDOMLY AND THEREFORE THIS MODEL DOES NOT"
135  PRINT "REPRESENT EXACTLY WHAT HAPPENS ON THE EXCHANGE.  A TABLE"
136  PRINT "OF AVAILABLE STOCKS, THEIR PRICES, AND THE NUMBER OF SHARES"
137  PRINT "IN YOUR PORTFOLIO WILL BE PRINTED.  FOLLOWING THIS, THE"
138  PRINT "INITIALS OF EACH STOCK WILL BE PRINTED WITH A QUESTION"
139  PRINT "MARK.  HERE YOU INDICATE A TRANSACTION.  TO BUY A STOCK"
140  PRINT "TYPE +NNN, TO SELL A STOCK TYPE -NNN, WHERE NNN IS THE"
141  PRINT "NUMBER OF SHARES.  A BROKERAGE FEE OF 1% WILL BE CHARGED"
142  PRINT "ON ALL TRANSACTIONS.  NOTE THAT IF A STOCK'S VALUE DROPS"
143  PRINT "TO ZERO IT MAY REBOUND TO A POSITIVE VALUE AGAIN.  YOU"
144  PRINT "HAVE $10,000 TO INVEST.  USE INTEGERS FOR ALL YOUR INPUTS."
145  PRINT "(NOTE:  TO GET A 'FEEL' FOR THE MARKET RUN FOR AT LEAST"
146  PRINT "10 DAYS)"
147  PRINT "-----GOOD LUCK!-----"
200 REM GENERATION OF STOCK TABLE; INPUT REQUESTS
210 REM INITIAL STOCK VALUES
220  LET S(1)=100
230  LET S(2)=85
240  LET S(3)=150
250  LET S(4)=140
260  LET S(5)=110
265 REM INITIAL T8 - # DAYS FOR FIRST TREND SLOPE (A)
266  LET T8=INT(4.99*RND(X)+1)
267 REM RANDOMIZE SIGN OF FIRST TREND SLOPE (A)
268  IF RND(X)>.5 THEN 270
269  LET A=-A
270 REM RANDOMIZE INITIAL VALUES
280  GOSUB 830
285 REM INITIAL PORTFOLIO CONTENTS
290  FOR I=1 TO 5
300  LET P(I)=0
305  LET Z(I)=0
310  NEXT I
320  PRINT
330  PRINT
333 REM INITIALIZE CASH ASSETS:C
335  LET C=10000
338 REM PRINT INITIAL PORTFOLIO
340  PRINT "STOCK"," ","INITIALS","PRICE/SHARE"
350  PRINT "INT. BALLISTIC MISSILES","  IBM",S(1)
352  PRINT "RED CROSS OF AMERICA","  RCA",S(2)
354  PRINT "LICHTENSTEIN, BUMRAP & JOKE","  LBJ",S(3)
356  PRINT "AMERICAN BANKRUPT CO.","  ABC",S(4)
358  PRINT "CENSURED BOOKS STORE","  CBS",S(5)
360  PRINT
361 REM NYSE AVERAGE:Z5; TEMP. VALUE:Z4; NET CHANGE:Z6
363  LET Z4=Z5
364  LET Z5=0
365  LET T=0
370  FOR I=1 TO 5
375  LET Z5=Z5+S(I)
380  LET T=T+S(I)*P(I)
390  NEXT I
391  LET Z5=INT(100*(Z5/5)+.5)/100
392  LET Z6=INT((Z5-Z4)*100+.5)/100
393 REM TOTAL ASSETS:D
394  LET D=T+C
395  IF X9>0 THEN 398
396  PRINT "NEW YORK STOCK EXCHANGE AVERAGE: "Z5
397  GOTO 399
398  PRINT "NEW YORK STOCK EXCHANGE AVERAGE: "Z5"   NET CHANGE: "Z6
399  PRINT
400  LET T=INT(100*T+.5)/100
401  PRINT "TOTAL STOCK ASSETS ARE   $";T
403  LET C=INT(100*C+.5)/100
405  PRINT "TOTAL CASH ASSETS ARE    $";C
407  LET D=INT(100*D+.5)/100
408  PRINT "TOTAL ASSETS ARE         $";D
410  PRINT
411  IF X9=0 THEN 416
412  PRINT "DO YOU WISH TO CONTINUE (YES-TYPE 1, NO-TYPE 0)";
413  INPUT Q9
414  IF Q9<1 THEN 998
416 REM INPUT TRANSACTIONS
420  PRINT "WHAT IS YOUR TRANSACTION IN"
430  PRINT "IBM";
440  INPUT Z(1)
450  PRINT "RCA";
460  INPUT Z(2)
470  PRINT "LBJ";
480  INPUT Z(3)
490  PRINT "ABC";
500  INPUT Z(4)
510  PRINT "CBS";
520  INPUT Z(5)
525  PRINT
530 REM TOTAL DAY'S PURCHASES IN $:P5
540  LET P5=0
550 REM TOTAL DAY'S SALES IN $:S5
560  LET S5=0
570  FOR I=1 TO 5
575  LET Z(I)=INT(Z(I)+.5)
580  IF Z(I)<=0 THEN 610
590  LET P5=P5+Z(I)*S(I)
600  GOTO 620
610  LET S5=S5-Z(I)*S(I)
612  IF -Z(I)<=P(I) THEN 620
614  PRINT "YOU HAVE OVERSOLD A STOCK; TRY AGAIN."
616  GOTO 420
620  NEXT I
622 REM TOTAL VALUE OF TRANSACTIONS:T5
625  LET T5=P5+S5
630 REM BROKERAGE FEE:B5
640  LET B5=INT(.01*T5*100+.5)/100
650 REM CASH ASSETS=OLD CASH ASSETS-TOTAL PURCHASES
652 REM -BROKERAGE FEES+TOTAL SALES:C5
654  LET C5=C-P5-B5+S5
656  IF C5>=0 THEN 674
658 PRINT "YOU HAVE USED $";-C5"MORE THAN YOU HAVE."
660 GOTO 420
674  LET C=C5
675 REM CALCULATE NEW PORTFOLIO
680  FOR I=1 TO 5
690  LET P(I)=P(I)+Z(I)
700  NEXT I
710 REM CALCULATE NEW STOCK VALUES
720  GOSUB 830
750 REM PRINT PORTFOLIO
751 REM BELL RINGING-DIFFERENT ON MANY COMPUTERS
752  FOR I=1 TO 20
753  PRINT CHR$(135);
754  NEXT I
755  PRINT
756  PRINT "**********  END OF DAY'S TRADING"
757  PRINT
758  PRINT
759  IF X9<1 THEN 769
769  PRINT "STOCK","PRICE/SHARE","HOLDINGS","VALUE","NET PRICE CHANGE"
770  PRINT "IBM", S(1), P(1), S(1)*P(1), C(1)
771  PRINT "RCA", S(2), P(2), S(2)*P(2), C(2)
772  PRINT "LBJ", S(3), P(3), S(3)*P(3), C(3)
773  PRINT "ABC", S(4), P(4), S(4)*P(4), C(4)
774  PRINT "CBS", S(5), P(5), S(5)*P(5), C(5)
775  LET X9=1
780  PRINT
790  PRINT
810  GOTO 360
829 REM NEW STOCK VALUES - SUBROUTINE
830 REM RANDOMLY PRODUCE NEW STOCK VALUES BASED ON PREVIOUS
831 REM DAY'S VALUES
832 REM N1,N2 ARE RANDOM NUMBERS OF DAYS WHICH RESPECTIVELY
833 REM DETERMINE WHEN STOCK I1 WILL INCREASE 10 PTS. AND STOCK
834 REM I2 WILL DECREASE 10 PTS.
840 REM IF N1 DAYS HAVE PASSED, PICK AN I1, SET E1, DETERMINE NEW N1
841  IF N1>0 THEN 850
845  LET I1=INT(4.99*RND(X)+1)
846  LET N1=INT(4.99*RND(X)+1)
847  LET E1=1
850 REM IF N2 DAYS HAVE PASSED, PICK AN I2, SET E2, DETERMINE NEW N2
851  IF N2>0 THEN 860
855  LET I2=INT(4.99*RND(X)+1)
856  LET N2=INT(4.99*RND(X)+1)
857  LET E2=1
860 REM DEDUCT ONE DAY FROM N1 AND N2
861  LET N1=N1-1
862  LET N2=N2-1
890 REM LOOP THROUGH ALL STOCKS
900  FOR I=1 TO 5
910  LET X1=RND(X)
915  IF X1>.25 THEN 920
916  LET X1=.25
917  GOTO 935
920  IF X1>.50 THEN 925
921  LET X1=.50
922  GOTO 935
925  IF X1>.75 THEN 930
926  LET X1=.75
927  GOTO 935
930  LET X1=0.0
931 REM BIG CHANGE CONSTANT:W3  (SET TO ZERO INITIALLY)
935  LET W3=0
936  IF E1<1 THEN 945
937  IF INT(I1+.5)<>INT(I+.5) THEN 945
938 REM ADD 10 PTS. TO THIS STOCK;  RESET E1
939  LET W3=10
943  LET E1=0
945  IF E2<1 THEN 955
947  IF INT(I2+.5)<>INT(I+.5) THEN 955
948 REM SUBTRACT 10 PTS. FROM THIS STOCK;  RESET E2
949  LET W3=W3-10
953  LET E2=0
954 REM C(I) IS CHANGE IN STOCK VALUE
955  LET C(I)=INT(A*S(I))+X1+INT(3-6*RND(X)+.5)+W3
956  LET C(I)=INT(100*C(I)+.5)/100
957  LET S(I)=S(I)+C(I)
960  IF S(I)>0 THEN 967
964  LET C(I)=0
965  LET S(I)=0
966  GOTO 970
967  LET S(I)=INT(100*S(I)+.5)/100
970  NEXT I
972 REM AFTER T8 DAYS RANDOMLY CHANGE TREND SIGN AND SLOPE
973  LET T8=T8-1
974  IF T8<1 THEN 985
980  RETURN
985 REM RANDOMLY CHANGE TREND SIGN AND SLOPE (A), AND DURATION
986 REM OF TREND (T8)
990  LET T8=INT(4.99*RND(X)+1)
992  LET A=INT((RND(X)/10)*100+.5)/100
993  LET S4=RND(X)
994  IF S4<=.5 THEN 997
995  LET A=-A
997  RETURN
998  PRINT "HOPE YOU HAD FUN!!"
999  END