20 CLS 40 LET L=0 50 LET J=0 60 LET K=0 70 LET M=0 80 LET O=0 90 LET P=0 100 LET N=0 110 LET A=0 120 LET B=10 130 LET C=20 140 LET D=100 150 LET E=300 160 LET F=2000 170 LET G=4000 180 LET H=7000 190 LET I=100 200 PRINTTAB(13,13)"STOCKMARKET" 210 FOR R=1 TO 2500 220 NEXT R 230 CLS 240 PRINT" " 250 PRINT" " 260 PRINT" " 270 PRINT" " 280 PRINT" INSTRUCTIONS" 290 PRINT"" 300 PRINT"IN THIS GAME YOU MUST BUY AND SELL METALS AT A PROFIT SO YOU CAN RETIRE AT `1,000,000!!!!." 310 PRINT" THE METALS TO TRADE IN ARE:- LEAD,ZINC,MAGNESIUM,TIN,SILVER,GOLD,AND PLATIGNUM." 320 PRINT" " 330 PRINT" YOU START WITH `100,AND IF YOU GO INTO THE RED, YOU WILL BE BANKRUPT." 340 PRINT"" 350 PRINT"" 360 PRINT" GOOD LUCK" 370 PRINT" (YOU'LL NEED IT)" 380 A$=GET$ 390 CLS 400 LET A=A+1 410 PRINT "MONTH=";A 420 PRINT"" 430 PRINT"" 440 PRINT "ASSETS=" 450 PRINT" LEAD=";J 460 PRINT" ZINC=";K 470 PRINT" MAGNESIUM=";L 480 PRINT" TIN=";M 490 PRINT" SILVER=";N 500 PRINT" GOLD=";O 510 PRINT" PLATIGNUM=";P 520 PRINT" " 530 PRINT" MONEY=";I 540 A$=GET$ 545 GOTO 2500 550 CLS 560 PRINT"" 570 PRINT"" 580 PRINT" CURRENT PRICES" 590 PRINT"" 600 PRINT" LEAD=";B 610 PRINT" ZINC=";C 620 PRINT" MAGNESIUM=";D 630 PRINT" TIN=";E 640 PRINT" SILVER=";F 650 PRINT" GOLD=";G 660 PRINT" PLATIGNUM=";H 670 PRINT"" 680 PRINT"" 690 PRINT"DO YOU WANT TO BUY ANYTHING?"; 700 REPEAT KEY$=GET$: UNTIL KEY$="Y" OR KEY$="N" 710 IF KEY$="Y" THEN PRINT"" 720 IF KEY$="N" THEN GOTO 5000 730 PRINT"" 740 PRINT"WHAT DO YOU WANT TO BUY(A=LEAD,B=ZINC, ETC.)." 750 INPUT B$ 770 IF B$="A" THEN GOTO 9000 780 IF B$="B" THEN GOTO 9200 790 IF B$="C" THEN GOTO 9400 800 IF B$="D" THEN GOTO 9600 810 IF B$="E" THEN GOTO 9800 820 IF B$="F" THEN GOTO 10000 830 IF B$="G" THEN GOTO 10200 ELSE GOTO 750 1500 CLS 1510 PROCPD("BANKRUPT!!!!") 1520 DEFPROCPD(A$) FORI%=0TO1:VDU&9D81;&8D83;:PRINTSPC(16-LENA$DIV2) A$:NEXT:ENDPROC 1530 PRINT"" 1540 PRINT"" 1550 PRINT"INCOMING FAX FROM THE STOCKMARKET TREASURY.............." 1560 PRINT"" 1570 PRINT"" 1580 PRINT"Due to your current financial state I have been told to inform you that all your assets have been sold to recover the money owed by you." 1590 PRINT"" 1600 PRINT"Therefore with no more assets to trade with your placement on this market has been cancelled immediately and you have effectively been made bankrupt." 1610 PRINT"" 1620 PRINT"" 1630 PRINT"PHONE CALL FROM A FRIEND TELLS YOU THAT HE IS PREPARED TO FUND YOUR NEXT ATTEMPT, SO PRESS ANY KEY EXCEPT BREAK TO ACCEPT HIS OFFER TO START AGAIN." 1640 A$=GET$ 1650 GOTO 20 1750 CLS 1760 PROCPD("MILLIONAIRE!!!!") 1770 DEFPROCPD(A$) FORI%=0TO1:VDU&9D81;&8D83;:PRINTSPC(16-LENA$DIV2) A$:NEXT:ENDPROC 1780 PRINT"" 1790 PRINT"" 1800 PRINT"YOU HAVE NOW REACHED `1,000,000 AND YOU CAN NOW RETIRE IN LUXURY-" 1805 PRINT"CONGRATULATIONS ON YOUR GOOD FORTUNE!!!!" 1810 PRINT"" 1820 PRINT"" 1830 PRINT"PRESS ANY KEY TO RESTART" 1840 A$=GET$ 1850 GOTO 20 2500 LET X=RND(5) 2510 IF X=1 OR X=3 THEN LET B=B+RND(3) ELSE LET B=B-RND(3) 2520 LET X=RND(5) 2530 IF X=1 OR X=3 THEN LET C=C+RND(5) ELSE LET C=C-RND(5) 2540 LET X=RND(5) 2550 IF X=1 OR X=3 THEN LET D=D+RND(10) ELSE LET D=D-RND(10) 2560 LET X=RND(5) 2570 IF X=1 OR X=3 THEN LET E=E+RND(30) ELSE LET E=E-RND(30) 2580 LET X=RND(5) 2590 IF X=1 OR X=3 THEN LET F=F+RND(200) ELSE LET F=F-RND(200) 2600 LET X=RND(5) 2610 IF X=1 OR X=3 THEN LET G=G+RND(400) ELSE LET G=G-RND(400) 2620 LET X=RND(5) 2630 IF X=1 OR X=3 THEN LET H=H+RND(700) ELSE LET H=H-RND(700) 2640 IF B<1 THEN LET B=7 2650 IF C<1 THEN LET C=30 2655 IF D<1 THEN LET D=70 2656 IF E<30 THEN LET E=200 2657 IF F<500 THEN LET F=1500 2660 GOTO 550 5000 CLS 5010 PRINT"" 5020 PRINT"" 5030 PRINT"DO YOU WANT TO SELL ANYTHING?" 5040 REPEAT KEY$=GET$:UNTIL KEY$="Y" OR KEY$="N" 5050 IF KEY$="Y" THEN GOTO 5070 5060 IF KEY$="N" THEN GOTO 390 5070 PRINT"" 5080 PRINT"" 5090 PRINT"WHAT DO YOU WANT TO SELL?" 5100 PRINT"(A=LEAD ETC.)" 5101 REPEAT KEY$=GET$:UNTIL KEY$="A" OR KEY$="B" OR KEY$="C" OR KEY$="D" OR KEY$="E" OR KEY$="F" OR KEY$="G" 5103 IF KEY$="A" THEN GOTO 5120 5105 IF KEY$="B" THEN GOTO 5160 5107 IF KEY$="C" THEN GOTO 5200 5109 IF KEY$="D" THEN GOTO 5240 5110 REPEAT KEY$=GET$:UNTIL KEY$="A" OR KEY$="B" OR KEY$="C" OR KEY$="D" OR KEY$="E" OR KEY$="F" OR KEY$="G" 5111 IF KEY$="E" THEN GOTO 5270 5113 IF KEY$="F" THEN GOTO 5300 5115 IF KEY$="G" THEN GOTO 5340 5120 IF KEY$="A" THEN PRINT"HOW MUCH?":INPUT Y:IF Y>J THEN PRINT"YOU DON'T HAVE ENOUGH TRY NEXT TIME":A$=GET$:GOTO 390 5130 IF Y=J THEN PRINT"STOCK NOW NIL": LET Q=J*B: LET I=I+Q:PRINT"MONEY=";I:LET J=0 5140 IF Y1000000 THEN GOTO 1750 ELSE A$=GET$:GOTO 390 5160 IF KEY$="B" THEN PRINT"HOW MUCH?":INPUT Y:IF Y>K THEN PRINT"YOU DON'T HAVE ENOUGH TRY NEXT TIME":A$=GET$:GOTO 390 5170 IF Y=K THEN PRINT"STOCK NOW NIL": LET Q=K*C: LET I=I+Q:PRINT"MONEY=";I:LET K=0 5180 IF Y1000000 THEN GOTO 1750 ELSE A$=GET$:GOTO 390 5200 IF KEY$="C" THEN PRINT"HOW MUCH?":INPUT Y:IF Y>L THEN PRINT"YOU DON'T HAVE ENOUGH TRY NEXT TIME":A$=GET$:GOTO 390 5210 IF Y=L THEN PRINT"STOCK NOW NIL": LET Q=L*D: LET I=I+Q:PRINT"MONEY=";I:LET L=0 5220 IF Y1000000 THEN GOTO 1750 ELSE A$=GET$:GOTO 390 5240 IF KEY$="D" THEN PRINT"HOW MUCH?":INPUT Y:IF Y>M THEN PRINT"YOU DON'T HAVE ENOUGH TRY NEXT TIME":A$=GET$:GOTO 390 5250 IF Y=M THEN PRINT"STOCK NOW NIL": LET Q=M*E: LET I=I+Q:PRINT"MONEY=";I:LET M=0 5260 IF Y1000000 THEN GOTO 1750 ELSE A$=GET$:GOTO 390 5270 IF KEY$="E" THEN PRINT"HOW MUCH?":INPUT Y:IF Y>N THEN PRINT"YOU DON'T HAVE ENOUGH TRY NEXT TIME":A$=GET$:GOTO 390 5280 IF Y=N THEN PRINT"STOCK NOW NIL": LET Q=N*F: LET I=I+Q:PRINT"MONEY=";I:LET N=0 5290 IF Y1000000 THEN GOTO 1750 ELSE A$=GET$:GOTO 390 5300 IF KEY$="F" THEN PRINT"HOW MUCH?":INPUT Y:IF Y>O THEN PRINT"YOU DON'T HAVE ENOUGH TRY NEXT TIME":A$=GET$:GOTO 390 5310 IF Y=O THEN PRINT"STOCK NOW NIL": LET Q=O*G: LET I=I+Q:PRINT"MONEY=";I:LET O=0 5320 IF Y1000000 THEN GOTO 1750 ELSE A$=GET$:GOTO 390 5340 IF KEY$="G" THEN PRINT"HOW MUCH?":INPUT Y:IF Y>P THEN PRINT"YOU DON'T HAVE ENOUGH TRY NEXT TIME":A$=GET$:GOTO 390 5350 IF Y=P THEN PRINT"STOCK NOW NIL": LET Q=P*H: LET I=I+Q:PRINT"MONEY=";I:LET P=0 5360 IF Y

1000000 THEN GOTO 1750 5380 A$=GET$ 5390 GOTO 390 9000 CLS 9010 PRINT"HOW MUCH LEAD DO YOU WANT?":INPUT R 9020 PRINT"" 9030 LET Q=R*B 9040 LET I=I-B*R 9045 IF I<0 THEN GOTO 1500 9046 IF I>1000000 THEN GOTO 1750 9050 PRINT"MONEY LEFT=";I 9055 LET J=J+R 9060 A$=GET$ 9070 GOTO 390 9200 CLS 9210 PRINT"HOW MUCH ZINC DO YOU WANT?":INPUT R 9220 PRINT"" 9230 LET Q=R*C 9240 LET I=I-C*R 9245 IF I<0 THEN GOTO 1500 9246 IF I>1000000 THEN GOTO 1750 9250 PRINT"MONEY LEFT=";I 9255 LET K=K+R 9260 A$=GET$ 9270 GOTO 390 9400 CLS 9410 PRINT"HOW MUCH MAGNESIUM DO YOU WANT?":INPUT R 9420 PRINT"" 9430 LET Q=R*D 9440 LET I=I-D*R 9445 IF I<0 THEN GOTO 1500 9446 IF I>1000000 THEN GOTO 1750 9450 PRINT"MONEY LEFT=";I 9455 LET L=L+R 9460 A$=GET$ 9470 GOTO 390 9600 CLS 9610 PRINT"HOW MUCH TIN DO YOU WANT?":INPUT R 9620 PRINT"" 9630 LET Q=R*E 9640 LET I=I-E*R 9645 IF I<0 THEN GOTO 1500 9646 IF I>1000000 THEN GOTO 1750 9650 PRINT"MONEY LEFT=";I 9655 LET M=M+R 9660 A$=GET$ 9670 GOTO 390 9800 CLS 9810 PRINT"HOW MUCH SILVER DO YOU WANT?":INPUT R 9820 PRINT"" 9830 LET Q=R*F 9840 LET I=I-Q 9845 IF I<0 THEN GOTO 1500 9846 IF I>1000000 THEN GOTO 1750 9850 PRINT"MONEY LEFT=";I 9855 LET N=N+R 9860 A$=GET$ 9870 GOTO 390 10000 CLS 10010 PRINT"HOW MUCH GOLD DO YOU WANT?":INPUT R 10020 PRINT"" 10030 LET Q=R*G 10040 LET I=I-Q 10045 IF I<0 THEN GOTO 1500 10046 IF I>1000000 THEN GOTO 1750 10050 PRINT"MONEY LEFT=";I 10055 LET O=O+R 10060 A$=GET$ 10070 GOTO 390 10200 CLS 10210 PRINT"HOW MUCH PLATIGNUM DO YOU WANT?":INPUT R 10220 PRINT"" 10230 LET Q=R*H 10240 LET I=I-Q 10245 IF I<0 THEN GOTO 1500 10246 IF I>1000000 THEN GOTO 1750 10250 PRINT"MONEY LEFT=";I 10255 LET P=P+R 10260 A$=GET$ 10270 GOTO 390