10 REM COPYRIGHT 1988 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
20 R=53280:S=R+1:H=646
30 IF PEEK(65530)=164 THEN R=65305:S=65301:H=1339
40 IFPEEK(65530)=5THEN(null)15:H=241
50 T=11:M1=1000:M2=1000:TI$="000000":X=RND(-TI)
60 POKER,0:POKES,0:POKEH,3:PRINT"[147]"
70 PRINTTAB(15)"INVESTOR":PRINTTAB(12)"COPYRIGHT 1988"
80 PRINTTAB(7)"COMPUTE! PUBLICATIONS, INC."
90 PRINTTAB(10)"ALL RIGHTS RESERVED":FORTT=1 TO 2000:NEXT
100 PRINT"[147]"TAB(5)"NUMBER OF PLAYERS (1 OR 2)? ";
110 GETA$:IFVAL(A$)< 1 OR VAL(A$)>2 THEN 110
120 PRINTA$:FOR D=1 TO 750:NEXT
130 FOR P=1 TO VAL(A$)
140 PRINT"[147]"TAB(9)"PLAYER"P"NAME ";
150 INPUTP$(P):P$(P)=LEFT$(P$(P),7):IFP$(P)=""THEN150
160 NEXT
170 PRINT"[147]"TAB(6)"ENTER TIME LIMIT: S[146]HORT"
180 PRINTTAB(24)"M[146]EDIUM"
190 PRINTTAB(24)"L[146]ONG":PRINTTAB(15);
200 GET T$:IFT$=""THEN200
210 IFT$="S"THEN TM=3000:GOTO250
220 IFT$="M"THEN TM=5500:GOTO250
230 IFT$="L"THEN TM=8000:GOTO250
240 GOTO200
250 FORX=BTO100:NEXT
260 PRINT"[147][159]":PRINT"[207]";:FORX=0TO36:PRINT"[183]";:NEXT:PRINT"[208]"
270 PRINT"":FORB=0TO20:PRINT"[180]":NEXT
280 PRINT"[204]";:FORB=0TO36:PRINT"[175]";:NEXT:PRINT"[186][157][145]";:FORB=0TO20:PRINT"[170][157][145]";
290 NEXT:IFFL=1THEN310
300 DIMS$(11),COL(11):FORX=1TO11:READS$(X):NEXT:FORX=1TO11:READCOL(X):NEXT
310 PRINT"[158] FUNDS      ":PRINT"[159]                                  "
320 FORX=1TO11
330 POKEH,COL(X):PRINT""S$(X):NEXT
340 IF TM<0 THEN TM=0
350 PRINT"[159]";:PRINTTAB(16)""TM"[146]"
360 PRINT"[158]";:PRINTTAB(13)"COST   AT   HI  LOW  DIV"
370 FORX=1TO11
380 PRINT"";:NEXT
390 PRINT"[158]"TAB(4)"        CASH RESERVES         [146]"
400 IFVAL(A$)=1THENPRINT""P$(1)"[146]":GOTO420
410 PRINT""P$(1):PRINT""P$(2)"[146]"
420 PRINT"":IFFL=1THEN480
430 DIMA(T),B(T),C(T),CC(T),D(T),J(T),P1(T),P2(T)
440 FORT=1TO11
450 A(T)=100:B(T)=0:C(T)=100:CC(T)=100:D(T)=0:P1(T)=0:P2(T)=0
460 PRINT"[159]"TAB(13)A(T)""B(T)C(T)CC(T):NEXT
470 FL=1
480 PRINT"";:FORB=1TO18:PRINT"";:NEXT:FORB=1TO12:PRINTTAB(12)"$"M1
490 IFVAL(A$)=2 THEN PRINT""TAB(12)"$"M2
500 REM *MAIN ROUTINE*
510 X=INT(RND(1)*12)
520 IF X=0 THEN 510
530 Y=INT(RND(1)*6)
540 IFY=0THEN530
550 PRINT"[159]":Z=X+2
560 FORQ=1TOZ:PRINT"";:NEXT
570 SI=INT(RND(1)*4):IF SI=0 OR SI=2THENSI=-1:GOTO590
580 SI=1
590 J(X)=A(X):K=C(X):A(X)=A(X)+Y*SI:B(X)=B(X)+Y*SI:D(X)=Y
600 PRINT"[159]"TAB(13);:IFA(X)<=0ORA(X)>=200THENB(X)=0:C(X)=100:CC(X)=100
610 IFA(X)<=0 THEN P1(X)=0:P2(X)=0:A(X)=100:D$="BRK ":GOTO630
620 IFA(X)>=200 THEN P1(X)=P1(X)*2:P2(X)=P2(X)*2:A(X)=100:D$="SPL "
630 IFA(X)<100 THEN PRINT" ";
640 IFA(X)<10 THEN PRINT" ";
650 PRINTA(X)"    [157][157][157][157]";
660 IFB(X)<0 THEN POKEH,2:GOTO680
670 GOTO710
680 IFB(X)>=-9 THEN PRINT"  ";:GOTO730
690 IFB(X)>=-99 THEN PRINT" ";:GOTO730
700 GOTO730
710 IFB(X)<10 THEN PRINT"  ";:GOTO730
720 IFB(X)<100 THEN PRINT" ";
730 PRINTB(X);
740 IFA(X)>C(X) THEN C(X)=A(X)
750 POKEH,3:PRINTC(X);
760 IFA(X)<CC(X) THEN CC(X)=A(X)
770 IFCC(X)<10 THEN PRINT"  ";:GOTO800
780 IFCC(X)=100 THEN 800
790 PRINT" ";
800 PRINTCC(X);
810 IFB(X)<0 THEN PR=.005*A(X):GOTO850
820 PR=INT(Y*.01*A(X))
821 IF D$="SPL " THEN PRINT"";D$;:D$="":FOR B=1 TO 500:NEXT:GOTO840
822 IF D$="BRK " THEN PRINT"";D$;:D$="":FOR B=1 TO 500:NEXT:GOTO840
830 PRINT"%"D(X);:FORB=1TO200:NEXT
840 PRINT"[157][157][157][157]   "
850 IFP1(X)>0 THEN M1=M1+INT(PR*P1(X))
860 IFP2(X)>0 THEN M2=M2+INT(PR*P2(X))
870 PRINT"";:FORB=1TO18:PRINT"";:NEXT:FORB=1TO12:PRINTTAB(12)"$"M1
880 IFVAL(A$)=2THENPRINT""TAB(12)"$"M2
890 GETI$:IFI$=" "THEN930
900 GOSUB1570:PRINT""TAB(16)"[159]"TM"[146][157]   "
910 IFTM=0THEN1610
920 GOTO510
930 INPUT"[147][159]ENTER NAME OF PLAYER ";V$:V$=LEFT$(V$,7)
940 IFV$=P$(1) THEN PL=1:MO=M1:GOTO980
950 IFV$=P$(2) THEN PL=2:MO=M2:GOTO980
960 PRINT""V$"[146] IS NOT A PLAYER."
970 FOR PA=1TO1000:NEXT:GOTO930
980 PRINT"[147][159]":PRINT"[207]";:FORX=0TO36:PRINT"[183]";:NEXT:PRINT"[208]"
990 PRINT"":FORX=0 TO 12:PRINT"[180]":NEXT
1000 PRINT"[204]";:FORX=0 TO 36:PRINT"[175]";:NEXT:PRINT"[186][157][145]";:FORX=0 TO 12:PRINT"[170][157][145]";
1010 NEXT:PRINT""TAB(12)V$"[146]  $"MO
1020 PRINT"[158]  FUNDS          QTY        VALUE  [146]"
1030 FORU=1 TO 11
1040 POKEH,COL(U):PRINT""S$(U):NEXT
1050 PRINT""                     
1060 IFPL=2THEN1130
1070 X$="[157][157][157][157][157]":FORX=1TO11
1080 PRINT"[159]"TAB(19);
1090 PRINT LEFT$(X$,LEN(STR$(P1(X)))-2)P1(X);
1100 IFA(X)<10 THEN PRINT"  ";:GOTO1120
1110 IFA(X)<100 THEN PRINT" ";
1120 PRINTTAB(30)A(X):NEXT:GOTO1200
1130 FORX=1TO11
1140 X$="[157][157][157][157][157]":FORX=1TO11
1150 PRINT"[159]"TAB(19);
1160 PRINTLEFT$(X$,LEN(STR$(P2(X)))-2)P2(X);
1170 IFA(X)<100 THEN PRINT" ";:GOTO1190
1180 IFA(X)<10 THEN PRINT"  ";
1190 PRINTTAB(30);A(X):NEXT
1200 PRINT"DO YOU WISH TO B[146]UY OR S[146]ELL?";
1210 GETT$:IFT$="" THEN 1210
1220 IFT$="S"ORT$="B" THEN 1250
1230 IFT$=" "THEN TM=TM-30:GOTO260
1240 GOTO 1210
1250 PRINT:PRINT"[145]                              "
1260 INPUT"[145]ENTER FUND";ST$
1270 FOR X=1 TO 11:IFST$=S$(X)THEN1330
1280 NEXT
1290 PRINT""ST$" IS NOT A FUND."
1300 FORB=1TO1000:NEXT:PRINT"[145][145]"
1310 FORB=1TO2:PRINT"                                    ":NEXT
1320 PRINT"[145][145]";:GOTO1260
1330 PRINT"[145]                                   "
1340 IFT$="S"THEN1450
1350 SL=INT(MO/A(X))
1360 PRINT"YOU MAY BUY A MAXIMUM OF"SL
1370 INPUT"HOW MANY DO YOU WANT";AM:IFAM<0 THEN PRINT:GOTO1410
1380 IFAM>SL THEN PRINT"YOU CAN'T BUY THAT MANY.":GOTO1400
1390 GOTO1420
1400 FORB=1TO 1000:NEXT:PRINT"[145]                                    "
1410 PRINT"[145][145][145]";:GOTO1370
1420 IFPL=1 THEN P1(X)=P1(X)+AM:M1=M1-INT(AM*A(X)):GOTO940
1430 P2(X)=P2(X)+AM:M2=M2-INT(AM*A(X))
1440 GOTO 940
1450 INPUT"HOW MANY TO SELL";SL$
1460 IFPL=1 THEN AM=P1(X):GOTO1480
1470 AM=P2(X)
1480 SL=VAL(SL$):IFSL<0 THEN PRINT:GOTO1510
1490 IFSL>AM THEN PRINT"YOU DON'T HAVE THAT MANY.":GOTO1510
1500 GOTO 1540
1510 FORB=1TO1000:NEXT:PRINT"[145][145]";
1520 FORB=1TO2:PRINT"                                   ":NEXT
1530 PRINT"[145][145]";:GOTO1450
1540 IFPL=1 THEN M1=M1+SL*A(X):P1(X)=P1(X)-SL:GOTO1560
1550 IFPL=2 THEN M2=M2+SL*A(X):P2(X)=P2(X)-SL
1560 GOTO 940
1570 TM=TM-1
1580 IFTM=<0 THEN TM=0
1590 RETURN
1600 REM *** END OF GAME ***
1610 PRINT"[147][159]";:PRINTTAB(12)"MARKET CLOSES    "
1620 FORX=1TO11
1630 PA=PA+P1(X)*A(X)
1640 NEXT
1650 PRINT""TAB(10)"FINAL  STATISTICS"
1660 PRINT"PLAYER  CASH     FUNDS     NET WORTH"
1670 PRINT"[163][163][163][163][163][163]  [163][163][163][163]     [163][163][163][163][163]     [163][163][163][163][163][163][163][163][163]"
1680 PRINT""P$(1):PRINT"[146][145]$"M1"[159]"
1690 PRINTSPC(18):PRINT"[145]$"PA
1700 T1=PA+M1
1710 PRINTSPC(28)"[145]$"T1
1720 IFVAL(A$)=2THENPRINT""P$(2):GOTO1740
1730 GOTO 1810
1740 FORX=1TO11
1750 PB=PB+P2(X)*A(X)
1760 NEXT
1770 PRINTSPC(9):PRINT"[145][159]$"M2
1780 PRINTSPC(18)"[145]$"PB
1790 T2=PB+M2
1800 PRINTSPC(28)"[145]$"T2
1810 PRINT""TAB(11)"PLAY AGAIN? (Y/N)"
1820 GETA$:IFA$="" THEN 1820
1830 IFA$<>"Y" THEN END
1840 RUN
1850 DATA LEISURE,AEROSPACE,GOLD,ENERGY,AGRICULTURE,TECHNOLOGY,AUTOMOTIVE
1860 DATA MINERALS,CHEMICALS,COMPUTERS,ELECTRONICS
1870 DATA 2,6,7,3,9,11,8,12,4,1,14