0 REM MONOLPOLE BY JOHN O'HARE
1 REM ALL RIGHTS RESERVED
2 REM PERMISSION TO USE, NOT SELL.
3 REM COLOR AND SOUND ADDED BY: TIM BORION AND SAL OEPER
4 PRINT"{clear}{white}":POKE53280,0:POKE53281,0:GOSUB700:GOSUB162:TN=832:TT=886:PRINT"{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}
5 PG$=" PURPLE, LT. BLUE, MAROON, ORANGE, RED, YELLOW, GREEN, DK. BLUE"
6 DIMPN$(42),D(42,1),CH$(16),CC$(16),P(42,9),PT$(42),C$(42),PS(42),H(42),MG(42)
7 DIM P$(2),PL(2),O(2),JT(2),M(2),CJ(2)
8 GOSUB23:INPUT"DO YOU WANT AUCTION RULE (Y OR N)";Q$:IFLEFT$(Q$,1)="Y"THENAF=1
9 INPUT"WANT FREE PARKING JACKPOT OPTION ";Q$:IFLEFT$(Q$,1)="Y"THENPF=1:FP=500
10 M(1)=1500:M(2)=1500:PL(1)=1:PL(2)=1:DV=2
11 CD$="{crsr down}{crsr down}{crsr down}{crsr down}{crsr down}{crsr down}{crsr down}{crsr down}{crsr down}{crsr down}{crsr down}{crsr down}{crsr down}{crsr down}{crsr down}{crsr down}{crsr down}{crsr down}{crsr down}{crsr down}{crsr down}{crsr down}{crsr down}{crsr down}{crsr down}":CR$="{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}"
12 ZQ=RND(-TI):X1=8:Y1=10:X2=23:Y2=10:RX=6:RY=18
13 E$="{rvs on} {rvs off}":RM$="{rvs on}HIT 'R' OR 'T'{rvs off}"
14 PRINT"{clear}{crsr down}{crsr down}{cyan} PLEASE WAIT WHILE I SET UP.{white}"
15 FORI=1TO4:P(6+((I-1)*10),8)=100:NEXT:P(13,8)=75:P(29,8)=75
16 CH=INT(RND(1)*16)+1:CC=INT(RND(1)*16)+1
17 FORI=1TO41:FORJ=0TO1:READD(I,J):NEXT:NEXT
18 P$(1)="{rvs on} PLAYER 1{rvs off}":P$(2)="{rvs on} PLAYER 2{rvs off}"
19 FORI=1TO41:READPN$(I):NEXT:FORI=1TO41:READPT$(I):IFPT$(I)<>"P"THEN21
20 READC$(I):FORJ=1TO9:READP(I,J):NEXTJ
21 NEXTI
22 FORI=1TO16:READCH$(I):NEXT:FORI=1TO16:READCC$(I):NEXT:GOTO32
23 PRINT"{lightblue} ▚ {rvs on}▚{rvs off}▎▎▚ ▎▎▎ "
24 PRINT" ▚{rvs on}▚{rvs off} ▎ ▎ ▚ ▎ ▎▂▂ ▎ "
25 PRINT" ▎ ▎ ▚ ▎ ▎ ▎ "
26 PRINT" ▎▂▂▂▎ ▚▎▂▂▂▎ ▂▂▂▎▂▂▂ ▂{white}"
27 PRINTTAB(19);"{crsr down}{crsr down}BY"
28 PRINT"{crsr down}{crsr down} JOHN O'HARE{crsr down}{crsr down}{crsr down}"
29 PRINT"HIT 'R' TO ROLL DICE AND 'T' FOR TRANSACTION MENU."
30 PRINT" '0' CAN BE USED TO RETURN FROM MOST SUBROUTINES"
31 PRINT:PRINT"DEVELOPED PROPERTIES MAY NOT BE TRADED.":PRINT:RETURN
32 POKE54277,79:POKE54284,79:POKE54291,79
33 POKE54278,248:POKE54286,248:POKE54292,248
34 POKE54276,33:POKE54288,33:POKE54290,33
35 G(1)=54272:G(2)=54273:G(3)=54279:G(4)=54280:G(5)=54286:G(6)=54287
36 FORI=1TO6:POKEG(I),0:NEXT
37 POKE54296,15:IFPEEK(832)<>160THENGOSUB652
38 GOSUB135:FORPK=1TO2:POKED(1,PK-1),48+PK:O(PK)=D(1,PK-1):PT=PK:NEXT:GOSUB661
39 GOSUB165:IFR1=R2THEN39
40 PT=(R1>R2)+2
41 POKED(PL(1),0),49:POKED(PL(2),1),50
42 PT$=STR$(PT)
43 MS$="{rvs on}{green}PLAYER"+PT$+" STARTS{rvs off}{white}"
44 X=RX:Y=RY:Z$=MS$:GOSUB160:FORDE=1TO1500:NEXT:Z$=E$:GOSUB160:GOTO65
45 DV=2:MF=0:JB=0
46 IFPL(PT)=41THEN56
47 JT(PT)=0
48 GOSUB165:DF=1
49 IFDB=3THENSYSTN:GOSUB325:SYSTT:GOSUB661:GOTO59
50 FORM=1TODR:PL(PT)=PL(PT)+1
51 POKEO(PT),160:IFPL(PT)>40THENPL(PT)=PL(PT)-40:SYSTN:GOSUB175:SYSTT
52 POKED(PL(PT),PT-1),48+PT
53 O(PT)=D(PL(PT),PT-1)
54 FORT=1TO50STEP6+PT:FORI=1TO6:POKEG(I),T:NEXT:NEXT
55 FORI=1TO6:POKEG(I),0:NEXT:NEXTM
56 POKED(PL(PT),PT-1),48+PT:GOSUB661
57 SYSTN:GOSUB182:SYSTT:GOSUB661:IFM(PT)<0THENGOSUB635:SYSTT
58 IFPL(PT)=11THENPOKED(41,PT-1),160:POKED(11,PT-1),48+PT
59 IFJBTHENJB=0:POKEO(PT),160:O(PT)=D(PL(PT),PT-1):GOTO50
60 IFMFTHENMF=0:POKEO(PT),160:O(PT)=D(PL(PT),PT-1):GOTO56
61 IFJETHENJE=0:POKEO(PT),160:O(PT)=D(PL(PT),PT-1):GOTO65
62 IFJFTHENJF=0:POKED(PL(PT),PT-1),48+PT:POKEO(PT),160:O(PT)=D(PL(PT),PT-1)
63 IFDBTHEN65
64 PT=3-PT
65 Z$=P$(PT):X=RX:Y=RY-1:GOSUB160
66 Z$=RM$:X=RX:Y=RY:GOSUB160
67 GETBC$:IFBC$<>""THEN67
68 GETA$:IFA$=""THEN68
69 IFA$="T"THENSYSTN:GOSUB423:SYSTT:GOSUB661:GOTO65
70 Z$=E$:X=RX:Y=RY:GOSUB160
71 GOTO45
72 DATA1978,1938,1974,1973,1931,1930,1968,1967,1925,1924,1922,1921
73 DATA1959,1958,1956,1955,1953,1952,1950,1949,1944,1904
74 DATA1824,1825,1744,1745,1664,1665,1584,1585,1505,1506,1424,1425
75 DATA1346,1347,1264,1265,1184,1185,1104,1105
76 DATA1029,1030,1032,1033,1035,1036,1038,1039,1081,1082,1044,1045
77 DATA1047,1048,1130,1131,1053,1054,1096,1097
78 DATA1217,1218,1297,1298,1377,1378,1457,1458,1536,1537,1617,1618
79 DATA1697,1698,1777,1778,1857,1858,1906,1907
80 DATA"{green}>GO<{lightgrey}","{lightgrey}MEDITERRANEAN AVE.{lightgrey}","{yellow}COMMUNITY CHEST{lightgrey}","{lightgrey}BALTIC AVE.{lightgrey}"
81 DATA"{lightblue}INCOME TAX{lightgrey}"
82 DATA"{grey}READING R.R.{lightgrey}","{cyan}ORIENTAL AVE.{lightgrey}","{light-red}CHANCE{lightgrey}","{cyan}VERMONT AVE.{lightgrey}"
83 DATA"{cyan}CONNECTICUT AVE.{lightgrey}"
84 DATA"{light-red}JUST VISITING{lightgrey}","{purple}ST.CHARLES PLACE{lightgrey}","{lightgreen}ELECTRIC COMPANY{lightgrey}","{purple}STATES AVE.{lightgrey}"
85 DATA"{purple}VIRGINIA AVE.{lightgrey}","{grey}PENNSYLVANIA R.R.{lightgrey}","{orange}ST. JAMES PLACE{lightgrey}"
86 DATA"{yellow}COMMUNITY CHEST{lightgrey}"
87 DATA"{orange}TENNESSEE AVE.{lightgrey}","{orange}NEW YORK AVE.{lightgrey}","{brown}FREE PARKING{lightgrey}","{red}KENTUCKY AVE.{lightgrey}"
88 DATA"{light-red}CHANCE{lightgrey}","{red}INDIANA AVE.{lightgrey}","{red}ILLINOIS AVE.{lightgrey}","{grey}B & O R.R.{lightgrey}"
89 DATA"{yellow}ATLANTIC AVE.{lightgrey}"
90 DATA"{yellow}VENTNOR AVE.{lightgrey}","{lightgreen}WATER WORKS{lightgrey}","{yellow}MARVIN GARDENS{lightgrey}","{light-red}GO{lightgrey} {lightblue}TO{lightgrey} {white}JAIL{lightgrey}"
91 DATA"{green}PACIFIC AVE.{lightgrey}"
92 DATA"{green}N. CAROLINA AVE.{lightgrey}","{yellow}COMMUNITY CHEST{lightgrey}","{green}PENNSYLVANIA AVE.{lightgrey}"
93 DATA"{grey}SHORT LINE{lightgrey}"
94 DATA"{light-red}CHANCE{lightgrey}","{blue}PARK PLACE{lightgrey}","{lightblue}LUXURY TAX{lightgrey}","{blue}BOARDWALK{lightgrey}","{light-red}IN JAIL{lightgrey}"
95 DATAGO,P,PURPLE,60,2,10,30,90,160,250,30,50,CC,P,PURPLE,60,4,20,60,180,320
96 DATA450,30,50,IT,RR,P,LT. BLUE,100,6,30,90,270,400,550,50,50,CH,P,LT. BLUE
97 DATA 100,6,30,90,270,400,550,50,50,P,LT. BLUE,120,8,40,100,300,450,600,60,50
98 DATAJV,P,MAROON,140,10,50,150,450,625,750,70,100,U,P,MAROON,140,10,50,150,450
99 DATA625,750,70,100,P,MAROON,160,12,60,180,500,700,900,80,100,RR
100 DATAP,ORANGE,180,14,70,200,550,750,950,90,100,CC,P,ORANGE
101 DATA 180,14,70,200,550,750,950,90,100
102 DATAP,ORANGE,200,16,80,220,600,800,1000,100,100,FP,P,RED
103 DATA 220,18,90,250,700,875
104 DATA1050,110,150,CH,P,RED,220,18,90,250,700,875,1050,110,150,P,RED,240
105 DATA 20,100,300
106 DATA750,925,1100,120,150,RR,P,YELLOW,260,22,110,330,800,975,1150,130,150
107 DATA P,YELLOW,260
108 DATA22,110,330,800,975,1150,130,150,U,P,YELLOW,280,24,120,360,850,1025,1200
109 DATA 140
110 DATA150,GTJ,P,GREEN,300,26,130,390,900,1100,1275,150,200,P,GREEN
111 DATA 300,26,130,390,900
112 DATA1100,1275,150,200,CC,P,GREEN,320,28,150,450,1000,1200,1400
113 DATA 160,200,RR,CH
114 DATAP,DK. BLUE,350,35,175,500,1100,1300,1500,175,200,LT,P,DK. BLUE
115 DATA 400,50,200,600,1400
116 DATA1700,2000,200,200,IJ
117 DATA PAY POOR TAX $15,GO DIRECTLY TO JAIL,ADVANCE TO GO(COLLECT $200)
118 DATA YOUR BUILDING AND LOAN MATURES COLLECT $150
119 DATA ADVANCE TOKEN TO NEAREST R.R. $ PAY OWNER TWICE RENT
120 DATAADVANCE TO ILLINOIS AVE.,BANK PAYS YOU DIVIDEND OF $50
121 DATAGET OUT OF JAIL FREE,PAY EACH PLAYER $50,ADVANCE TO ST. CHARLES PLACE
122 DATATAKE A RIDE ON THE READING,GO BACK THREE SPACES,ADVANCE TO BOARDWALK
123 DATAMAKE GENERAL REPAIRS $25 FOR EACH HOUSE$100 FOR EACH HOTEL
124 DATA ADVANCE TOKEN TO NEAREST R.R. $ PAY OWNER TWICE RENT
125 DATA ADVANCE TOKEN TO NEAREST UTILITY ROLL DICE & PAY 10*# SHOWN
126 DATA GET OUT OF JAIL FREE,GO TO JAIL,ADVANCE TO GO(COLLECT $200)
127 DATA FROM SALE OF STOCK YOU GET $45,COLLECT $50 FROM EVERY PLAYER
128 DATA RECEIVE FOR SERVICES $25,PAY SCHOOL TAX OF $150,TAX REFUND COLLECT $20
129 DATA ASSESSED FOR REPAIRS $40 PER HOUSE $115 PER HOTEL
130 DATA YOU HAVE WON SECOND PRIZE IN A BEAUTY CONTEST COLLECT $10
131 DATA YOU INHERIT $100,XMAS FUND MATURES COLLECT $100,PAY HOSPITAL $100
132 DATA BANK ERROR IN YOUR FAVOR COLLECT $200,DOCTORS FEE PAY $50
133 DATA LIFE INSURANCE MATURES COLLECT $100
134 GOTO651
135 PRINT"{clear}{rvs on}{brown} {lightgrey}▏ ▏ ▏ ▏ {grey}▚▚▚{lightgrey}▏ ▏ ▏{lightgreen}WW{lightgrey}▏ {light-red}▏GTJ{rvs off}"
136 PRINT"{rvs on}{brown} FP {lightgrey}▏ ▏{light-red}?{lightgrey} ▏ ▏ {grey}▏ {lightgrey}▏ ▏ ▏{lightgreen}┌┴{lightgrey}▏ {lightblue}▏ {rvs off}"
137 PRINT"{rvs on}{brown} {red} {lightgrey}▏ {red} ▏ {grey}B&O{yellow}▏ ▏ {lightgrey}▏ {yellow} {white}▏○ {lightgrey}{rvs off}"
138 PRINT"{rvs on}▔▔▔{orange} {lightgrey}▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔{green} {lightgrey}▔▔▔{rvs off}"
139 PRINT"{rvs on} {orange} {lightgrey}▏ ╱╲ {green} {lightgrey} {rvs off}"
140 PRINT"{rvs on}▔▔▔{orange}▔{lightgrey}▏ {yellow}╱ {lightgrey}╲ 1- {green}▔{lightgrey}▔▔▔{rvs off}"
141 PRINT"{rvs on} {orange} {lightgrey}▏╱{yellow}C C{lightgrey}╱ {green} {lightgrey} {rvs off}"
142 PRINT"{rvs on}▔▔▔▔▏╲{yellow} ╱{lightgrey} 2- ▔▔▔{rvs off}"
143 PRINT"{rvs on}{yellow}CC{lightgrey} ▏ ╲╱ {yellow}CC{lightgrey} {rvs off}"
144 PRINT"{rvs on}▔▔▔{orange} {lightgrey}▏ ▁▁▁ ▁▁▁ {green} {lightgrey}▔▔▔{rvs off}"
145 PRINT"{rvs on} {orange} {lightgrey}▏ ▕{white} {lightgrey}▏ ▕{white} {lightgrey}▏ {green} {lightgrey} {rvs off}"
146 PRINT"{rvs on}{grey}▚PR▚{lightgrey}▏ ▕{white} {lightgrey}▏ {white}MONOPOLE{lightgrey} ▕{white} {lightgrey}▏ ▕{grey}▚SL▚{rvs off}"
147 PRINT"{rvs on}▚ ▚{lightgrey}▏ ▕{white} {lightgrey}▏ {white}CBM-64{lightgrey} ▕{white} {lightgrey}▏ ▕{grey}▚ ▚{lightgrey}{rvs off}"
148 PRINT"{rvs on}▔▔▔{purple} {lightgrey}▏ ▔▔▔ ▔▔▔ ▔▔▔{rvs off}"
149 PRINT"{rvs on} {purple} {lightgrey}▏ ▏{light-red}?{lightgrey} {rvs off}"
150 PRINT"{rvs on}▔▔▔{purple}▔{lightgrey}▏ ╱╲ {blue} {lightgrey}▔▔▔{rvs off}"
151 PRINT"{rvs on} {purple} {lightgrey}▏ {light-red}╱ {lightgrey}╲ {blue} {lightgrey} {rvs off}"
152 PRINT"{rvs on}▔{lightgreen}EC{lightgrey}▔▏ ╱{light-red}???{lightgrey}╱ {lightblue}TAX{lightgrey}▔{rvs off}"
153 PRINT"{rvs on} ▏ ╲{light-red} ╱{lightgrey} ▏ {rvs off}"
154 PRINT"{rvs on}▔▔▔{purple} {lightgrey}▏ ╲╱ {blue} {lightgrey}▔▔▔{rvs off}"
155 PRINT"{rvs on} {purple} {lightgrey}▏ {blue} {lightgrey} {rvs off}"
156 PRINT"{rvs on}{light-red}▔{lightgrey}▔▔{cyan} ▏ {lightgrey}▔▔{cyan} {grey}RR{lightgrey}▔▔{rvs off} {rvs on}▔▔{rvs off} {rvs on}{green}▔▔▔{rvs off}"
157 PRINT"{rvs on}{light-red} {lightgrey}▏ ▏ ▏ ▏{light-red}?{lightgrey} ▏ {grey}▏ {lightgrey}▏ ▏ ▏ ▏ {green}▏GO {rvs off}"
158 PRINT"{rvs on}{light-red} ▔▔▔{lightgrey}▏ ▏ ▏ ▏ {grey}▚▚▚{lightblue}TAX{lightgrey}▏ ▏{yellow}CC{lightgrey}▏ {green}▏←─ {rvs off}{white}"
159 RETURN
160 PRINT"{home}{lightgrey}";LEFT$(CR$,X);LEFT$(CD$,Y);Z$;"{white}"
161 RETURN
162 DC$(1)="{rvs on} {crsr down}{crsr left}{crsr left}{crsr left} ● {crsr down}{crsr left}{crsr left}{crsr left} {rvs off}":DC$(2)="{rvs on} ●{crsr down}{crsr left}{crsr left}{crsr left} {crsr down}{crsr left}{crsr left}{crsr left}● {rvs off}"
163 DC$(3)="{rvs on}● {crsr down}{crsr left}{crsr left}{crsr left} ● {crsr down}{crsr left}{crsr left}{crsr left} ●{rvs off}":DC$(4)="{rvs on}● ●{crsr down}{crsr left}{crsr left}{crsr left} {crsr down}{crsr left}{crsr left}{crsr left}● ●{rvs off}"
164 DC$(5)="{rvs on}● ●{crsr down}{crsr left}{crsr left}{crsr left} ● {crsr down}{crsr left}{crsr left}{crsr left}● ●{rvs off}":DC$(6)="{rvs on}● ●{crsr down}{crsr left}{crsr left}{crsr left}● ●{crsr down}{crsr left}{crsr left}{crsr left}● ●{rvs off}":RETURN
165 CT=0
166 R1=INT(RND(1)*6)+1:R2=INT(RND(1)*6)+1:DR=R1+R2
167 FORI=1TO6:POKEG(I),DR*10:NEXT
168 PRINT"{home}";LEFT$(CR$,X1);LEFT$(CD$,Y1);DC$(R1)
169 PRINT"{home}";LEFT$(CR$,X2);LEFT$(CD$,Y2);DC$(R2)
170 FORI=1TO6:POKEG(I),0:NEXT
171 CT=CT+1:IFCT<7THENFORDELAY=1TO75:NEXT:GOTO166
172 IFR1=R2THENDB=DB+1:GOTO174
173 DB=0
174 RETURN
175 PRINT"{clear}":PRINT
176 PRINT" COLLECT $200 AS YOU PASS {rvs on}{green}▗▄{crsr right}▗▖{crsr down}{crsr left}{crsr left}{crsr left}{crsr left}{crsr left}▝▘{crsr right}▝▘{white}{rvs off}"
177 M(PT)=M(PT)+200:PRINT:PRINT:PRINT
178 PRINT"{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{crsr right}{rvs on}HIT ANY KEY TO CONTINUE{rvs off}"
179 GETW$:IFW$<>""THEN179
180 GETK$:IFK$=""THEN180
181 RETURN
182 POKE198,0:PT$=PT$(PL(PT))
183 IFPT$="P"THEN195
184 IFPT$="RR"THEN244
185 IFPT$="GO"THENRETURN
186 IFPT$="U"THEN280
187 IFPT$="FP"THEN311
188 IFPT$="JV"THENRETURN
189 IFPT$="GTJ"THEN325
190 IFPT$="IT"THEN336
191 IFPT$="LT"THEN334
192 IFPT$="CC"THEN338
193 IFPT$="CH"THEN362
194 IFPT$="IJ"THEN403
195 PRINT"{clear}";TAB(15);"TITLE DEED"
196 IFGFTHEN200
197 PRINT" PLAYER"PT
198 PO=3-PT
199 PL=PL(PT):P7=PT
200 PRINTTAB(20-(LEN(PN$(PL))-1)/2)"{rvs on}";PN$(PL)"{rvs off}"
201 PRINTLEFT$(PN$(PL),1):QR=PEEK(646):POKE53280,QR:PRINT"{crsr up}{crsr up}{white}"
202 PRINT
203 PRINT" RENT $";P(PL,2)
204 PRINT" WITH 1 HOUSE $";P(PL,3)
205 PRINT" WITH 2 HOUSES ";P(PL,4)
206 PRINT" WITH 3 HOUSES ";P(PL,5)
207 PRINT" WITH 4 HOUSES ";P(PL,6)
208 PRINT" WITH HOTEL $";P(PL,7)
209 PRINT
210 PRINT" MORTAGE VALUE $";P(PL,8)
211 PRINT" HOUSES COST $";P(PL,9);"EACH"
212 PRINT" HOTELS, $";P(PL,9);". PLUS 4 HOUSES"
213 IFGFTHENPRINT:PRINT:GOSUB178:POKE53280,0:RETURN
214 PRINT:FORI=1TO41:IFC$(PL)=C$(I)ANDI<>PLTHENGOSUB216
215 NEXT:GOTO218
216 IFPS(I)THENPRINT" "PN$(I)"{white} OWNED BY {rvs on}PLAYER #"PS(I):RETURN
217 PRINT" "PN$(I)"{white} STILL FOR SALE.":RETURN
218 PRINT
219 IFMG(PL)=1THENPRINT" MORTAGED FOR $"P(PL,8)
220 PRINT" COST $";P(PL,1)
221 IFPS(PL)=0THEN226
222 PRINT" {rvs on}OWNED{rvs off} BY PLAYER"PS(PL):IFH(PL)THENPRINT"{rvs on}WITH";
223 IFH(PL)<5THENPRINTH(PL)"HOUSES."
224 IFH(PL)=5THENPRINT" A {rvs on}HOTEL"
225 GOTO231
226 PRINT" YOU HAVE $";M(P7)
227 PRINT" DO YOU WISH TO BUY THIS PROPERTY";:INPUT" ▚{crsr left}{crsr left}{crsr left}";A$:A$=LEFT$(A$,1)
228 IFA$="N"THEN237
229 IFA$<>"Y"THENPRINT"{crsr up}{crsr up}":GOTO227
230 PRINT" OK YOU BOUGHT ";PN$(PL)"{white}":M(P7)=M(P7)-P(PL,1):PS(PL)=PT:GOTO236
231 OW=P(PL,H(PL)+2):IFPS(PL)=PTTHEN236
232 IFMG(PL)THEN236
233 P5=PO:P6=PS(PL):GOSUB238:IFOATHENIFH(PL)=0THENOW=OW*2
234 M(PT)=M(PT)-OW:M(PS(PL))=M(PS(PL))+OW:PRINT" YOU OWE $";OW
235 M(PS(PL))=M(PS(PL))+OW
236 GOSUB178:POKE53280,0:RETURN
237 GOSUB619:GOTO236
238 MG=0:OA=0:PC=0:FORI=1TO41:IFC$(PL)=C$(I)ANDPS(I)=P5THENPC=PC+1:IFMG(I)THENMG=MG
239 NEXT
240 IFPC=2ANDC$(PL)="PURPLE"THENOA=1:RETURN
241 IFPC=2ANDC$(PL)="DK. BLUE"THENOA=1:RETURN
242 IFPC=3THENOA=1:RETURN
243 RETURN
244 PRINT"{clear}":PL=PL(PT)
245 PRINT"PLAYER"PT
246 PRINT" {light-red}♣{grey} {rvs on}▗{rvs off}"
247 PRINT" {rvs on} {rvs off}"
248 PRINT" ╱{brown}○ ○{white}"
249 PRINT
250 PRINTTAB(20-LEN(PN$(PL))/2)"{rvs on}";PN$(PL)"{white}{rvs off}"
251 POKE54276,129:POKE54288,17:POKE54290,17
252 KO=129:FORT=1TO2:FORI=1TO6:POKEG(I),KO:NEXT:FORDL=1TO400:NEXT
253 FORI=1TO6:POKEG(I),0:NEXT:FORDL=1TO60:NEXT:NEXT
254 POKE54276,33:POKE54288,33:POKE54290,33
255 PRINT:PRINT"RENT $25"
256 PRINT"IF 2 R.R.'S ARE OWNED 50"
257 PRINT"IF 3 R.R.'S ARE OWNED 100"
258 PRINT"IF 4 R.R.'S ARE OWNED 200"
259 PRINT
260 PRINT"MORTAGE VALUE $100"
261 PRINT:IFMG(PL)=1THENPRINT"MORTAGED FOR $100":GOTO279
262 PRINT"COST $200"
263 PRINT:FORI=1TO41:IFPT$(I)="RR"THENGOSUB265
264 NEXT:GOTO267
265 IFPS(I)THENPRINTPN$(I)"{white} OWNED BY PLAYER #";PS(I):RETURN
266 PRINTPN$(I)"{white} STILL FOR SALE.":RETURN
267 IFPS(PL)THENPRINT"{rvs on}OWNED{rvs off} BY PLAYER#";PS(PL):GOTO275
268 PRINT"YOU HAVE $"M(PT)
269 PRINT"DO YOU WISH TO BUY IT";:INPUT" ▚{crsr left}{crsr left}{crsr left}";B$:B$=LEFT$(B$,1)
270 IFB$="N"THENGOSUB619:GOTO279
271 IFB$<>"Y"THENPRINT"{crsr up}{crsr up}":GOTO269
272 M(PT)=M(PT)-200:PS(PL)=PT
273 PRINT"OK YOU BOUGHT IT"
274 GOTO279
275 OW=0:O7=0
276 IFPS(PL)=PTTHEN279
277 OW=25:FORI=6TO36STEP10:IFPT$(I)="RR"ANDPS(I)=PS(PL)THENOW=OW*2
278 NEXT:OW=OW/DV:PRINT"YOU OWE $";OW:M(PT)=M(PT)-OW:M(PS(PL))=M(PS(PL))+OW
279 GOSUB178:RETURN
280 PRINT"{clear}"
281 PRINT"PLAYER"PT
282 PRINT" {yellow}╱▔╲ {grey}○●○ "
283 PRINT" {yellow}╲{light-red}↑{yellow}╱ {grey}├─┴───╮ "
284 PRINT" {yellow}▏▏ {grey}├────╮ "
285 PRINT" ▒ └┘{white} ":PRINT
286 PL=PL(PT)
287 PRINTTAB(20-LEN(PN$(PL))/2)"{rvs on}";PN$(PL)"{white}{rvs off}"
288 PRINT:PRINT"IF ONE 'UTILITY IS OWNED PAY 4 TIMES THEAMOUNT SHOWN ON DICE"
289 PRINT
290 PRINT"IF BOTH OWNED PAY 10 ╳ AMOUNT ON DICE"
291 D1=INT(RND(1)*6)+1:D2=INT(RND(1)*6)+1
292 IFDFTHEND1=R1:D2=R2
293 PRINT:PRINT"MORTAGE VALUE $75":PRINT
294 IFMG(PL)=1THENPRINT"MORTAGED FOR $75":GOTO310
295 IFPS(42-PL)THENPRINTPN$(42-PL)"{white} OWNED BY PLAYER"PS(42-PL):GOTO297
296 PRINTPN$(42-PL)"{white} STILL FOR SALE."
297 PRINT:IFPS(PL)THENPRINT"{rvs on}OWNED{rvs off} BY PLAYER#";PS(PL):GOTO305
298 PRINT"YOU HAVE $"M(PT)
299 INPUT"DO YOU WISH TO BUY IT ▚{crsr left}{crsr left}{crsr left}";B$:B$=LEFT$(B$,1)
300 IFB$="N"THENGOSUB619:GOTO310
301 IFB$<>"Y"THENPRINT"{crsr up}{crsr up}":GOTO299
302 PRINT"OK YOU BOUGHT ";PN$(PL)"{white}"
303 M(PT)=M(PT)-150
304 PS(PL)=PT:GOTO310
305 IFPS(PL)=PTTHEN310
306 PRINT"DICE SHOW"D1"AND"D2"."
307 MT=4:IFPS(13)=PS(PL)ANDPS(29)=PS(PL)THENMT=10
308 IFDF=0THENMT=10
309 OW=MT*(D1+D2):PRINT"YOU OWE $";OW:M(PT)=M(PT)-OW:M(PS(PL))=M(PS(PL))+OW
310 MT=0:GOSUB178:RETURN
311 PRINT"{clear}"
312 PRINT" {orange}FREE
313 PRINT" {green}╭─────╮"
314 PRINT" │ {cyan}┌─┐{green}
315 PRINT" │ {cyan}└─┘{green} │
316 PRINT" {brown}╭─╮{green} │
317 PRINT" ╭─┘ {brown}│{grey}●{brown}{green} └─╮
318 PRINT" │ {brown}╰╯{green} │
319 PRINT" └─{grey}{green}─────{grey}{green}─┘
320 PRINT" {grey}▒ ▒
321 PRINT:PRINT" {orange}PARKING{white}":PRINT
322 IFPF=0THENGOSUB178:RETURN
323 PRINT:PRINT" YOU GET THE FREE PARKING"
324 PRINT" JACKPOT OF $"FP"!":M(PT)=M(PT)+FP:FP=0:PRINT:GOSUB178:RETURN
325 PRINT"{clear}";TAB(15);"GO TO JAIL"
326 IFDB=3THENPRINT:PRINT" FOR ROLLING DOUBLES 3 TIMES IN A ROW!":PRINT
327 PRINTTAB(16);"{darkgrey}┌┬┬┬┬┬┬┐":FORI=1TO5:PRINTTAB(16);"││││││││":NEXT
328 PRINTTAB(16);"└┴┴┴┴┴┴┘":PRINT:PL(PT)=41:JF=1:DB=0
329 FORKO=1TO3:FORT=60TO110STEP1.7:FORI=1TO6:POKEG(I),T:NEXT:NEXT
330 FORDL=1TO10:NEXT
331 FORT=110TO60STEP-1.7:FORI=1TO6:POKEG(I),T:NEXT:NEXT:NEXT
332 FORI=1TO6:POKEG(I),0:NEXT
333 PRINT"{white}";:GOSUB178:RETURN
334 PRINT"{clear}";TAB(15);"LUXURY TAX":PRINT:PRINTTAB(16);"PAY $75"
335 PRINT:PRINT:PRINT:M(PT)=M(PT)-75:FP=FP+75:GOSUB178:RETURN
336 PRINT"{clear}";TAB(15);"INCOME TAX":PRINT:PRINTTAB(16);"PAY $200"
337 PRINT:PRINT:PRINT:M(PT)=M(PT)-200:FP=FP+200:GOSUB178:RETURN
338 CC=CC+1:IFCC>16THENCC=CC-16
339 PO=3-PT:CC$=CC$(CC):IFCC=1ANDCJ(1)THENCC=CC+1:CC$=CC$(CC)
340 PRINT"{clear}{crsr down} {yellow}COMMUNITY CHEST{white}{crsr down}{crsr down}":PRINTCC$"{crsr down}{crsr down}"
341 IFCC=1THENCJ(1)=PT
342 IFCC=2THENGOSUB178:GOTO325
343 IFCC=3THENPL(PT)=1:MF=1:GOSUB178:GOSUB175:RETURN
344 IFCC=4THENM(PT)=M(PT)+45
345 IFCC=5THENM(PT)=M(PT)+50:M(PO)=M(PO)-50
346 IFCC=6THENM(PT)=M(PT)+25
347 IFCC=7THENM(PT)=M(PT)-150:FP=FP+150
348 IFCC=8THENM(PT)=M(PT)+20
349 IFCC=9THENGOSUB358
350 IFCC=10THENM(PT)=M(PT)+10
351 IFCC=11THENM(PT)=M(PT)+100
352 IFCC=12THENM(PT)=M(PT)+100
353 IFCC=13THENM(PT)=M(PT)-100
354 IFCC=14THENM(PT)=M(PT)+200
355 IFCC=15THENM(PT)=M(PT)-50
356 IFCC=16THENM(PT)=M(PT)+100
357 GOSUB178:RETURN
358 YP=0:FORI=1TO40
359 IFPS(I)=(PT)ANDH(I)<5THENYP=YP+(40*H(I))
360 IFPS(I)=(PT)ANDH(I)=5THENYP=YP+115
361 NEXT:PRINT"{crsr down}YOU PAY $"YP:M(PT)=M(PT)-YP:FP=FP+YP:RETURN
362 CH=CH+1:IFCH>16THENCH=CH-16
363 PO=3-PT:CH$=CH$(CH):IFCH=8ANDCJ(2)THENCH=CH+1:CH$=CH$(CH)
364 PRINT"{clear}{crsr down} {light-red}? ? CHANCE ? ?{white}{crsr down}{crsr down}":PRINTCH$"{crsr down}{crsr down}"
365 IFCH=1THENM(PT)=M(PT)-15:FP=FP+15
366 IFCH=2THENGOSUB178:GOTO325
367 IFCH=3THENPL(PT)=1:MF=1:GOSUB178:GOSUB175:RETURN
368 IFCH=4THENM(PT)=M(PT)+150
369 IFCH=5THENGOSUB382:MF=1
370 IFCH=6THENGOSUB386:MF=1
371 IFCH=7THENM(PT)=M(PT)+50
372 IFCH=8THENCJ(2)=PT
373 IFCH=9THENM(PT)=M(PT)-50:M(PO)=M(PO)+50
374 IFCH=10THENGOSUB388:MF=1
375 IFCH=11THENGOSUB390:MF=1
376 IFCH=12THENPL(PT)=PL(PT)-3:MF=1
377 IFCH=13THENGOSUB392:MF=1
378 IFCH=14THENGOSUB394
379 IFCH=15THENGOSUB382:MF=1
380 IFCH=16THENGOSUB398:MF=1
381 GOSUB178:RETURN
382 PL(PT)=PL(PT)+1:IFPL(PT)>40THENGOSUB668:PL(PT)=PL(PT)-40
383 IFPT$(PL(PT))="RR"THEN385
384 GOTO382
385 DV=1:RETURN
386 IFPL(PT)>25THENGOSUB668
387 PL(PT)=25:RETURN
388 IFPL(PT)>12THENGOSUB668
389 PL(PT)=12:RETURN
390 IFPL(PT)>6THENGOSUB668
391 PL(PT)=6:RETURN
392 PL(PT)=40:RETURN
393 RETURN
394 DF=0:YP=0:FORI=1TO40
395 IFPS(I)=(PT)ANDH(I)<5THENYP=YP+(25*H(I))
396 IFPS(I)=(PT)ANDH(I)=5THENYP=YP+100
397 NEXT:PRINT"YOU PAY $"YP:M(PT)=M(PT)-YP:FP=FP=YP:RETURN
398 PL(PT)=PL(PT)+1
399 IFPL(PT)>40THENGOSUB668:PL(PT)=PL(PT)-40
400 IFPT$(PL(PT))="U"THEN402
401 GOTO398
402 MF=1:RETURN
403 PRINT"{clear}{crsr down}"
404 JT(PT)=JT(PT)+1
405 PRINT"PLAYER #"PT"IS IN JAIL"
406 PRINT:PRINT"YOU HAVE BEEN IN"JT(PT)"TURNS"
407 PRINT"YOU MAY: 1. PAY $50"
408 PRINT" 2. USE A 'GET OUT OF JAIL FREE CARD."
409 PRINT" 3. TRY TO ROLL DOUBLES."
410 PRINT:INPUT"CHOICE";I:IFI<1ORI>3THEN410
411 IFI=1THENM(PT)=M(PT)-50:FP=FP+50:PL(PT)=11:GOSUB178:JE=1:RETURN
412 IFI=2ANDCJ(1)=PTTHENCJ(1)=0:PL(PT)=11:GOSUB178:JE=1:RETURN
413 IFI=2ANDCJ(2)=PTTHENCJ(2)=0:PL(PT)=11:GOSUB178:JE=1:RETURN
414 IFI=2THENPRINT"YOU DON'T HAVE A CARD":GOTO410
415 IFI=3THENGOSUB165:IFDBTHEN421
416 PRINT"YOU DIDN'T ROLL DOUBLES."
417 IFJT(PT)>2THENPRINT"YOU MUST PAY THE $50":M(PT)=M(PT)-50:PL(PT)=11:JB=1
418 IFJT(PT)>2THENGOSUB178:FP=FP+50:RETURN
419 GOSUB178:RETURN
420 IFPL(PT)=11THENGOSUB178:JE=1:RETURN
421 PRINT"YOU MADE IT OUT!!!":PL(PT)=11:GOSUB178:JB=1:DB=0:RETURN
422 GOTO635
423 PRINT"{clear}":IFPFTHENPRINT"MONEY IN FREE PARKING JACKPOT $";FP
424 PRINT"PLAYER 1 HAS $";M(1):PRINT"PLAYER 2 HAS $";M(2)
425 PRINT:PRINT"PLAYER";PT"UP."
426 PRINT:PRINT:PRINTTAB(15);"OPTIONS"
427 PRINT
428 PRINT" R=REVIEW PROPERTIES"
429 PRINT" L=LIST ALL PROPERTIES"
430 PRINT" B=BUILD HOUSES/HOTELS"
431 PRINT" S=SELL PROPERTIES TO OTHER PLAYER"
432 PRINT" M=MORTAGE PROPERTIES(SELL HOUSES)"
433 PRINT" D=DISPLAY TITLE DEEDS"
434 PRINT" Q=RETURN TO GAME"
435 PRINT" XX=END GAME":PRINT
436 INPUT"CHOICE ▚{crsr left}{crsr left}{crsr left}";C$
437 IFC$="▚"THEN436
438 IFC$="R"THENGOSUB447
439 IFC$="L"THENGOSUB464
440 IFC$="B"THENGOSUB479
441 IFC$="S"THENGOSUB523
442 IFC$="M"THENGOSUB559
443 IFC$="D"THENGOSUB665
444 IFC$="Q"THENRETURN
445 IFC$="XX"THEN643
446 GOTO423
447 INPUT"FOR WHICH PLAYER (1 OR 2)";PN
448 IFPN<1ORPN>2THEN447
449 PRINT"{clear}{crsr down}"
450 PRINTTAB(6)"PROPERTIES FOR PLAYER ";PN
451 PRINT
452 FORI=1TO40:PO$="":IFPS(I)=PNTHENPRINTPN$(I);
453 IFPS(I)<>PNTHEN460
454 IFPT$(I)<>"P"THEN458
455 PRINTSPC(20-(LEN(PN$(I))-2));"{white} -";:IFH(I)<5THENPO$=STR$(H(I))+" HS"
456 IFH(I)=5THENPO$=" {rvs on}HOTEL{rvs off}"
457 PO$=PO$+"/$"+MID$(STR$(P(I,H(I)+2)),2)
458 IFMG(I)=1THENPO$="- MORTAGED"
459 PRINTPO$
460 NEXT
461 PRINT:IFCJ(1)=PNORCJ(2)=PNTHENPRINT"{white}GET OUT OF JAIL FREE CARD."
462 PRINT"{white}PLAYER"PN"HAS $";M(PN)
463 PRINT:GOSUB178:RETURN
464 PRINT"{clear}"
465 TT$="NAME OWNER/{crsr down}{crsr left}{crsr left}{crsr left}{crsr left}{crsr left}{crsr left}#HOUSES":PRINTTT$
466 FORK=1TO40:IFPT$(K)<>"P"ANDPT$(K)<>"RR"ANDPT$(K)<>"U"THEN475
467 PRINTPN$(K)"{white}";TAB(21);
468 PRINTTAB(33)
469 P$=STR$(PS(K)):PP$=MID$(STR$(H(K)),2):IFH(K)>4THENPP$="H"
470 IFPT$(K)<>"P"THENPP$="X"
471 IFMG(K)THENPP$="{rvs on}MG{rvs off}"
472 P$=P$+" -"+PP$
473 IFPS(K)=0THENP$=" NONE"
474 PRINTP$
475 IFK=20THENPRINT:GOSUB178:PRINT"{clear}":PRINTTT$
476 NEXTK
477 PRINT:GOSUB178
478 RETURN
479 PRINT"{clear}{crsr down}{crsr down}"
480 HO=0
481 PRINT" ON WHICH GROUP":PRINTPG$
482 PRINT
483 INPUT"WHICH COLOR";C$
484 FORI8=1TO41:IFC$=LEFT$(C$(I8),LEN(C$))THENPL=I8:C$=C$(I8):GOTO487
485 NEXTI8
486 PRINT"ILLEGAL GROUP":GOTO483
487 P7=PT
488 P5=P7:GOSUB238:IFMGTHENOA=0
489 IFOATHEN492
490 PRINT"SORRY YOU EITHER DON'T OWN ALL THE PROP-ERTY IN THAT GROUP OR SOME";
491 PRINT" IS MORTAGED.":GOSUB178:RETURN
492 PRINT" PROPERTY NAME # OF HOUSES(5=HOTEL)"
493 HS=0:FORI=PLTOPL+4:IFC$=C$(I)THENPRINTPN$(I)"{white}";TAB(30);H(I):HS=HS+H(I)
494 NEXT
495 PRINT:PRINT"HOUSES FOR THIS GROUP COST $"P(PL,9)"EACH"
496 PRINT"HOTELS COST $"P(PL,9)"+ 4 HOUSES OR $";(P(PL,9)*5)
497 PRINT
498 PRINT"YOU HAVE $"M(PT)
499 PRINT"HOTELS AUTOMATICALLY ADDED AFTER 4TH HOUSE"
500 PRINT"HOW MANY HOUSES DO YOU WANT TO BUY (MAX=";:MX=((5*PC)-HS):PRINTMX")"
501 INPUTHN:IFHN>MXTHENGOTO500
502 H7=INT(HN/PC):H8=HN-(H7*PC)
503 IFM(P7)<(HN*P(PL,9))THENPRINT"YOU DON'T HAVE ENOUGH MONEY!":GOTO500
504 IFHN=0THENPRINT"OK":GOSUB178:RETURN
505 M(P7)=M(P7)-(HN*P(PL,9)):FORE=PLTOPL+4:IFC$=C$(E)THENH(E)=H(E)+H7
506 NEXT
507 IFH8THEN509
508 GOTO522
509 PRINT"YOU HAVE"H8"HOUSES LEFT OVER"
510 PRINT:F1=0:FORF=PLTOPL+4:IFC$=C$(F)THENF1=F1+1:PRINTF1,PN$(F);" "H(F)
511 NEXT:PRINT:FORG=1TOH8
512 PRINT"WHERE DO YOU WANT HOUSE #"G;:INPUTHL:IFHL=HOTHENPRINT"CAN'T":GOTO512
513 F2=0:F1=0:F9=0
514 FORF=PLTOPL+3:IFC$=C$(F)THENF1=F1+1:IFF1=HLTHENF9=F
515 NEXTF
516 IFF9=0THENPRINT"NO SUCH NUMBER":GOTO512
517 H2=0:FORF=PLTOPL+3:IFC$=C$(F)THENIFH(F9)>H(F)THENH2=H2+1
518 NEXT
519 IFH2THENPRINT"ILLEGAL DISTRIBUTION OF HOUSES!":GOTO512
520 HO=HL:H(F9)=H(F9)+1
521 NEXTG
522 PRINT"DONE":GOSUB178:RETURN
523 INPUT"WHAT PLAYER HAS A PROPERTY TO SELL";P1
524 IFP1=0THENGOSUB178:RETURN
525 P2=P1+1:IFP2>2THENP2=P2-2
526 PRINT"IS IT A PROPERTY";:INPUTQ$:IFLEFT$(Q$,1)="N"THEN547
527 PRINT"IN WHAT COLOR GROUP":PRINTPG$
528 PRINT:INPUT"WHICH";C$
529 FORI6=1TO41:IFC$=LEFT$(C$(I6),LEN(C$))THENPL=I6:C$=C$(I6):GOTO532
530 NEXTI6
531 PRINT"ILLEGAL GROUP":GOTO528
532 PRINT"# PROPERTY";TAB(30);"OWNER"
533 HO=0:CT=0:FORI=PLTOPL+4:IFC$=C$(I)THENCT=CT+1:PRINTCT" "PN$(I)"{white}";TAB(35);PS(I)
534 IFH(I)THENHO=1
535 NEXT
536 PRINT:PRINT"WHAT NUMBER DOES PLAYER"P1"WANT TO SELL"
537 INPUTTP
538 CT=0:FORI=PLTOPL+4:IFC$=C$(I)THENCT=CT+1:IFCT=TPTHENT4=I:FF=1
539 NEXT
540 IFFF=0THENPRINT"ILLEGAL NUMBER":GOTO536
541 IFPS(T4)<>P1THENPRINT"PLAYER #"P1"DOES NOT OWN IT.":GOTO523
542 IFHOTHENPRINT"YOU HAVE HOUSES ON THAT GROUP YOU CAN'T SELL IT.":GOTO546
543 INPUT "WHAT IS THE AGREED SELLING PRICE";SP
544 M(P1)=M(P1)+SP:M(P2)=M(P2)-SP:PS(T4)=P2
545 PRINT"PLAYER #"P2"BOUGHT "PN$(T4)"{white}":PRINT"FOR $"SP
546 PRINT:GOSUB178:RETURN
547 PRINT"PROPERTY";TAB(30);"OWNER"
548 FORI=6TO36STEP10:N=N+1:PRINTN" "PN$(I)"{white}";TAB(35);PS(I):NEXT:N=0
549 PRINT" 5 "PN$(13)"{white}";TAB(35);PS(13):PRINT" 6 "PN$(29)"{white}";TAB(35);PS(29)
550 INPUT"WHICH #";NM:IFNM=0THENRETURN
551 IFNM<1ORNM>6THEN550
552 IFNM=5ANDPS(13)=P1THENSN=13:GOTO556
553 IFNM=6ANDPS(29)=P1THENSN=29:GOTO556
554 IFNM>0ANDNM<5THENSN=6+((NM-1)*10):IFPS(SN)=P1THENGOTO556
555 PRINT"YOU DON'T OWN IT.":GOTO547
556 INPUT"AGREED PRICE";SP
557 M(P1)=M(P1)+SP:M(P2)=M(P2)-SP:PS(SN)=P2
558 GOSUB178:RETURN
559 PRINT"{clear}{crsr down}":PRINT" OPTIONS{crsr down}":PRINT"0 RETURN TO MAIN MENU":PRINT"1 MORTAGE PROPERTY"
560 PRINT"2 MORTAGE RAILROAD":PRINT"3 MORTAGE UTILITY"
561 PRINT"4 LIFT MORTAGE(AT 10% INTEREST)":PRINT"5 SELL HOUSES":PRINT
562 INPUT"CHOICE";GG:IFGG<0ORGG>5THEN562
563 IFGG=0THENGOSUB178:RETURN
564 ONGGGOSUB566,589,598,606,669
565 GOTO559
566 PRINT:PRINT"ON WHICH GROUP IS THE PROPERTY TO BE":PRINT"MORTAGED LOCATED?":PRINTPG$
567 PRINT:INPUT"COLOR GROUP";C$
568 FORI6=1TO41:IFC$=LEFT$(C$(I6),LEN(C$))THENPL=I6:C$=C$(I6):GOTO571
569 NEXTI6
570 PRINT"ILLEGAL GROUP":GOTO567
571 CM=0:FORI=PLTOPL+3:IFC$=C$(I)THENCM=CM+H(I)
572 NEXT
573 IFCMTHENPRINT"CAN'T MORTAGE PROPERTIES WITH HOUSES STILL ON THAT GROUP.":GOTO588
574 PRINT"# PROPERTY";TAB(25);"OWNER"
575 CT=0:FORI=PLTOPL+4:IFC$<>C$(I)THEN578
576 CT=CT+1:PRINTCT" "PN$(I)"{white}";TAB(27)PS(I);:PP$="":IFMG(I)THENPP$="MORTAGED"
577 PRINTPP$
578 NEXT
579 PRINT:PRINT"WHAT NUMBER IS TO BE MORTAGED.";:INPUTTP
580 IFTP=0THENGOSUB178:RETURN
581 CT=0:FORI=PLTOPL+4:IFC$=C$(I)THENCT=CT+1:IFCT=TPTHENT4=I:FF=1
582 NEXT
583 IFFF=0THENPRINT"ILLEGAL NUMBER":GOTO579
584 IFPS(T4)<>PTTHENPRINT"YOU DON'T OWN IT.":GOSUB178:GOTO559
585 IFMG(T4)=1THENPRINT"ALREADY MORTAGED":GOTO579
586 PRINT:PRINT"OK":MG(T4)=1
587 PRINT"YOU GOT $"P(T4,8)"FOR YOUR MORTAGE.":M(PT)=M(PT)+P(T4,8)
588 GOSUB178:RETURN
589 RC=0:FORI=6TO36STEP10:IFPT$(I)="RR"THENRC=RC+1:PRINTRC" "PN$(I)"{white} PLR.#"PS(I)
590 NEXT
591 INPUT"WHICH #";RG
592 IFRG<1ORRG>4THEN591
593 RG=6+((RG-1)*10)
594 IFPS(RG)<>PTTHENPRINT"YOU DON'T OWN IT.":GOSUB178:GOTO559
595 IFMG(RG)=1THENPRINT"ALREADY MORTAGED.":GOSUB178:GOTO559
596 MG(RG)=1:PRINT"YOU GET $100 FOR MORTAGE.":M(PT)=M(PT)+100
597 GOSUB178:RETURN
598 U(1)=13:U(2)=29
599 FORI=1TO2:PRINTI" "PN$(U(I))"{white}":NEXT
600 INPUT"WHICH?";UM
601 IFUM<1ORUM>2THEN600
602 IFPS(U(UM))<>PTTHENPRINT"YOU DON'T OWN IT.":GOSUB178:GOTO559
603 IFMG(U(UM))=1THENPRINT"ALREADY MORTAGED.":GOSUB178:GOTO559
604 MG(U(UM))=1:PRINT"YOU GET $75 FOR MORTAGE.":M(PT)=M(PT)+75
605 GOSUB178:RETURN
606 PRINT:PRINT"THESE ARE THE PROPERTIES THAT ARE UNDER A MORTAGE."
607 ML=0:FORI=1TO41:IFPS(I)=(PT)ANDMG(I)=1THENML=ML+1:PRINTML" "PN$(I)"{white}"
608 NEXT
609 IFML=0THENPRINT"YOU HAVE NO MORTAGED PROPERTIES.":GOSUB178:RETURN
610 PRINT:INPUT"WHICH MORTAGE DO YOU WAN'T TO LIFT";LF
611 IFLF<1ORLF>MLTHENPRINT"ILLEGAL":GOTO610
612 ML=0:FORI=1TO41:IFPS(I)=(PT)ANDMG(I)=1THENML=ML+1:IFML=LFTHENFT=I
613 NEXT
614 PRINT"THE MORTAGE IS FOR $"P(FT,8)
615 PRINT"YOU MUST PAY $";:PY=P(FT,8)*1.10:PRINTPY
616 IFPY>M(PT)THENPRINT"YOU DON'T HAVE THE MONEY.":GOSUB178:RETURN
617 M(PT)=M(PT)-PY:MG(FT)=0
618 GOSUB178:RETURN
619 IFAFTHEN621
620 RETURN
621 PL=PL(PT):PRINTPN$(PL)"{white} WILL NOW BE AUCTIONED"
622 PRINT"TO THE HIGHEST BIDDER"
623 PO=3-PT:PRINT:HB=0:PA=PT:AC=0:PRINT:HB=0:PA=PT:AC=0
624 PA=3-PA
625 PRINT"PLAYER"PA"WHAT'S YOUR BID";:INPUTBD:BD=INT(BD):AC=AC+1
626 IFBD=0THENON(AC>1)+2GOTO629,624
627 IFBD<=HBTHENPRINT"YOU MUST BID HIGHER THAN"HB"OR BID '0'":GOTO625
628 HB=BD:HR=PA:GOTO624
629 IFHB=0THEN634
630 PRINTPN$(PL)"{white} GOES TO"
631 PRINT"PLAYER"HR" FOR $"HB
632 M(HR)=M(HR)-HB:PS(PL)=HR
633 RETURN
634 PRINT:PRINTPN$(PL)"{white} HAS NOT BEEN PURCHASED.":RETURN
635 PRINT"{clear}":PRINT"PLAYER #"PT"IS BROKE!!"
636 PRINT"{crsr down}IF YOU CAN'T RAISE $"ABS(M(PT))"THEN YOU ARE OUT OF THE GAME."
637 PRINT"DO NOT HIT 'Q' (RETURN TO GAME) UNTIL YOU FINISH TRYING TO";
638 PRINT" RAISE MONEY"
639 GOSUB178:GOSUB423
640 IFM(PT)>=0THENRETURN
641 IFM(PT)<0THENPRINT"YOU ARE BANKRUPT!!!":PT=3-PT
642 PRINT" --PLAYER #"PT"WINS!-- ":END
643 PRINT"GAME OVER"
644 PRINT"THE WINNER IS ";
645 IFM(1)>M(2)THENPRINT"PLAYER #1 WITH $"M(1)
646 IFM(2)>M(1)THENPRINT"PLAYER #2 WITH $"M(2)
647 IF M(2)=M(1)THENPRINT"NEITHER, IT'S A TIE!"
648 PRINT"PLAYER 1 = $";M(1)
649 PRINT"PLAYER 2 = $";M(2)
650 PRINT
651 POKE54296,0:FORI=1TO6:POKEG(I),0:END
652 FORJ=832TO939
653 READI:POKEJ,I:NEXT
654 DATA 160,0,185,0,4,153,0,192,185,0,5,153,0,193,185,0,6,153,0
655 DATA 194,185,0,7,153,0,195,185,0,216,153,0,196,185,0,217,153,0
656 DATA 197,185,0,218,153,0,198,185
657 DATA 0,219,153,0,199,200,208,205,96,160,0,185,0,192,153,0,4,185,0,193,153
658 DATA 0,5,185,0,194,153,0,6,185,0,195,153,0,7,185,0,196,153,0,216,185,0,197
659 DATA 153,0,217,185,0,198,153,0,218,185,0,199,153,0,219,200,208,205,96
660 RETURN
661 FORP4=1TO2
662 Y$="{rvs on}"+PN$(PL(P4))+LEFT$(" ",18-(LEN(PN$(PL(P4)))-2))+"{rvs off}"
663 MN$="{rvs on}$"+MID$(STR$(M(P4)),2)+" {rvs off}":X=13:Y=2*P4+3:Z$=Y$:GOSUB160
664 Y=Y+1:Z$=MN$:GOSUB160:NEXT:RETURN
665 PRINT"{crsr down}DISPLAY DEEDS FOR WHICH COLOR GROUP:{crsr down}":PRINTPG$:INPUTC$:PRINT
666 P3=PL:FORI=1TO41:IFC$=LEFT$(C$(I),LEN(C$))THENGF=1:PL=I:GOSUB195:GF=0
667 NEXT:PL=P3:RETURN
668 M(PT)=M(PT)+200:PRINT"{crsr down}COLLECTED $200{crsr down}":RETURN
669 PRINT"ON WHICH COLOR GROUP:":PRINTPG$:INPUTC$
670 PL=0:FORI=41TO1STEP-1:IFC$=LEFT$(C$(I),LEN(C$))THENPL=I:C$=C$(I)
671 NEXTI:IFPLTHEN673
672 PRINT"ILLEGAL GROUP":GOTO669
673 DO=0:HN=0:FORI=PLTOPL+3:IFPS(I)<>(PT)ANDC$=C$(I)THENDO=1
674 IFC$=C$(I)THENHN=HN+H(I)
675 NEXT
676 IFDO=1ORHN=0THENPRINT"YOU DON'T OWN HOUSES ON THESE PROPERTIES":GOSUB178:RETURN
677 PRINT"# PROPERTY";TAB(25);"HOUSES(5=HOTEL)"
678 CT=0:FORI=PLTOPL+3:IFC$=C$(I)THENCT=CT+1:PRINTCT" "PN$(I)"{white}";TAB(27)H(I)
679 NEXT
680 INPUT"WANT TO REMOVE ALL THESE HOUSES";A$:IFLEFT$(A$,1)="Y"THEN694
681 PRINT:INPUT"WHAT # TO REMOVE A HOUSE FROM.";TP
682 IFTP=0THEN RETURN
683 CT=0:FORI=PLTOPL+3:IFC$=C$(I)THENCT=CT+1:IFCT=TPTHENT4=I:FF=1
684 NEXT
685 IFFF=0THENPRINT"ILLEGAL NUMBER":GOTO681
686 IFH(T4)=0THENPRINT"NO HOUSES THERE.":GOTO681
687 NN=0:NH=H(T4):FORI=PLTOPL+3:IFH(I)>NHTHENNN=1
688 NEXT
689 IFNNTHENPRINT"YOU CAN'T REMOVE THAT HOUSE.":GOTO681
690 PRINT:PRINT"OK.":H(T4)=H(T4)-1
691 HM=P(PL,9)/2
692 PRINT"YOU GOT $"HM"FOR YOUR HOUSE":M(PT)=M(PT)+HM
693 GOSUB178:GOTO559
694 HM=0:FORI=PLTOPL+3:IFC$=C$(I)THENHM=HM+(P(PL,9)/2)*H(I):H(I)=0
695 NEXT:PRINT"YOU GOT $"HM"FOR YOUR HOUSES":M(PT)=M(PT)+HM:GOTO693
697 ORIGNAL PROGRAM BY JOHN O'HARE:PRINT"{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{crsr down}{del}
700 PRINT"{clear}{crsr down}{crsr down}THIS PROGRAM, IN B&W, WAS ORIGANALY":GOSUB999
701 PRINT"{crsr down}WRITTEN BY JOHN O'HARE IN 1978 FOR THE":GOSUB999
702 PRINT"{crsr down}2001 SERIES PET COMPUTER. THE COMMODORE":GOSUB999
703 PRINT"{crsr down}64 VERSION WITH COLOR AND SOUND CHANGES":GOSUB999
704 PRINT"{crsr down}BY TIM BORION & SAL OEPER IN LATE 1981.":GOSUB999
705 PRINT"{crsr down}THE PROGRAM LISTINGS ARE IDENTICAL. ONLY":GOSUB999
706 PRINT"COLOR & SOUND WERE ADDED. JOHN'S PROGRAM":GOSUB999
707 PRINT"IS KNOWN BY THOUSANDS OF PET USERS AND":GOSUB999
708 PRINT"{crsr down}GROUPS. THE PROGRAM IS NOT TO BE SOLD":GOSUB999
709 PRINT"{crsr down}AND REMAINS THE PROPERTY OF JOHN O'HARE.":GOSUB999
710 PRINT"{crsr down} {rvs on}PRESS SHIFT TO START PROGRAM."
711 A=PEEK(653):IFATHENPRINT"{clear}":RETURN
712 GOTO711
999 A=PEEK(653):IFNOTATHENRETURN