80 GOSUB18000:CLR
90 REM ACQUIRE 38 1.8.85
95 X=RND(-RND(0))
100 DIMT$(108),T1$(108),B$(13,10)
140 DEF FNZ(X)=LEN(STR$(X))-1
150 FORQ=1TO7:READH$(Q),BV(Q),CT$(Q),CE(Q),PV(Q),MN(Q):HI$(Q)=LEFT$(H$(Q),2)
155 SA(Q)=25:NEXT
160 TR=108:FORQ=1TO108:READT1$(Q):NEXT
170 TG$="[213][192][192][192][201][157][157][157][157][157][221][221][157][157][157][157][157][202][192][192][192][203][145][157][157][157][157]":SP=1037:CZ=54272:HW$="LTAFWCI":HA=7
175 OG$="[176][192][174][157][157][157][221] [221][157][157][157][173][192][189][145][157][157]"
180 CD$=""
190 POKE53281,1
195 INPUT"[147][151]WHAT IS YOUR NAME";NM$
197 X=(12-LEN(NM$))/2:FORQ=1TOX:X$=X$+" ":NEXT
200 P$(1)=X$+NM$
205 PRINT"HOW MANY COMPUTER OPPONENTS[160]DO YOU WANT,"
210 PRINTNM$" (3 - 5)";:INPUTA
220 IFA<3ORA>5THENPRINT"[145][145][145][145][145][145]":GOTO205
221 PRINT"DO YOU WANT TO SEE OTHER PLAYERS':":
222 PRINTTAB(10)"SHARE HOLDINGS";:INPUTA$
223 IFA$<>"N"THENSK=1
224 PRINTTAB(11)"CASH HOLDINGS";:INPUTA$
225 IFA$<>"N"THENCK=1
226 PRINTTAB(13)"TOTAL WORTH";:INPUTA$
227 IFA$<>"N"THENVK=1
230 NP=A+1
240 FORQ=1TONP:M(Q)=6000:NEXT
250 PRINT"[151]O.K., "NM$", YOU ARE PLAYER NO. 1"
260 GOSUB11110
300 REM BOARD
310 PRINT"[147]";:POKE53281,0:POKE53280,0
320 PRINTTAB(15)"[153]A B C D E F G H I J K L"
330 PRINTTAB(14)"[152][176][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][174]"
340 G1$="[152][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221]"
344 OM(N3(1))=M(N3(1))+B1
350 G2$="[152][171][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][179]"
360 FORQ=1TO8:PRINTTAB(13)"[153]"RIGHT$(STR$(Q),1);G1$:PRINTTAB(14)G2$:NEXT
370 PRINTTAB(13)"[153]9"G1$
380 PRINTTAB(14)"[152][173][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][189]"
400 REM TILE SHUFFLING
410 PRINT"PLEASE  WAIT":PRINT" WHILE  THE "
420 PRINT" TILES  ARE ":PRINT"  SHUFFLED  "
430 FORQ=1TO108:T$(Q)=T1$(Q):NEXT:FORQ=1TO108
440 X=INT(RND(1)*108+1):T1$=T$(Q)
450 T$(Q)=T$(X):T$(X)=T1$
460 NEXT
469 REM SET SHARE DISTRIB FACTOR
470 FORQ=1TONP
475 X=INT(RND(1)*3+1)
480 DF(Q)=X+2:NEXT
490 GOSUB10100
500 REM DRAW FIRST NP TILES
510 PRINT"PLAYERS DRAW":PRINT"FOR STARTING"
520 BT=21:FORQ=1TONP
530 PRINT"[153]PLAYER"Q:PRINT" DRAWS TILE"
540 PRINT""TG$"[153]"T$(Q)
550 T$=T$(Q):TR=TR-1:GOSUB11000
560 POKEP,Q+48:POKEP+CZ,1:P(Q)=P
565 B$(V,H)="O"
570 IFV+H<BTTHENBT=V+H:BP=Q
575 GOSUB11110
580 NEXTQ
590 POKEP(BP)+CZ,14:PRINT"  [154]PLAYER"BP:PRINT"   STARTS":T=NP+1:PL=BP
600 FORQ=1TO3000:NEXT
610 FORQ=1TONP:POKEP(Q),81:POKEP(Q)+CZ,1:NEXT
700 REM PLAYERS DRAW TILES
710 GOSUB10100:PRINT"PLAYERS  NOW":PRINT"DRAW 6 TILES":PRINT"    EACH    "
712 PRINT"            "
715 PRINT"YOUR  TILES,":PRINT" MONEY  AND ":PRINT" SHARES ARE ":PRINT"SHOWN  BELOW"
720 FORQ=1TONP:FORJ=1TO6
730 TH$(Q,J)=T$(T):T=T+1:TR=TR-1:NEXT:NEXT
740 GOSUB17000
760 IFT>6*(NP+1)+1GOTO980
780 GOSUB13200
790 GOSUB10000
980 GOSUB10100:POKE1463,PL+48:POKE55735,2:IFPL=1GOTO7000
990 PRINT" "PL"'S TURN"
995 GOSUB11110
1000 REM PLAY
1010 Q=0:IM=0:PN(PL)=0:FORJ=1TO7:IM(J)=0:SO(J)=0:NEXT
1015 Q=Q+1:IFQ=7GOTO1500
1017 IFTH$(PL,Q)=""GOTO1015
1020 LC(Q)=0:PM=0:LC=0:H3=0:H4=0:T$=TH$(PL,Q):GOSUB11000:FORJ=1TO3:PM(J)=0:NEXT
1025 UT=0
1030 V(Q)=V:H(Q)=H:P(Q)=P
1040 LR$=B$(V,H-1):IFLR$=""GOTO1060
1050 GOSUB12000
1060 LR$=B$(V+1,H):IFLR$=""GOTO1080
1070 GOSUB12000
1080 LR$=B$(V,H+1):IFLR$=""GOTO1100
1090 GOSUB12000
1100 LR$=B$(V-1,H):IFLR$=""GOTO1115
1110 GOSUB12000
1115 LC(Q)=LC:IFPL=1GOTO7060
1120 IFLC=0ANDPM=0THENTS(Q)=5:GOTO1190
1130 IFLC>0ANDPM=0THENGOSUB12100
1131 REM 'O' LINK, NO POSSIBLE MERGERS - NEW HOTEL POSSIBILITY
1135 IFTS(Q)=-5GOTO1015
1140 IFTS(Q)=7THENBT=Q:BS=7:GOTO1540
1150 IFPM=>2THENGOSUB12250
1155 IFUT=1GOTO1200
1160 IFPM=1THENGOSUB12500
1190 GOTO1015
1200 REM UNPLAYABLE TILE
1205 IFTR<2THENTH$(PL,Q)="":TS(Q)=-5:GOTO1015
1210 PRINT"[153]I HAVE TO":PRINT"CHANGE MY"
1212 PRINT"TILE "TH$(PL,Q):PRINT"(UNPLAYABLE)"
1220 T=T+1:TR=TR-1:TH$(PL,Q)=T$(T):GOSUB11100:GOSUB10100:GOTO1020
1500 REM SELECT COMP'S BEST
1510 BT=0:BS=-1:FORQ=1TO6
1520 IFTS(Q)>BSTHENBS=TS(Q):BT=Q
1530 NEXT:IFBS>0GOTO1540
1533 PRINT"[153] SORRY!  NO":PRINT"PLAYABLE":PRINT"TILES.  TURN"
1535 PRINT" PASSES  TO":PRINT" PURCHASES[146]":GOSUB11100:GOTO5000
1540 GOSUB13000 REM PLACING
1550 ONBSGOTO3200,3200,2400,2400,2800,3200,4200
2400 REM ADD TILE
2410 E1=0:X=HH(BT):B$(V(BT),H(BT))=HI$(X)
2420 POKEP(BT)+CZ,CE(X):HS(X)=HS(X)+1
2430 IFHS(X)=41THENEB=1:GOTO2440
2435 IFHS(X)=11THENE1=1
2440 GOSUB11500:PRINT""TAB(MN(X))H$(X):PRINT"CHAIN GROWS":IFHS(X)<11GOTO2450
2445 IFSC(X)=0THENSC(X)=1:PRINT" AND IS NOW ":PRINT" SAFE  FROM ":PRINT"  TAKEOVER  "
2450 GOSUB11800:GOSUB11100
2460 IFEB=0ORFB=1GOTO2500
2470 FB=1:GOSUB10100:GOSUB15750:GOTO5000
2500 IFES=0ANDE1=1THENGOSUB15500
2510 IFES=0ORET=1GOTO5000
2520 GOSUB10100:ET=1:GOSUB15760:GOTO5000
2800 REM ISOLATED TILE
2810 B$(V(BT),H(BT))="O":GOTO5000
3200 REM MERGER
3210 POKEP(BT),86:FORQ=1TO1500:NEXT:GOSUB10100
3220 FORQ=1TO10:PRINT"  MERGER!"
3230 FORJ=1TO100:NEXT
3240 PRINT"  MERGER!":FORJ=1TO100:NEXT:NEXT
3242 IFHS(MP(BT,1))<>HS(MP(BT,2))ORPL>1GOTO3250
3245 GOSUB13500
3250 H1=MP(BT,1):H2=MP(BT,2):H3=MP(BT,3)
3255 PRINT""TAB(MN(H1))H$(H1):PRINT"[155]TAKES OVER":PRINTTAB(MN(H2))H$(H2)
3260 IFH3>0THENGOSUB10200
3262 B1=SV(H2)*10:B2=B1/2:REM BONI
3265 PRINT"[152]BONUSES ARE":PRINT"   $"B1:PRINT" & $"B2:GOSUB10000
3270 GOSUB10100:PRINT"SHARES HELD":PRINT" IN MERGEE"
3275 PRINT"PL. "CT$(H2)"SHS.":PRINT"[163][163][163] "CT$(H2)"[163][163][163]"
3280 FORQ=1TONP:N1(Q)=S(Q,H2):NEXT
3285 FORQ=1TONP
3290 N=N1(Q)
3295 FORJ=1TONP
3300 IFN1(J)=>NTHENN=N1(J):XX=J
3305 NEXTJ:N2(Q)=N:N1(XX)=0:N3(Q)=XX
3310 IFN2(Q)>0THENPRINT""N3(Q)" "CT$(H2);N2(Q)""
3315 NEXTQ:PRINT""
3340 IFN2(2)>0GOTO3370
3350 PRINT"  PLAYER"N3(1):PRINT"SCOOPS POOL!":PRINT"GETS $"B1+B2
3360 M(N3(1))=M(N3(1))+B1+B2:GOTO3500
3370 IFN2(1)<>N2(2)ORN2(2)<>N2(3)GOTO3400
3375 NW=3:IFN2(3)=N2(4)THENNW=4
3380 X=INT((B1+B2)/NW):FORQ=1TONW:M(N3(Q))=M(N3(Q))+X:NEXT
3385 PRINTRIGHT$(STR$(NW),1)"-WAY SPLIT!":PRINT"  PLAYERS"
3387 IFNW=4THENPRINTN3(1)"[157]"N3(2)"[157]"N3(3)"&"N3(4):GOTO3395
3390 PRINT" "N3(1)N3(2)"&"N3(3)
3395 PRINT" GET $"X:PRINT"    EACH":GOTO3500
3400 IFN2(1)<>N2(2)GOTO3440
3410 X=(B1+B2)/2:FORQ=1TO2:M(N3(Q))=M(N3(Q))+X:NEXT
3420 PRINT" SHARE-OUT!":PRINT"  PLAYERS":PRINT" "N3(1)"&"N3(2)"GET"
3430 PRINT"$"X"EACH":GOTO3500
3440 M(N3(1))=M(N3(1))+B1
3450 PRINT"  PLAYER"N3(1):PRINT"GETS $"B1
3460 IFN2(2)<>N2(3)GOTO3490
3465 NW=2:IFN2(3)=N2(4)THENNW=3
3470 X=INT(B2/NW):FORQ=2TONW+1:M(N3(Q))=M(N3(Q))+X:NEXT
3475 PRINT"  PLAYERS":IFNW=3THENPRINTN3(2)"[157]"N3(3)"&"N3(4)"GET":GOTO3485
3480 PRINT" "N3(2)"&"N3(3)"GET"
3485 PRINT"$"X"EACH":GOTO3500
3490 M(N3(2))=M(N3(2))+B2
3495 PRINT"  PLAYER"N3(2):PRINT"GETS $"B2
3500 GOSUB13200:GOSUB10000
3600 GOSUB10100:PRINT"   MERGER":PRINT" DECISIONS:"
3605 HS(H1)=HS(H1)+HS(H2)+1:X=H1:GOSUB11800
3607 HS(H2)=0:HU(H2)=0:HA=HA+1:IFSA(H2)>0THENSA=SA-1
3610 SC=0:FORZ=PLTOPL+NP-1:TS=0:NS=0:NE=0:NK=0:N%=0
3620 Q=Z:IFQ>NPTHENQ=Z-NP
3625 IFS(Q,H2)=0GOTO4055
3627 SC=SC+1:IFSC=4THENSC=0:GOSUB10000:GOSUB10100:PRINT""
3629 REM SELLING
3630 M=M(Q):N=0:SS=S(Q,H2):PRINT"  PLAYER"Q"[157] "
3635 IFQ=1THENPRINT"PRESS A KEY[146]":GOSUB10000:GOTO7100
3637 BR$="[157][157][157]( ":IFSS>9THENBR$="[157][157][157][157]( "
3638 PRINT" "SS;BR$;"SHARES)":IFSA=0GOTO3739
3640 FORJ=1TO7:IFHU(J)=0ORSA(J)=0GOTO3660
3650 N=N+SV(J)
3660 NEXTJ:AV=N*3/SA
3670 IFAV<=MGOTO3739:REM TEST MONEY
3690 NS=NS+1:IFM+NS*SV(H2)<AVGOTO3690
3700 IFNS=>S(Q,H2)THENNS=S(Q,H2)
3710 S(Q,H2)=S(Q,H2)-NS:SA(H2)=SA(H2)+NS:M(Q)=M+SV(H2)*NS
3720 IFS(Q,H2)=0ORS(Q,H2)-NK=0GOTO3980
3739 REM CHANGING
3750 IFQ=1GOTO3820
3755 IFSA(H1)=0ORS(Q,H2)=1GOTO3900
3760 IFHS(H1)<11ORSV(H1)-SV(H2)=>300GOTO3799
3770 IFS(Q,H1)=>14-NPORS(Q,H1)<(25-SA(H1))/NP-4GOTO3900
3799 REM EXCHANGE
3800 NE=INT(S(Q,H2)/2)
3810 IFSA(H1)<NETHENNE=NE-1:GOTO3810
3820 S(Q,H2)=S(Q,H2)-2*NE:S(Q,H1)=S(Q,H1)+NE
3830 SA(H2)=SA(H2)+2*NE:SA(H1)=SA(H1)-NE:IFSA(H1)=0THENSA=SA-1
3835 IFQ=1GOTO4050
3840 PRINT"CHANGING";:IF2*NE=SSTHENPRINT" ALL":GOTO4050
3850 PRINT2*NE:IFS(Q,H2)=0GOTO3980
3900 REM KEEPING
3901 RS=0:IFPN(PL)=0ANDT>72THENRS=S(Q,H2):GOTO3970
3910 IFS(Q,H2)=1THENNK=1:GOTO3950
3920 IFS(Q,H2)=2THENRN=2:GOTO3940
3930 RN=3
3940 NK=INT(RND(1)*RN+1)
3950 PRINT"KEEPING"NK:IFNK=S(Q,H2)GOTO3980
3960 RS=S(Q,H2)-NK
3970 TS=NS+RS:NS=RS:GOTO3710
3980 IFTS=0THENTS=NS:IFTS=0GOTO4050
3985 IFQ=1GOTO4030
3990 PRINT"SELLING";:IFTS=SSTHENPRINT" ALL":GOTO4030
4000 PRINTTS
4030 AC=TS*SV(H2):IFQ=1THENAC=NS*SV(H2):GOTO4040
4035 PRINT"[152](FOR $"RIGHT$(STR$(AC),FNZ(AC))")"
4040 AC=TS*SV(H2):IFQ=1THENAC=NS*SV(H2)
4050 IFQ=1THENGOSUB13200
4055 NEXTZ
4060 IFH3=0GOTO4100
4070 HS(H1)=HS(H1)-1:GOSUB10000:GOSUB10100
4080 PRINT"MERGER 2[146]":PRINT"[155]TAKEOVER OF":PRINTTAB(MN(H3))H$(H3)
4090 H4=H2:H2=H3:H3=0:GOTO3262
4100 POKEP(BT),81:POKEP(BT)+CZ,CE(H1):HS(H2)=0:HS(H4)=0:SV(H2)=0:SV(H4)=0
4105 B$(V(BT),H(BT))=HI$(H1)
4110 FORQ=1TO12:FORZ=1TO9
4120 IFB$(Q,Z)=HI$(H2)GOTO4140
4130 IFH4=0GOTO4150
4135 IFB$(Q,Z)<>HI$(H4)GOTO4150
4140 P9=SP+2*Q+80*Z:POKEP9,81:POKEP9+CZ,CE(H1):B$(Q,Z)=HI$(H1)
4150 NEXT:NEXT:IFLC(BT)>0THENGOSUB10500
4160 IFEB=1ORES=1GOTO4190
4165 IFHS(H1)>40THENEB=1:GOSUB10100:GOSUB15750:GOTO5000
4170 IFHS(H1)<11GOTO4190
4172 IFSC(H1)=1GOTO4174
4173 SC(H1)=1:GOSUB10100:PRINT""TAB(MN(H1))H$(H1):PRINT" IS NOW SAFE":GOSUB11120
4174 GOSUB15500
4175 IFES=0ORET=1GOTO4190
4180 GOSUB10100:ET=1:GOSUB15760:GOTO5000
4190 GOSUB10000:GOSUB10100:PRINT"":GOTO5000
4200 REM NEW HOTEL
4210 GOSUB11100
4220 PRINT"[155]I'LL BUILD"   "
4225 [153]" THE  HOTEL":[153]""[163]MN(X))H$(X):[139]PL[178]1[167][153]"YOU ";:[137]4235
4230 [153]" I ";
4235 [153]"GET ONE":[153]"BONUS SHARE":[141]11100
4240 HU(X)[178]1:HA[178]HA[171]1:B$(V(BT),H(BT))[178]HI$(X):S(PL,X)[178]S(PL,X)[170]1:SA(X)[178]SA(X)[171]1
4250 [139]SA(X)[177]0[167]SA[178]SA[170]1
4260 [151]P(BT),PV(X):[151]P[170]CZ,CE(X):HS(X)[178]1
4265 [141]11500:[141]11800
4270 [139]ES[178]0[176]EB[178]1[137]5000
4280 ES[178]0:[141]10100:[153]"CHAINS ARE":[153]"NO  LONGER":[153]"ALL SAFE.
4290 PRINT"GAME  CANNOT":PRINT"END JUST YET"
5000 REM SHARE BUYING
5010 CP=0:CA=0:PU=0:RQ=3:GOSUB10110:PRINT"PURCHASES[146]"
5015 IFPL>1GOTO5500
5020 IFQF=-1THENQF=0:GOTO5035
5025 GOSUB11200:GOSUB10000:IFA$<>"M"THENGOSUB11220:GOTO5035
5030 GOSUB14000:GOTO5000
5035 IFSA=0THENPRINT" NO SHARES":PRINT" AVAILABLE":GOSUB11100:GOTO8000
5037 GOSUB16000:IFM(1)=>LPGOTO5040
5038 PRINT"INSUFFICIENT":PRINT"CASH TO BUY":PRINT"ANY  SHARES.":GOSUB11100:GOTO8000
5040 PRINT"HOTEL  NO.":PRINT"[163][163][163][163][163]  [163][163][163]"
5050 PRINT"[166][157]";
5060 GOSUB10000:IFA$="0"THENPRINT:GOTO5190
5070 FORQ=1TO7:IFA$=MID$(HW$,Q,1)GOTO5090
5080 NEXT:GOTO5060
5090 PRINTHI$(Q);:IFHU(Q)=1ANDSA(Q)>0GOTO5120
5095 IFHU(Q)=0THENPRINT:PRINT"INOPERATIVE":GOTO5110
5100 IFSA(Q)=0THENPRINT:PRINT"NONE LEFT"
5110 GOSUB11100:PRINT"[145]           ":PRINT"[145][145]";:GOTO5050
5120 PRINT"[166][157]";
5130 GOSUB10000:A=VAL(A$):IFA<1ORRQ-A<0GOTO5130
5140 PRINTA$:IFA<=SA(Q)GOTO5160
5150 PRINT"ONLY"SA(Q)"[157] LEFT":GOSUB11100:PRINT"[145]           "
5155 PRINT"[145][145]"CT$(Q);:GOTO5120
5160 PU=PU+1:PU(PU)=Q:NB(PU)=A
5170 RQ=RQ-A:IFRQ=0GOTO5190
5180 GOTO5050
5190 IFPU=0GOTO5870
5200 PRINT:PRINT"OK (Y/N)? [166][157]";:GOSUB10000:PRINTA$:IFA$="Y"GOTO5220
5210 GOTO5245
5220 FORJ=1TOPU:CA=CA+SV(PU(J))*NB(J):NEXT
5230 IFM(1)=>CAGOTO5250
5240 PRINT"NOT ENOUGH":PRINT"CASH! THAT":PRINT"COSTS $"CA
5245 PRINT"TRY AGAIN!":GOSUB11100:GOTO5000
5250 PRINT"[152](COST $"RIGHT$(STR$(CA),FNZ(CA))")"
5260 FORQ=1TOPU:N=PU(Q):A=NB(Q)
5270 SA(N)=SA(N)-A:S(1,N)=S(1,N)+A:IFSA(N)=0THENSA=SA-1
5280 NEXT:M(1)=M(1)-CA:GOTO8000
5500 REM RND HOTEL NOS.
5502 IFSA=0THENPRINT" NO SHARES":PRINT" AVAILABLE":GOSUB11100:GOTO8000
5505 FORQ=1TO7:Q(Q)=Q:NEXT
5507 IFBS<>3ANDBS<>4GOTO5555
5510 FORQ=1TO7
5520 XX=INT(RND(1)*7+1):IFQ(XX)=0GOTO5520
5530 SO(XX)=Q:Q(XX)=0
5540 NEXT:GOTO5600
5555 FORQ=IM+1TO7
5560 XX=INT(RND(1)*7+1)
5565 FORJ=1TOIM:IFSO(J)=XXGOTO5560
5570 NEXTJ
5575 IFQ(XX)=0GOTO5560
5580 SO(Q)=XX:Q(XX)=0
5585 NEXTQ
5600 REM SET CLUSTER FACTORS
5605 IFSA=1THENDC=3:GOTO5650
5610 IFSA=2THENDC=INT(RND(1)*2+2):GOTO5650
5620 DC=INT(RND(1)*3+1)
5650 REM ESTAB QUOTA GAP
5660 Y=0:DA=0:FORQ=1TO7
5670 IFS(PL,Q)>0ANDSA(Q)>0THENY=Y+1
5680 NEXT:DA=DF(PL)-Y+IM
5700 REM TEST FOR BUY
5710 RQ=3:FORQ=1TO7:A=SO(Q)
5720 IFHU(A)=0ORSA(A)=0GOTO5860
5730 IFS(PL,A)=0ANDDA<=0GOTO5860
5740 IFSA(A)<DCTHENAB=SA(A):GOTO5760
5750 AB=DC
5760 IFM(PL)<SV(A)*ABTHENAB=AB-1:GOTO5760
5770 IFAB=0GOTO5860
5800 REM BUY
5805 IFS(PL,A)=0THENDA=DA-1:REM REDUCE DA IF NEW PURCHASE
5810 S(PL,A)=S(PL,A)+AB:SA(A)=SA(A)-AB:IFSA(A)=0THENSA=SA-1
5820 CP=SV(A)*AB:CA=CA+CP:M(PL)=M(PL)-CP
5830 PRINTCT$(A);AB;LEFT$(H$(A),10)
5840 RQ=RQ-AB:IFRQ=0GOTO5880
5850 IFDC>1THENDC=RQ
5860 NEXT
5870 IFRQ=3THENPRINT"NONE":GOTO8000
5880 PRINT"[152](COST $"RIGHT$(STR$(CA),FNZ(CA))")":GOTO8000
7000 REM HUMAN PLAY
7010 PRINT" YOUR TURN,":PRINTP$(1)
7012 UT=0:FORQ=1TO6:T$=TH$(1,Q):IFT$=""GOTO7018
7014 GOSUB11000:P(Q)=P
7016 POKEP,Q+48:POKEP+CZ,13
7018 NEXTQ
7020 GOSUB11200:GOSUB10000:IFA$<>"M"THENGOSUB11220:GOTO7025
7022 GOSUB14000:GOSUB10100:QF=0:PRINT""
7025 PRINT"[153]TILE NO:[145]"OG$"[153]";
7030 GOSUB10000:BT=VAL(A$)
7040 IFBT<1ORBT>6GOTO7030
7045 IFTH$(1,BT)=""GOTO7030
7050 PRINTA$:Q=BT::GOSUB13700:GOTO1020
7060 IFPM=>2THENGOSUB12250
7070 IFPM<2GOTO7400:REM NO MERGER
7072 IFUT=0GOTO7080
7074 PRINT"[153]UNPLAYABLE.":IFTR>1THENPRINT"YOU DRAW A":PRINT"NEW TILE":GOTO7078
7076 PRINT"AS NO TILES":PRINT"LEFT, IT IS":PRINT"DISCARDED":TH$(1,BT)="":GOTO7079
7078 T=T+1:TR=TR-1:TH$(1,BT)=T$(T)
7079 GOSUB13715:GOSUB17000:GOSUB11100:GOSUB10100:PRINT"";:GOTO7012
7080 BS=6:GOTO3200
7100 REM HU. MG. DECISION
7102 Y%=S(1,H2):GOSUB10100:PRINT" YOU HAVE":PRINTY%"SHARES."
7104 GOSUB11200:GOSUB10000:IFA$<>"M"THENGOSUB11220:GOTO7107
7105 GOSUB14000:QF=0:GOSUB10100:PRINT""
7107 IFY%<10GOTO7110
7108 PRINT"REMEMBER,":PRINT"FOR DEALS OF":PRINT"MORE THAN 9":PRINT"SHARES, USE"
7109 PRINT"HEX CODE, EG":PRINT"A = 10, B =":PRINT"11, ETC.":GOSUB11100:GOSUB10100
7110 PRINT"SELLING  [145]"OG$;
7115 GOSUB10000:NS=VAL(A$)
7117 IFASC(A$)>64THENNS=ASC(A$)-55
7120 PRINTA$:IFNS>Y%GOTO7250
7130 IFNS<Y%GOTO7140
7135 PRINT"CHANGING [145]"OG$"0":PRINT"KEEPING  [145]"OG$"0":GOTO7220
7140 PRINT"CHANGING [145]"OG$;
7150 GOSUB10000:N%=VAL(A$)
7155 IFASC(A$)>64THENN%=ASC(A$)-55
7160 IFN%/2<>INT(N%/2)GOTO7150
7170 PRINTA$:IFNS+N%>Y%GOTO7250
7180 IFN%/2<=SA(H1)GOTO7190
7183 N%=0:IFSA(H1)=0THENPRINT"  [155]SORRY! NO":GOTO7187
7185 PRINT"ONLY"SA(H1)
7187 PRINTTAB(MN(H1))H$(H1):PRINT"[155]LEFT":GOTO7260
7190 NK=Y%-N%-NS
7200 PRINT"KEEPING  [145]"OG$;
7205 IFNK>9THENPRINTCHR$(NK+55):GOTO7220
7210 PRINTRIGHT$(STR$(NK),1)
7220 PRINT"OK(Y/N)? [145]"OG$;
7230 GOSUB10000:IFA$<>"Y"THENPRINT"N":GOTO7260
7240 PRINT"Y":IFNS=0ANDN%=0GOTO7300
7242 PRINT"YOU RECEIVE":IFNS>0THENPRINT"[152]  $"NS*SV(H2)
7245 IFN%>0THENPRINTCT$(H1);N%/2;LEFT$(H$(H1),10):NE=N%/2
7248 GOTO7300
7250 PRINT"TOO MANY!"
7260 PRINT"TRY AGAIN":GOSUB11110:GOTO7102
7300 GOSUB10000:GOSUB10100:PRINT"":GOTO3710
7400 IFPM=0GOTO7500:REM NO ADDITIONS
7440 BS=4:HH(BT)=PM(1):GOTO2400
7500 IFLC=0GOTO7700:REM LONE TILE
7510 IFHA>0GOTO7540
7520 PRINT"ILLEGAL TILE":PRINT" ALL HOTELS":PRINT" BUILT. TRY":PRINT"AGAIN."
7530 GOSUB11100:GOSUB10100:GOTO7000
7540 BS=7:PRINT"[155]NEW HOTEL[146]":IFHA=1GOTO7600
7545 PRINT"WHICH?[145] "OG$;
7550 GOSUB10000:FORJ=1TO7
7560 IFA$=MID$(HW$,J,1)GOTO7580
7570 NEXT:GOTO7550
7580 IFHU(J)=1GOTO7550
7590 PRINTHI$(J):GOTO7620
7600 FORJ=1TO7:IFHU(J)=0GOTO7610
7605 NEXT
7610 PRINT" NO CHOICE."
7620 X=J:PRINT"[155]YOU BUILD":GOTO4225
7700 BS=5:GOTO2800
8000 REM END?
8010 IFEB=0ANDES=0GOTO8980
8020 IFPL=1GOTO8050
8030 X=INT(RND(1)*3+1):IFX<>2GOTO8980
8040 GOSUB10100:GOSUB11100:PRINT"I  DECLARE":PRINT"THE GAME":PRINT"OVER!"
8045 GOSUB11120:GOTO8070
8050 GOSUB10100:PRINT"DO YOU WANT":PRINT" TO END THE":PRINT"GAME? [166][157]";
8060 GOSUB10000:PRINTA$:IFA$<>"Y"GOTO8980
8070 EF=1:PRINT"  TERMINAL  ":PRINT"BONUS VALUES":PRINT" AND SHARE  "
8080 PRINT"  PROCEEDS  ":PRINT"WILL NOW BE ":PRINT" DISPLAYED. "
8090 GOSUB11120:GOSUB10100:GOSUB23200
8100 PRINT"AND FINALLY,":PRINT"  THE CASH  "
8110 GOSUB11100:GOSUB14110
8120 GOSUB10100:PRINT"SO THE GRAND":PRINT" TOTALS ARE "
8130 PRINT" PL.$$$$$[146]":GOSUB15000
8140 FORQQ=1TONP
8150 PRINT""OH(QQ);TAB(10-FNZ(VH(QQ)))VH(QQ)
8160 NEXTQQ
8161 GOSUB30000
8162 GOSUB10000:IFA$<>"Q"THENRUN
8170 GOTO40000
8980 IFPL=1THENGOSUB13200
8990 GOSUB10000
9000 REM NEXT TURN
9005 IFTR>1GOTO9010
9007 TH$(PL,BT)="":IFXF=1GOTO9015
9008 GOSUB10100:PRINT" TILES HAVE":PRINT"  RUN  OUT":XF=1:GOSUB11100:GOTO9015
9010 T=T+1:TR=TR-1:TH$(PL,BT)=T$(T)
9015 PL=PL+1:IFPL>NPTHENPL=1
9020 FORQ=1TO6:TS(Q)=0:NEXT
9200 IFPL=2GOTO740
9210 GOTO980
10000 GETA$:POKE1037,42:POKE55309,2:FORJX=1TO250:NEXT
10010 IFA$=""GOTO10030
10020 POKE1037,32:RETURN
10030 POKE1037,170:FORJX=1TO250:NEXT:GOTO10000
10100 PRINT"";:FORQZ=1TO20:GOTO10120
10110 PRINT"";:FORQZ=1TO15
10120 PRINT"            ":NEXT
10130 PRINT"         ":
10131 PRINT"TILES   "
10132 PRINT"        ":RETURN
10200 REM S/R TRIPLE MERGER
10210 H3=MP(BT,3):PRINT"[155]&":PRINTTAB(MN(H3))H$(H3)
10220 PRINT"[155]TREATED AS":PRINT"2 SEPARATE":PRINT"OPERATIONS,"
10230 PRINT"BIGGEST ONE":PRINT"FIRST"
10240 GOSUB10000:GOSUB10100
10250 PRINT"MERGER 1[146]":PRINT"[155]TAKEOVER OF":PRINTTAB(MN(H2))H$(H2):RETURN
10500 REM S/R 'O' SWEEP UP
10510 V=V(BT):H=H(BT)-1:GOSUB10600
10520 V=V(BT)+1:H=H(BT):GOSUB10600
10530 V=V(BT):H=H(BT)+1:GOSUB10600
10540 V=V(BT)-1:H=H(BT):GOSUB10600
10550 HS(H1)=HS(H1)+LC(BT):GOSUB11800:RETURN
10600 IFB$(V,H)<>"O"THENRETURN
10610 B$(V,H)=HI$(H1):POKESP+2*V+80*H+CZ,CE(H1):RETURN
11000 REM S/R INTERPRETING TILES
11010 V$=LEFT$(T$,1):H$=RIGHT$(T$,2)
11020 V=ASC(V$)-64:H=VAL(H$)
11030 P=SP+2*V+80*H
11040 RETURN
11100 FORI=1TO2000:NEXT:RETURN
11110 FORI=1TO1000:NEXT:RETURN
11120 FORI=1TO5000:NEXT:RETURN
11200 REM MENU SIGN
11205 POKE1388,160:POKE1389,160:POKE1390,160:POKE1391,160:POKE1428,160
11206 POKE1431,160:POKE1468,160:POKE1471,160:POKE1508,160:POKE1509,160
11207 POKE1510,160:POKE1511,160
11210 POKE1429,141:POKE1430,133:POKE1469,142:POKE1470,149
11212 POKE55660,6:POKE55661,6:POKE55662,6:POKE55663,6:POKE55700,6
11213 POKE55703,6:POKE55740,6:POKE55743,6:POKE55780,6:POKE55781,6
11214 POKE55782,6:POKE55783,6
11215 POKE55701,7::POKE55702,7:POKE55741,7:POKE55742,7:RETURN
11220 POKE1429,32:POKE1430,32:POKE1469,32:POKE1470,32
11222 POKE1388,32:POKE1389,32:POKE1390,32:POKE1391,32:POKE1428,32
11223 POKE1431,32:POKE1468,32:POKE1471,32:POKE1508,32:POKE1509,32
11225 POKE1510,32:POKE1511,32:RETURN
11500 REM SPREAD INFECTION
11505 VR(1)=V(BT):HR(1)=H(BT)
11510 FORQ=1TO10:IFVR(Q)=0GOTO11570
11520 VR=VR(Q):HR=HR(Q)
11530 V9=VR:H9=HR-1:GOSUB11600
11540 V9=VR+1:H9=HR:GOSUB11600
11550 V9=VR:H9=HR+1:GOSUB11600
11560 V9=VR-1:H9=HR:GOSUB11600
11570 NEXTQ:FORQ=1TO10:VR(Q)=0:HR(Q)=0:NEXT:RETURN
11600 IFB$(V9,H9)<>"O"THENRETURN
11610 FORJ=1TO10
11620 IFVR(J)=V9ANDHR(J)=H9THENRETURN
11630 IFVR(J)>0GOTO11760
11640 VR(J)=V9:HR(J)=H9:B$(V9,H9)=HI$(X)
11650 P9=SP+2*V9+80*H9:POKEP9+CZ,CE(X):HS(X)=HS(X)+1
11660 IFHS(X)=41THENEB=1:GOTO11720
11670 IFHS(X)=11THENE1=1
11720 RETURN
11760 NEXTJ:RETURN
11800 REM S/R SET VALUE SHARES
11810 IFHS(X)<6THENSV(X)=BV(X)+100*HS(X):GOTO11840
11820 IFHS(X)<11THENSV(X)=BV(X)+600:GOTO11840
11830 SV(X)=INT((HS(X)-1)/10)*100+BV(X)+600
11835 IFSV(X)>BV(X)+1000THENSV(X)=BV(X)+1000
11840 RETURN
12000 REM S/R CHECKING SQUARES
12010 IFLR$="O"THENLC=LC+1:GOTO12040
12020 FORJ=1TO7:IFRIGHT$(LR$,1)=MID$(HW$,J,1)THENPM=PM+1:PM(PM)=J:GOTO12040
12030 NEXTJ
12040 RETURN
12100 REM POSSIBLE NEW HOTEL
12103 IFHA=0THENTS(Q)=-5:PN(PL)=1:RETURN
12105 HT=0
12110 HT=HT+1:IFHT=22THENRETURN
12120 X=INT(RND(1)*7+1):IFHU(X)=1GOTO12110
12130 IF25-S(PL,X)*2-SA(X)>3GOTO12110
12140 TS(Q)=7:RETURN
12250 REM POSSIBLE MERGER
12255 REM UNDUPLICATE
12260 X=PM:PM=0:FORJ=1TOX:X(J)=PM(J):PM(J)=0:NEXT
12265 FORJ=1TOX:E=0:FORK=1TOX
12270 IFX(J)<>PM(K)THENE=E+1
12275 NEXTK
12280 IFE=XTHENPM=PM+1:PM(PM)=X(J)
12290 NEXTJ
12300 IFPM=1THENRETURN
12310 IFPM=3GOTO12350
12320 HB=SGN(HS(PM(1))-HS(PM(2))):IFHB<>0GOTO12330
12322 X1=S(PL,PM(1))/(25-SA(PM(1))+.01)
12323 X2=S(PL,PM(2))/(25-SA(PM(2))+.01)
12324 IFX1>X2THENHB=2:GOTO12330
12325 HB=1
12330 IFHB=1THENH1=PM(1):H2=PM(2):GOTO12359
12340 H1=PM(2):H2=PM(1):GOTO12359
12350 FORJ=1TO3:N(J)=HS(PM(J)):NEXT
12352 FORJ=1TO3:N=0:FORK=1TO3
12354 IFN(K)=>NTHENN=N(K):Y=K
12356 NEXTK:HR(J)=PM(Y):N(Y)=0
12358 NEXTJ:H1=HR(1):H2=HR(2):H3=HR(3)
12359 IFHS(H2)>10THENUT=1:RETURN
12360 IFPL=1GOTO12390
12370 IFS(PL,H3)/(25-SA(H3)+.01)=>.28THENTS(Q)=6:GOTO12390
12377 IFS(PL,H2)/(25-SA(H2)+.01)=>.28THENTS(Q)=6:GOTO12390
12380 IFS(PL,H1)/(25-SA(H1)+.01)=>.28THENTS(Q)=2:HH=H2:GOSUB16500:GOTO12390
12385 TS(Q)=1:HH=H2:GOSUB16500
12390 MP(Q,1)=H1:MP(Q,2)=H2:MP(Q,3)=H3
12400 RETURN
12500 REM ADDING TO EXISTING HOTELS
12510 HH(Q)=PM(1):HH=HH(Q)
12515 GOSUB16500
12520 IFS(PL,HH)/(25-SA(HH)+.01)=>.2THENTS(Q)=4:GOTO12540
12530 TS(Q)=3
12540 RETURN
13000 REM TILE PLACING
13020 PRINT"[153]I'LL PLAY   "
13030 PRINT""TG$;"[153]"TH$(PL,BT)""
13040 POKEP(BT),81:POKEP(BT)+CZ,1
13110 RETURN
13200 REM HUMAN'S HOLDINGS
13205 PRINTCD$"";:FORQ3=1TO29:PRINT" ";:NEXT
13206 PRINT:PRINT"";:FORQ3=1TO32:PRINT" ";:NEXT
13210 PRINTCD$"[152]MONEY"TAB(21)"$"RIGHT$(STR$(M(1)),FNZ(M(1)))
13212 W=0:FORQ3=1TO7:IFS(1,Q3)>9THENW=W+1
13215 NEXT
13220 PRINTCD$"SHARES"TAB(10-W);:FORQ3=1TO7
13230 PRINT"[146]"HI$(Q3)S(1,Q3);:NEXT:PRINT"[146]";:RETURN
13500 REM HUMAN MERGER CHOICE
13505 A=MP(BT,1)
13510 PRINT"CHAINS ARE":PRINT"SAME SIZE.":PRINT"DO YOU WANT"
13520 PRINTTAB(MN(A))H$(A):PRINT"[155]IN CONTROL?":PRINT" (Y/N) [145]"OG$;
13530 GOSUB10000:IFA$<>"Y"ANDA$<>"N"GOTO13530
13540 PRINTA$:GOSUB11110:GOSUB10100:PRINT"":IFA$="Y"THENRETURN
13550 X%=MP(BT,1):MP(BT,1)=MP(BT,2):MP(BT,2)=X%:RETURN
13700 REM WIPE HUM TILE NOS.
13710 GOSUB13040
13715 FORJ=1TO6:IFUT=0ANDJ=BTTHEN13730
13720 POKEP(J),32
13730 NEXT:RETURN
14000 REM MENU
14005 IFA$<>"M"GOTO14080
14010 GOSUB10100:PRINT""TAB(4)"MENU":PRINTTAB(4)"[163][163][163][163]"
14020 PRINT"C - CASH"
14030 PRINT"H - PLAYERS'":PRINT"SHARES"
14040 PRINT"P - SHARE":PRINT"PRICES"
14050 PRINT"S - SHARES":PRINT"AVAILABLE":PRINT"T - TILES"
14060 PRINT"V - VALUE OF":PRINT"HOLDINGS"
14070 PRINT"Z - CONTINUE":PRINT"PROGRAM"
14071 PRINT"Q - QUIT":PRINT"GAME"
14075 GOSUB10000:IFA$="M"GOTO14000
14076 IFA$="Q"THENGOTO40000
14080 IFA$<>"C"ANDA$<>"H"ANDA$<>"P"ANDA$<>"S"ANDA$<>"V"ANDA$<>"Z"ANDA$<>"T"GOTO14075
14100 IFA$<>"C"GOTO14200
14105 IFCK=0GOTO14140
14110 GOSUB10100:PRINT"[152]CASH":PRINT"[163][163][163][163]"
14120 PRINT"PL.$$$$$[146]"
14130 FORQQ=1TONP:PRINT""QQ;TAB(9-FNZ(M(QQ)))M(QQ):NEXT
14140 GOSUB10000:IFEF=1THENRETURN
14200 IFA$<>"H"GOTO14300
14205 IFSK=0GOTO14280
14210 GOSUB10100:PRINT"PLAYERS'":PRINT"SHARES":PRINT"[163][163][163][163][163][163][163][163]"
14220 PRINT"PL.[150]L[158]T[154]AF[129]W[159]C[156]I[146]"
14230 FORQQ=1TONP:PRINT""QQ"";:FORJJ=1TO7
14240 IFS(QQ,JJ)>9THENX$=""+CHR$(S(QQ,JJ)+55)+"[146]":GOTO14260
14250 X$=RIGHT$(STR$(S(QQ,JJ)),1)
14260 PRINTCT$(JJ);X$;
14270 NEXTJJ:PRINT:NEXTQQ
14280 GOSUB10000
14300 IFA$<>"P"GOTO14400
14310 GOSUB10100:PRINT"SHARE PRICES":PRINT"[163][163][163][163][163][163][163][163][163][163][163][163]"
14320 PRINT" HOTEL$[146]"
14330 FORQQ=1TO7
14340 PRINT""HI$(QQ);:PRINTTAB(10-FNZ(SV(QQ)))SV(QQ)
14350 NEXT
14360 GOSUB10000
14400 IFA$<>"S"GOTO14500
14410 GOSUB10100:PRINT"SHARES LEFT":PRINT"[163][163][163][163][163][163][163][163][163][163][163]"
14420 PRINT" HOTELNO.[146]"
14430 FORQQ=1TO7:PRINT""HI$(QQ)TAB(8-FNZ(SA(QQ)))SA(QQ):NEXT
14440 GOSUB10000
14500 IFA$<>"T"GOTO14600
14510 GOSUB10100:PRINT"[153]HOTEL SIZES":PRINT"[163][163][163][163][163][163][163][163][163][163][163]"
14520 PRINT"HOTELTILES"
14530 FORQQ=1TO7:PRINT""HI$(QQ)TAB(8-FNZ(HS(QQ)))HS(QQ):NEXT
14540 PRINT"[153]NO. OF TILES":PRINT"LEFT ="TR-1
14550 GOSUB10000
14600 IFA$<>"V"GOTO14700
14610 GOSUB10100:PRINT"[152]PLAYERS'":PRINT"WORTH":PRINT"[163][163][163][163][163][163][163]"
14615 GOSUB23200
14620 PRINT"[152]PL.$$$$$[146]":GOSUB23200:GOSUB15000
14630 FORQQ=1TONP:IFOH(QQ)<>1ANDVK=0GOTO14650
14640 PRINT""OH(QQ);TAB(9-FNZ(VH(QQ)))VH(QQ)
14650 NEXTQQ:GOSUB10000
14700 IFA$<>"Z"GOTO14000
14710 GOSUB10100:QF=-1:RETURN
15000 REM PLAYERS' WORTH
15010 FORQQ=1TONP:X=0:FORJJ=1TO7
15020 X=X+SV(JJ)*S(QQ,JJ)
15030 NEXTJJ:T5(QQ)=X+MX(QQ):NEXTQQ
15040 FORQQ=1TONP:W5=T5(QQ)
15050 FORJJ=1TONP
15060 IFT5(JJ)=>W5THENW5=T5(JJ):X=JJ
15070 NEXTJJ:VH(QQ)=W5:T5(X)=0:OH(QQ)=X
15080 NEXTQQ:RETURN
15500 REM TEST FOR END
15510 XZ=0:FORQQ=1TO7:IFHS(QQ)>10THENXZ=XZ+1
15520 NEXT:IFXZ=7-HATHENES=1
15530 RETURN
15750 PRINT"AS ONE CHAIN":PRINT"NOW HAS OVER":PRINT" 40 HOTELS, ":GOTO15770
15760 PRINT" WITH EVERY ":PRINT"CHAIN ON THE":PRINT" BOARD SAFE,"
15770 PRINT"THE GAME MAY":PRINT" END AT ANY ":PRINT"    TIME    ":GOSUB11120
15780 GOSUB10100:RETURN
16000 REM FIND LOWEST SHAREPRICE
16010 LP=1200:FORQQ=1TO7:IFHU(QQ)=0GOTO16020
16015 IFSV(QQ)<LPTHENLP=SV(QQ)
16020 NEXT:RETURN
16500 REM IM S/R
16510 IFHS(HH)>6ORSA<2THENRETURN
16512 IFIM=0GOTO16518
16514 FORQQ=1TOIM:IFHH=SO(QQ)GOTO16520
16516 NEXTQQ
16518 IM=IM+1:SO(IM)=HH
16520 RETURN
17000 REM 1'S TILES
17010 PRINTCD$;"[153]TILES[145]";
17020 FORQX=1TO6:PRINTTG$;
17030 IFTH$(1,QX)=""THENPRINT"   [145]";:GOTO17050
17040 PRINT"[153]"TH$(1,QX)"[145]";
17050 NEXT
17060 PRINT:PRINT:PRINTTAB(11);
17070 FORQ=1TO6:PRINT"[149]"RIGHT$(STR$(Q),1)"";:NEXT:RETURN
18000 REM TITLE
18005 POKE53280,0:POKE53281,0:PRINT"[147]";:POKE53272,20
18010 TE$(1)="[150] [145][157][160][145][157][160][145][157]  [160][145][157][157][157][160][145][157][160][145][157][160][160][160] [145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157] "
18020 TE$(2)="[158]    [145][157][157][157][157][160][145][157][160][145][157] [145][157][160][145][157][160][145][157][160][160][160][160]"
18030 TE$(3)="[154]    [145][157][157][157][157]  [145][157][157][157]   [145][157][157][157][157]  [145][157][157][157][157]  [145][157][157][157][157]  [145][157][157][157][157]    "
18040 TE$(4)="    [145][157][157][157][157][160][145][157][160][145][157] [145][157][160][145][157][160][145][157][160][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160]"
18050 TE$(5)="[129][160][145][157][160][145][157][160][145][157] [145][157][160][145][157][160][145][157][160]"
18060 TE$(6)="[159]  [145][157][157][157][157]  [145][157][157][157][157]  [145][157][157][157][157]    [145][157][157][157][157]  [145][157][157][157]  [145][157][157][157]   "
18070 TE$(7)="[156]    [145][157][157][157][157] [145][157] [145][157]   [145][157][157][157] [145][157] [145][157]    "
18080 I$=""
18090 PRINT"[147]";:FORQ=1TO6:PRINTTE$(Q);I$;:NEXT:PRINTTE$(7)
18100 PRINT"":PRINTTAB(20)"[152]THE AVALON HILL":PRINTTAB(21)"PROPERTY GAME
18110 [153][163]22)"INVENTED BY":[153][163]22)"SID SACKSON"
18120 [153]""[163]5)"PROGRAMMED FOR":[153][163]7)"THE CBM 64"
18130 [153][163]11)"BY":[153][163]6)"G.C.CRAWSHAY"
18140 [129]Q[178]1[164]5000:[130]:[142]
23200 [143] S/R BONUS VALUATION
23205 [129]QQ[178]1[164]NP:MX(QQ)[178]M(QQ):[130]
23210 [129]ZZ[178]1[164]7:[139]HU(ZZ)[178]0[137]23600
23220 [139]EF[178]0[137]23262
23230 [153]""[163]MN(ZZ))H$(ZZ)
23231 [153][163]MN(ZZ));:[129]J[178]1[164][195](H$(ZZ))[171]1:[153]"TAB(";:[130]:[153]
23240 [153]"-"HS(ZZ)"HOTELS
23262 B1=SV(ZZ)*10:B2=B1/2:IFEF=0GOTO23280
23265 PRINT"BONUSES ARE":PRINT"   $"B1:PRINT" & $"B2:GOSUB11120
23270 GOSUB10100:PRINT"SHARES  HELD":PRINT" AND VALUES "
23275 PRINT"PL SHS $$$$$":PRINT"[163][163] [163][163][163] [163][163][163][163][163]"
23280 FORQQ=1TONP:N1(QQ)=S(QQ,ZZ):NEXT
23285 FORQQ=1TONP
23290 N=N1(QQ)
23295 FORJ=1TONP
23300 IFN1(J)=>NTHENN=N1(J):XX=J
23305 NEXTJ:N2(QQ)=N:N1(XX)=0:N3(QQ)=XX
23307 IFEF=0ORN2(QQ)=0GOTO23315
23310 PRINTN3(QQ);N2(QQ);
23312 X=SV(ZZ)*N2(QQ):PRINTTAB(11-FNZ(X))X
23315 NEXTQQ
23340 IFN2(2)>0GOTO23370
23350 IFEF=1THENPRINT"PLAYER"N3(1):PRINT"GETS $"B1+B2
23360 MX(N3(1))=MX(N3(1))+B1+B2:GOTO23500
23370 IFN2(1)<>N2(2)ORN2(2)<>N2(3)GOTO23400
23375 NW=3:IFN2(3)=N2(4)THENNW=4
23380 X=INT((B1+B2)/NW):FORQQ=1TONW:MX(N3(QQ))=MX(N3(QQ))+X:NEXT:IFEF=0GOTO23600
23385 PRINT"  PLAYERS"
23387 IFNW=4THENPRINTN3(1)"[157]"N3(2)"[157]"N3(3)"&"N3(4):GOTO23395
23390 PRINT" "N3(1)N3(2)"&"N3(3)
23395 PRINT" GET $"X:PRINT"    EACH":GOTO23500
23400 IFN2(1)<>N2(2)GOTO23440
23410 X=(B1+B2)/2:FORQQ=1TO2:MX(N3(QQ))=MX(N3(QQ))+X:NEXT:IFEF=0GOTO23600
23420 PRINT"PLAYERS":PRINTN3(1)"&"N3(2)"GET":PRINT"$"X"EACH"
23430 GOTO23500
23440 MX(N3(1))=MX(N3(1))+B1
23450 IFEF=1THENPRINT"PLAYER"N3(1):PRINT"GETS $"B1
23460 IFN2(2)<>N2(3)GOTO23490
23465 NW=2:IFN2(3)=N2(4)THENNW=3
23470 X=INT(B2/NW):FORQQ=2TONW:MX(N3(QQ))=MX(N3(QQ))+X:NEXT:IFEF=0GOTO23600
23475 PRINT"  PLAYERS":IFNW=3THENPRINTN3(2)"[157]"N3(3)"&"N3(4)"GET":GOTO23485
23480 PRINT" "N3(2)"&"N3(3)"GET"
23485 PRINT"$"X"EACH":GOTO23500
23490 MX(N3(2))=MX(N3(2))+B2
23495 IFEF=1THENPRINT"PLAYER"N3(2):PRINT"GETS $"B2
23500 IFEF=0GOTO23600
23510 GOSUB10000:GOSUB10100
23600 NEXTZZ:RETURN
30000 PRINTTAB(10)"[158]                   "
30001 PRINTTAB(10)"[158]  PRESS ANY KEY TO "
30002 PRINTTAB(10)"[158] PLAY AGAIN. PRESS "
30003 PRINTTAB(10)"[158]  <Q> TO QUIT TO   "
30004 PRINTTAB(10)"[158]      LOADSTAR     "
30005 PRINTTAB(10)"[158]                   "
30006 RETURN
40000 FORI=0TO21:POKE828+I,8+I:NEXT
40010 IFDV<8ORDV>29ORDV=8THEN40030
40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:PRINT"[147]":POKE53272,23:POKE186,8:END
40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END
50000 DATA"[150]LUXOR",0,"[150]",10,12,3,"[158]TOWER",0,"[158]",7,20,3
50002 DATA"[154]AMERICAN",100,"[154]",14,1,2
50005 DATA"FESTIVAL",100,"",5,6,2,"[129]WORLDWIDE",100,"[129]",8,23,1
50007 DATA"[159]CONTINENTAL",200,"[159]",3,3,0,"[156]IMPERIAL",200,"[156]",4,9,2
50010 DATAA 1,B 1,C 1,D 1,E 1,F 1,G 1,H 1,I 1,J 1,K 1,L 1
50020 DATAA 2,B 2,C 2,D 2,E 2,F 2,G 2,H 2,I 2,J 2,K 2,L 2
50030 DATAA 3,B 3,C 3,D 3,E 3,F 3,G 3,H 3,I 3,J 3,K 3,L 3
50040 DATAA 4,B 4,C 4,D 4,E 4,F 4,G 4,H 4,I 4,J 4,K 4,L 4
50050 DATAA 5,B 5,C 5,D 5,E 5,F 5,G 5,H 5,I 5,J 5,K 5,L 5
50060 DATAA 6,B 6,C 6,D 6,E 6,F 6,G 6,H 6,I 6,J 6,K 6,L 6
50070 DATAA 7,B 7,C 7,D 7,E 7,F 7,G 7,H 7,I 7,J 7,K 7,L 7
50080 DATAA 8,B 8,C 8,D 8,E 8,F 8,G 8,H 8,I 8,J 8,K 8,L 8
50090 DATAA 9,B 9,C 9,D 9,E 9,F 9,G 9,H 9,I 9,J 9,K 9,L 9
50100 DATAA10,B10,C10,D10,E10,F10,G10,H10,I10,J10,K10,L10
50110 DATAA11,B11,C11,D11,E11,F11,G11,H11,I11,J11,K11,L11
50120 DATAA12,B12,C12,D12,E12,F12,G12,H12,I12,J12,K12,L12
60000 OPEN1,8,15,"I0":CLOSE1:N$="ACQUIRE"
60001 OPEN1,8,15,"S0:"+N$:CLOSE1:SAVEN$,8:END
60002 X=RND(-RND(0)):PRINTX
60010 Y=INT(RND(1)*20+1):PRINTY
63000 OPEN1,8,15,"I0":CLOSE1:N$="ACQUIRE"
63001 OPEN1,8,15,"S0:"+N$:CLOSE1:SAVEN$,8:END