home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Avalon 6
/
Avalon_06_1995_Avalon_Side_A.d64
/
monopoly
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
25KB
|
712 lines
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"[147]":poke53280,0:poke53281,0:gosub700:gosub162:tn=832:tt=886:print"
5 pg$[178]" purple, lt. blue, maroon, orange, red, yellow, green, dk. blue"
6 [134]pn$(42),d(42,1),ch$(16),cc$(16),p(42,9),pt$(42),c$(42),ps(42),h(42),mg(42)
7 [134] p$(2),pl(2),o(2),jt(2),m(2),cj(2)
8 [141]23:[133]"do you want auction rule (y or n)";q$:[139][200](q$,1)[178]"y"[167]af[178]1
9 [133]"want free parking jackpot option ";q$:[139][200](q$,1)[178]"y"[167]pf[178]1:fp[178]500
10 m(1)[178]1500:m(2)[178]1500:pl(1)[178]1:pl(2)[178]1:dv[178]2
11 cd$[178]"":cr$[178]""
12 zq[178][187]([171]ti):x1[178]8:y1[178]10:x2[178]23:y2[178]10:rx[178]6:ry[178]18
13 e$[178]" wait":rm$[178]"hit 'r' or 't'wait"
14 [153]"loadopen please wait while i set up."
15 [129]i[178]1[164]4:p(6[170]((i[171]1)[172]10),8)[178]100:[130]:p(13,8)[178]75:p(29,8)[178]75
16 ch[178][181]([187](1)[172]16)[170]1:cc[178][181]([187](1)[172]16)[170]1
17 [129]i[178]1[164]41:[129]j[178]0[164]1:[135]d(i,j):[130]:[130]
18 p$(1)[178]" player 1wait":p$(2)[178]" player 2wait"
19 [129]i[178]1[164]41:[135]pn$(i):[130]:[129]i[178]1[164]41:[135]pt$(i):[139]pt$(i)[179][177]"p"[167]21
20 [135]c$(i):[129]j[178]1[164]9:[135]p(i,j):[130]j
21 [130]i
22 [129]i[178]1[164]16:[135]ch$(i):[130]:[129]i[178]1[164]16:[135]cc$(i):[130]:[137]32
23 [153]"cont +sin sinwaitsgn+usrusrusrsgn+sin sgn+usrusrusrsgn+usrusr(NULL)+usrusrusrsgn+ (NULL)usr"
24 [153]" + sinsinwait sgn+ sgn+ sin sgn+ sgn+andandsqr+ sgn+ (NULL)"
25 [153]" + sgn+ sgn+ sin sgn+ sgn+ + sgn+ (NULL)"
26 [153]" + sgn+andandandsgn+ sinsgn+andandandsgn+ +andandandsgn+andandand (NULL)and"
27 [153][163]19);"by"
28 [153]" john o'hare"
29 [153]"hit 'r' to roll dice and 't' for transaction menu."
30 [153]" '0' can be used to return from most subroutines"
31 [153]:[153]"developed properties may not be traded.":[153]:[142]
32 [151]54277,79:[151]54284,79:[151]54291,79
33 [151]54278,248:[151]54286,248:[151]54292,248
34 [151]54276,33:[151]54288,33:[151]54290,33
35 g(1)[178]54272:g(2)[178]54273:g(3)[178]54279:g(4)[178]54280:g(5)[178]54286:g(6)[178]54287
36 [129]i[178]1[164]6:[151]g(i),0:[130]
37 [151]54296,15:[139][194](832)[179][177]160[167][141]652
38 [141]135:[129]pk[178]1[164]2:[151]d(1,pk[171]1),48[170]pk:o(pk)[178]d(1,pk[171]1):pt[178]pk:[130]:[141]661
39 [141]165:[139]r1[178]r2[167]39
40 pt[178](r1[177]r2)[170]2
41 [151]d(pl(1),0),49:[151]d(pl(2),1),50
42 pt$[178][196](pt)
43 ms$[178]"player"[170]pt$[170]" startswait"
44 x[178]rx:y[178]ry:z$[178]ms$:[141]160:[129]de[178]1[164]1500:[130]:z$[178]e$:[141]160:[137]65
45 dv[178]2:mf[178]0:jb[178]0
46 [139]pl(pt)[178]41[167]56
47 jt(pt)[178]0
48 [141]165:df[178]1
49 [139]db[178]3[167][158]tn:[141]325:[158]tt:[141]661:[137]59
50 [129]m[178]1[164]dr:pl(pt)[178]pl(pt)[170]1
51 [151]o(pt),160:[139]pl(pt)[177]40[167]pl(pt)[178]pl(pt)[171]40:[158]tn:[141]175:[158]tt
52 [151]d(pl(pt),pt[171]1),48[170]pt
53 o(pt)[178]d(pl(pt),pt[171]1)
54 [129]t[178]1[164]50[169]6[170]pt:[129]i[178]1[164]6:[151]g(i),t:[130]:[130]
55 [129]i[178]1[164]6:[151]g(i),0:[130]:[130]m
56 [151]d(pl(pt),pt[171]1),48[170]pt:[141]661
57 [158]tn:[141]182:[158]tt:[141]661:[139]m(pt)[179]0[167][141]635:[158]tt
58 [139]pl(pt)[178]11[167][151]d(41,pt[171]1),160:[151]d(11,pt[171]1),48[170]pt
59 [139]jb[167]jb[178]0:[151]o(pt),160:o(pt)[178]d(pl(pt),pt[171]1):[137]50
60 [139]mf[167]mf[178]0:[151]o(pt),160:o(pt)[178]d(pl(pt),pt[171]1):[137]56
61 [139]je[167]je[178]0:[151]o(pt),160:o(pt)[178]d(pl(pt),pt[171]1):[137]65
62 [139]jf[167]jf[178]0:[151]d(pl(pt),pt[171]1),48[170]pt:[151]o(pt),160:o(pt)[178]d(pl(pt),pt[171]1)
63 [139]db[167]65
64 pt[178]3[171]pt
65 z$[178]p$(pt):x[178]rx:y[178]ry[171]1:[141]160
66 z$[178]rm$:x[178]rx:y[178]ry:[141]160
67 [161]bc$:[139]bc$[179][177]""[167]67
68 [161]a$:[139]a$[178]""[167]68
69 [139]a$[178]"t"[167][158]tn:[141]423:[158]tt:[141]661:[137]65
70 z$[178]e$:x[178]rx:y[178]ry:[141]160
71 [137]45
72 [131]1978,1938,1974,1973,1931,1930,1968,1967,1925,1924,1922,1921
73 [131]1959,1958,1956,1955,1953,1952,1950,1949,1944,1904
74 [131]1824,1825,1744,1745,1664,1665,1584,1585,1505,1506,1424,1425
75 [131]1346,1347,1264,1265,1184,1185,1104,1105
76 [131]1029,1030,1032,1033,1035,1036,1038,1039,1081,1082,1044,1045
77 [131]1047,1048,1130,1131,1053,1054,1096,1097
78 [131]1217,1218,1297,1298,1377,1378,1457,1458,1536,1537,1617,1618
79 [131]1697,1698,1777,1778,1857,1858,1906,1907
80 [131]">go<list","listmediterranean ave.list","syscommunity chestlist","listbaltic ave.list"
81 [131]"contincome taxlist"
82 [131]"print#reading r.r.list","openoriental ave.list","defchancelist","openvermont ave.list"
83 [131]"openconnecticut ave.list"
84 [131]"defjust visitinglist","clrst.charles placelist","printelectric companylist","clrstates ave.list"
85 [131]"clrvirginia ave.list","print#pennsylvania r.r.list","forst. james placelist"
86 [131]"syscommunity chestlist"
87 [131]"fortennessee ave.list","fornew york ave.list","verifyfree parkinglist","kentucky ave.list"
88 [131]"defchancelist","indiana ave.list","illinois ave.list","print#b & o r.r.list"
89 [131]"sysatlantic ave.list"
90 [131]"sysventnor ave.list","printwater workslist","sysmarvin gardenslist","defgolist conttolist jaillist"
91 [131]"pacific ave.list"
92 [131]"n. carolina ave.list","syscommunity chestlist","pennsylvania ave.list"
93 [131]"print#short linelist"
94 [131]"defchancelist","park placelist","contluxury taxlist","boardwalklist","defin jaillist"
95 [131]go,p,purple,60,2,10,30,90,160,250,30,50,cc,p,purple,60,4,20,60,180,320
96 [131]450,30,50,it,rr,p,lt. blue,100,6,30,90,270,400,550,50,50,ch,p,lt. blue
97 [131] 100,6,30,90,270,400,550,50,50,p,lt. blue,120,8,40,100,300,450,600,60,50
98 [131]jv,p,maroon,140,10,50,150,450,625,750,70,100,u,p,maroon,140,10,50,150,450
99 [131]625,750,70,100,p,maroon,160,12,60,180,500,700,900,80,100,rr
100 [131]p,orange,180,14,70,200,550,750,950,90,100,cc,p,orange
101 [131] 180,14,70,200,550,750,950,90,100
102 [131]p,orange,200,16,80,220,600,800,1000,100,100,fp,p,red
103 [131] 220,18,90,250,700,875
104 [131]1050,110,150,ch,p,red,220,18,90,250,700,875,1050,110,150,p,red,240
105 [131] 20,100,300
106 [131]750,925,1100,120,150,rr,p,yellow,260,22,110,330,800,975,1150,130,150
107 [131] p,yellow,260
108 [131]22,110,330,800,975,1150,130,150,u,p,yellow,280,24,120,360,850,1025,1200
109 [131] 140
110 [131]150,gtj,p,green,300,26,130,390,900,1100,1275,150,200,p,green
111 [131] 300,26,130,390,900
112 [131]1100,1275,150,200,cc,p,green,320,28,150,450,1000,1200,1400
113 [131] 160,200,rr,ch
114 [131]p,dk. blue,350,35,175,500,1100,1300,1500,175,200,lt,p,dk. blue
115 [131] 400,50,200,600,1400
116 [131]1700,2000,200,200,ij
117 [131] pay poor tax $15,go directly to jail,advance to go(collect $200)
118 [131] your building and loan matures collect $150
119 [131] advance token to nearest r.r. $ pay owner twice rent
120 [131]advance to illinois ave.,bank pays you dividend of $50
121 [131]get out of jail free,pay each player $50,advance to st. charles place
122 [131]take a ride on the reading,go back three spaces,advance to boardwalk
123 [131]make general repairs $25 for each house$100 for each hotel
124 [131] advance token to nearest r.r. $ pay owner twice rent
125 [131] advance token to nearest utility roll dice & pay 10*# shown
126 [131] get out of jail free,go to jail,advance to go(collect $200)
127 [131] from sale of stock you get $45,collect $50 from every player
128 [131] receive for services $25,pay school tax of $150,tax refund collect $20
129 [131] assessed for repairs $40 per house $115 per hotel
130 [131] you have won second prize in a beauty contest collect $10
131 [131] you inherit $100,xmas fund matures collect $100,pay hospital $100
132 [131] bank error in your favor collect $200,doctors fee pay $50
133 [131] life insurance matures collect $100
134 [137]651
135 [153]"loadverify closelistfncloseclosefncloseclosefncloseclosefnclosecloseprint#sinsinsinlistfncloseclosefn fnprintwwlistfncloseclosedeffngtjwait"
136 [153]"verifyclosefpcloselistfncloseclosefndef?listclosefncloseclosefnclosecloseprint#fnclosecloselistfncloseclosefnclose fnprintor>listfncloseclosecontfn wait"
137 [153]"verify close listfncloseclose closeclosefn print#b&osysfn fnclosecloselistfncloseclosesys closeclosefnval(NULL) listwait"
138 [153]"tab(tab(tab(for list(NULL)tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab( listtab(tab(tab(wait"
139 [153]" for listfn (NULL)(NULL) listclose wait"
140 [153]"tab(tab(tab(fortab(listfn sys(NULL) list(NULL) 1- tab(listtab(tab(tab(wait"
141 [153]" for listfn(NULL)sysc clist(NULL) list wait"
142 [153]"tab(tab(tab(tab(fn(NULL)sys (NULL)list 2- (NULL)tab(tab(tab(wait"
143 [153]"syscclist fn (NULL)(NULL) syscclist wait"
144 [153]"tab(tab(tab(for listfn tototo tototo listtab(tab(tab(wait"
145 [153]" for listfn then listfn then listfn list wait"
146 [153]"print#sinprsinlistfn then listfn monopolelist then listfn thenprint#sinslsinwait"
147 [153]"sin sinlistfn then listfn cbm-64list then listfn thenprint#sin sinlistwait"
148 [153]"tab(tab(tab(clr listfn tab(tab(tab( tab(tab(tab( (NULL)tab(tab(tab(wait"
149 [153]" clr listfn fndef?list wait"
150 [153]"tab(tab(tab(clrtab(listfn (NULL)(NULL) listtab(tab(tab(wait"
151 [153]" clr listfn def(NULL) list(NULL) list wait"
152 [153]"tab(printeclisttab(fn (NULL)def???list(NULL) conttaxlisttab(wait"
153 [153]" fn (NULL)def (NULL)list fn wait"
154 [153]"tab(tab(tab(clr listfn (NULL)(NULL) listtab(tab(tab(wait"
155 [153]" clr listfn list wait"
156 [153]"deftab(list(NULL)tab(tab(open fn list(NULL)tab(tab(open print#(NULL)rrlist(NULL)tab(tab(wait (NULL)tab(tab(wait (NULL)tab(tab(tab(wait"
157 [153]"def listfn fn fn fndef?listclosefnclosecloseprint#fnclosecloselistfncloseclosefncloseclosefn fn fngo wait"
158 [153]"def tab(tab(tab(listfn fn fn fn print#sinsinsinconttaxlistfn fnsyscclistfn fn_tan wait"
159 [142]
160 [153]"list";[200](cr$,x);[200](cd$,y);z$;""
161 [142]
162 dc$(1)[178]" cmdcmdcmd (NULL) cmdcmdcmd wait":dc$(2)[178]" (NULL)cmdcmdcmd cmdcmdcmd(NULL) wait"
163 dc$(3)[178]"(NULL) cmdcmdcmd (NULL) cmdcmdcmd (NULL)wait":dc$(4)[178]"(NULL) (NULL)cmdcmdcmd cmdcmdcmd(NULL) (NULL)wait"
164 dc$(5)[178]"(NULL) (NULL)cmdcmdcmd (NULL) cmdcmdcmd(NULL) (NULL)wait":dc$(6)[178]"(NULL) (NULL)cmdcmdcmd(NULL) (NULL)cmdcmdcmd(NULL) (NULL)wait":[142]
165 ct[178]0
166 r1[178][181]([187](1)[172]6)[170]1:r2[178][181]([187](1)[172]6)[170]1:dr[178]r1[170]r2
167 [129]i[178]1[164]6:[151]g(i),dr[172]10:[130]
168 [153]"";[200](cr$,x1);[200](cd$,y1);dc$(r1)
169 [153]"";[200](cr$,x2);[200](cd$,y2);dc$(r2)
170 [129]i[178]1[164]6:[151]g(i),0:[130]
171 ct[178]ct[170]1:[139]ct[179]7[167][129]delay[178]1[164]75:[130]:[137]166
172 [139]r1[178]r2[167]db[178]db[170]1:[137]174
173 db[178]0
174 [142]
175 [153]"load":[153]
176 [153]" collect $200 as you pass *new*rndcmdcmdcmdcmdcmdlogcoslogcoswait"
177 m(pt)[178]m(pt)[170]200:[153]:[153]:[153]
178 [153]"hit any key to continuewait"
179 [161]w$:[139]w$[179][177]""[167]179
180 [161]k$:[139]k$[178]""[167]180
181 [142]
182 [151]198,0:pt$[178]pt$(pl(pt))
183 [139]pt$[178]"p"[167]195
184 [139]pt$[178]"rr"[167]244
185 [139]pt$[178]"go"[167][142]
186 [139]pt$[178]"u"[167]280
187 [139]pt$[178]"fp"[167]311
188 [139]pt$[178]"jv"[167][142]
189 [139]pt$[178]"gtj"[167]325
190 [139]pt$[178]"it"[167]336
191 [139]pt$[178]"lt"[167]334
192 [139]pt$[178]"cc"[167]338
193 [139]pt$[178]"ch"[167]362
194 [139]pt$[178]"ij"[167]403
195 [153]"load";[163]15);"title deed"
196 [139]gf[167]200
197 [153]" player"pt
198 po[178]3[171]pt
199 pl[178]pl(pt):p7[178]pt
200 [153][163]20[171]([195](pn$(pl))[171]1)[173]2)"";pn$(pl)"wait"
201 [153][200](pn$(pl),1):qr[178][194](646):[151]53280,qr:[153]"onon"
202 [153]
203 [153]" rent $";p(pl,2)
204 [153]" with 1 house $";p(pl,3)
205 [153]" with 2 houses ";p(pl,4)
206 [153]" with 3 houses ";p(pl,5)
207 [153]" with 4 houses ";p(pl,6)
208 [153]" with hotel $";p(pl,7)
209 [153]
210 [153]" mortage value $";p(pl,8)
211 [153]" houses cost $";p(pl,9);"each"
212 [153]" hotels, $";p(pl,9);". plus 4 houses"
213 [139]gf[167][153]:[153]:[141]178:[151]53280,0:[142]
214 [153]:[129]i[178]1[164]41:[139]c$(pl)[178]c$(i)[175]i[179][177]pl[167][141]216
215 [130]:[137]218
216 [139]ps(i)[167][153]" "pn$(i)" owned by player #"ps(i):[142]
217 [153]" "pn$(i)" still for sale.":[142]
218 [153]
219 [139]mg(pl)[178]1[167][153]" mortaged for $"p(pl,8)
220 [153]" cost $";p(pl,1)
221 [139]ps(pl)[178]0[167]226
222 [153]" ownedwait by player"ps(pl):[139]h(pl)[167][153]"with";
223 [139]h(pl)[179]5[167][153]h(pl)"houses."
224 [139]h(pl)[178]5[167][153]" a hotel"
225 [137]231
226 [153]" you have $";m(p7)
227 [153]" do you wish to buy this property";:[133]" sincmdcmdcmd";a$:a$[178][200](a$,1)
228 [139]a$[178]"n"[167]237
229 [139]a$[179][177]"y"[167][153]"onon":[137]227
230 [153]" ok you bought ";pn$(pl)"":m(p7)[178]m(p7)[171]p(pl,1):ps(pl)[178]pt:[137]236
231 ow[178]p(pl,h(pl)[170]2):[139]ps(pl)[178]pt[167]236
232 [139]mg(pl)[167]236
233 p5[178]po:p6[178]ps(pl):[141]238:[139]oa[167][139]h(pl)[178]0[167]ow[178]ow[172]2
234 m(pt)[178]m(pt)[171]ow:m(ps(pl))[178]m(ps(pl))[170]ow:[153]" you owe $";ow
235 m(ps(pl))[178]m(ps(pl))[170]ow
236 [141]178:[151]53280,0:[142]
237 [141]619:[137]236
238 mg[178]0:oa[178]0:pc[178]0:[129]i[178]1[164]41:[139]c$(pl)[178]c$(i)[175]ps(i)[178]p5[167]pc[178]pc[170]1:[139]mg(i)[167]mg[178]mg
239 [130]
240 [139]pc[178]2[175]c$(pl)[178]"purple"[167]oa[178]1:[142]
241 [139]pc[178]2[175]c$(pl)[178]"dk. blue"[167]oa[178]1:[142]
242 [139]pc[178]3[167]oa[178]1:[142]
243 [142]
244 [153]"load":pl[178]pl(pt)
245 [153]"player"pt
246 [153]" def(NULL)print# *wait"
247 [153]" wait"
248 [153]" (NULL)verify(NULL) (NULL)"
249 [153]
250 [153][163]20[171][195](pn$(pl))[173]2)"";pn$(pl)"wait"
251 [151]54276,129:[151]54288,17:[151]54290,17
252 ko[178]129:[129]t[178]1[164]2:[129]i[178]1[164]6:[151]g(i),ko:[130]:[129]dl[178]1[164]400:[130]
253 [129]i[178]1[164]6:[151]g(i),0:[130]:[129]dl[178]1[164]60:[130]:[130]
254 [151]54276,33:[151]54288,33:[151]54290,33
255 [153]:[153]"rent $25"
256 [153]"if 2 r.r.'s are owned 50"
257 [153]"if 3 r.r.'s are owned 100"
258 [153]"if 4 r.r.'s are owned 200"
259 [153]
260 [153]"mortage value $100"
261 [153]:[139]mg(pl)[178]1[167][153]"mortaged for $100":[137]279
262 [153]"cost $200"
263 [153]:[129]i[178]1[164]41:[139]pt$(i)[178]"rr"[167][141]265
264 [130]:[137]267
265 [139]ps(i)[167][153]pn$(i)" owned by player #";ps(i):[142]
266 [153]pn$(i)" still for sale.":[142]
267 [139]ps(pl)[167][153]"ownedwait by player#";ps(pl):[137]275
268 [153]"you have $"m(pt)
269 [153]"do you wish to buy it";:[133]" sincmdcmdcmd";b$:b$[178][200](b$,1)
270 [139]b$[178]"n"[167][141]619:[137]279
271 [139]b$[179][177]"y"[167][153]"onon":[137]269
272 m(pt)[178]m(pt)[171]200:ps(pl)[178]pt
273 [153]"ok you bought it"
274 [137]279
275 ow[178]0:o7[178]0
276 [139]ps(pl)[178]pt[167]279
277 ow[178]25:[129]i[178]6[164]36[169]10:[139]pt$(i)[178]"rr"[175]ps(i)[178]ps(pl)[167]ow[178]ow[172]2
278 [130]:ow[178]ow[173]dv:[153]"you owe $";ow:m(pt)[178]m(pt)[171]ow:m(ps(pl))[178]m(ps(pl))[170]ow
279 [141]178:[142]
280 [153]"load"
281 [153]"player"pt
282 [153]" sys(NULL)tab((NULL) print#(NULL)(NULL)(NULL) "
283 [153]" sys(NULL)def^sys(NULL) print#-tan>tantantanright$ "
284 [153]" sysfnfn print#-tantantantanright$left$ "
285 [153]" spc( /exp ":[153]
286 pl[178]pl(pt)
287 [153][163]20[171][195](pn$(pl))[173]2)"";pn$(pl)"wait"
288 [153]:[153]"if one 'utility is owned pay 4 times theamount shown on dice"
289 [153]
290 [153]"if both owned pay 10 (NULL) amount on dice"
291 d1[178][181]([187](1)[172]6)[170]1:d2[178][181]([187](1)[172]6)[170]1
292 [139]df[167]d1[178]r1:d2[178]r2
293 [153]:[153]"mortage value $75":[153]
294 [139]mg(pl)[178]1[167][153]"mortaged for $75":[137]310
295 [139]ps(42[171]pl)[167][153]pn$(42[171]pl)" owned by player"ps(42[171]pl):[137]297
296 [153]pn$(42[171]pl)" still for sale."
297 [153]:[139]ps(pl)[167][153]"ownedwait by player#";ps(pl):[137]305
298 [153]"you have $"m(pt)
299 [133]"do you wish to buy it sincmdcmdcmd";b$:b$[178][200](b$,1)
300 [139]b$[178]"n"[167][141]619:[137]310
301 [139]b$[179][177]"y"[167][153]"onon":[137]299
302 [153]"ok you bought ";pn$(pl)""
303 m(pt)[178]m(pt)[171]150
304 ps(pl)[178]pt:[137]310
305 [139]ps(pl)[178]pt[167]310
306 [153]"dice show"d1"and"d2"."
307 mt[178]4:[139]ps(13)[178]ps(pl)[175]ps(29)[178]ps(pl)[167]mt[178]10
308 [139]df[178]0[167]mt[178]10
309 ow[178]mt[172](d1[170]d2):[153]"you owe $";ow:m(pt)[178]m(pt)[171]ow:m(ps(pl))[178]m(ps(pl))[170]ow
310 mt[178]0:[141]178:[142]
311 [153]"load"
312 [153]" forfree
313 print" [213][195][195][195][195][195][201]"
314 print" [194] [159][176][192][174] [200]
315 [153]" (NULL) open/tanexp (NULL)
316 print" [200] [149][213][195][201] [194]
317 [153]" (NULL)tanexp verifypeekprint#(NULL)verifyleft$ /tanright$
318 print" [221] [149][202][198][203] [221]
319 [153]" /tanprint#nottantantantantanprint#nottanexp
320 print" [152][166] [166]
321 [153]:[153]" forparking":[153]
322 [139]pf[178]0[167][141]178:[142]
323 [153]:[153]" you get the free parking"
324 [153]" jackpot of $"fp"!":m(pt)[178]m(pt)[170]fp:fp[178]0:[153]:[141]178:[142]
325 [153]"load";[163]15);"go to jail"
326 [139]db[178]3[167][153]:[153]" for rolling doubles 3 times in a row!":[153]
327 [153][163]16);"pokeor======^":[129]i[178]1[164]5:[153][163]16);"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)":[130]
328 [153][163]16);"/>>>>>>exp":[153]:pl(pt)[178]41:jf[178]1:db[178]0
329 [129]ko[178]1[164]3:[129]t[178]60[164]110[169]1.7:[129]i[178]1[164]6:[151]g(i),t:[130]:[130]
330 [129]dl[178]1[164]10:[130]
331 [129]t[178]110[164]60[169][171]1.7:[129]i[178]1[164]6:[151]g(i),t:[130]:[130]:[130]
332 [129]i[178]1[164]6:[151]g(i),0:[130]
333 [153]"";:[141]178:[142]
334 [153]"load";[163]15);"luxury tax":[153]:[153][163]16);"pay $75"
335 [153]:[153]:[153]:m(pt)[178]m(pt)[171]75:fp[178]fp[170]75:[141]178:[142]
336 [153]"load";[163]15);"income tax":[153]:[153][163]16);"pay $200"
337 [153]:[153]:[153]:m(pt)[178]m(pt)[171]200:fp[178]fp[170]200:[141]178:[142]
338 cc[178]cc[170]1:[139]cc[177]16[167]cc[178]cc[171]16
339 po[178]3[171]pt:cc$[178]cc$(cc):[139]cc[178]1[175]cj(1)[167]cc[178]cc[170]1:cc$[178]cc$(cc)
340 [153]"load syscommunity chest":[153]cc$""
341 [139]cc[178]1[167]cj(1)[178]pt
342 [139]cc[178]2[167][141]178:[137]325
343 [139]cc[178]3[167]pl(pt)[178]1:mf[178]1:[141]178:[141]175:[142]
344 [139]cc[178]4[167]m(pt)[178]m(pt)[170]45
345 [139]cc[178]5[167]m(pt)[178]m(pt)[170]50:m(po)[178]m(po)[171]50
346 [139]cc[178]6[167]m(pt)[178]m(pt)[170]25
347 [139]cc[178]7[167]m(pt)[178]m(pt)[171]150:fp[178]fp[170]150
348 [139]cc[178]8[167]m(pt)[178]m(pt)[170]20
349 [139]cc[178]9[167][141]358
350 [139]cc[178]10[167]m(pt)[178]m(pt)[170]10
351 [139]cc[178]11[167]m(pt)[178]m(pt)[170]100
352 [139]cc[178]12[167]m(pt)[178]m(pt)[170]100
353 [139]cc[178]13[167]m(pt)[178]m(pt)[171]100
354 [139]cc[178]14[167]m(pt)[178]m(pt)[170]200
355 [139]cc[178]15[167]m(pt)[178]m(pt)[171]50
356 [139]cc[178]16[167]m(pt)[178]m(pt)[170]100
357 [141]178:[142]
358 yp[178]0:[129]i[178]1[164]40
359 [139]ps(i)[178](pt)[175]h(i)[179]5[167]yp[178]yp[170](40[172]h(i))
360 [139]ps(i)[178](pt)[175]h(i)[178]5[167]yp[178]yp[170]115
361 [130]:[153]"you pay $"yp:m(pt)[178]m(pt)[171]yp:fp[178]fp[170]yp:[142]
362 ch[178]ch[170]1:[139]ch[177]16[167]ch[178]ch[171]16
363 po[178]3[171]pt:ch$[178]ch$(ch):[139]ch[178]8[175]cj(2)[167]ch[178]ch[170]1:ch$[178]ch$(ch)
364 [153]"load def? ? chance ? ?":[153]ch$""
365 [139]ch[178]1[167]m(pt)[178]m(pt)[171]15:fp[178]fp[170]15
366 [139]ch[178]2[167][141]178:[137]325
367 [139]ch[178]3[167]pl(pt)[178]1:mf[178]1:[141]178:[141]175:[142]
368 [139]ch[178]4[167]m(pt)[178]m(pt)[170]150
369 [139]ch[178]5[167][141]382:mf[178]1
370 [139]ch[178]6[167][141]386:mf[178]1
371 [139]ch[178]7[167]m(pt)[178]m(pt)[170]50
372 [139]ch[178]8[167]cj(2)[178]pt
373 [139]ch[178]9[167]m(pt)[178]m(pt)[171]50:m(po)[178]m(po)[170]50
374 [139]ch[178]10[167][141]388:mf[178]1
375 [139]ch[178]11[167][141]390:mf[178]1
376 [139]ch[178]12[167]pl(pt)[178]pl(pt)[171]3:mf[178]1
377 [139]ch[178]13[167][141]392:mf[178]1
378 [139]ch[178]14[167][141]394
379 [139]ch[178]15[167][141]382:mf[178]1
380 [139]ch[178]16[167][141]398:mf[178]1
381 [141]178:[142]
382 pl(pt)[178]pl(pt)[170]1:[139]pl(pt)[177]40[167][141]668:pl(pt)[178]pl(pt)[171]40
383 [139]pt$(pl(pt))[178]"rr"[167]385
384 [137]382
385 dv[178]1:[142]
386 [139]pl(pt)[177]25[167][141]668
387 pl(pt)[178]25:[142]
388 [139]pl(pt)[177]12[167][141]668
389 pl(pt)[178]12:[142]
390 [139]pl(pt)[177]6[167][141]668
391 pl(pt)[178]6:[142]
392 pl(pt)[178]40:[142]
393 [142]
394 df[178]0:yp[178]0:[129]i[178]1[164]40
395 [139]ps(i)[178](pt)[175]h(i)[179]5[167]yp[178]yp[170](25[172]h(i))
396 [139]ps(i)[178](pt)[175]h(i)[178]5[167]yp[178]yp[170]100
397 [130]:[153]"you pay $"yp:m(pt)[178]m(pt)[171]yp:fp[178]fp[178]yp:[142]
398 pl(pt)[178]pl(pt)[170]1
399 [139]pl(pt)[177]40[167][141]668:pl(pt)[178]pl(pt)[171]40
400 [139]pt$(pl(pt))[178]"u"[167]402
401 [137]398
402 mf[178]1:[142]
403 [153]"load"
404 jt(pt)[178]jt(pt)[170]1
405 [153]"player #"pt"is in jail"
406 [153]:[153]"you have been in"jt(pt)"turns"
407 [153]"you may: 1. pay $50"
408 [153]" 2. use a 'get out of jail free card."
409 [153]" 3. try to roll doubles."
410 [153]:[133]"choice";i:[139]i[179]1[176]i[177]3[167]410
411 [139]i[178]1[167]m(pt)[178]m(pt)[171]50:fp[178]fp[170]50:pl(pt)[178]11:[141]178:je[178]1:[142]
412 [139]i[178]2[175]cj(1)[178]pt[167]cj(1)[178]0:pl(pt)[178]11:[141]178:je[178]1:[142]
413 [139]i[178]2[175]cj(2)[178]pt[167]cj(2)[178]0:pl(pt)[178]11:[141]178:je[178]1:[142]
414 [139]i[178]2[167][153]"you don't have a card":[137]410
415 [139]i[178]3[167][141]165:[139]db[167]421
416 [153]"you didn't roll doubles."
417 [139]jt(pt)[177]2[167][153]"you must pay the $50":m(pt)[178]m(pt)[171]50:pl(pt)[178]11:jb[178]1
418 [139]jt(pt)[177]2[167][141]178:fp[178]fp[170]50:[142]
419 [141]178:[142]
420 [139]pl(pt)[178]11[167][141]178:je[178]1:[142]
421 [153]"you made it out!!!":pl(pt)[178]11:[141]178:jb[178]1:db[178]0:[142]
422 [137]635
423 [153]"load":[139]pf[167][153]"money in free parking jackpot $";fp
424 [153]"player 1 has $";m(1):[153]"player 2 has $";m(2)
425 [153]:[153]"player";pt"up."
426 [153]:[153]:[153][163]15);"options"
427 [153]
428 [153]" r=review properties"
429 [153]" l=list all properties"
430 [153]" b=build houses/hotels"
431 [153]" s=sell properties to other player"
432 [153]" m=mortage properties(sell houses)"
433 [153]" d=display title deeds"
434 [153]" q=return to game"
435 [153]" xx=end game":[153]
436 [133]"choice sincmdcmdcmd";c$
437 [139]c$[178]"sin"[167]436
438 [139]c$[178]"r"[167][141]447
439 [139]c$[178]"l"[167][141]464
440 [139]c$[178]"b"[167][141]479
441 [139]c$[178]"s"[167][141]523
442 [139]c$[178]"m"[167][141]559
443 [139]c$[178]"d"[167][141]665
444 [139]c$[178]"q"[167][142]
445 [139]c$[178]"xx"[167]643
446 [137]423
447 [133]"for which player (1 or 2)";pn
448 [139]pn[179]1[176]pn[177]2[167]447
449 [153]"load"
450 [153][163]6)"properties for player ";pn
451 [153]
452 [129]i[178]1[164]40:po$[178]"":[139]ps(i)[178]pn[167][153]pn$(i);
453 [139]ps(i)[179][177]pn[167]460
454 [139]pt$(i)[179][177]"p"[167]458
455 [153][166]20[171]([195](pn$(i))[171]2));" -";:[139]h(i)[179]5[167]po$[178][196](h(i))[170]" hs"
456 [139]h(i)[178]5[167]po$[178]" hotelwait"
457 po$[178]po$[170]"/$"[170][202]([196](p(i,h(i)[170]2)),2)
458 [139]mg(i)[178]1[167]po$[178]"- mortaged"
459 [153]po$
460 [130]
461 [153]:[139]cj(1)[178]pn[176]cj(2)[178]pn[167][153]"get out of jail free card."
462 [153]"player"pn"has $";m(pn)
463 [153]:[141]178:[142]
464 [153]"load"
465 tt$[178]"name owner/cmdcmdcmdcmdcmdcmd#houses":[153]tt$
466 [129]k[178]1[164]40:[139]pt$(k)[179][177]"p"[175]pt$(k)[179][177]"rr"[175]pt$(k)[179][177]"u"[167]475
467 [153]pn$(k)"";[163]21);
468 [153][163]33)
469 p$[178][196](ps(k)):pp$[178][202]([196](h(k)),2):[139]h(k)[177]4[167]pp$[178]"h"
470 [139]pt$(k)[179][177]"p"[167]pp$[178]"x"
471 [139]mg(k)[167]pp$[178]"mgwait"
472 p$[178]p$[170]" -"[170]pp$
473 [139]ps(k)[178]0[167]p$[178]" none"
474 [153]p$
475 [139]k[178]20[167][153]:[141]178:[153]"load":[153]tt$
476 [130]k
477 [153]:[141]178
478 [142]
479 [153]"load"
480 ho[178]0
481 [153]" on which group":[153]pg$
482 [153]
483 [133]"which color";c$
484 [129]i8[178]1[164]41:[139]c$[178][200](c$(i8),[195](c$))[167]pl[178]i8:c$[178]c$(i8):[137]487
485 [130]i8
486 [153]"illegal group":[137]483
487 p7[178]pt
488 p5[178]p7:[141]238:[139]mg[167]oa[178]0
489 [139]oa[167]492
490 [153]"sorry you either don't own all the prop-erty in that group or some";
491 [153]" is mortaged.":[141]178:[142]
492 [153]" property name # of houses(5=hotel)"
493 hs[178]0:[129]i[178]pl[164]pl[170]4:[139]c$[178]c$(i)[167][153]pn$(i)"";[163]30);h(i):hs[178]hs[170]h(i)
494 [130]
495 [153]:[153]"houses for this group cost $"p(pl,9)"each"
496 [153]"hotels cost $"p(pl,9)"+ 4 houses or $";(p(pl,9)[172]5)
497 [153]
498 [153]"you have $"m(pt)
499 [153]"hotels automatically added after 4th house"
500 [153]"how many houses do you want to buy (max=";:mx[178]((5[172]pc)[171]hs):[153]mx")"
501 [133]hn:[139]hn[177]mx[167][137]500
502 h7[178][181](hn[173]pc):h8[178]hn[171](h7[172]pc)
503 [139]m(p7)[179](hn[172]p(pl,9))[167][153]"you don't have enough money!":[137]500
504 [139]hn[178]0[167][153]"ok":[141]178:[142]
505 m(p7)[178]m(p7)[171](hn[172]p(pl,9)):[129]e[178]pl[164]pl[170]4:[139]c$[178]c$(e)[167]h(e)[178]h(e)[170]h7
506 [130]
507 [139]h8[167]509
508 [137]522
509 [153]"you have"h8"houses left over"
510 [153]:f1[178]0:[129]f[178]pl[164]pl[170]4:[139]c$[178]c$(f)[167]f1[178]f1[170]1:[153]f1,pn$(f);" "h(f)
511 [130]:[153]:[129]g[178]1[164]h8
512 [153]"where do you want house #"g;:[133]hl:[139]hl[178]ho[167][153]"can't":[137]512
513 f2[178]0:f1[178]0:f9[178]0
514 [129]f[178]pl[164]pl[170]3:[139]c$[178]c$(f)[167]f1[178]f1[170]1:[139]f1[178]hl[167]f9[178]f
515 [130]f
516 [139]f9[178]0[167][153]"no such number":[137]512
517 h2[178]0:[129]f[178]pl[164]pl[170]3:[139]c$[178]c$(f)[167][139]h(f9)[177]h(f)[167]h2[178]h2[170]1
518 [130]
519 [139]h2[167][153]"illegal distribution of houses!":[137]512
520 ho[178]hl:h(f9)[178]h(f9)[170]1
521 [130]g
522 [153]"done":[141]178:[142]
523 [133]"what player has a property to sell";p1
524 [139]p1[178]0[167][141]178:[142]
525 p2[178]p1[170]1:[139]p2[177]2[167]p2[178]p2[171]2
526 [153]"is it a property";:[133]q$:[139][200](q$,1)[178]"n"[167]547
527 [153]"in what color group":[153]pg$
528 [153]:[133]"which";c$
529 [129]i6[178]1[164]41:[139]c$[178][200](c$(i6),[195](c$))[167]pl[178]i6:c$[178]c$(i6):[137]532
530 [130]i6
531 [153]"illegal group":[137]528
532 [153]"# property";[163]30);"owner"
533 ho[178]0:ct[178]0:[129]i[178]pl[164]pl[170]4:[139]c$[178]c$(i)[167]ct[178]ct[170]1:[153]ct" "pn$(i)"";[163]35);ps(i)
534 [139]h(i)[167]ho[178]1
535 [130]
536 [153]:[153]"what number does player"p1"want to sell"
537 [133]tp
538 ct[178]0:[129]i[178]pl[164]pl[170]4:[139]c$[178]c$(i)[167]ct[178]ct[170]1:[139]ct[178]tp[167]t4[178]i:ff[178]1
539 [130]
540 [139]ff[178]0[167][153]"illegal number":[137]536
541 [139]ps(t4)[179][177]p1[167][153]"player #"p1"does not own it.":[137]523
542 [139]ho[167][153]"you have houses on that group you can't sell it.":[137]546
543 [133] "what is the agreed selling price";sp
544 m(p1)[178]m(p1)[170]sp:m(p2)[178]m(p2)[171]sp:ps(t4)[178]p2
545 [153]"player #"p2"bought "pn$(t4)"":[153]"for $"sp
546 [153]:[141]178:[142]
547 [153]"property";[163]30);"owner"
548 [129]i[178]6[164]36[169]10:n[178]n[170]1:[153]n" "pn$(i)"";[163]35);ps(i):[130]:n[178]0
549 [153]" 5 "pn$(13)"";[163]35);ps(13):[153]" 6 "pn$(29)"";[163]35);ps(29)
550 [133]"which #";nm:[139]nm[178]0[167][142]
551 [139]nm[179]1[176]nm[177]6[167]550
552 [139]nm[178]5[175]ps(13)[178]p1[167]sn[178]13:[137]556
553 [139]nm[178]6[175]ps(29)[178]p1[167]sn[178]29:[137]556
554 [139]nm[177]0[175]nm[179]5[167]sn[178]6[170]((nm[171]1)[172]10):[139]ps(sn)[178]p1[167][137]556
555 [153]"you don't own it.":[137]547
556 [133]"agreed price";sp
557 m(p1)[178]m(p1)[170]sp:m(p2)[178]m(p2)[171]sp:ps(sn)[178]p2
558 [141]178:[142]
559 [153]"load":[153]" options":[153]"0 return to main menu":[153]"1 mortage property"
560 [153]"2 mortage railroad":[153]"3 mortage utility"
561 [153]"4 lift mortage(at 10% interest)":[153]"5 sell houses":[153]
562 [133]"choice";gg:[139]gg[179]0[176]gg[177]5[167]562
563 [139]gg[178]0[167][141]178:[142]
564 [145]gg[141]566,589,598,606,669
565 [137]559
566 [153]:[153]"on which group is the property to be":[153]"mortaged located?":[153]pg$
567 [153]:[133]"color group";c$
568 [129]i6[178]1[164]41:[139]c$[178][200](c$(i6),[195](c$))[167]pl[178]i6:c$[178]c$(i6):[137]571
569 [130]i6
570 [153]"illegal group":[137]567
571 cm[178]0:[129]i[178]pl[164]pl[170]3:[139]c$[178]c$(i)[167]cm[178]cm[170]h(i)
572 [130]
573 [139]cm[167][153]"can't mortage properties with houses still on that group.":[137]588
574 [153]"# property";[163]25);"owner"
575 ct[178]0:[129]i[178]pl[164]pl[170]4:[139]c$[179][177]c$(i)[167]578
576 ct[178]ct[170]1:[153]ct" "pn$(i)"";[163]27)ps(i);:pp$[178]"":[139]mg(i)[167]pp$[178]"mortaged"
577 [153]pp$
578 [130]
579 [153]:[153]"what number is to be mortaged.";:[133]tp
580 [139]tp[178]0[167][141]178:[142]
581 ct[178]0:[129]i[178]pl[164]pl[170]4:[139]c$[178]c$(i)[167]ct[178]ct[170]1:[139]ct[178]tp[167]t4[178]i:ff[178]1
582 [130]
583 [139]ff[178]0[167][153]"illegal number":[137]579
584 [139]ps(t4)[179][177]pt[167][153]"you don't own it.":[141]178:[137]559
585 [139]mg(t4)[178]1[167][153]"already mortaged":[137]579
586 [153]:[153]"ok":mg(t4)[178]1
587 [153]"you got $"p(t4,8)"for your mortage.":m(pt)[178]m(pt)[170]p(t4,8)
588 [141]178:[142]
589 rc[178]0:[129]i[178]6[164]36[169]10:[139]pt$(i)[178]"rr"[167]rc[178]rc[170]1:[153]rc" "pn$(i)" plr.#"ps(i)
590 [130]
591 [133]"which #";rg
592 [139]rg[179]1[176]rg[177]4[167]591
593 rg[178]6[170]((rg[171]1)[172]10)
594 [139]ps(rg)[179][177]pt[167][153]"you don't own it.":[141]178:[137]559
595 [139]mg(rg)[178]1[167][153]"already mortaged.":[141]178:[137]559
596 mg(rg)[178]1:[153]"you get $100 for mortage.":m(pt)[178]m(pt)[170]100
597 [141]178:[142]
598 u(1)[178]13:u(2)[178]29
599 [129]i[178]1[164]2:[153]i" "pn$(u(i))"":[130]
600 [133]"which?";um
601 [139]um[179]1[176]um[177]2[167]600
602 [139]ps(u(um))[179][177]pt[167][153]"you don't own it.":[141]178:[137]559
603 [139]mg(u(um))[178]1[167][153]"already mortaged.":[141]178:[137]559
604 mg(u(um))[178]1:[153]"you get $75 for mortage.":m(pt)[178]m(pt)[170]75
605 [141]178:[142]
606 [153]:[153]"these are the properties that are under a mortage."
607 ml[178]0:[129]i[178]1[164]41:[139]ps(i)[178](pt)[175]mg(i)[178]1[167]ml[178]ml[170]1:[153]ml" "pn$(i)""
608 [130]
609 [139]ml[178]0[167][153]"you have no mortaged properties.":[141]178:[142]
610 [153]:[133]"which mortage do you wan't to lift";lf
611 [139]lf[179]1[176]lf[177]ml[167][153]"illegal":[137]610
612 ml[178]0:[129]i[178]1[164]41:[139]ps(i)[178](pt)[175]mg(i)[178]1[167]ml[178]ml[170]1:[139]ml[178]lf[167]ft[178]i
613 [130]
614 [153]"the mortage is for $"p(ft,8)
615 [153]"you must pay $";:py[178]p(ft,8)[172]1.10:[153]py
616 [139]py[177]m(pt)[167][153]"you don't have the money.":[141]178:[142]
617 m(pt)[178]m(pt)[171]py:mg(ft)[178]0
618 [141]178:[142]
619 [139]af[167]621
620 [142]
621 pl[178]pl(pt):[153]pn$(pl)" will now be auctioned"
622 [153]"to the highest bidder"
623 po[178]3[171]pt:[153]:hb[178]0:pa[178]pt:ac[178]0:[153]:hb[178]0:pa[178]pt:ac[178]0
624 pa[178]3[171]pa
625 [153]"player"pa"what's your bid";:[133]bd:bd[178][181](bd):ac[178]ac[170]1
626 [139]bd[178]0[167][145](ac[177]1)[170]2[137]629,624
627 [139]bd[179][178]hb[167][153]"you must bid higher than"hb"or bid '0'":[137]625
628 hb[178]bd:hr[178]pa:[137]624
629 [139]hb[178]0[167]634
630 [153]pn$(pl)" goes to"
631 [153]"player"hr" for $"hb
632 m(hr)[178]m(hr)[171]hb:ps(pl)[178]hr
633 [142]
634 [153]:[153]pn$(pl)" has not been purchased.":[142]
635 [153]"load":[153]"player #"pt"is broke!!"
636 [153]"if you can't raise $"[182](m(pt))"then you are out of the game."
637 [153]"do not hit 'q' (return to game) until you finish trying to";
638 [153]" raise money"
639 [141]178:[141]423
640 [139]m(pt)[177][178]0[167][142]
641 [139]m(pt)[179]0[167][153]"you are bankrupt!!!":pt[178]3[171]pt
642 [153]" --player #"pt"wins!-- ":[128]
643 [153]"game over"
644 [153]"the winner is ";
645 [139]m(1)[177]m(2)[167][153]"player #1 with $"m(1)
646 [139]m(2)[177]m(1)[167][153]"player #2 with $"m(2)
647 [139] m(2)[178]m(1)[167][153]"neither, it's a tie!"
648 [153]"player 1 = $";m(1)
649 [153]"player 2 = $";m(2)
650 [153]
651 [151]54296,0:[129]i[178]1[164]6:[151]g(i),0:[128]
652 [129]j[178]832[164]939
653 [135]i:[151]j,i:[130]
654 [131] 160,0,185,0,4,153,0,192,185,0,5,153,0,193,185,0,6,153,0
655 [131] 194,185,0,7,153,0,195,185,0,216,153,0,196,185,0,217,153,0
656 [131] 197,185,0,218,153,0,198,185
657 [131] 0,219,153,0,199,200,208,205,96,160,0,185,0,192,153,0,4,185,0,193,153
658 [131] 0,5,185,0,194,153,0,6,185,0,195,153,0,7,185,0,196,153,0,216,185,0,197
659 [131] 153,0,217,185,0,198,153,0,218,185,0,199,153,0,219,200,208,205,96
660 [142]
661 [129]p4[178]1[164]2
662 y$[178]""[170]pn$(pl(p4))[170][200](" ",18[171]([195](pn$(pl(p4)))[171]2))[170]"wait"
663 mn$[178]"$"[170][202]([196](m(p4)),2)[170]" wait":x[178]13:y[178]2[172]p4[170]3:z$[178]y$:[141]160
664 y[178]y[170]1:z$[178]mn$:[141]160:[130]:[142]
665 [153]"display deeds for which color group:":[153]pg$:[133]c$:[153]
666 p3[178]pl:[129]i[178]1[164]41:[139]c$[178][200](c$(i),[195](c$))[167]gf[178]1:pl[178]i:[141]195:gf[178]0
667 [130]:pl[178]p3:[142]
668 m(pt)[178]m(pt)[170]200:[153]"collected $200":[142]
669 [153]"on which color group:":[153]pg$:[133]c$
670 pl[178]0:[129]i[178]41[164]1[169][171]1:[139]c$[178][200](c$(i),[195](c$))[167]pl[178]i:c$[178]c$(i)
671 [130]i:[139]pl[167]673
672 [153]"illegal group":[137]669
673 do[178]0:hn[178]0:[129]i[178]pl[164]pl[170]3:[139]ps(i)[179][177](pt)[175]c$[178]c$(i)[167]do[178]1
674 [139]c$[178]c$(i)[167]hn[178]hn[170]h(i)
675 [130]
676 [139]do[178]1[176]hn[178]0[167][153]"you don't own houses on these properties":[141]178:[142]
677 [153]"# property";[163]25);"houses(5=hotel)"
678 ct[178]0:[129]i[178]pl[164]pl[170]3:[139]c$[178]c$(i)[167]ct[178]ct[170]1:[153]ct" "pn$(i)"";[163]27)h(i)
679 [130]
680 [133]"want to remove all these houses";a$:[139][200](a$,1)[178]"y"[167]694
681 [153]:[133]"what # to remove a house from.";tp
682 [139]tp[178]0[167] [142]
683 ct[178]0:[129]i[178]pl[164]pl[170]3:[139]c$[178]c$(i)[167]ct[178]ct[170]1:[139]ct[178]tp[167]t4[178]i:ff[178]1
684 [130]
685 [139]ff[178]0[167][153]"illegal number":[137]681
686 [139]h(t4)[178]0[167][153]"no houses there.":[137]681
687 nn[178]0:nh[178]h(t4):[129]i[178]pl[164]pl[170]3:[139]h(i)[177]nh[167]nn[178]1
688 [130]
689 [139]nn[167][153]"you can't remove that house.":[137]681
690 [153]:[153]"ok.":h(t4)[178]h(t4)[171]1
691 hm[178]p(pl,9)[173]2
692 [153]"you got $"hm"for your house":m(pt)[178]m(pt)[170]hm
693 [141]178:[137]559
694 hm[178]0:[129]i[178]pl[164]pl[170]3:[139]c$[178]c$(i)[167]hm[178]hm[170](p(pl,9)[173]2)[172]h(i):h(i)[178]0
695 [130]:[153]"you got $"hm"for your houses":m(pt)[178]m(pt)[170]hm:[137]693
697 [176]ignal program by john o'hare:[153]"
700 print"[147]this program, in b&w, was origanaly":gosub999
701 print"written by john o'hare in 1978 for the":gosub999
702 print"2001 series pet computer. the commodore":gosub999
703 print"64 version with color and sound changes":gosub999
704 print"by tim borion & sal oeper in late 1981.":gosub999
705 print"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"groups. the program is not to be sold":gosub999
709 print"and remains the property of john o'hare.":gosub999
710 print" press shift to start program."
711 a=peek(653):ifathenprint"[147]":return
712 goto711
999 a=peek(653):ifnotathenreturn