home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_121_(06-1985).d64 / monopole (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  27KB  |  1,060 lines
  1. 50 POKE53281,11:POKE53280,2:SYS58692
  2. 52 CLR:PRINT"   PLEASE WAIT A MOMENT
  3. 60 [134]BO(41,4),CH$(16),CC$(16),NA$(41)
  4. 61 [134]PP(41,12),DT(40),SA(20)
  5. 62 [151]54275,2:[151]54296,15
  6. 64 F1[178]54277:F2[178]54276:F4[178]54273:F5[178]54272
  7. 66 [151]F1,5:[151]F4,7
  8. 68 P1[178]1:P2[178]1:DB[178]1:T[178]2:C1[178]1:C2[178]2
  9. 70 PM(1)[178]1500:PM(2)[178]PM(1):D2[178]6:D1[178]6
  10. 72 CH[178][181]([187](1)[172]16[170]1):CC[178][181]([187](1)[172]16[170]1):S1[178]1:S2[178]2
  11. 74 JH[178]0:JC[178]0:AA[178]1:FP[178]500:JL(1)[178]1:JL(2)[178]1
  12. 90 DC$[178]"SYS(null)(null)CMDCMDCMD(null)C (null)CMDCMDCMDCMDCMD(null)   (null)CMDCMDCMDCMDCMD(null) C(null)CMDCMDCMD(null)(null)"
  13. 92 DH$[178]"DEF(null)(null)CMDCMDCMD(null)? (null)CMDCMDCMDCMDCMD(null)   (null)CMDCMDCMDCMDCMD(null) ?(null)CMDCMDCMD(null)(null)"
  14. 94 CL$[178]"STOPWAITFN(null)         (null)"
  15. 95 DL$[178]""
  16. 96 D$(1)[178]"TOTOTOCMDCMDCMDCMDTHEN   FNCMDCMDCMDCMDCMDTHEN (null) FNCMDCMDCMDCMDCMDTHEN   FNCMDCMDCMDCMDTAB(TAB(TAB("
  17. 97 D$(2)[178]"TOTOTOCMDCMDCMDCMDTHEN(null)  FNCMDCMDCMDCMDCMDTHEN   FNCMDCMDCMDCMDCMDTHEN  (null)FNCMDCMDCMDCMDTAB(TAB(TAB("
  18. 98 D$(3)[178]"TOTOTOCMDCMDCMDCMDTHEN(null)  FNCMDCMDCMDCMDCMDTHEN (null) FNCMDCMDCMDCMDCMDTHEN  (null)FNCMDCMDCMDCMDTAB(TAB(TAB("
  19. 99 D$(4)[178]"TOTOTOCMDCMDCMDCMDTHEN(null) (null)FNCMDCMDCMDCMDCMDTHEN   FNCMDCMDCMDCMDCMDTHEN(null) (null)FNCMDCMDCMDCMDTAB(TAB(TAB("
  20. 100 D$(5)[178]"TOTOTOCMDCMDCMDCMDTHEN(null) (null)FNCMDCMDCMDCMDCMDTHEN (null) FNCMDCMDCMDCMDCMDTHEN(null) (null)FNCMDCMDCMDCMDTAB(TAB(TAB("
  21. 101 D$(6)[178]"TOTOTOCMDCMDCMDCMDTHEN(null) (null)FNCMDCMDCMDCMDCMDTHEN(null) (null)FNCMDCMDCMDCMDCMDTHEN(null) (null)FNCMDCMDCMDCMDTAB(TAB(TAB("
  22. 110 [137]2000
  23. 115 [153]"LOADSTOP   THEN THEN THEN THEN THEN  THEN THEN THEN THEN THENGTJ FN"
  24. 120 [153]"STOP FPTHEN THEN THEN THEN THEN  THEN THEN THEN THEN THEN    FNORTANTANTANTANTANTANTANTANTAN^"
  25. 130 [153]"STOPANDANDANDAND  STOPWAIT?? THEN  STOPSPC(SPC(SPC(SYS THEN  STOPWAITWWSYS  STOPWAITANDANDANDAND"CL$
  26. 140 [153]"STOPCLOSE FOR STOPWAIT(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)CLOSEWAITSTOPTAB(TAB("CL$
  27. 150 [153]"STOP  FOR STOPWAITFN"[163]23)"THEN WAITSTOP  "CL$
  28. 152 [153]"STOPUSRUSRFORUSRSTOPWAITFN"[163]23)"THENUSRWAITSTOPUSRUSR"CL$
  29. 154 [153]"STOP  FOR STOPWAITFN"[163]23)"THEN WAITSTOP  "CL$
  30. 160 [153]"STOPUSRUSRCFN"[163]23)"THENCUSRUSR"CL$
  31. 170 [153]"STOP  CFN"[163]23)"THENC  "CL$
  32. 180 [153]"STOPUSRUSRFOR STOPWAITFN"[163]23)"THEN WAITSTOPUSRUSR"CL$
  33. 182 [153]"STOP  FOR STOPWAITFN"[163]23)"THEN WAITSTOP  "CL$
  34. 190 [153]"STOPUSRUSRSPC(FN"[163]23)"THENSPC(USRUSR"CL$
  35. 192 [153]"STOP  SPC(FN"[163]23)"THENSPC(  "CL$
  36. 200 [153]"STOPUSRUSRCLR STOPWAITFN"[163]23)"THEN?USRUSR"CL$
  37. 210 [153]"STOP  CLR STOPWAITFN"[163]23)"THEN?  "CL$
  38. 212 [153]"STOPUSRUSRCLRUSRSTOPWAITFN"[163]23)"THENCONT WAITSTOPUSRUSR"CL$
  39. 214 [153]"STOP  CLR STOPWAITFN"[163]23)"THENCONT WAITSTOP  "CL$
  40. 220 [153]"STOPUSRUSREFN"[163]23)"THENTUSRUSR"CL$
  41. 230 [153]"STOP  CFN"[163]23)"THENX  "CL$
  42. 240 [153]"STOPUSRUSRCLR STOPWAITFN"[163]23)"THENCONT WAITSTOPUSRUSR"CL$
  43. 250 [153]"STOP  CLR STOPWAIT(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQRCONT WAITSTOP  "CL$
  44. 260 [153]"STOPUSR(null)  OPEN THEN  STOPWAIT??OPEN THENSTOPWAITSPC(SPC(SPC(TXPRINT#  STOPWAITCCPRINT#  WAITSTOPUSRUSRUSRUSR"CL$
  45. 270 [153]"STOPJ(null)ANDSQR THEN THEN THEN THEN  THEN THEN THEN THEN THEN _GO"CL$
  46. 280 [153]"STOPV  THEN THEN THEN THEN THEN  THEN THEN THEN THEN THEN    FN/TANTANTANTANTANTANTANTANTANEXP"
  47. 285 [153]"STOPUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR";
  48. 290 [153][163]6)DC$[163]14)DH$
  49. 300 [153][200](DL$,12)[163]9)""D$(D1)"ONONONON"D$(D2)
  50. 310 [153]"SYS"[163]29)"MONO-POLECMDCMDCMDCMDCMDCMD64"
  51. 320 [153][163]29)"PLAYER 1":[153][163]29)""PM(1)
  52. 330 [153][163]29)"PLAYER 2":[153][163]29)""PM(2)
  53. 340 [153][200](DL$,9)[163]10)"PLAYER"J
  54. 350 [153][200](DL$,BO(T[171]1,C1))[163]BO(T[171]1,C2))""[201]([196](J),1)
  55. 360 L1[178]1:L2[178]2:L3[178]P1:L4[178]1
  56. 365 [139]J[178]1[167]L1[178]3:L2[178]4:L3[178]P2:L4[178]2
  57. 370 [153][200](DL$,BO(L3,L1))[163]BO(L3,L2))""[201]([196](L4),1)
  58. 400 [142]
  59. 1000 [143] MOVEMENT FOR PLAYER 1
  60. 1001 [131]24,24,24,21,24,19,24,17,24,15,24,12,24,10,24,8,24,6,24,4
  61. 1002 [131]24,1,21,1,19,1,17,1,15,1,13,1,11,1,9,1,7,1,5,1
  62. 1003 [131]1,1,1,4,1,6,1,8,1,10,1,12,1,15,1,17,1,19,1,21
  63. 1004 [131]2,25,5,26,7,26,9,26,11,26,13,26,15,26,17,26,19,26,21,26
  64. 1005 [143] MOVEMENT FOR PLAYER 2
  65. 1006 [131]24,25,23,21,23,19,23,17,23,15,23,12,23,10,23,8,23,6,23,4
  66. 1007 [131]24,2,21,0,19,0,17,0,15,0,13,0,11,0,9,0,7,0,5,0
  67. 1008 [131]1,2,2,4,2,6,2,8,2,10,2,12,2,15,2,17,2,19,2,21
  68. 1009 [131]2,25,5,25,7,25,9,25,11,25,13,25,15,25,17,25,19,25,21,25
  69. 1010 [131]22,3,22,2
  70. 1021 [131]ADVANCE TOKEN TO NEAREST RAILROAD AND   PAY OWNER TWICE RENT
  71. 1022 [131]BANK PAYS YOU DIVIDEND OF $50
  72. 1023 [131]ADVANCE TO ST. CHARLES PLACE
  73. 1024 [131]PAY POOR TAX OF $15
  74. 1025 [131]PAY EACH PLAYER $50
  75. 1026 [131]GENERAL REPAIRS PAY $25 PER HOUSE $100  PER HOTEL
  76. 1027 [131]ADVANCE TOKEN TO NEAREST RAILROAD AND   PAY OWNER TWICE RENT
  77. 1028 [131]ADVANCE TOKEN TO BOARD WALK
  78. 1029 [131]TAKE A RIDE ON THE READING
  79. 1030 [131]GET OUT OF JAIL 'FREE'
  80. 1031 [131]ADVANCE TO GO
  81. 1032 [131]GO DIRECTLY TO JAIL
  82. 1033 [131]ADVANCE TO ILLINOIS AVE
  83. 1034 [131]GO BACK 3 SPACES
  84. 1035 [131]ADVANCE TOKEN TO NEAREST UTILITY AND    PAY OWNER 10 TIMES OF DICE ROLL
  85. 1036 [131]YOUR BUILDING AND LOAN MATURES COLLECT  $150
  86. 1041 [131]LIFE INSURANCE MATURES COLLECT $100
  87. 1042 [131]PAY HOSPITAL $100
  88. 1043 [131]XMAS FUND MATURES COLLECT $100
  89. 1044 [131]BANK ERROR IN YOUR FAVOR COLLECT $200
  90. 1045 [131]RECEIVE FOR SERVICES $25
  91. 1046 [131]INCOME TAX REFUND COLLECT $20
  92. 1047 [131]ADVANCE TO GO (COLLECT $200)
  93. 1048 [131]GET OUT OF JAIL (FREE)
  94. 1049 [131]PAY SCHOOL TAX OF $150
  95. 1050 [131]STREET REPAIRS  '$40 PER HOUSE AND $115 PER HOTEL'
  96. 1051 [131]COLLECT $50 FROM EVERY PLAYER
  97. 1052 [131]DOCTOR'S FEE PAY $50
  98. 1053 [131]FROM SALE OF STOCK YOU GET $45
  99. 1054 [131]YOU INHERIT $100
  100. 1055 [131]SECOND PRIZE IN A BEAUTY CONTEST        COLLECT $10
  101. 1056 [131]GO TO JAIL (DO NOT PASS GO)
  102. 1060 [131]"PRINT    <<< GO >>>    ","PRINT#MEDITERRANEAN AVE ","SYS COMMUNITY CHEST  "
  103. 1061 [131]"PRINT#    BALTIC AVE    ","LIST    INCOME TAX    ","LIST   READING R.R.   "
  104. 1062 [131]"OPEN  ORIENTAL AVE    ","DEF      CHANCE      ","OPEN    VERMONT AVE   "
  105. 1063 [131]"OPEN CONNECTICUT AVE  ","FOR  JUST VISITING   ","CLRST. CHARLES PLACE "
  106. 1065 [131]"LIST ELECTRIC COMPANY ","CLR    STATES AVE    ","CLR   VIRGINIA AVE   "
  107. 1066 [131]"LISTPENNSYLVANIA R.R. ","FOR ST. JAMES PLACE  ","SYS COMMUNITY CHEST  "
  108. 1067 [131]"FOR  TENNESSEE AVE   ","FOR   NEW YORK AVE   ","CONT   FREE PARKING   "
  109. 1068 [131]"   KENTUCKY AVE   ","DEF      CHANCE      ","    INDIANA AVE   "
  110. 1069 [131]"   ILLINOIS AVE   ","LIST   B&O RAILROAD   ","SYS   ATLANTIC AVE   "
  111. 1070 [131]"SYS   VENTNOR AVE    ","LIST   WATER WORKS    ","SYS  MARVIN GARDENS  "
  112. 1071 [131]"CONT    GO TO JAIL    ","   PACIFIC AVE    ","NORTH CAROLINA AVE"
  113. 1072 [131]"SYS COMMUNITY CHEST  "," PENNSYLVANIA AVE ","LIST    SHORT LINE    "
  114. 1073 [131]"DEF      CHANCE      ","CONT   PARK PLACE     ","LIST    LUXURY TAX    "
  115. 1074 [131]"CONT     BOARDWALK    ","STOP  CLOSE   IN JAIL     "
  116. 1100 [131]2,2,10,30,90,160,250,30
  117. 1101 [131]4,4,20,60,180,320,450,30
  118. 1102 [131]7,6,30,90,270,400,550,50
  119. 1103 [131]9,6,30,90,270,400,550,50
  120. 1104 [131]10,8,40,100,300,450,600,60
  121. 1105 [131]12,10,50,150,450,625,750,70
  122. 1106 [131]14,10,50,150,450,625,750,70
  123. 1107 [131]15,12,60,180,500,700,900,80
  124. 1108 [131]17,14,70,200,550,750,950,90
  125. 1109 [131]19,14,70,200,550,750,950,90
  126. 1110 [131]20,16,80,220,600,800,1000,100
  127. 1111 [131]22,18,90,250,700,875,1050,110
  128. 1112 [131]24,18,90,250,700,875,1050,110
  129. 1113 [131]25,20,100,300,750,925,1100,120
  130. 1114 [131]27,22,110,330,800,975,1150,130
  131. 1115 [131]28,22,110,330,800,975,1150,130
  132. 1116 [131]30,24,120,360,850,1025,1200,140
  133. 1117 [131]32,26,130,390,900,1100,1275,150
  134. 1118 [131]33,26,130,390,900,1100,1275,150
  135. 1119 [131]35,28,150,450,1000,1200,1400,160
  136. 1120 [131]38,35,175,500,1100,1300,1500,175
  137. 1121 [131]40,50,200,600,1400,1700,2000,200
  138. 1150 [131]2,4,7,9,10
  139. 1151 [131]12,14,15,17,19,20
  140. 1152 [131]22,24,25,27,28,30
  141. 1153 [131]32,33,35,38,40
  142. 1500 [153]"LOADSELECT OPTION ?"
  143. 1502 [153]" AWAIT START NEW GAME"
  144. 1504 [153]" BWAIT LOAD GAME FROM DISK"
  145. 1506 [151]198,0
  146. 1508 [161]A$:[139]A$[178]""[167]1508
  147. 1510 [139]A$[178]"A"[167]2900
  148. 1512 [139]A$[178]"B"[167]1600
  149. 1514 [137]1508
  150. 1600 [153]"LOADNAME OF THE FILE(MAX 10 CHARACTER)?"
  151. 1605 [133]NM$
  152. 1607 [159]15,8,15
  153. 1610 ZL[178]1:[137]1700
  154. 1615 [159]4,8,4,"0:MONO/"[170]NM$[170]",SEQ,READ"
  155. 1617 [129]S[178]8[164]11
  156. 1620 [129]G[178]1[164]41:[132]4,PP(G,S):[130]
  157. 1625 [130]
  158. 1630 [129]G[178]1[164]18:[132]4,SA(G):[130]
  159. 1637 ZL[178]3:[137]1700
  160. 1640 [160]4:[160]15
  161. 1650 [141]2800
  162. 1660 [141]115:[137]3000
  163. 1700 [132]15,ZW,OK$,ZX,ZY
  164. 1705 [139]ZW[179]20[167]1800
  165. 1710 [153]"LOADDOS ERROR"
  166. 1715 [153]ZW;OK$;ZX;ZY
  167. 1717 [160]4:[160]15
  168. 1720 [161]A$:[139]A$[178]""[167]1720
  169. 1730 [145]ZL[137]1500,2100,1500,2100
  170. 1800 [139]ZL[178]1[167]1615
  171. 1810 [139]ZL[178]3[167]1640
  172. 1820 [139]ZL[178]4[167]2240
  173. 1830 [139]ZL[178]2[167]2215
  174. 2000 [143] PROGRAM START HERE
  175. 2001 [129]G[178]1[164]40:[135]BO(G,1),BO(G,2):[130]
  176. 2002 [129]G[178]1[164]40:[135]BO(G,3),BO(G,4):[130]
  177. 2003 [129]G[178]1[164]4:[135]BO(41,G):[130]
  178. 2005 [129]S[178]1[164]16:[135]CH$(S):[130]
  179. 2006 [129]S[178]1[164]16:[135]CC$(S):[130]
  180. 2010 [129]S[178]1[164]41:[135]NA$(S):[130]
  181. 2020 [129]G[178]1[164]22:[135]AS
  182. 2025 [129]S[178]1[164]7:[135]PP(AS,S):[130]
  183. 2030 [130]
  184. 2035 [129]G[178]1[164]22:[135]DT(G):[130]
  185. 2040 PP(6,7)[178]100:PP(16,7)[178]100:PP(26,7)[178]100:PP(36,7)[178]100
  186. 2045 PP(13,7)[178]75:PP(29,7)[178]75
  187. 2050 [137]1500
  188. 2100 [153]"LOADSELECT OPTION?"
  189. 2105 [153]" AWAIT - FORMAT A NEW DISKETTE"
  190. 2107 [153]" BWAIT - CLEAR DIRECTORY"
  191. 2109 [153]" CWAIT - SAVE GAME"
  192. 2112 [153]" XWAIT - RETURN TO GAME"
  193. 2120 [161]A$:[139]A$[178]"X"[167]6800
  194. 2125 [139]A$[178]"A"[167]2140
  195. 2127 [139]A$[178]"B"[167]2150
  196. 2129 [139]A$[178]"C"[167]2180
  197. 2130 [137]2120
  198. 2140 [159]15,8,15,"N0:MONOPOLE V1.0,MM"
  199. 2142 [160]15
  200. 2144 [137]2100
  201. 2150 [159]15,8,15,"N0:MONOPOLE V1.0"
  202. 2160 [160]15
  203. 2170 [137]2100
  204. 2180 SA(1)[178]JC:SA(2)[178]JH:SA(3)[178]CH:SA(4)[178]CC
  205. 2181 SA(5)[178]FP:SA(6)[178]J:SA(7)[178]P1:SA(8)[178]P2
  206. 2182 SA(9)[178]PM(1):SA(10)[178]PM(2):SA(11)[178]JL(1):SA(12)[178]JL(2)
  207. 2184 SA(13)[178]D1:SA(14)[178]D2:SA(15)[178]DB
  208. 2186 SA(16)[178]C1:SA(17)[178]C2:SA(18)[178]T
  209. 2200 [153]"LOADNAME OF THE FILE(MAX 10 CHARACTER)?"
  210. 2205 [133]NM$
  211. 2207 [159]15,8,15
  212. 2210 ZL[178]2:[137]1700
  213. 2215 [159]4,8,4,"0:MONO/"[170]NM$[170]",SEQ,WRITE"
  214. 2217 [129]S[178]8[164]11
  215. 2220 [129]G[178]1[164]41:[152]4,PP(G,S):[130]
  216. 2225 [130]
  217. 2230 [129]G[178]1[164]18:[152]4,SA(G):[130]
  218. 2237 ZL[178]4:[137]1700
  219. 2240 [160]4:[160]15
  220. 2250 [137]6800
  221. 2800 JC[178]SA(1):JH[178]SA(2):CH[178]SA(3):CC[178]SA(4)
  222. 2810 FP[178]SA(5):S1[178]SA(6):P1[178]SA(7):P2[178]SA(8)
  223. 2820 PM(1)[178]SA(9):PM(2)[178]SA(10):JL(1)[178]SA(11):JL(2)[178]SA(12)
  224. 2830 D1[178]SA(13):D2[178]SA(14):DB[178]SA(15)
  225. 2834 C1[178]SA(16):C2[178]SA(17):T[178]SA(18):J[178]S1
  226. 2840 [142]
  227. 2900 [141]115
  228. 2905 [153][200](DL$,BO(1,1))[163]BO(1,2))"1"
  229. 2910 [153][200](DL$,BO(1,3))[163]BO(1,4))"2"
  230. 3000 [129]J[178]S1[164]S2
  231. 3001 [153][200](DL$,9)[163]10)"PLAYER"J:[141]3200
  232. 3002 [153][200](DL$,11)[163]5)NA$(MM)
  233. 3003 [137]6500
  234. 3004 CK[178]1:[137]9900
  235. 3005 [141]4000:[141]5000
  236. 3006 CK[178]3:[137]9900
  237. 3007 [141]4100:[141]3500:[139]DB[177]3[167]DB[178]1:[141]4200:[137]4500
  238. 3008 JL(J)[178]1
  239. 3010 [129]T[178]MM[164]MM[170]RD[169]AA
  240. 3011 [139]T[177]40[167]4300
  241. 3020 [153][200](DL$,BO(T,C1))[163]BO(T,C2))""[201]([196](J),1)
  242. 3045 [151]F2,65
  243. 3050 [129]DD[178]1[164]200:[130]
  244. 3060 [153][200](DL$,BO(T,C1))[163]BO(T,C2))" "
  245. 3075 [151]F2,0
  246. 3080 [130]
  247. 3081 [153][200](DL$,11)[163]5)NA$(T[171]1)
  248. 3082 [139]T[178]32[167]4500
  249. 3083 [141]3300:AA[178]1
  250. 3084 [153][200](DL$,BO(T[171]1,C1))[163]BO(T[171]1,C2))""[201]([196](J),1)
  251. 3086 [137]7000
  252. 3089 CK[178]2:[137]9900
  253. 3090 [139]D1[178]D2[167]3001
  254. 3091 S1[178]1:S2[178]2
  255. 3092 DB[178]1:[130]
  256. 3100 [137]3000
  257. 3200 [139]J[178]1[167]MM[178]P1
  258. 3210 [139]J[178]2[167]MM[178]P2
  259. 3212 C1[178]1:C2[178]2
  260. 3214 [139]J[178]2[167]C1[178]3:C2[178]4
  261. 3215 [153][200](DL$,BO(MM,C1))[163]BO(MM,C2))""[201]([196](J),1)
  262. 3220 [142]
  263. 3300 [139]J[178]1[167]P1[178]T[171]1
  264. 3310 [139]J[178]2[167]P2[178]T[171]1
  265. 3320 [142]
  266. 3500 [151]F1,7
  267. 3505 [129]G[178]1[164]7
  268. 3510 D1[178][181]([187](1)[172]6)[170]1:D2[178][181]([187](1)[172]6)[170]1
  269. 3515 [151]F4,(D1[170]D2)[172]12
  270. 3520 [153][200](DL$,12)[163]9)""D$(D1)"ONONONON"D$(D2)
  271. 3525 [151]F2,65:[129]DD[178]1[164]100:[130]
  272. 3530 [151]F2,0
  273. 3535 [130]
  274. 3540 [139]D1[178]D2[167]DB[178]DB[170]1
  275. 3545 RD[178]D1[170]D2
  276. 3547 [151]F4,7:[151]F1,5
  277. 3550 [142]
  278. 3600 [153]"LOAD"
  279. 3610 [153][163]9)"PASS GO"
  280. 3620 [153][163]9)"COLLECT $200"
  281. 3625 PM(J)[178]PM(J)[170]200
  282. 3630 [141]4600:[142]
  283. 4000 [153][200](DL$,11)
  284. 4010 [139]J[178]2[167][153]""
  285. 4050 [153][163]30)"RWAITOLL OR"
  286. 4060 [153][163]30)"OWAITPTION"
  287. 4070 [142]
  288. 4100 [153][200](DL$,11)
  289. 4110 [139]J[178]2[167][153]""
  290. 4120 [153][163]30)"       "
  291. 4130 [153][163]30)"       "
  292. 4140 [142]
  293. 4200 ME$[178]"FOR ROLLING DOUBLESCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD3 TIMES IN A ROW"
  294. 4210 [142]
  295. 4300 W1[178]RD[170]MM[171]41:RD[178]W1:MM[178]1
  296. 4311 [153][200](DL$,11)
  297. 4312 [139]J[178]2[167][153]""
  298. 4313 [153][163]30)"COLLECT":[153][163]31)"$ 200"
  299. 4320 [141]4600
  300. 4321 [153][200](DL$,11)
  301. 4322 [139]J[178]2[167][153]""
  302. 4323 [153][163]30)"       ":[153][163]31)"     "
  303. 4325 PM(J)[178]PM(J)[170]200:[141]4400
  304. 4330 [137]3010
  305. 4400 [153]"SYS"[163]29)"MONO-POLECMDCMDCMDCMDCMDCMD64"
  306. 4410 [153][163]29)"PLAYER 1":[153][163]29)""PM(1)
  307. 4420 [153][163]29)"PLAYER 2":[153][163]29)""PM(2)
  308. 4430 [142]
  309. 4500 [153]"LOAD"[163]7)"PRINT GO TO JAIL "
  310. 4502 [153][163]7)"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)SGN
  311. 4504 PRINTTAB(7)"[180][180][180][180][180][180][180][180][180][180][180][180][165]
  312. 4506 [153][163]7)"SGNSGNSGNSGNSGNSGNSGNSGNSGNSGNSGNSGNSGN
  313. 4508 PRINTTAB(7)"[180][180][180][180][180][180][180][180][180][180][180][180][180]
  314. 4509 [153][163]7)"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)SGN
  315. 4510 PRINTTAB(4)ME$
  316. 4512 POKEF1,15
  317. 4515 FORG=1TO6:POKEF2,85
  318. 4520 FORES=200TO5STEP-4:POKEF4,30:POKEF5,ES:NEXT
  319. 4525 FORES=150TO5STEP-3:POKEF4,40:POKEF5,ES:NEXT
  320. 4530 NEXTG
  321. 4535 POKEF2,0:POKEF5,0:POKEF1,5:POKEF4,7
  322. 4537 GOSUB4600
  323. 4540 IFJ=1THENP1=41
  324. 4545 IFJ=2THENP2=41
  325. 4552 T=42:ME$=""
  326. 4554 GOSUB115
  327. 4560 GOTO3092
  328. 4600 PRINTLEFT$(DL$,20)TAB(8)"PRESS A KEY"
  329. 4610 POKE198,0
  330. 4620 GETA$:IFA$=""THEN4620
  331. 4630 PRINTLEFT$(DL$,20)TAB(8)"           "
  332. 4640 RETURN
  333. 5000 POKE198,0
  334. 5010 GETA$:IFA$=""THEN5010
  335. 5020 IFA$="O"THEN6000
  336. 5030 RETURN
  337. 6000 PRINT"[147]"
  338. 6010 PRINT"A[146] - REVIEW PROPERTIES
  339. 6012 [153]"BWAIT - LIST ALL PROPERTIES
  340. 6014 PRINT"C[146] - BUILD HOUSES/HOTEL
  341. 6016 [153]"DWAIT - SELL PROPERTIESCLOSE
  342. 6018 PRINT"E[146] - MORTGAGE PROPERTIES
  343. 6020 [153]"FWAIT - DISPLAY TITLE DEEDS
  344. 6022 PRINT"G[146] - END GAME
  345. 6024 [153]"HWAIT - SAVE GAME ON DISK
  346. 6026 PRINT"I[146] - RETURN TO GAME
  347. 6030 [151]198,0
  348. 6031 [161]A$:[139]A$[178]""[167]6031
  349. 6032 KK[178][198](A$):[139]KK[179]65[176]KK[177]73[167]6031
  350. 6033 [145]KK[171]64[137]6100,6150,6200,6300,6400,6600,6650,2100,6802
  351. 6034 [137]6031
  352. 6100 [153]"LOAD"
  353. 6102 [153]"REVIEW PROPERTIES OF PLAYER"
  354. 6104 [153]"        (1 OR 2)
  355. 6106 POKE198,0
  356. 6108 GETA$:IFA$=""THEN6108
  357. 6110 IFA$="1"THENSP=1:GOTO6118
  358. 6112 IFA$="2"THENSP=2:GOTO6118
  359. 6114 GOTO6108
  360. 6118 MP=0:MN=0:PRINT"[147] PROPERTIES"TAB(20)"HOUSES"TAB(30)"MORTGAGE?"
  361. 6119 FORG=1TO22
  362. 6120 IFPP(DT(G),8)=SPTHENPRINTNA$(DT(G));:MP=MP+1:GOTO6122
  363. 6121 GOTO6127
  364. 6122 PRINT""TAB(22)PP(DT(G),9);
  365. 6124 CS=DT(G):GOSUB6148
  366. 6126 GOSUB6145
  367. 6127 NEXT
  368. 6128 IFPP(6,8)=SPTHENMP=MP+1:PRINTNA$(6);:CS=6:GOSUB6148:GOSUB6145
  369. 6130 IFPP(16,8)=SPTHENMP=MP+1:PRINTNA$(16);:CS=16:GOSUB6148:GOSUB6145
  370. 6132 IFPP(26,8)=SPTHENMP=MP+1:PRINTNA$(26);:CS=26:GOSUB6148:GOSUB6145
  371. 6134 IFPP(36,8)=SPTHENMP=MP+1:PRINTNA$(36);:CS=36:GOSUB6148:GOSUB6145
  372. 6136 IFPP(13,8)=SPTHENMP=MP+1:PRINTNA$(13);:CS=13:GOSUB6148:GOSUB6145
  373. 6138 IFPP(29,8)=SPTHENMP=MP+1:PRINTNA$(29);:CS=29:GOSUB6148:GOSUB6145
  374. 6139 IFJC=SPTHENMN=MN+1
  375. 6140 IFJH=SPTHENMN=MN+1
  376. 6141 IFJH=SPORJC=SPTHENPRINTMN"OUT OF JAIL CARD"
  377. 6143 GOTO6800
  378. 6145 IFMP>15THENGOSUB4600:PRINT"[147]":MP=0
  379. 6147 RETURN
  380. 6148 RT$="NO":IFPP(CS,10)>0ORPP(CS,11)>0THENRT$="YES"
  381. 6149 PRINT""TAB(32)RT$:RETURN
  382. 6150 PRINT"[147]   PROPERTIES"TAB(20)"HOUSES"TAB(29)"OWNER/MORT"
  383. 6152 FORG=1TO14
  384. 6154 PRINTNA$(DT(G))""TAB(22)PP(DT(G),9);TAB(29)PP(DT(G),8);
  385. 6156 IFPP(DT(G),10)<>0THENPRINT"/M";
  386. 6158 PRINT
  387. 6160 NEXT
  388. 6162 GOSUB4600
  389. 6164 PRINT"[147]   PROPERTIES"TAB(20)"HOUSES"TAB(29)"OWNER/MORT"
  390. 6166 FORG=15TO22
  391. 6168 PRINTNA$(DT(G))""TAB(22)PP(DT(G),9);TAB(29)PP(DT(G),8);
  392. 6170 IFPP(DT(G),10)<>0THENPRINT"/M";
  393. 6172 PRINT
  394. 6174 NEXT
  395. 6176 FORG=6TO36STEP10
  396. 6178 PRINTNA$(G)""TAB(29)PP(G,8);
  397. 6180 IFPP(G,10)<>0THENPRINT"/M";
  398. 6182 PRINT
  399. 6184 NEXT
  400. 6186 PRINTNA$(13)""TAB(29)PP(13,8);
  401. 6188 IFPP(13,10)<>0THENPRINT"/M";
  402. 6189 PRINT
  403. 6190 PRINTNA$(29)""TAB(29)PP(29,8);
  404. 6192 IFPP(29,10)<>0THENPRINT"/M";
  405. 6194 GOTO6800
  406. 6200 GOSUB9800:GOSUB7230
  407. 6206 IFTC<>XXTHEN6216
  408. 6207 TC=0
  409. 6208 FORG=1TOXX:IFPP(X(G),10)>0ORPP(X(G),11)>0THENTC=TC+1:NEXT
  410. 6209 IFTC<>0THEN6216
  411. 6210 FORG=1TOXX:IFPP(X(G),8)<>JTHENTC=TC+1:NEXT
  412. 6211 IFTC<>0THEN6216
  413. 6212 GOTO6220
  414. 6216 PRINT"[147][144]YOU EITHER DON'T OWN ALL THE PROPERTY   OR THEY ARE MORTGAGE."
  415. 6218 GOTO6800
  416. 6220 PRINT"[147]"
  417. 6222 X(5)=PP(X(1),9)+PP(X(2),9)+PP(X(3),9)
  418. 6224 HS=(XX*5)-X(5):IFHS=0THEN6290
  419. 6226 PRINT"HOW MANY HOUSES DO YOU WANT"
  420. 6227 PRINT"    TO BUILD?[160](MAX"HS")"
  421. 6228 PRINT" YOU HAVE:"PM(J)
  422. 6230 INPUTBH
  423. 6232 IFBH<1ORBH>HSTHEN6226
  424. 6233 GOSUB7015
  425. 6235 PM(J)=PM(J)-BH*VL
  426. 6236 IFXX>BHTHENR(2)=BH:GOTO6241
  427. 6237 R(1)=INT(BH/XX):R(2)=BH-(R(1)*XX)
  428. 6238 FORG=1TOXX:PP(X(G),9)=PP(X(G),9)+1:NEXTG
  429. 6239 TC=TC+1:IFTC<R(1)THEN6238
  430. 6240 TC=0
  431. 6241 IFR(2)=0THEN6275
  432. 6242 PRINT"[147]"
  433. 6244 PRINT"WHERE DO YOU WANT THE"R(2)"EXTRA HOUSE(S)"
  434. 6245 PRINT""TAB(25)"HOUSES"
  435. 6246 FORG=1TOXX:PRINT""G"[146] "NA$(X(G))TAB(27)""PP(X(G),9):NEXT
  436. 6247 PRINT:PRINT
  437. 6248 FORW=1TOR(2)
  438. 6250 INPUTMQ
  439. 6251 IFMQ<1ORMQ>XXTHENPRINT"( 1 TO"XX")":GOTO6250
  440. 6252 FORG=1TOXX
  441. 6253 IFPP(X(MQ),9)>PP(X(G),9)THEN6260
  442. 6254 NEXT
  443. 6255 PP(X(MQ),9)=PP(X(MQ),9)+1
  444. 6256 NEXT
  445. 6258 GOTO6275
  446. 6260 PRINT"ILLEGAL DISTRIBUTION!"
  447. 6262 GOTO6250
  448. 6275 PRINT"[147]"
  449. 6277 FORG=1TOXX
  450. 6279 PRINTNA$(X(G))TAB(28)PP(X(G),9)
  451. 6281 NEXT
  452. 6283 GOTO6800
  453. 6290 PRINT"[147]"
  454. 6292 FORG=1TOXX:PRINTNA$(X(G))TAB(27)""PP(X(G),9):NEXT
  455. 6294 PRINT"HOTEL ARE ON ALL THE PROPERTY"
  456. 6296 GOTO6800
  457. 6300 PRINT"[147]"
  458. 6302 PRINT"WHICH PLAYER HAS A PROPERTY TO SELL?"
  459. 6304 POKE198,0
  460. 6306 GETA$:IFA$=""THEN6306
  461. 6308 IFA$="1"THENSB=2:SO=1:GOTO6315
  462. 6310 IFA$="2"THENSB=1:SO=2:GOTO6315
  463. 6312 GOTO6306
  464. 6315 PRINT"[147]WHAT KIND OF PROPERTY IS IT?"
  465. 6317 PRINT" A[146] - PROPERTY"
  466. 6319 PRINT" B[146] - RAILROAD"
  467. 6321 PRINT" C[146] - UTILITY"
  468. 6323 GETA$:IFA$="X"THEN6800
  469. 6325 IFA$="A"THENGOTO6365
  470. 6327 IFA$="B"THENGOTO6332
  471. 6329 IFA$="C"THENGOTO6350
  472. 6331 GOTO6323
  473. 6332 PRINT"[147]WHICH RAILROAD?"
  474. 6333 PRINT" A[146] -"NA$(6)
  475. 6334 PRINT" B[146] -"NA$(16)
  476. 6335 PRINT" C[146] -"NA$(26)
  477. 6336 PRINT" D[146] -"NA$(36)
  478. 6337 PRINT" X[146] -CANCEL TRANSACTION"
  479. 6338 GETA$:IFA$="A"THENTY=6:GOTO6344
  480. 6339 IFA$="B"THENTY=16:GOTO6344
  481. 6340 IFA$="C"THENTY=26:GOTO6344
  482. 6341 IFA$="D"THENTY=36:GOTO6344
  483. 6342 IFA$="X"THEN6800
  484. 6343 GOTO6338
  485. 6344 IFSO=PP(TY,8)THEN6394
  486. 6345 GOSUB6391:GOTO6338
  487. 6350 PRINT"[147]   WHICH UTILTY?"
  488. 6351 PRINT" A[146] -"NA$(13)
  489. 6352 PRINT" B[146] -"NA$(29)
  490. 6353 PRINT" X[146] -CANCEL TRANSACTION"
  491. 6354 GETA$:IFA$="X"THEN6800
  492. 6355 IFA$="A"THENTY=13:GOTO6360
  493. 6357 IFA$="B"THENTY=29:GOTO6360
  494. 6359 GOTO6354
  495. 6360 IFSO=PP(TY,8)THEN6394
  496. 6362 GOSUB6391:GOTO6354
  497. 6364 PRINT" X[146] -CANCEL TRANSACTION"
  498. 6365 PRINT"[147]":GOSUB9800:GOSUB7230
  499. 6366 PRINT"[147]    WHICH PROPERTY?":PRINT"A[146] -"NA$(X(1))
  500. 6367 PRINT"    B[146] -"NA$(X(2))
  501. 6368 IFXX=3THENPRINT"    C[146] -"NA$(X(3))
  502. 6369 PRINT"    X[146] -CANCEL TRANSACTION
  503. 6370 [161]A$:[139]A$[178]"X"[167]6800
  504. 6371 [139]A$[178]"A"[167]TY[178]X(1):[137]6376
  505. 6372 [139]A$[178]"B"[167]TY[178]X(2):[137]6376
  506. 6373 [139]A$[178]"C"[167]TY[178]X(3):[137]6375
  507. 6374 [137]6370
  508. 6375 [139]XX[179][177]3[167]6370
  509. 6376 [139]SO[178]PP(TY,8)[167]6394
  510. 6377 [141]6391:[137]6370
  511. 6391 [153]"YOU DO NOT OWN THIS!"
  512. 6392 [142]
  513. 6394 [153]"LOADWHAT IS THE AGREED PRICE?":[133]AM:[139]AM[179]1[167]6394
  514. 6395 [153]"LOADPLAYER"SO"SOLD PLAYER"SB
  515. 6396 [153]""NA$(TY)
  516. 6397 [153][163]7)"FOR"AM:PP(TY,8)[178]SB
  517. 6398 PM(SO)[178]PM(SO)[170]AM:PM(SB)[178]PM(SB)[171]AM
  518. 6399 [137]6800
  519. 6400 [153]"LOADWHAT DO YOU WANT TO MORTGAGE?"
  520. 6402 [153]" AWAIT - PROPERTY"
  521. 6406 [153]" BWAIT - HOUSES"
  522. 6408 [153]" CWAIT - UTILITY"
  523. 6410 [153]" DWAIT - RAILROAD"
  524. 6412 [153]" EWAIT - LIFT MORTGAGE(AT 10%)
  525. 6414 PRINT" X[146] - BACK TO GAME"
  526. 6416 POKE198,0
  527. 6418 GETA$:IFA$="X"THEN6800
  528. 6420 IFA$="A"THEN6427
  529. 6421 IFA$="B"THEN6470
  530. 6422 IFA$="C"THEN6450
  531. 6423 IFA$="D"THEN6457
  532. 6424 IFA$="E"THEN6820
  533. 6425 GOTO6418
  534. 6427 GOSUB9800:GOSUB7230
  535. 6430 PRINT"[147]WHICH PROPERTY IS TO BE MORTGAGE?"
  536. 6431 PRINT" A[146] - "NA$(X(1)):PRINT" B[146] - "NA$(X(2))
  537. 6432 IFXX=3THENPRINT" C[146] - "NA$(X(3))
  538. 6433 PRINT" X[146] - BACK TO GAME"
  539. 6434 POKE198,0
  540. 6435 GETA$:IFA$="X"THEN6800
  541. 6436 IFA$="A"THENTY=X(1):GOTO6442
  542. 6437 IFA$="B"THENTY=X(2):GOTO6442
  543. 6438 IFA$="C"THENTY=X(3):GOTO6440
  544. 6439 GOTO6435
  545. 6440 IFXX<>3THEN6435
  546. 6442 IFPP(TY,8)<>JTHENGOSUB6391:GOTO6435
  547. 6443 IFPP(TY,10)=JTHENPRINT"ALREADY MORTGAGE!":GOTO6435
  548. 6444 AM=0
  549. 6445 AM=PP(X(1),9)+PP(X(2),9):IFXX=3THENAM=AM+PP(X(3),9)
  550. 6446 IFAM>0THENPRINT"DEVELOPED PROPERTY CANNOT BE MORTGAGE":AM=0:GOTO6800
  551. 6447 PM(J)=PM(J)+PP(TY,7):PP(TY,10)=J
  552. 6448 PRINT"MORTGAGED FOR $"PP(TY,7)
  553. 6449 GOTO6800
  554. 6450 PRINT"[147]WHICH UTILITY IS TO MORTGAGE?"
  555. 6452 PRINT" A[146] ELECTRIC CO"
  556. 6454 PRINT" B[146] WATER WORKS"
  557. 6455 PRINT" X[146] BACK TO GAME
  558. 6456 [137]6940
  559. 6457 [153]"LOAD AWAIT "NA$(6):[153]" BWAIT "NA$(16)
  560. 6458 [153]" CWAIT "NA$(26):[153]" DWAIT "NA$(36):[153]" XWAIT BACK TO GAME
  561. 6459 GETA$:IFA$="X"THEN6800
  562. 6460 IFA$="A"THENTY=6:GOTO6465
  563. 6461 IFA$="B"THENTY=16:GOTO6465
  564. 6462 IFA$="C"THENTY=26:GOTO6465
  565. 6463 IFA$="D"THENTY=36:GOTO6465
  566. 6464 GOTO6459
  567. 6465 IFPP(TY,8)<>JTHENGOSUB6391:GOTO6459
  568. 6466 IFPP(TY,10)=JTHENPRINT"ALREADY MORTGAGE!":GOTO6459
  569. 6467 PM(J)=PM(J)+100:PP(TY,10)=J
  570. 6468 PRINT"MORTGAGED FOR $100":GOTO6800
  571. 6470 GOSUB9800:GOSUB7230
  572. 6472 PRINT"[147]"
  573. 6474 FORG=1TOXX
  574. 6475 IFPP(X(G),8)<>JTHENGOSUB6391:GOTO6800
  575. 6477 NEXT
  576. 6478 OK=0
  577. 6479 FORG=1TOXX
  578. 6480 IFPP(X(G),9)>0THENOK=OK+1
  579. 6481 NEXT
  580. 6482 IFOK=0THENPRINT"YOU HAVE NO HOUSES ON THESE PROPERTY!":GOTO6800
  581. 6483 PRINTTAB(29)"HOUSE(S)
  582. 6484 [153]" AWAIT - "NA$(X(1))[163]31)PP(X(1),9):[153]" BWAIT - "NA$(X(2))[163]31)PP(X(2),9)
  583. 6485 [139]XX[178]3[167][153]" CWAIT - "NA$(X(3))[163]31)PP(X(3),9)
  584. 6486 [153]" XWAIT - BACK TO GAME
  585. 6487 PRINT"WANT ME TO REMOVE ALL OF THE HOUSES?":PRINTTAB(10)"( Y OR N )
  586. 6488 [161]A$:[139]A$[178]"X"[167]6800
  587. 6489 [139]A$[178]"Y"[167]6492
  588. 6490 [139]A$[178]"N"[167]6900
  589. 6491 [137]6488
  590. 6492 AM[178]0:AM[178]AM[170]PP(X(1),9):PP(X(1),11)[178]PP(X(1),9)[170]PP(X(1),11):PP(X(1),9)[178]0
  591. 6493 AM[178]AM[170]PP(X(2),9):PP(X(2),11)[178]PP(X(2),9)[170]PP(X(2),11):PP(X(2),9)[178]0
  592. 6494 [139]XX[178]3[167]AM[178]AM[170]PP(X(3),9):PP(X(3),11)[178]PP(X(3),9)[170]PP(X(3),11):PP(X(3),9)[178]0
  593. 6495 [141]7015
  594. 6496 AM[178]AM[172]VL:AM[178][181](AM[173]2)
  595. 6497 PM(J)[178]PM(J)[170]AM:[153]"MORTGAGED FOR $"AM
  596. 6498 [137]6800
  597. 6500 [139]MM[179][177]41[167][137]3004
  598. 6504 [129]DD[178]1[164]1000:[130]
  599. 6505 [153]"LOAD"
  600. 6508 [153]"PLAYER"J "("JL(J)"TURN IN JAIL)
  601. 6510 PRINTTAB(7)"SELECT OPTION"
  602. 6515 PRINTTAB(5)"1[146] ROLL FOR DOUBLE"
  603. 6520 PRINTTAB(5)"2[146] PAY $ 50"
  604. 6525 PRINTTAB(5)"3[146] OUT OF JAIL CARD"
  605. 6530 POKE198,0
  606. 6532 GETA$:IFA$=""THEN6532
  607. 6534 IFA$="1"THEN6560
  608. 6536 IFA$="2"THEN6550
  609. 6538 IFA$="3"THEN6540
  610. 6539 GOTO6532
  611. 6540 IFJH=JTHENJH=0:MM=11:T=12:GOSUB115:GOTO3004
  612. 6542 IFJC=JTHENJC=0:MM=11:T=12:GOSUB115:GOTO3004
  613. 6544 PRINT""TAB(5)"YOU DON'T HAVE ONE"
  614. 6546 FORDD=1TO1000:NEXT
  615. 6548 GOTO6505
  616. 6549 GOSUB4600
  617. 6550 FORDD=1TO400:NEXT
  618. 6552 PM(J)=PM(J)-50:FP=FP+50
  619. 6554 MM=11:T=12:GOSUB115:GOTO3004
  620. 6560 GOSUB3500
  621. 6562 IFD1=D2THENMM=11:T=12:DB=1:GOSUB6580:GOSUB115:GOTO3004
  622. 6564 JL(J)=JL(J)+1
  623. 6566 IFJL(J)>3THENPRINT""TAB(5)"YOU HAVE TO PAY $50":GOTO6549
  624. 6567 PRINT"YOU DIDN'T ROLL DOUBLE":GOSUB4600
  625. 6568 T=42:GOSUB115
  626. 6570 GOTO3090
  627. 6580 PRINTLEFT$(DL$,11)TAB(5)"YOU ROLL DOUBLE !!"
  628. 6582 GOSUB4600
  629. 6584 RETURN
  630. 6600 GOSUB9800:GOSUB7230
  631. 6602 FORG=1TOXX
  632. 6604 PRINT"[147]"
  633. 6605 T=X(G)+1
  634. 6606 GOSUB7015:GOSUB7022
  635. 6607 IFPP(X(G),8)<>0THENPRINTTAB(7)"PLAYER"PP(X(G),8):GOTO6610
  636. 6608 PRINTTAB(8)"NOT OWN":GOTO6616
  637. 6610 PRINT""PP(X(G),9)" HOUSE(S)"
  638. 6612 IFPP(X(G),10)<>0THENPRINTTAB(2)"PROPERTY UNDER MORTGAGE"
  639. 6614 IFPP(X(G),11)<>0THENPRINTPP(X(G),11)" HOUSE(S) UNDER MORTGAGE"
  640. 6616 GOSUB4600
  641. 6618 NEXT
  642. 6620 GOTO6802
  643. 6650 PRINT"[147]"
  644. 6651 FORG=1TO2
  645. 6652 PRINT"PLAYER "G
  646. 6653 PM(3)=0:PM(4)=0:RM=0
  647. 6654 PRINT"CASH.................."PM(G)
  648. 6655 GOSUB6666
  649. 6656 PRINT"PROPERTY.............."PM(3)
  650. 6657 PRINT"HOUSE(S)/HOTEL(S)....."PM(4)
  651. 6658 PM(G)=PM(G)+PM(3)+PM(4)
  652. 6659 PRINT"TOTAL ASSET..........."PM(G):PRINT""
  653. 6660 NEXT
  654. 6661 IFPM(1)>PM(2)THENPRINTTAB(6)"WINNER IS PLAYER 1"
  655. 6662 IFPM(1)<PM(2)THENPRINTTAB(6)"WINNER IS PLAYER 2"
  656. 6663 IFPM(1)=PM(2)THENPRINTTAB(6)"ITS A TIE"
  657. 6665 END
  658. 6666 FORU=1TO40
  659. 6667 IFPP(U,8)=GTHENGOSUB6670
  660. 6668 NEXT
  661. 6669 RETURN
  662. 6670 IFPP(U,11)=0ANDPP(U,10)=0THENPM(3)=PM(3)+(PP(U,7)*2):RM=1
  663. 6672 IFRM=1THENT=U+1:GOSUB7015:PM(4)=PM(4)+PP(U,9)*VL:RM=0
  664. 6674 RETURN
  665. 6800 GOSUB4600
  666. 6802 T=MM+1:GOSUB115
  667. 6804 GOSUB4000:GOTO5000
  668. 6820 PRINT"[147]OPTION FOR LIFTING MORTGAGE?"
  669. 6822 PRINT" A[146] - PROPERTY
  670. 6824 [153]" BWAIT - RAILROAD
  671. 6826 PRINT" C[146] - UTILITY
  672. 6828 [153]" DWAIT - HOUSE(S)
  673. 6829 PRINT" X[146] - BACK TO GAME[160]
  674. 6830 [161]A$:[139]A$[178]"X"[167]6800
  675. 6831 [139]A$[178]"A"[167]6870
  676. 6832 [139]A$[178]"B"[167]6850
  677. 6833 [139]A$[178]"C"[167]6836
  678. 6834 [139]A$[178]"D"[167]8900
  679. 6835 [137]6830
  680. 6836 [139]PP(13,10)[178]0[176]PP(29,10)[178]0[167][153]"UTILITIES ARE NOT UNDER MORTGAGE!"
  681. 6837 [139]PP(13,8)[179][177]J[175]PP(29,8)[179][177]J[167][153]"YOU DO NOT OWN ANY UTILITIES!"
  682. 6838 [153]"LOADWHICH UTILITY?"
  683. 6839 [153]" AWAIT - "NA$(13):[153]" BWAIT - "NA$(29):[153]" XWAIT - BACK TO GAME"
  684. 6840 [161]A$:[139]A$[178]"X"[167]6800
  685. 6841 [139]A$[178]"A"[167]TY[178]13:[137]6844
  686. 6842 [139]A$[178]"B"[167]TY[178]29:[137]6844
  687. 6843 [137]6840
  688. 6844 [139]PP(TY,8)[179][177]J[167][153]"YOU DO NOT OWN THIS UTILITY!":[137]6840
  689. 6845 [139]PP(TY,10)[178]0[167][153]"THIS UTILITY IS NOT UNDER MORTGAGE!":[137]6840
  690. 6846 [153]"MORTGAGE LIFTED FOR $83"
  691. 6847 PM(J)[178]PM(J)[171]83:PP(TY,10)[178]0
  692. 6849 [137]6800
  693. 6850 [139]PP(6,10)[178]0[175]PP(16,10)[178]0[175]PP(26,10)[178]0[175]PP(36,10)[178]0[167]8800
  694. 6851 [139]PP(6,8)[179][177]J[175]PP(16,8)[179][177]J[175]PP(26,8)[179][177]J[175]PP(36,8)[179][177]J[167]8802
  695. 6853 [153]"LOADWHICH ONE?":[153]" AWAIT - "NA$(6):[153]" BWAIT - "NA$(16)
  696. 6854 [153]" CWAIT - "NA$(26):[153]" DWAIT - "NA$(36):[153]" XWAIT - BACK TO GAME"
  697. 6855 [161]A$:[139]A$[178]"X"[167]6800
  698. 6856 [139]A$[178]"A"[167]TY[178]6:[137]6861
  699. 6857 [139]A$[178]"B"[167]TY[178]16:[137]6861
  700. 6858 [139]A$[178]"C"[167]TY[178]26:[137]6861
  701. 6859 [139]A$[178]"D"[167]TY[178]36:[137]6861
  702. 6860 [137]6855
  703. 6861 [139]PP(TY,8)[179][177]J[167][153]"YOU DO NOT OWN IT!":[137]6855
  704. 6862 [139]PP(TY,10)[177]0[167][153]"IT IS NOT UNDER MORTGAGE":[137]6855
  705. 6863 [153]"MORTGAGE PRICE IS $110"
  706. 6867 PM(J)[178]PM(J)[171]110:PP(TY,10)[178]0:[137]6800
  707. 6870 [141]9800:[141]7230:SW[178]0:SX[178]0:AM[178]0
  708. 6872 [139]PP(X(1),10)[178]0[175]PP(X(2),10)[178]0[167]SW[178]1
  709. 6873 [139]XX[178]3[167]6876
  710. 6874 [139]SW[178]1[167][153]"NONE OF THE PROPERTY ARE UNDER MORTGAGE":[137]6800
  711. 6875 [137]6877
  712. 6876 [139]PP(X(3),10)[178]0[167]SX[178]1
  713. 6877 [139]SW[178]1[175]SX[178]1[167][153]"NONE OF THE PROPERTY ARE UNDER MORTGAGE!":[137]6800
  714. 6879 [153]"LOADWHICH IS TO BE LIFTED?"
  715. 6881 [153]" AWAIT - "NA$(X(1)):[153]" BWAIT - "NA$(X(2))
  716. 6883 [153]" CWAIT - "NA$(X(3)):[153]" XWAIT - BACK TO GAME"
  717. 6884 [161]A$:[139]A$[178]"X"[167]6800
  718. 6885 [139]A$[178]"A"[167]TY[178]X(1):[137]6890
  719. 6886 [139]A$[178]"B"[167]TY[178]X(2):[137]6890
  720. 6887 [139]A$[178]"C"[167]TY[178]X(3):[137]6889
  721. 6888 [137]6884
  722. 6889 [139]XX[178]2[167]6884
  723. 6890 [139]PP(TY,8)[179][177]J[167][153]"YOU DO NOT OWN IT!":[137]6884
  724. 6891 [139]PP(TY,10)[178]0[167][153]"NOT UNDER MORTGAGE!":[137]6884
  725. 6892 AM[178]PP(TY,7)[172]1.1:AM[178][181](AM[170].5)
  726. 6894 [153]"MORTGAGE LIFTED FOR $"AM
  727. 6895 PM(J)[178]PM(J)[171]AM:PP(TY,10)[178]0
  728. 6896 [137]6800
  729. 6900 [153]"WHICH HOUSE IS TO BE MORTGAGE?"
  730. 6902 [161]A$:[139]A$[178]"X"[167]6800
  731. 6904 [139]A$[178]"A"[167]TY[178]X(1):[137]6915
  732. 6906 [139]A$[178]"B"[167]TY[178]X(2):[137]6915
  733. 6908 [139]A$[178]"C"[167]TY[178]X(3):[137]6912
  734. 6910 [137]6902
  735. 6912 [139]XX[178]2[167]6902
  736. 6915 [139]PP(TY,9)[178]0[167][153]"THERE ARE NO HOUSES ON THIS PROPERTY!":[137]6902
  737. 6916 [139]PP(TY,9)[179]PP(X(1),9)[176]PP(TY,9)[179]PP(X(2),9)[176]PP(TY,9)[179]PP(X(3),9)[167]6918
  738. 6917 [137]6920
  739. 6918 [153]"UNEVEN DISTRIBUTION OF HOUSES":[137]6902
  740. 6920 PP(TY,9)[178]PP(TY,9)[171]1
  741. 6922 PP(TY,11)[178]PP(TY,11)[170]1
  742. 6924 [141]7015
  743. 6926 AM[178]0
  744. 6928 AM[178]VL[173]2:PM(J)[178]PM(J)[170]AM
  745. 6930 [153]"MORTGAGE FOR $"AM
  746. 6932 [137]6472
  747. 6940 [161]A$:[139]A$[178]"X"[167]6800
  748. 6942 [139]A$[178]"A"[167]TY[178]13:[137]6950
  749. 6944 [139]A$[178]"B"[167]TY[178]29:[137]6950
  750. 6946 [137]6940
  751. 6950 [139]PP(TY,8)[179][177]J[167][153]"YOU DO NOT OWN THIS!":[137]6940
  752. 6952 [139]PP(TY,10)[177]0[167][153]"THIS PROPERTY IS ALREADY MORTGAGED!":[137]6940
  753. 6954 PP(TY,10)[178]J
  754. 6966 PM(J)[178]PM(J)[170]75
  755. 6968 [153]"MORTGAGE FOR $ 75"
  756. 6970 [137]6800
  757. 7000 [139]T[178]2[176]T[178]12[167]3089
  758. 7002 [139]T[178]9[176]T[178]24[176]T[178]38[167]7500
  759. 7004 [139]T[178]4[176]T[178]19[176]T[178]35[167]7600
  760. 7006 [139]T[178]6[167]7700
  761. 7008 [139]T[178]40[167]7800
  762. 7010 [139]T[178]22[167]7900
  763. 7012 [139]T[178]14[176]T[178]30[167]7300
  764. 7013 [139]T[178]7[176]T[178]17[176]T[178]27[176]T[178]37[167]7400
  765. 7014 [141]7015:[141]7022:[137]7050
  766. 7015 [139]T[171]1[179]11[167]VL[178]50
  767. 7016 [139]T[171]1[177]11[167]VL[178]100
  768. 7017 [139]T[171]1[177]21[167]VL[178]150
  769. 7018 [139]T[171]1[177]31[167]VL[178]200
  770. 7019 [142]
  771. 7022 [153]"LOAD"[163]7)"TITLE DEED"
  772. 7023 [153][163]7)"COST $"PP(T[171]1,7)[172]2
  773. 7024 [153]"    "NA$(T[171]1)
  774. 7026 [153][163]8)"RENT $"PP(T[171]1,1)
  775. 7028 [153]"   WITH 1 HOUSE  $"PP(T[171]1,2)
  776. 7030 [153]"   WITH 2 HOUSES  "PP(T[171]1,3)
  777. 7032 [153]"   WITH 3 HOUSES  "PP(T[171]1,4)
  778. 7034 [153]"   WITH 4 HOUSES  "PP(T[171]1,5)
  779. 7036 [153]"     WITH HOTEL $"PP(T[171]1,6)
  780. 7038 [153]"  MORTGAGE VALUE $"PP(T[171]1,7)
  781. 7040 [153]"  HOUSES COST $"VL" EACH"
  782. 7042 [153]"  HOTEL, $"VL" +4 HOUSES"
  783. 7044 [142]
  784. 7050 [139]PP(T[171]1,8)[179][177]0[167]7200
  785. 7052 [137]7100
  786. 7096 [141]4600
  787. 7098 [141]115
  788. 7099 [137]3089
  789. 7100 [153]"YOU HAVE $"PM(J)
  790. 7102 [153]"DO YOU WANT TO BUY IT? (Y OR N)
  791. 7104 POKE198,0
  792. 7106 GETA$:IFA$=""THEN7106
  793. 7108 IFA$="Y"THEN7120
  794. 7110 IFA$="N"THEN7115
  795. 7112 GOTO7106
  796. 7115 PRINTTAB(8)"STILL FOR SALE
  797. 7117 [137]7096
  798. 7120 [153][163]8)"YOU BOUGHT IT!
  799. 7125 PP(T-1,8)=J:PM(J)=PM(J)-PP(T-1,7)*2
  800. 7130 GOTO7096
  801. 7200 PRINTTAB(4)"PLAYER"PP(T-1,8)"PROPERTY"
  802. 7201 PRINTTAB(6)PP(T-1,9)"HOUSE(S)"
  803. 7202 IFPP(T-1,8)=JTHEN7096
  804. 7204 IFPP(T-1,9)=0THENGOSUB7230:GOTO7208
  805. 7206 AM=PP(T-1,PP(T-1,9)+1)
  806. 7208 IFJ=2THENPM(2)=PM(2)-AM:PM(1)=PM(1)+AM
  807. 7210 IFJ=1THENPM(1)=PM(1)-AM:PM(2)=PM(2)+AM
  808. 7214 PRINTTAB(8)"PAY $"AM
  809. 7220 GOTO7096
  810. 7230 XX=3:TC=0
  811. 7231 IFT=3ORT=5THENXX=2:X(1)=2:X(2)=4:GOTO7250
  812. 7232 IFT=8ORT=10ORT=11THENX(1)=7:X(2)=9:X(3)=10:GOTO7250
  813. 7234 IFT=13ORT=15ORT=16THENX(1)=12:X(2)=14:X(3)=15:GOTO7250
  814. 7236 IFT=18ORT=20ORT=21THENX(1)=17:X(2)=19:X(3)=20:GOTO7250
  815. 7238 IFT=23ORT=25ORT=26THENX(1)=22:X(2)=24:X(3)=25:GOTO7250
  816. 7240 IFT=28ORT=29ORT=31THENX(1)=27:X(2)=28:X(3)=30:GOTO7250
  817. 7242 IFT=33ORT=34ORT=36THENX(1)=32:X(2)=33:X(3)=35:GOTO7250
  818. 7244 IFT=39ORT=41THENXX=2:X(1)=38:X(2)=40
  819. 7250 FORG=1TOXX
  820. 7260 IFPP(X(G),8)=PP(T-1,8)THENTC=TC+1
  821. 7270 NEXT
  822. 7280 IFTC=XXTHENAM=PP(T-1,1)*2:RETURN
  823. 7290 AM=PP(T-1,1):RETURN
  824. 7300 PRINT"[147]"
  825. 7305 IFT=30THENQA$="WATER WORKS"
  826. 7307 IFT=14THENQA$="ELECTRIC CO."
  827. 7309 PRINTTAB(10)QA$
  828. 7310 PRINTTAB(11)"COST $150"
  829. 7311 PRINT"   IF ONE 'UTILITY' IS OWNED
  830. 7313 [153]"RENT IS 4 TIMES AMOUNT SHOWN
  831. 7315 PRINT"ON DICE.
  832. 7317 [153]"   IF BOTH 'UTILITIES' ARE
  833. 7319 PRINT"OWNED  RENT  IS  10  TIMES
  834. 7321 [153]"AMOUNT SHOWN ON DICE.
  835. 7323 PRINT"MORTGAGE VALUE  [160]$75
  836. 7325 [139]PP(T[171]1,8)[179][177]0[167]7360
  837. 7327 FL[178]0:[137]7100
  838. 7360 [153]"PLAYER"PP(T[171]1,8)"PROPERTY"
  839. 7362 [139]PP(T[171]1,8)[178]J[167]FL[178]0:[137]7096
  840. 7364 [139]PP(29,8)[178]PP(13,8)[167]AM[178]10[172]RD:[137]7368
  841. 7366 AM[178]4[172]RD
  842. 7367 [139]FL[178]1[167]AM[178]10[172]RD
  843. 7368 [139]J[178]1[167]PM(1)[178]PM(1)[171]AM:PM(2)[178]PM(2)[170]AM
  844. 7370 [139]J[178]2[167]PM(2)[178]PM(2)[171]AM:PM(1)[178]PM(1)[170]AM
  845. 7372 [153][163]8)"PAY $"AM
  846. 7374 FL[178]0:[137]7096
  847. 7400 [153]"LOAD"NA$(T[171]1)
  848. 7402 [153]"COST $200"
  849. 7405 [153]"RENT             $25
  850. 7408 PRINT"IF 2 RR'S ARE OWNED  50
  851. 7411 [153]"IF 3CLOSE''   ''   ''   100
  852. 7413 PRINT"IF 4 ''   ''   ''   200
  853. 7416 [153]"MORTGAGE VALUE    $100
  854. 7418 IFPP(T-1,8)<>0THEN7450
  855. 7420 GOTO7100
  856. 7450 PRINT"PLAYER"PP(T-1,8)"PROPERTY"
  857. 7455 IFPP(T-1,8)=JTHENFL=0:GOTO7096
  858. 7458 RR=-1
  859. 7460 IFPP(T-1,8)=PP(6,8)THENRR=RR+1
  860. 7462 IFPP(T-1,8)=PP(16,8)THENRR=RR+1
  861. 7464 IFPP(T-1,8)=PP(26,8)THENRR=RR+1
  862. 7466 IFPP(T-1,8)=PP(36,8)THENRR=RR+1
  863. 7468 AM=25*2^RR
  864. 7469 IFFL=1THENAM=AM*2
  865. 7470 IFJ=1THENPM(1)=PM(1)-AM:PM(2)=PM(2)+AM
  866. 7472 IFJ=2THENPM(2)=PM(2)-AM:PM(1)=PM(1)+AM
  867. 7474 PRINTTAB(8)"PAY $"AM
  868. 7480 FL=0:GOTO7096
  869. 7500 CH=CH+1
  870. 7502 IFCH=10THENGOSUB7550
  871. 7504 IFCH>16THENCH=1
  872. 7506 PRINT"[147]"TAB(7)"CHANCE"
  873. 7508 PRINTCH$(CH)
  874. 7510 GOSUB4600
  875. 7512 ONCHGOTO9000,9050,9100,9150,9200,9250,9300,9350
  876. 7514 ONCH-8GOTO9400,9450,9500,9550,9600,9650,9700,9750
  877. 7516 GOSUB115
  878. 7520 GOTO3089
  879. 7550 IFJH<>0THENCH=CH+1
  880. 7560 RETURN
  881. 7600 CC=CC+1
  882. 7602 IFCC=8THENGOSUB7650
  883. 7604 IFCC>16THENCC=1
  884. 7606 PRINT"[147]"TAB(3)"COMMUNITY CHEST"
  885. 7608 PRINTCC$(CC)
  886. 7610 GOSUB4600
  887. 7612 ONCCGOTO8000,8050,8100,8150,8200,8250,8300,8350
  888. 7614 ONCC-8GOTO8400,8450,8500,8550,8600,8650,8700,8750
  889. 7616 GOSUB115
  890. 7620 GOTO3089
  891. 7650 IFJC<>0THENCC=CC+1
  892. 7660 RETURN
  893. 7700 PRINT"[147]"
  894. 7705 PRINTTAB(9)"[159]   PAY
  895. 7710 [153][163]9)"INCOME TAX
  896. 7715 PRINTTAB(9)"   $200[160]
  897. 7720 [141]4600
  898. 7730 PM(J)[178]PM(J)[171]200:FP[178]FP[170]200
  899. 7740 [141]115
  900. 7750 [137]3089
  901. 7800 [153]"LOAD"
  902. 7805 [153][163]9)"OPEN   PAY
  903. 7810 PRINTTAB(9)"LUXURY TAX
  904. 7815 [153][163]9)"   $ 75CLOSE
  905. 7820 GOSUB4600
  906. 7830 PM(J)=PM(J)-75:FP=FP+75
  907. 7840 GOSUB115
  908. 7850 GOTO3089
  909. 7900 PRINT"[147]"
  910. 7910 PRINTTAB(9)"FREE PARKING"
  911. 7920 PRINTTAB(9)"COLLECT $"FP
  912. 7930 PM(J)=PM(J)+FP:FP=0:GOSUB4600
  913. 7940 GOSUB115:GOTO3089
  914. 8000 PM(J)=PM(J)+100:GOTO7616
  915. 8050 PM(J)=PM(J)-100:GOTO7616
  916. 8100 PM(J)=PM(J)+100:GOTO7616
  917. 8150 PM(J)=PM(J)+200:GOTO7616
  918. 8200 PM(J)=PM(J)+25:GOTO7616
  919. 8250 PM(J)=PM(J)+20:GOTO7616
  920. 8300 T=2:GOSUB3300:GOSUB3600:GOTO7616
  921. 8350 JC=J:GOTO7616
  922. 8400 PM(J)=PM(J)-150:FP=FP+150:GOTO7616
  923. 8450 HO=0:HT=0
  924. 8452 FORG=1TO40
  925. 8454 IFPP(G,8)=JTHENGOSUB8460
  926. 8456 NEXT
  927. 8458 GOTO8470
  928. 8460 IFPP(G,9)=0THENRETURN
  929. 8462 IFPP(G,9)>4THENHT=HT+1:RETURN
  930. 8464 HO=HO+PP(G,9):RETURN
  931. 8470 H1=HT*100:H2=HO*25:H3=H1+H2
  932. 8472 PRINT"[147]REPAIR BILL"
  933. 8474 PRINTTAB(5)HT" HOTELS FOR"H1
  934. 8476 PRINTTAB(5)HO" HOUSES FOR"H2
  935. 8478 PRINTTAB(7)"TOTAL BILL"H3
  936. 8480 FP=FP+H3
  937. 8482 GOSUB4600
  938. 8490 GOTO7616
  939. 8500 FORG=1TO2:PM(J)=PM(J)+50:PM(G)=PM(G)-50:NEXT
  940. 8505 GOTO7616
  941. 8550 PM(J)=PM(J)-50:GOTO7616
  942. 8600 PM(J)=PM(J)+45:GOTO7616
  943. 8650 PM(J)=PM(J)+100:GOTO7616
  944. 8700 PM(J)=PM(J)+10:GOTO7616
  945. 8750 GOTO4500
  946. 8800 PRINT"NONE OF THE RAILROAD ARE UNDER MORTGAGE":GOTO6800
  947. 8802 PRINT"YOU DO NOT OWN ANY RAILROAD!":GOTO6800
  948. 8900 GOSUB9800:GOSUB7230
  949. 8901 VQ=0:VR=0
  950. 8902 FORG=1TOXX
  951. 8904 VQ=PP(X(G),11)+VQ
  952. 8906 NEXT
  953. 8908 IFVQ=0THENPRINT"NO HOUSE(S) UNDER MORTGAGE":GOTO6800
  954. 8910 FORG=1TOXX
  955. 8912 IFPP(X(G),8)=JTHENVR=VR+1
  956. 8914 NEXT
  957. 8916 IFVR<>XXTHENPRINT"YOU DO NOT OWN ALL THE PROPERTY!":GOTO6800
  958. 8918 PRINT"[147]WHICH HOUSE?"TAB(25)"HOUSE(S)/M"
  959. 8920 FORG=1TOXX
  960. 8922 PRINT" "CHR$(64+G)"[146] - "NA$(X(G))TAB(28)PP(X(G),11)
  961. 8924 NEXT
  962. 8925 PRINT" X[146] - BACK TO GAME"
  963. 8926 GETA$:IFA$="X"THEN6800
  964. 8928 IFA$="A"THENTY=X(1):GOTO8938
  965. 8930 IFA$="B"THENTY=X(2):GOTO8938
  966. 8932 IFA$="C"THENTY=X(3):GOTO8936
  967. 8934 GOTO8926
  968. 8936 IFX=2THEN8926
  969. 8938 IFPP(TY,11)<1THENPRINT"NO HOUSE UNDER MORTGAGE ON THIS PROPERTY!":GOTO8950
  970. 8939 IFPP(TY,9)>PP(X(1),9)ORPP(TY,9)>PP(X(2),9)ORPP(TY,9)>PP(X(3),9)THEN8952
  971. 8940 PP(TY,11)=PP(TY,11)-1
  972. 8942 PP(TY,9)=PP(TY,9)+1
  973. 8944 GOSUB7015:AM=0
  974. 8946 AM=VL*1.1:AM=INT(AM+.5)
  975. 8948 PM(J)=PM(J)-AM
  976. 8950 GOSUB4600:GOTO8918
  977. 8952 PRINT"NOT EVEN DISTRIBUTION OF HOUSES"
  978. 8954 FORG=1TOXX
  979. 8956 PRINTNA$(X(G))TAB(27)PP(X(G),9)
  980. 8958 NEXT
  981. 8960 GOTO8950
  982. 9000 IFT=9THENT=17
  983. 9002 IFT=24THENT=27
  984. 9004 IFT=38THENT=7:GOSUB3600
  985. 9006 GOSUB3300
  986. 9008 FL=1:GOTO7000
  987. 9050 PM(J)=PM(J)+50:GOTO7516
  988. 9100 IFT=24ORT=38THENGOSUB3600
  989. 9110 T=13:GOSUB3300:GOTO7000
  990. 9150 PM(J)=PM(J)-15:FP=FP+15:GOTO7516
  991. 9200 FORG=1TO2:PM(J)=PM(J)-50:PM(G)=PM(G)+50:NEXT
  992. 9210 GOTO7516
  993. 9250 HO=0:HT=0
  994. 9252 FORG=1TO40
  995. 9254 IFPP(G,8)=JTHENGOSUB9260
  996. 9256 NEXT
  997. 9258 GOTO9270
  998. 9260 IFPP(G,9)=0THENRETURN
  999. 9262 IFPP(G,9)>4THENHT=HT+1:RETURN
  1000. 9264 HO=HO+PP(G,9):RETURN
  1001. 9270 H1=HT*100:H2=HO*25:H3=H1+H2
  1002. 9272 PRINT"[147]REPAIR BILL"
  1003. 9274 PRINTTAB(5)HT" HOTELS FOR"H1
  1004. 9276 PRINTTAB(5)HO" HOUSES FOR"H2
  1005. 9278 PRINTTAB(7)"TOTAL BILL"H3
  1006. 9280 FP=FP+H3
  1007. 9282 GOSUB4600
  1008. 9290 GOTO7516
  1009. 9300 IFT=9THENT=17
  1010. 9302 IFT=24THENT=27
  1011. 9304 IFT=38THENT=7:GOSUB3600
  1012. 9306 GOSUB3300
  1013. 9308 FL=1:GOTO7000
  1014. 9350 T=41:GOSUB3300:GOTO7000
  1015. 9400 T=7:GOSUB3300:GOSUB3600:GOTO7000
  1016. 9450 JH=J:GOTO7516
  1017. 9500 T=2:GOSUB3300:GOSUB3600:GOTO7516
  1018. 9550 GOTO4500
  1019. 9600 IFT=38THENGOSUB3600
  1020. 9602 T=26:GOSUB3300:GOTO7000
  1021. 9650 GOSUB115:AA=-1:RD=-1:MM=T-1:GOTO3010
  1022. 9700 IFT=9THENT=14
  1023. 9702 IFT=24THENT=30
  1024. 9704 IFT=38THENT=14:GOSUB3600
  1025. 9706 GOSUB3300
  1026. 9708 FL=1:GOTO7000
  1027. 9750 PM(J)=PM(J)+150:GOTO7516
  1028. 9800 PRINT"[147]"
  1029. 9801 PRINT"WHICH COLOR GROUP?"
  1030. 9802 PRINT"  [152]A [160]  GRAY
  1031. 9804 [153]"  OPENB CLOSE CLOSELT. BLUE
  1032. 9806 PRINT"  [156]C [160] [160]PURPLE
  1033. 9808 [153]"  FORD CLOSE CLOSEORANGE
  1034. 9810 PRINT"  E [160] [160]RED
  1035. 9812 [153]"  SYSF CLOSE CLOSEYELLOW
  1036. 9814 PRINT"  G   [160]GREEN
  1037. 9816 [153]"  CONTH   CLOSEDK. BLUE
  1038. 9818 POKE198,0
  1039. 9820 GETA$:IFA$=""THEN9820
  1040. 9822 IFA$="A"THENT=3
  1041. 9824 IFA$="B"THENT=8
  1042. 9826 IFA$="C"THENT=13
  1043. 9828 IFA$="D"THENT=18
  1044. 9830 IFA$="E"THENT=23
  1045. 9832 IFA$="F"THENT=28
  1046. 9834 IFA$="G"THENT=33
  1047. 9836 IFA$="H"THENT=39
  1048. 9838 KK=ASC(A$):IFKK>64ANDKK<73THENRETURN
  1049. 9840 GOTO9820
  1050. 9900 IFPM(J)<0THEN9920
  1051. 9902 IFCK=1THEN3005
  1052. 9904 IFCK=2THEN3090
  1053. 9906 IFCK=3THEN3007
  1054. 9920 PRINT"[147]"TAB(6)"[144]YOU ARE BROKE"
  1055. 9922 PRINT" IF YOU CAN'T RAISE $"ABS(PM(J))
  1056. 9924 PRINTTAB(6)"THEN PRESS  G [146] END GAME"
  1057. 9926 GOSUB4600
  1058. 9928 GOSUB6000
  1059. 9930 GOTO9900
  1060.