10 REM STKCR.ECB 100 PRINT "&K&J&J": REM .....LAST CHANGE 3-31-81 R.E.H. 110 REM ...STOCK MARKET CRASH SIMULATION 120 REM ...WRITTEN BY LOREN DUNHAM, FAIRMONT HIGH SCHOOL 130 REM ...BASED ON THE "STOCK MARKET GAME" 140 REM ...by WILLIAM KRAUSE and DAVID C. SISCHO 150 REM ...ONE SIMULATION OF A PACKAGE OF SIX 160 REM ...CALLED --SPRING SEMESTER PACKAGE, VOL. 2-- COPYRIGHT BY 170 REM ...--INVOLVEMENT -- 3521 EAST FLINT WAY -- FRESNO, CA 93726-- 180 REM ...CONVERTED FROM MANKATO LIBRARY ON 4/10/75 BY DON YENISH 190 REM ...REVISED by L. DUNHAM, 7/76 195 DIM S$(32),N(8),S(10) 200 PRINT TAB(15);"[*= S T O C K =*]" 210 PRINT TAB(15);"[*= C R A S H =*]" 220 PRINT 230 PRINT " YOU HAVE $500 TO INVEST IN STOCKS. THE YEAR IS 1920." 240 PRINT "THERE ARE 8 FIRMS ON THE EXCHANGE:" 245 PRINT 250 PRINT " 1 - KROGER (KRO) 2 - RADIO CORPORATION (RCO)" 260 PRINT " 3 - MAMMOTH OIL (MAM) 4 - GOTHAM BANK (GTM)" 270 PRINT " 5 - DURANT MOTORS (DM) 6 - MIDLAND UTILITIES (MID)" 280 PRINT " 7 - KANSAS & PACIFIC RAILROAD (K/P)" 290 PRINT " 8 - TEL-TONE (T/T)" 295 PRINT 300 PRINT "*** TYPE IN ANY LETTER TO SEE MORE ---=>"; 310 INPUT (1,0)Z$ 320 PRINT "&K": CURSOR 3,1 330 PRINT 340 PRINT " CONSULT YOUR PROSPECTUS FOR DETAILS." 350 PRINT " ALL STOCKS OPEN AT $10 / share." 360 PRINT 370 PRINT " WHEN YOU WANT TO BUY OR SELL A STOCK, USE THE CODE NUMBER" 380 PRINT "GIVEN ABOVE. IF YOU DON'T WANT TO BUY OR SELL TYPE 0." 390 PRINT " (AFTER 1920, YOU CAN LIST YOUR PORTFOLIO BY TYPING 9" 400 PRINT "AFTER STOCK*.)" 410 PRINT 420 PRINT "*** TYPE IN ANY LETTER TO SEE MORE ---=>"; 430 INPUT (1,200)Z$: PRINT "&K" 440 PRINT 450 FOR L=1 TO 8 460 LET N(L)=0 470 NEXT L 480 FOR L=1 TO 10 490 LET S(L)=10 500 NEXT L 510 LET C=500 520 LET S$="KRO.RCO.MAM.GTM.DM .MID.K/P.T/T." 525 PRINT 530 FOR X=1 TO 8: PRINT X;"=";S$(X*4-3,X*4);" ";: NEXT X 540 FOR X=1 TO 8: PRINT "$";S(X);" ";: NEXT X 545 PRINT 550 PRINT "You have ";%$;C;" left." 560 PRINT "STOCK to buy: ---=>"; 570 INPUT K 580 IF K=0 THEN 680 590 PRINT "# OF SHARES: ---=>"; 600 INPUT N 610 LET N(K)=N 620 LET C=C-S(K)*N(K) 630 IF C<0 THEN 650 640 GOTO 525 650 PRINT "YOU OVERSPENT! ... by";%$;C 660 LET C=C+S(K)*N(K) 670 GOTO 560 680 FOR I=1 TO 7 690 LET T=0 700 READ Y 710 FOR K=1 TO 8 720 READ S(K) 730 NEXT K 740 IF Y=1922 THEN GOSUB 1470 750 IF Y=1923 THEN GOSUB 1510 760 IF Y=1927 THEN GOSUB 1550 770 IF Y=1928 THEN GOSUB 1590 780 IF Y=1929 THEN GOSUB 1630 790 PRINT 800 IF Y=1920 THEN 810 805 INPUT (1,0)"<#> Input any letter to see the ticker tape ---=>",I$ 810 PRINT "&K";TAB(5);Y;"&J" 820 FOR X=1 TO 8 830 PRINT "(";X;" )"; 840 PRINT " ...";S$(X*4-3,X*4-1);"...";%$3I;S(X); 850 PRINT " You have";%4I;N(X) 860 NEXT X 870 PRINT 880 FOR K=1 TO 8 890 LET T(K)=N(K)*S(K) 900 LET T=T+T(K) 910 NEXT K 914 IF Y<1929 THEN 920 ELSE PRINT 915 INPUT (1,0)"<$> Input any letter to see the disaster ---=>",I$ 920 PRINT 930 PRINT "PORTFOLIO NOW WORTH: ";T 940 PRINT "CASH ON HAND: ";C 950 IF Y=1929 THEN 1320 960 PRINT "WHAT DO YOU WANT TO SELL?" 970 PRINT "STOCK*: ---=>"; 980 INPUT K 990 IF K=0 THEN 1090 1000 IF K=9 THEN 1320 1010 PRINT "# OF SHARES: ---=>"; 1020 INPUT N 1030 IF N"; 1130 INPUT K 1140 IF K=0 THEN 1240 1150 PRINT "# OF SHARES: ---=>"; 1160 INPUT N 1170 LET C=C-S(K)*N 1180 IF C<0 THEN 1210 1190 LET N(K)=N(K)+N 1200 GOTO 1120 1210 PRINT "YOU OVERSPENT! ... by";%$;C 1220 LET C=C+S(K)*N 1230 GOTO 1120 1240 NEXT I 1250 DATA 1920,12,13,14,11,7,13,9,15 1260 DATA 1922,15,14,19,11,5,19,10,22 1270 DATA 1923,13,13,16,10,4,19,9,19 1280 DATA 1925,12,15,21,12,7,22,11,24 1290 DATA 1927,14,17,13,12,10,18,10,22 1300 DATA 1928,13,14,7,13,13,14,12,17 1310 DATA 1929,8,4,2,12,12,3,8,6 1320 PRINT 1330 PRINT "CURRENT PORTFOLIO STATUS:" 1340 PRINT 1350 IF T>0 THEN 1390 1360 PRINT " (NO STOCKS OWNED AT THIS TIME)" 1370 PRINT 1380 GOTO 1450 1390 PRINT "STOCK","# SHARES","PRICE/SHARE","VALUE" 1400 FOR K=1 TO 8 1410 IF N(K)=0 THEN 1430 1420 PRINT S$(K*4-3,K*4),N(K),S(K),T(K) 1430 NEXT K 1440 PRINT 1450 IF Y=1929 THEN 1690 1460 GOTO 960 1470 PRINT 1480 PRINT "BULLETIN!!...LARGEST OIL FIELD IN U.S. MAY BE LOCATED" 1490 PRINT TAB(10);"UNDER MAMMOTH LEASE AT TEAPOT DOME,WYO.!!!" 1500 RETURN 1510 PRINT 1520 PRINT "BULLETIN!!...PRES. HARDING HAS HAD CORONARY SEIZURE AND IS" 1530 PRINT TAB(10);"REPORTED TO BE DYING!!!" 1540 RETURN 1550 PRINT 1560 PRINT "BULLETIN!!...CONGRESS IS INVESTIGATING MAMMOTH LEASES..." 1570 PRINT TAB(10);"...DURANT HIRES LOUIS CHEVROLET AS DESIGNER..." 1580 RETURN 1590 PRINT 1600 PRINT "BULLETIN!!...MIDLAND MAY BE 'HOUSE OF CARDS' ACCORDING TO" 1610 PRINT TAB(10);"CHICAGO TRIBUNE...FALL INDICTED IN OIL LEASING" 1620 RETURN 1630 PRINT 1640 PRINT "BULLETIN!!!!............PANIC HAS HIT WALL STREET. TWELVE" 1650 PRINT TAB(10);"MILLION SHARES HAVE BEEN TRADED IN ONE DAY ON" 1660 PRINT TAB(10);"THE NEW YORK EXCHANGE. $700 MILLION HAS BEEN" 1670 PRINT TAB(10);"LOST AS THE MARKET TAKES IT GREATEST DIVE EVER!!" 1680 RETURN 1690 END