home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / MONOPOLE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  24.5 KB  |  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.