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
110LET A=0
120LET B=10
130LET C=20
140LET D=100
150LET E=300
160LET F=2000
170LET G=4000
180LET H=7000
190LET I=100
200PRINTTAB(13,13)"STOCKMARKET"
210FOR R=1 TO 2500
220NEXT R
230CLS
240PRINT" "
250PRINT" "
260PRINT" "
270PRINT" "
280PRINT" INSTRUCTIONS"
290PRINT""
300PRINT"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 AR
E:-
LEAD,ZINC,MAGNESIUM,TIN,SILV
ER,GOLD,AND PLATIGNUM."
320PRINT" "
330PRINT" YOU START WITH £100,AND IF
YOU GO INTO THE RED, YOU WILL BE
BANKRUPT."
340PRINT""
350PRINT""
360PRINT" GOOD LUCK"
370 PRINT" (YOU'LL NEED IT)"
380 A$=GET$
390CLS
400 LET A=A+1
410PRINT "MONTH=";A
420 PRINT""
430 PRINT""
440PRINT "ASSETS="
450PRINT" LEAD=";J
460PRINT" ZINC=";K
470PRINT" MAGNESIUM=";L
480PRINT" TIN=";M
490PRINT" SILVER=";N
500PRINT" GOLD=";O
510PRINT" PLATIGNUM=";P
520 PRINT" "
530 PRINT" MONEY=";I
540 A$=GET$
545 GOTO 2500
550 CLS
560PRINT""
570PRINT""
580PRINT" CURRENT PRICES"
590PRINT""
600 PRINT" LEAD=";B
610PRINT" ZINC=";C
620PRINT" MAGNESIUM=";D
630PRINT" TIN=";E
640PRINT" SILVER=";F
650PRINT" GOLD=";G
660PRINT" PLATIGNUM=";H
670PRINT""
680PRINT""
690PRINT"DO YOU WANT TO BUY ANYTHING?"
;
700 REPEAT KEY$=GET$: UNTIL KEY$="Y" O
R KEY$="N"
710IF KEY$="Y" THEN PRINT""
720 IF KEY$="N" THEN GOTO 5000
730PRINT""
740PRINT"WHAT DO YOU WANT TO BUY(A=LEA
D,B=ZINC, ETC.)."
750 INPUT B$
770 IF B$="A" THEN GOTO 9000
780IF B$="B" THEN GOTO 9200
790IF B$="C" THEN GOTO 9400
800IF B$="D" THEN GOTO 9600
810IF B$="E" THEN GOTO 9800
820IF B$="F" THEN GOTO 10000
830IF 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:EN
DPROC
1530 PRINT""
1540 PRINT""
1550PRINT"INCOMING FAX FROM THE STOCKMA
RKET TREASURY.............."
1560PRINT""
1570PRINT""
1580 PRINT"Due to your current financia
l state I have been told to inform you
that all your assets have been sold t
o recover the money owed by you."
1590 PRINT""
1600 PRINT"Therefore with no more asset
s to trade with your placement on this
market has been cancelled immediately a
nd you have effectively been made bankru
pt."
1610 PRINT""
1620 PRINT""
1630 PRINT"PHONE CALL FROM A FRIEND TEL
LS YOU THAT HE IS PREPARED TO FUND
YOUR NEXT ATTEMPT, SO PRESS ANY KEY EX
CEPT 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:EN
DPROC
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
2500LET X=RND(5)
2510IF X=1 OR X=3 THEN LET B=B+RND(3) E
LSE LET B=B-RND(3)
2520LET X=RND(5)
2530IF X=1 OR X=3 THEN LET C=C+RND(5) E
LSE LET C=C-RND(5)
2540LET X=RND(5)
2550IF X=1 OR X=3 THEN LET D=D+RND(10)
ELSE LET D=D-RND(10)
2560LET X=RND(5)
2570IF X=1 OR X=3 THEN LET E=E+RND(30)
ELSE LET E=E-RND(30)
2580LET X=RND(5)
2590IF X=1 OR X=3 THEN LET F=F+RND(200)
ELSE LET F=F-RND(200)
2600LET X=RND(5)
2610 IF X=1 OR X=3 THEN LET G=G+RND(400
) ELSE LET G=G-RND(400)
2620LET X=RND(5)
2630IF 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
5000CLS
5010PRINT""
5020PRINT""
5030PRINT"DO YOU WANT TO SELL ANYTHING?
"
5040REPEAT KEY$=GET$:UNTIL KEY$="Y" OR
KEY$="N"
5050IF KEY$="Y" THEN GOTO 5070
5060IF KEY$="N" THEN GOTO 390
5070PRINT""
5080PRINT""
5090PRINT"WHAT DO YOU WANT TO SELL?"
5100PRINT"(A=LEAD ETC.)"
5101REPEAT 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
5110REPEAT 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
5140IF Y<J THEN LET J=J-Y:PRINT"STOCK="
;J:LET Q=Y*B:LET I=I+Q:PRINT"MONEY=";I
5150IF I>1000000 THEN GOTO 1750 ELSE A$
=GET$:GOTO 390
5160IF KEY$="B" THEN PRINT"HOW MUCH?":I
NPUT 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
5180IF Y<K THEN LET K=K-Y:PRINT"STOCK="
;K:LET Q=Y*C:LET I=I+Q:PRINT"MONEY=";I
5190IF I>1000000 THEN GOTO 1750 ELSE A$
=GET$:GOTO 390
5200IF KEY$="C" THEN PRINT"HOW MUCH?":I
NPUT 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
5220IF Y<L THEN LET L=L-Y:PRINT"STOCK="
;L:LET Q=Y*D:LET I=I+Q:PRINT"MONEY=";I
5230IF I>1000000 THEN GOTO 1750 ELSE A$
=GET$:GOTO 390
5240IF KEY$="D" THEN PRINT"HOW MUCH?":I
NPUT 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
5260IF Y<M THEN LET M=M-Y:PRINT"STOCK="
;M:LET Q=Y*E:LET I=I+Q:PRINT"MONEY=";I
5265IF I>1000000 THEN GOTO 1750 ELSE A$
=GET$:GOTO 390
5270IF KEY$="E" THEN PRINT"HOW MUCH?":I
NPUT 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
5290IF Y<N THEN LET N=N-Y:PRINT"STOCK="
;N:LET Q=Y*F:LET I=I+Q:PRINT"MONEY=";I
5295IF I>1000000 THEN GOTO 1750 ELSE A$
=GET$:GOTO 390
5300IF KEY$="F" THEN PRINT"HOW MUCH?":I
NPUT 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
5320IF Y<O THEN LET O=O-Y:PRINT"STOCK="
;O:LET Q=Y*G:LET I=I+Q:PRINT"MONEY=";I
5330IF I>1000000 THEN GOTO 1750 ELSE A$
=GET$:GOTO 390
5340IF KEY$="G" THEN PRINT"HOW MUCH?":I
NPUT 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
5360IF Y<P THEN LET P=P-Y:PRINT"STOCK="
;P:LET Q=Y*H:LET I=I+Q:PRINT"MONEY=";I
5370IF I>1000000 THEN GOTO 1750
5380 A$=GET$
5390 GOTO 390
9000CLS
9010PRINT"HOW MUCH LEAD DO YOU WANT?":I
NPUT R
9020PRINT""
9030 LET Q=R*B
9040LET 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
9210PRINT"HOW MUCH ZINC DO YOU WANT?":I
NPUT R
9220PRINT""
9230 LET Q=R*C
9240LET 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
9410PRINT"HOW MUCH MAGNESIUM DO YOU WAN
T?":INPUT R
9420PRINT""
9430 LET Q=R*D
9440LET 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
9610PRINT"HOW MUCH TIN DO YOU WANT?":IN
PUT R
9620 PRINT""
9630 LET Q=R*E
9640LET 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 WA
NT?":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