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