home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8503c.d64 / monopoly (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  32KB  |  1,123 lines
  1. 10 REM  ******************************
  2. 11 REM  *                            *
  3. 12 REM  * COMMERCIAL TOWN   FUER C64 *
  4. 13 REM  *                            *
  5. 14 REM  * VON : PETER FINK           *
  6. 15 REM  *       8500 NUERNBERG 30    *
  7. 16 REM  *       STEPHANSTRASSE 20    *
  8. 17 REM  *       TEL.: 0911/467930    *
  9. 18 REM  *                            *
  10. 19 REM  ******************************
  11. 99 PRINT"[147]";
  12. 100 DIMSN$(41)
  13. 150 POKE53281,0:POKE53280,0
  14. 200 SN$(0)=""
  15. 205 SN$(1)="     C O M M E R C I A L   T O W N"
  16. 210 SN$(2)="     [196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
  17. 215 SN$(3)=""
  18. 220 SN$(4)="        PETER FINK, FEBRUAR 1985"
  19. 225 SN$(5)=""
  20. 230 SN$(6)="DIESES SPIEL LAEUFT NACH DEN ORIGINALEN"
  21. 235 SN$(7)="MONOPOLY-REGELN. ES KOENNEN 1 - 4 SPIE-"
  22. 240 SN$(8)="LER TEILNEHMEN. DIE AUF 4 SPIELER FEH-"
  23. 245 SN$(9)="LENEDN WERDEN VOM COMPUTER SIMULIERT."
  24. 250 SN$(10)="BEI DER EINGABE VON STRASSENNAMEN BRAU-"
  25. 255 SN$(11)="CHEN NUR DIE ERSTEN DREI BUCHSTABEN"
  26. 260 SN$(12)="EINGEGEBEN ZU WERDEN."
  27. 265 SN$(13)="               AUSNAHMEN:"
  28. 270 SN$(14)="SCHILLERSTRASSE UND SCHLOSSALLEE: 4"
  29. 275 SN$(15)="HAUPTBAHNHOF UND HAUPTSTRASSE:    6"
  30. 280 SN$(16)=""
  31. 285 SN$(17)="1 HOTEL ENTSPRICHT 5 HAEUSERN, DAS"
  32. 290 SN$(18)="HEISST AUCH BEIM KAUF UND VERKAUF VON"
  33. 295 SN$(19)="HAEUSERN MUESSEN HOTELS ALS 5 HAEUSER"
  34. 300 SN$(20)="EINGEGEBEN WERDEN."
  35. 305 SN$(21)=""
  36. 310 SN$(22)=""
  37. 315 SN$(23)="            WEITER -> [SPACE]"
  38. 320 SN$(24)=""
  39. 325 SN$(25)="BEI DER ABFRAGE NACH DEN AKTIVITAETEN"
  40. 330 SN$(26)="DES SPIELERS VOR DEM WUERFELN KANN FOL-"
  41. 335 SN$(27)="GENDE AUSWAHL GETROFFEN WERDEN:"
  42. 340 SN$(28)="> H < WENN ER HAEUSER KAUFEN WILL"
  43. 345 SN$(29)="> Z < WENN ER EINE HYPOTHEK ZURUECK-"
  44. 350 SN$(30)="                           ZAHLEN WILL."
  45. 355 SN$(31)="> K < WENN ER EINEM MITSPIELER EIN VER-"
  46. 360 SN$(32)="      KAUFS- ODER TAUSCHANGEBOT MACHEN"
  47. 362 SN$(34)="> W < WENN ER WUERFELN WILL."
  48. 365 SN$(33)="                                  WILL."
  49. 370 SN$(35)=""
  50. 375 SN$(36)="STEHT IM FELD 'STANDORT': GEFAENGNIS #[146]"
  51. 380 SN$(37)="SO HEISST DAS, DASS DER SPIELER NICHT"
  52. 385 SN$(38)="NUR ZU BESUCH SONDERN ECHT IM GEFAENG-"
  53. 390 SN$(39)="NIS IST."
  54. 395 SN$(40)=""
  55. 400 SN$(41)="            START -> [SPACE]"
  56. 420 FORA=0TO22:PRINT"[129]"SN$(A):NEXT
  57. 422 GOSUB25000:PRINTSN$(23)
  58. 425 GETA$:IFA$<>" "THEN425
  59. 430 PRINT"[147]";:FORA=24TO40:PRINT""SN$(A):NEXT
  60. 440 GOSUB25090:PRINTSN$(41)
  61. 510 SN$(0)="[150][213][195][195][195][178][195][195][195][195][195][195][195][195][195][195][178][195][195][195][201][149][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  62. 520 SN$(1)="[150][194]***[194]  [158]BESITZ[150]  [194]***[194][149][194]    STANDORT:     [149][194]"
  63. 530 SN$(2)="[150][171][195][195][195][203]  [197][197][197][197][197][197][150]  [202][195][195][195][179][149][194]                  [194]"
  64. 540 SN$(3)="[150][194]                  [194][149][194]                  [194]"
  65. 550 SN$(4)="[150][194]                  [194][149][194]                  [194]"
  66. 560 SN$(5)="[150][194]                  [194][149][171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
  67. 570 SN$(6)="[150][194]                  [194][149][194][159]                  [146][149][194]"
  68. 580 SN$(7)="[150][194]                  [194][149][194][159]                  [146][149][194]"
  69. 590 SN$(8)="[150][194]                  [194][149][194][159]                  [146][149][194]"
  70. 600 SN$(9)="[150][194]                  [194][149][194][159]                  [146][149][194]"
  71. 610 SN$(10)="[150][194]                  [194][149][194][159]                  [146][149][194]"
  72. 620 SN$(11)="[150][194]                  [194][149][194][159]                  [146][149][194]"
  73. 630 SN$(12)="[150][194]                  [194][149][194][159]                  [146][149][194]"
  74. 640 SN$(13)="[150][194]                  [194][149][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  75. 650 SN$(14)="[150][194]                  [194] SPIELER            "
  76. 660 SN$(15)="[150][194]                  [194][161]       [146][161] [129][213][195][195][195][195][195][195][195][201] "
  77. 670 SN$(16)="[150][194]                  [194][161]       [146][161] [129][194][149] ZEIT: [129][194] "
  78. 680 SN$(17)="[150][194]                  [194][188][162][162][162][162][162][162][162][146][190] [129][194]       [194] "
  79. 690 SN$(18)="[150][194]                  [194] [158]KAPITAL  [129][202][195][195][195][195][195][195][195][203] "
  80. 700 SN$(19)="[150][194]                  [194][156][161]       [146][161]           "
  81. 710 SN$(20)="[150][194]                  [194][156][161]       [146][161] [213][195][195][195][195][195][195][195][201] "
  82. 720 SN$(21)="[150][194]                  [194][156][188][162][162][162][162][162][162][162][146][190] [194][152]FREI P.[194] "
  83. 730 SN$(22)="[150][194]                  [194] [153][209] [209][146]   [209][146]  [194]       [194] "
  84. 740 SN$(23)="[150][194]                  [194] [153]   [146]  [209] [146]  [202][195][195][195][195][195][195][195][203] "
  85. 750 SN$(24)="[150][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203] [153][209] [209][146] [209]  [146]           "
  86. 775 GETA$:IFA$<>" "THEN775
  87. 776 PRINT"[147]";
  88. 780 FORA=0TO24:PRINTSN$(A);:NEXT
  89. 795 POKE56295,14:POKE2023,102
  90. 1000 GOSUB25220
  91. 1100 GOSUB10900:GOSUB10800:PRINT"DAUER DES SPIELES":GOSUB10800
  92. 1105 PRINT"    (IN MIN.)":GOSUB10800
  93. 1110 PRINT"";:B$=""
  94. 1111 GETA$:IFA$<>CHR$(20)THEN1114
  95. 1112 IFLEN(B$)>0THENPRINT"[157] [157]";:B$=LEFT$(B$,LEN(B$)-1)
  96. 1113 GOTO1111
  97. 1114 IFA$<>""ANDA$<>CHR$(13)THENIFASC(A$)<48ORASC(A$)>57THEN1111
  98. 1115 PRINTA$;:IFA$=CHR$(13)ANDLEN(B$)>0THEN1118
  99. 1116 B$=B$+A$:GOTO1111
  100. 1118 RU=VAL(B$)
  101. 1120 GOSUB10900:GOSUB10800
  102. 1125 PRINT"ANZAHL DER SPIELER":GOSUB10800
  103. 1130 PRINT"";:B$=""
  104. 1131 GETA$:IFA$<>CHR$(20)ANDA$<>CHR$(13)ANDA$<>""THENPRINTA$"[157]";:B$=A$
  105. 1132 IFA$=CHR$(13)ANDLEN(B$)=1THEN1134
  106. 1133 GOTO1131
  107. 1134 IFASC(B$)<48ORASC(B$)>52THEN1120
  108. 1135 AN=VAL(B$)
  109. 1140 GOSUB10900:IFAN=0THEN1180
  110. 1145 FORA=1TOAN
  111. 1150 PRINT""SR$SU$"[159]  NAME SPIELER "A
  112. 1155 PRINTSR$"[145](BIS ZU 7 BUCHST.)
  113. 1156 [153]""SU$SR$"ANM.: VERSCHIEDENECMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";
  114. 1157 [153]"ANFANGSBUCHSTABENCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";
  115. 1158 [153]"WAEREN VON VORTEIL"
  116. 1160 [153]SR$"";:B$[178]""
  117. 1161 [161]A$:[139]A$[179][177][199](20)[167]1164
  118. 1162 [139][195](B$)[177]0[167][153]"CMD CMD";:B$[178][200](B$,[195](B$)[171]1)
  119. 1163 [137]1161
  120. 1164 [139][195](B$)[177][178]7[167]1168
  121. 1165 [139]A$[178][199](13)[167]1167
  122. 1166 [153]A$;:B$[178]B$[170]A$:[137]1161
  123. 1167 [139][195](B$)[178]0[167]1161
  124. 1168 SP$(A)[178]B$:[141]10900
  125. 1170 [130]A
  126. 1175 [139]AN[178]4[167]1200
  127. 1180 B[178]1:[129]A[178]AN[170]1[164]4
  128. 1185 SP$(A)[178]NA$(B):B[178]B[170]1
  129. 1190 [130]A
  130. 1195 SP$(5)[178]"BANK"
  131. 1200 [129]A[178]1[164]40:SB(A)[178]0:[130]
  132. 1205 [129]A[178]1[164]4:PO(A)[178]1:[130]
  133. 1210 BB$(0)[178]" ":BB$(1)[178]"1":BB$(2)[178]"2":BB$(3)[178]"3":BB$(4)[178]"4":BB$(5)[178]"ATN"
  134. 1215 [129]A[178]1[164]4:S$(A)[178][200](SP$(A),1):[130]
  135. 1220 FP[178]0:EZ[178]1:GZ[178]1
  136. 2995 TI$[178]"000000":[141]20000
  137. 3000 [129]Z[178]1[164]4:LL[178]0:P[178]0:WP$[178]"":[139]PO(Z)[178]0[167]3995
  138. 3010 [141]7000
  139. 3015 [141]6000
  140. 3020 [141]10000
  141. 3025 [141]5000
  142. 3030 [141]8000
  143. 3035 [139]PG(Z)[178]1[167]21000
  144. 3040 [139]Z[177]AN[167][141]13000:[137]3100
  145. 3042 [141]10900
  146. 3045 [153]""SR$SU$"OPEN * AKTIVITAETEN *"
  147. 3050 [153]""SR$SU$"HAUS KAUFEN   -> H"
  148. 3051 [153]""SR$SU$"HYP. Z'ZAHLEN -> Z"
  149. 3052 [153]""SR$SU$"ANGEB. MITSP. -> K"
  150. 3053 [153]""SR$SU$"WUERFELN      -> W"
  151. 3054 TM$[178]TI$
  152. 3055 [161]A$:[139]A$[178]""[167]3055
  153. 3057 TI$[178]TM$
  154. 3060 [139]A$[178]"H"[167][141]10900:[141]12000:[137]3042
  155. 3065 [139]A$[178]"Z"[167][141]10900:[141]11000:[137]3042
  156. 3070 [139]A$[178]"K"[167][141]10900:[141]16000:[137]3042
  157. 3075 [139]A$[179][177]"W"[167]3045
  158. 3100 [141]22000
  159. 3105 [141]9000
  160. 3110 [141]5000
  161. 3200 [139]LO[178]1[175]PO(Z)[179][177]1[167]I[178]4000:[137]3210
  162. 3205 [139]LO[178]1[175]PO(Z)[178]1[167]I[178]8000:[137]3210
  163. 3206 [137]3220
  164. 3210 [141]10900:[141]10800:[153]""SP$(Z)" BEKOMMT"
  165. 3215 [141]10800:[153]""I"DM."
  166. 3216 GE(Z)[178]GE(Z)[170]I
  167. 3218 LO[178]0:[129]A[178]1[164]1500:[130]
  168. 3220 [139]PO(Z)[178]5[176]PO(Z)[178]39[167][141]20500
  169. 3225 [139]PO(Z)[178]8[176]PO(Z)[178]23[176]PO(Z)[178]37[167]23000
  170. 3230 [139]PO(Z)[178]3[176]PO(Z)[178]18[176]PO(Z)[178]34[167]23100
  171. 3235 [139]Z2[178]1[167]Z2[178]0:[137]3995
  172. 3240 [139]PO(Z)[178]11[167][141]10900:[137]3285
  173. 3245 [139]PO(Z)[178]21[167][141]10900:[141]10800:[153]""SP$(Z)" BEKOMMT"
  174. 3250 [139]PO(Z)[178]21[167][141]10800:[153]""FP"DM."
  175. 3255 [139]PO(Z)[178]21[167]GE(Z)[178]GE(Z)[170]FP:FP[178]0
  176. 3260 [139]PO(Z)[178]31[167]PG(Z)[178]1:WU[178]20:[137]3105
  177. 3265 [139]FA(PO(Z))[178]10[167][141]24000
  178. 3270 [139]FA(PO(Z))[178]9[167][141]24200
  179. 3275 [139]FA(PO(Z))[177]0[175]FA(PO(Z))[179]9[167][141]24400
  180. 3280 [139]Z2[178]1[167]Z2[178]0:[137]3995
  181. 3285 [141]7000:[141]20000
  182. 3287 [129]A[178]1[164]1000:[130]
  183. 3290 [139]WP$[178]"PASCH"[175]PG(Z)[178]0[167]3400
  184. 3295 [137]3990
  185. 3400 [139]Z[179][178]AN[167]3100
  186. 3410 [141]10900:[141]10800:[153]"PASCH: NOCHMAL!":[129]A[178]1[164]1500:[130]:[137]3100
  187. 3990 [129]A[178]1[164]1000:[130]
  188. 3992 [141]10900
  189. 3995 [130]Z:[139]TT[177]RU[167]27100
  190. 3996 [137]3000
  191. 5000 [153]"WAIT"[200](RE$,22);"PRINT                 CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";
  192. 5005 [153]"                 "
  193. 5010 [153]""[200](RE$,22);"PRINT";SN$(PO(Z))" "BB$(SB(PO(Z)))"WAIT";
  194. 5015 [139]PG(Z)[178]1[167][153]"CMD#"
  195. 5020 [139]FA(PO(Z))[177]0[167][153]""[200](RE$,22)"DEFBESITZER: "SP$(BE(PO(Z)))
  196. 5025 [129]A[178]1[164]100:[130]
  197. 5030 [153]"WAIT"[200](RE$,22);"PRINT                 CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";
  198. 5035 [153]""[200](RE$,22);"PRINT";SN$(PO(Z))" "BB$(SB(PO(Z)));
  199. 5040 [139]PG(Z)[178]1[167][153]"CMD#WAIT"
  200. 5050 [142]
  201. 6000 [153]""[200](RE$,21);[200](UN$,16);"       WAIT"
  202. 6010 [153]""[200](RE$,21);[200](UN$,16);""SP$(Z)"WAIT"
  203. 6015 [142]
  204. 7000 GE(Z)[178][181](GE(Z)[173]10)[172]10:G$[178][201]([196](GE(Z)),[195]([196](GE(Z)))[171]1)
  205. 7005 [153]"CLR"[200](RE$,21);[200](UN$,20);"       WAIT"
  206. 7010 [153]"CLR"[200](RE$,21);[200](UN$,20);""G$"WAIT"
  207. 7015 [142]
  208. 8000 ZL[178]4:J[178]1
  209. 8002 [129]B[178]0[164]KO(J)[171]1:I[178]ST(J,B)
  210. 8005 [139]BE(I)[179][177]Z[167]8020
  211. 8007 [139]ZL[178]22[167][141]8200
  212. 8010 [153]""[200](UN$,ZL)""FA$(FA(I))"              WAIT - "BB$(SB(I));
  213. 8011 [139]HY(I)[178]1[167][153]"CMDH";
  214. 8012 [153]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"SN$(I):ZL[178]ZL[170]1
  215. 8020 [130]B
  216. 8025 J[178]J[170]1:[139]J[178]11[167][142]
  217. 8030 [137]8002
  218. 8200 [139]Z[177]AN[167]8300
  219. 8202 [153]""[200](UN$,ZL[170]1)"LISTWEITER MIT <SPACE>"
  220. 8204 TM$[178]TI$
  221. 8205 [161]A$:[139]A$[178]""[167]8205
  222. 8206 TI$[178]TM$
  223. 8210 [141]10000:ZL[178]4:[142]
  224. 8300 [129]A[178]1[164]2000:[130]:[137]8210
  225. 9000 [129]A[178]1[164][182](WU):Q[178]0
  226. 9005 [129]I[178]1[164]4:[139]I[178]Z[167]9015
  227. 9010 [139]PO(Z)[178]PO(I)[167]Q[178]1:J[178]I
  228. 9015 [130]I
  229. 9020 [139]Q[178]0[167]9030
  230. 9025 [139][198](S$(J))[179]65[167][151]KN(PO(Z))[170]54272,1:[151]KN(PO(Z)),[198](S$(J)):[137]9050
  231. 9027 [151]KN(PO(Z))[170]54272,1:[151]KN(PO(Z)),[198](S$(J))[171]64:[137]9050
  232. 9030 [151]KN(PO(Z))[170]54272,FB(PO(Z)):[151]KN(PO(Z)),ZE(PO(Z))
  233. 9050 PO(Z)[178]PO(Z)[170][180](WU)
  234. 9055 [139]PO(Z)[177]40[167]PO(Z)[178]PO(Z)[171]40:[139]LL[178]0[175]PG(Z)[178]0[167]LO[178]1
  235. 9060 [139][198](S$(Z))[179]65[167][151]KN(PO(Z))[170]54272,1:[151]KN(PO(Z)),[198](S$(Z)):[137]9070
  236. 9065 [151]KN(PO(Z))[170]54272,1:[151]KN(PO(Z)),[198](S$(Z))[171]64
  237. 9070 [130]A:[142]
  238. 10000 [153]"WAIT";
  239. 10005 [129]A[178]1[164]20
  240. 10010 [153]"                  CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";
  241. 10015 [130]
  242. 10020 [142]
  243. 10800 [153]""SU$SR$"OPEN";:[142]
  244. 10900 [153]""SU$SR$LO$LP$LQ$:[142]
  245. 11000 [141]10900:[141]10800:[153]"AUF WELCHER":[141]10800
  246. 11002 [153]"STRASSE WILLST DU":[141]10800:[153]"EINE HYPOTHEK"
  247. 11004 [141]10800:[153]"ZURUECKZAHLEN ?"
  248. 11010 [141]19000:[141]10800:[153]"AUF "AT$(I):[139]FE[178]1[167]11025
  249. 11020 [139]HY(I)[178]1[175]GE(Z)[177][178].6[172]PR(I)[167]11030
  250. 11025 [141]10800:[153]"FALSCHE EINGABE!":[137]11050
  251. 11030 HY(I)[178]0:GE(Z)[178]GE(Z)[171].6[172]PR(I)
  252. 11035 KP(Z,FA(I))[178]KP(Z,FA(I))[170]1
  253. 11040 [141]10000:[141]8000:[141]7000
  254. 11050 [129]A[178]1[164]1500:[130]:[142]
  255. 12000 [141]10900:[141]10800
  256. 12005 [153]"AUF WELCHE":[141]10800:[153]"STRASSEN WILLST":[141]10800
  257. 12010 [153]"DU HAEUSER BAUEN?":[141]10800:[153]"(DIE 1. ANGEBEN)"
  258. 12015 [141]19000:[139]FE[178]1[167]12500
  259. 12020 [139]BE(I)[179][177]Z[167]12500
  260. 12025 [139]I[177]38[167]12500
  261. 12027 [139]FA(I)[179]1[176]FA(I)[177]8[167]12500
  262. 12030 R[178]I
  263. 12035 W(0)[178]0:W(1)[178]0:W(2)[178]0
  264. 12040 [129]J[178]0[164]KO(FA(R))[171]1:B(J)[178]ST(FA(R),J):B$(J)[178]SN$(ST(FA(R),J))
  265. 12045 [139]BE(B(J))[179][177]Z[167]Q[178]1
  266. 12050 [130]J
  267. 12055 [139]Q[178]1[167]Q[178]0:[137]12500
  268. 12065 [141]10900:[141]10800:[153]"WIEVIELE AUF .."
  269. 12070 [129]I[178]0[164]KO(FA(R))[171]1
  270. 12075 [141]10800:[153][200](UN$,I[170]2)""B$(I);
  271. 12080 [161]W$(I):[139]W$(I)[178]""[167]12080
  272. 12085 [139][198](W$(I))[179]48[176][198](W$(I))[177]53[167]12080
  273. 12090 [141]10800:[153][200](UN$,I[170]2)""W$(I):W(I)[178][197](W$(I))
  274. 12095 [130]I
  275. 12097 [139][182](SB(B(0))[170]W(0)[171]SB(B(1))[171]W(1))[177]1[167]12500
  276. 12100 [139]KO(FA(R))[178]3[175][182](SB(B(1))[170]W(1)[171]SB(B(2))[171]W(2))[177]1[167]12500
  277. 12105 [139]KO(FA(R))[178]3[175][182](SB(B(0))[170]W(0)[171]SB(B(2))[171]W(2))[177]1[167]12500
  278. 12110 [129]I[178]0[164]KO(FA(R))[171]1
  279. 12115 [139]SB(B(I))[170]W(I)[177]5[167]Q[178]1
  280. 12120 [130]I
  281. 12125 [139]Q[178]1[167]Q[178]0:[137]12500
  282. 12130 PY[178][181]((FA(R)[170]1)[173]2)[172]1000[172](W(0)[170]W(1)[170]W(2))
  283. 12135 [141]10800:[153]"PREIS:"PY:[141]19500
  284. 12140 [139]PJ[178]1[167][142]
  285. 12145 [129]I[178]0[164]KO(FA(R))[171]1
  286. 12150 SB(B(I))[178]SB(B(I))[170]W(I)
  287. 12155 GT[178]GT[170]W(I)
  288. 12160 [130]I
  289. 12165 GE(Z)[178]GE(Z)[171]PY:[141]7000:[141]10000:[141]8000:[129]A[178]1[164]2000:[130]:[142]
  290. 12500 [141]10800:[153]"FALSCHE EINGABE!":[129]A[178]1[164]2000:[130]:[142]
  291. 13000 [141]13900:[141]14000:[139]S2[178]1[167]13900
  292. 13005 [141]15000:[139]S2[178]1[167][141]13900
  293. 13010 [141]13100:[142]
  294. 13100 J[178]0:K[178]0:M2[178]9:KJ[178]0
  295. 13105 L(0)[178]0:L(1)[178]0
  296. 13110 [129]I[178]1[164]8
  297. 13115 [139]KP(Z,I)[178]KO(I)[167]K(J)[178]I:J[178]J[170]1:K[178]1
  298. 13120 [130]I:[139]K[178]0[167]13400
  299. 13125 [129]K[178]1[164]J
  300. 13130 [139]GE(Z)[179]GT[172]200[170][187](1)[172]5000[176]GE(Z)[179]3[172]([181]((K(J[171]1)[170]1)[173]2)[172]1000)[167]13400
  301. 13135 H[178][181](([187](1)[173]4[170].5)[172]GE(Z))
  302. 13140 M[178][181]([187](1)[172]J):[139]M[178]M2[167]M[178]M[170]1:[139]M[178]J[167]M[178]0
  303. 13145 N[178][181](H[173](([181]((K(M)[170]1)[173]2)[172]1000)))
  304. 13150 [139]N[178]0[167]13345
  305. 13155 M2[178]M
  306. 13160 [129]I[178]0[164]KO(K(M))[171]1
  307. 13165 B$(I)[178]SN$(ST(K(M),I)):B(I)[178]ST(K(M),I):[130]I
  308. 13190 Y[178]SB(B(0))[170]SB(B(1))[171](SB(B(2))[172](KO(K(M))[178]3))
  309. 13195 [139]Y[170]N[177]5[172]KO(K(M))[167]N[178]5[172]KO(K(M))[171]Y
  310. 13200 [139]N[178]0[167]13345
  311. 13210 [139]KO(K(M))[178]2[167]13250
  312. 13215 [139]SB(B(0))[178]SB(B(1))[175]SB(B(0))[178]SB(B(2))[167]13230
  313. 13220 [139]SB(B(1))[179]SB(B(2))[175]SB(B(1))[179]SB(B(0))[167]L(1)[178]1:N[178]N[171]1:[137]13230
  314. 13225 [139]SB(B(0))[178]SB(B(1))[175]SB(B(1))[179]SB(B(2))[167]L(0)[178]1:L(1)[178]1:N[178]N[171]2
  315. 13230 [139][181](N[173]3)[178]N[173]3[167]C(0)[178]N[173]3:C(1)[178]C(0):C(2)[178]C(0)
  316. 13235 [139][181]((N[170]2)[173]3)[178](N[170]2)[173]3[167]C(0)[178][181](N[173]3):C(1)[178]C(0):C(2)[178]C(0)[170]1
  317. 13240 [139][181]((N[170]1)[173]3)[178](N[170]1)[173]3[167]C(0)[178][181](N[173]3)[170]1:C(1)[178]C(0)[171]1:C(2)[178]C(0)
  318. 13245 C(0)[178]C(0)[170]L(0):C(1)[178]C(1)[170]L(1):N[178]N[170]L(0)[170]L(1):[137]13272
  319. 13250 [139]SB(B(0))[178]SB(B(1))[167]13260
  320. 13255 L(0)[178]1:N[178]N[171]1
  321. 13260 [139][181](N[173]2)[178]N[173]2[167]C(0)[178]N[173]2:C(1)[178]C(0)
  322. 13265 [139][181]((N[170]1)[173]2)[178](N[170]1)[173]2[167]C(0)[178][181](N[173]2):C(1)[178]C(0)[170]1
  323. 13270 C(0)[178]C(0)[170]L(0):N[178]N[170]L(0)
  324. 13272 [129]G[178]0[164]KO(K(M))[171]1
  325. 13273 [139]C(G)[170]SB(B(G))[177]5[167]N[178]N[171](C(G)[170]SB(B(G))[171]5):C(G)[178]5[171]SB(B(G))
  326. 13274 [130]G:[139]N[178]0[167]13345
  327. 13275 [141]10900:[141]10800:[153]""SP$(Z)" KAUFT":[141]10800
  328. 13280 [153]"HAEUSER:   AUF.."
  329. 13285 L(0)[178]0:L(1)[178]0
  330. 13290 [129]G[178]0[164]KO(K(M))[171]1
  331. 13295 [141]10800:[153][200](UN$,G[170]4)""B$(G)
  332. 13300 [141]10800:[153][200](UN$,G[170]4)""C(G)
  333. 13305 [130]G
  334. 13310 [129]I[178]0[164]KO(K(M))[171]1
  335. 13315 SB(B(I))[178]SB(B(I))[170]C(I)
  336. 13320 GT[178]GT[170]C(I)
  337. 13325 [130]I
  338. 13330 GE(Z)[178]GE(Z)[171]N[172][181]((K(M)[170]1)[173]2)[172]1000
  339. 13335 XJ[178]J:[141]7000:[141]10000:[141]8000:J[178]XJ
  340. 13340 [129]A[178]1[164]2000:[130]A
  341. 13345 [130]K
  342. 13400 [142]
  343. 13900 [141]10900
  344. 13910 [141]10800:[153]"* AKTIVITAETEN *":[142]
  345. 14000 I[178]0:S2[178]0
  346. 14010 I[178]I[170]1:[139](BE(I)[179][177]Z[176]HY(I)[178]0)[175]I[179]40[167]14010
  347. 14020 [139]I[179]40[167]14060
  348. 14030 [139]BE(40)[178]Z[175]HY(40)[178]1[167]14060
  349. 14040 [139]S2[178]1[167][141]7000:[141]10000:[141]8000
  350. 14050 [142]
  351. 14060 [139]GE(Z)[179].8[172]PR(I)[167]14040
  352. 14070 [141]10900:[141]10800:[153]""SP$(Z)" ZAHLT":[141]10800
  353. 14075 [153]"HYPOTHEK AUF "AT$(I):[141]10800:[153]""SN$(I)
  354. 14078 [141]10800:[153]"ZURUECK.
  355. 14080 GE(Z)=GE(Z)-.6*PR(I):HY(I)=0:S2=1
  356. 14085 KP(Z,FA(I))=KP(Z,FA(I))+1
  357. 14090 FORA=1TO1500:NEXT
  358. 14095 IFI=40THEN14040
  359. 14100 GOTO14010
  360. 15000 S2=0:N=0
  361. 15005 FORI=1TO8:A$="":Z4=0:Z5=0:Z6=0:Z7=0:IFN>=2THEN15090
  362. 15010 IFKP(Z,I)=KO(I)ORKP(Z,I)=0THEN15090
  363. 15015 FORJ=1TO4:IFJ=ZORZ4<>0THEN15025
  364. 15020 IFKP(J,I)>0THENZ4=J
  365. 15025 NEXTJ
  366. 15030 IFZ4=0THEN15090
  367. 15035 FORK=1TO8:IFK=IORZ5<>0THEN15045
  368. 15040 IF(KP(Z4,K)=1ORKP(Z4,K)=2ANDKO(K)=3)ANDKP(Z,K)=1THENZ5=K
  369. 15045 NEXTK
  370. 15050 IFZ5=0THEN15069
  371. 15055 M=-1
  372. 15057 M=M+1:IFBE(ST(I,M))<>Z4THEN15057
  373. 15060 Z7=ST(I,M):M=-1
  374. 15062 M=M+1:IFBE(ST(Z5,M))<>ZTHEN15062
  375. 15065 Z6=ST(Z5,M):GOSUB17500:N=N+1:S2=1:GOTO15090
  376. 15069 M=-1
  377. 15070 M=M+1:IFBE(ST(I,M))<>Z4THEN15070
  378. 15075 Z7=ST(I,M):PT=INT((PR(Z7)*(1.9+RND(1)*1.4))/100)*100
  379. 15080 IFGE(Z)<PTTHEN15090
  380. 15085 GOSUB17000:S2=1:N=N+1
  381. 15090 IFA$="J"THENGOSUB10000:GOSUB8000:GOSUB7000
  382. 15092 NEXTI
  383. 15095 IFS2=1THENFORA=1TO3000:NEXT
  384. 15097 RETURN
  385. 16000 N=0
  386. 16002 N=N+1:IFN=3THEN16500
  387. 16005 GOSUB10900:GOSUB10800:PRINT"WELCHE STRASSE":GOSUB10800
  388. 16006 PRINT"WILLST DU ?"
  389. 16010 GOSUB19000:IFFE=1THEN16500
  390. 16012 FORA=1TO800:NEXT
  391. 16015 Z7=I
  392. 16020 IFSB(I)>0THEN16500
  393. 16030 FORJ=0TOKO(FA(J))-1:B(J)=ST(FA(I),J)
  394. 16035 NEXTJ
  395. 16040 IFSB(B(1))>0THEN16500
  396. 16045 IFM=3ANDSB(B(2))>0THEN16500
  397. 16050 GOSUB10900:GOSUB10800:PRINT"VON WEM WILLST":GOSUB10800
  398. 16051 PRINT"DU "AR$(Z7):GOSUB10800:PRINT""SN$(Z7)" ?"
  399. 16055 Z4=0
  400. 16060 TM$=TI$
  401. 16065 GETA$:IFA$=""THEN16065
  402. 16066 TI$=TM$
  403. 16070 FORK=1TO4:IFK=ZTHEN16075
  404. 16072 IFA$=LEFT$(SP$(K),1)THENZ4=K
  405. 16075 NEXTK
  406. 16080 IFZ4=0ORZ4<>BE(I)THEN16500
  407. 16085 GOSUB10800:PRINT""SP$(Z4)
  408. 16088 FORA=1TO1000:NEXT
  409. 16090 GOSUB10900:GOSUB10800:PRINT"WILLST DU":GOSUB10800
  410. 16095 PRINT"KAUFEN (V) ODER":GOSUB10800:PRINT"TAUSCHEN (T) ?"
  411. 16099 TM$=TI$
  412. 16100 GETA$:IFA$<>"V"ANDA$<>"T"THEN16100
  413. 16101 TI$=TM$
  414. 16105 IFA$="T"THEN16140
  415. 16110 GOSUB10800:PRINT"ZU WELCHEM PREIS?"
  416. 16113 B$=""
  417. 16115 GOSUB10800:PRINT"DM ";
  418. 16116 GETA$:IFA$<>CHR$(20)THEN16119
  419. 16117 IFLEN(B$)>0THENPRINT"[157] [157]";:B$=LEFT$(B$,LEN(B$)-1)
  420. 16118 GOTO16116
  421. 16119 IFA$<>""ANDA$<>CHR$(13)THENIFASC(A$)<48ORASC(A$)>57THEN16116
  422. 16120 PRINTA$;:IFA$=CHR$(13)ANDLEN(B$)>0THEN16122
  423. 16121 B$=B$+A$:GOTO16116
  424. 16122 PT=VAL(B$)
  425. 16125 GOSUB17000
  426. 16130 IFA$="J"THENGOSUB10000:GOSUB8000:GOSUB7000
  427. 16135 FORA=1TO3000:NEXT:RETURN
  428. 16140 GOSUB10800:PRINT"GEGEN WELCHE ?":GOSUB19000:IFFE=1THEN16500
  429. 16145 Z6=I:J=I
  430. 16150 IFBE(J)<>ZTHEN16500
  431. 16155 FORK=0TOKO(FA(J))-1:B(K)=ST(FA(J),K)
  432. 16160 NEXTK
  433. 16165 IFSB(J)>0ORSB(B(1))>0THEN16500
  434. 16170 IFM=2ANDSB(B(2))>0THEN16500
  435. 16180 GOSUB17500:GOTO16130
  436. 16500 GOSUB10800:PRINT"FALSCHE EINGABE!":FORA=1TO1500:NEXT:GOSUB10900
  437. 16510 RETURN
  438. 17000 GOSUB10900:GOSUB10800:PRINT""SP$(Z)" WILL":GOSUB10800
  439. 17002 PRINT"VON "SP$(Z4)" "AR$(Z7)
  440. 17005 A$=""
  441. 17010 GOSUB10800:PRINT""SN$(Z7):GOSUB10800:PRINT"FUER DM"PT
  442. 17015 GOSUB10800:PRINT"(J/N)?"
  443. 17020 IFZ4>ANTHEN17100
  444. 17024 TM$=TI$
  445. 17025 GETA$:IFA$=""THEN17025
  446. 17026 TI$=TM$
  447. 17030 IFA$="J"THEN17050
  448. 17035 IFA$="N"THEN17045
  449. 17040 GOTO17024
  450. 17045 GOSUB10800:PRINT"NEIN!":RETURN
  451. 17050 IFGE(Z)<PTTHENGOSUB10800:PRINT"ZU WENIG GELD! "
  452. 17051 IFGE(Z)<PTTHENRETURN
  453. 17055 GOSUB10800:PRINT"JA!"
  454. 17060 BE(Z7)=Z
  455. 17061 IFHY(Z7)=0THENKP(Z,FA(Z7))=KP(Z,FA(Z7))+1
  456. 17063 IFHY(Z7)=0THENKP(Z4,FA(Z7))=KP(Z4,FA(Z7))-1
  457. 17065 GE(Z)=GE(Z)-PT:GE(Z4)=GE(Z4)+PT:RETURN
  458. 17100 IFKP(Z,FA(Z7))=KO(FA(Z7))-1THENA$="N"
  459. 17105 IFKP(Z4,FA(Z7))>1THENA$="N"
  460. 17110 M=0
  461. 17115 FORJ=1TO8:IFKP(Z4,J)=KO(J)THENM=M+1
  462. 17120 NEXTJ:IFM<2ANDPT<3*PR(Z7)THENA$="N"
  463. 17125 IFPT<2*PR(Z7)THENA$="N"
  464. 17130 IFPT>3*PR(Z7)ANDRND(1)<.5THENA$="N"
  465. 17132 IFGE(Z4)>3000THENA$="N"
  466. 17135 IFA$<>"N"THENA$="J"
  467. 17140 GOTO17030
  468. 17500 R=PR(Z7)-PR(Z6):A$=""
  469. 17505 IFR>0ANDGE(Z)<RTHENRETURN
  470. 17510 GOSUB10900:GOSUB10800:PRINT""SP$(Z)" WILL":GOSUB10800
  471. 17512 PRINT"VON "SP$(Z4)" "AR$(Z7):GOSUB10800
  472. 17513 IFR>=0THEN17520
  473. 17515 PRINT""SN$(Z7)" +":GOSUB10800:PRINT""ABS(R)"DM GEGEN "AR$(Z6)
  474. 17517 GOSUB10800:PRINT""SN$(Z6)
  475. 17518 GOTO17525
  476. 17520 GOSUB10800:PRINT""SN$(Z7):GOSUB10800:PRINT"GEGEN DM"ABS(R)
  477. 17522 GOSUB10800:PRINT"+ "SN$(Z6)
  478. 17525 GOSUB10800:PRINT"(J/N)?"
  479. 17530 IFZ4>ANTHEN17600
  480. 17534 TM$=TI$
  481. 17535 GETA$:IFA$=""THEN17535
  482. 17536 TI$=TM$
  483. 17540 IFA$="J"THEN17555
  484. 17545 IFA$="N"THEN17552
  485. 17550 GOTO17534
  486. 17552 GOSUB10800:PRINT"NEIN!":RETURN
  487. 17555 GOSUB10800:PRINT"JA!"
  488. 17556 IFR>0ANDGE(Z)<RTHENGOSUB10800:PRINT"ZU WENIG GELD":GOTO17575
  489. 17557 IFR<0ANDGE(Z4)<(-R)THENGOSUB10800:PRINT"ZU WENIG GELD":GOTO17575
  490. 17560 BE(Z7)=Z:BE(Z6)=Z4
  491. 17561 IFHY(Z7)=0THENKP(Z,FA(Z7))=KP(Z,FA(Z7))+1
  492. 17563 IFHY(Z7)=0THENKP(Z4,FA(Z7))=KP(Z4,FA(Z7))-1
  493. 17565 IFHY(Z6)=0THENKP(Z4,FA(Z6))=KP(Z4,FA(Z6))+1
  494. 17567 IFHY(Z6)=0THENKP(Z,FA(Z6))=KP(Z,FA(Z6))-1
  495. 17570 GE(Z)=GE(Z)-R:GE(Z4)=GE(Z4)+R
  496. 17575 RETURN
  497. 17600 IFKP(Z,FA(Z7))-KO(FA(Z7))<=KP(Z4,FA(Z6))-KO(FA(Z6))THENA$="J"
  498. 17602 IFA$<>"J"THENA$="N"
  499. 17605 IFR<0ANDGE(Z4)<ABS(R)THENA$="N"
  500. 17610 GOTO17540
  501. 18000 IFGE(Z)<Z9THEN18015
  502. 18005 IFZ>ANTHENGOSUB10000:GOSUB8000
  503. 18010 V=0:FORA=1TO1000:NEXT:RETURN
  504. 18015 Q=0
  505. 18020 FORI=1TO40
  506. 18025 IFBE(I)=ZTHENQ=1
  507. 18030 NEXTI
  508. 18035 IFQ=0THEN27000
  509. 18040 GOSUB18100:GOSUB7000:GOTO18000
  510. 18100 IFZ>ANTHEN18500
  511. 18105 GOSUB10900:GOSUB10800:PRINT"HAEUSER VERK. -> V"
  512. 18110 GOSUB10800:PRINT"HYPOTHEK AUFN.-> H"
  513. 18115 GOSUB10800:PRINT"STRASSE VERK. -> S"
  514. 18120 GOSUB10800:PRINT"SCHULD:"Z9
  515. 18124 TM$=TI$
  516. 18125 GETA$:IFA$=""THEN18125
  517. 18126 TI$=TM$
  518. 18127 IFA$="V"THEN18300
  519. 18128 IFA$="H"THEN18200
  520. 18129 IFA$<>"S"THEN18124
  521. 18130 GOSUB10900:GOSUB10800:PRINT"WELCHE STRASSE":GOSUB10800:PRINT"WILLST DU"
  522. 18135 GOSUB10800:PRINT"VERKAUFEN?"
  523. 18140 GOSUB19000:IFFE=1THEN18105
  524. 18142 IFBE(I)<>ZTHEN18400
  525. 18144 FORJ=0TO2
  526. 18146 B(J)=ST(FA(I),J)
  527. 18148 NEXTJ
  528. 18150 Q=0
  529. 18152 FORJ=0TOKO(FA(I))
  530. 18154 IFSB(B(J))>0THENQ=1
  531. 18156 NEXTJ
  532. 18160 IFQ=1THEN18400
  533. 18165 BE(I)=5
  534. 18170 GE(Z)=GE(Z)+PR(I)*(1+(.5*(HY(I)=1)))
  535. 18172 IFHY(I)=0THENKP(Z,FA(I))=KP(Z,FA(I))-1
  536. 18175 HY(I)=0:GOSUB10000:GOSUB8000:RETURN
  537. 18200 GOSUB10900:GOSUB10800:PRINT"AUF WELCHE":GOSUB10800:PRINT"STRASSE WILLST"
  538. 18205 GOSUB10800:PRINT"DU EINE HYPOTHEK":GOSUB10800:PRINT"AUFNEHMEN?"
  539. 18210 GOSUB19000:IFFE=1THEN18105
  540. 18215 IFBE(I)<>ZTHEN18400
  541. 18220 FORJ=0TOKO(FA(I))-1
  542. 18225 B(J)=ST(FA(I),J)
  543. 18230 NEXTJ
  544. 18235 Q=0
  545. 18240 FORJ=0TOKO(FA(I))-1
  546. 18245 IFSB(B(J))>0THENQ=1
  547. 18250 NEXTJ
  548. 18255 IFQ=1THEN18400
  549. 18260 IFHY(I)=1THEN18400
  550. 18265 GE(Z)=GE(Z)+.5*PR(I)
  551. 18267 KP(Z,FA(I))=KP(Z,FA(I))-1
  552. 18270 HY(I)=1:GOSUB10000:GOSUB8000:RETURN
  553. 18300 GOSUB10900:GOSUB10800:PRINT"AUF WELCHEM":GOSUB10800:PRINT"STRASSENZUG
  554. 18305 [141]10800:[153]"WILLST DU HAEUSER":[141]10800:[153]"VERKAUFEN?"
  555. 18310 [141]10800:[153]"(DIE 1. ANGEBEN)"
  556. 18315 [141]19000:[139]FE[178]1[167]18105
  557. 18325 [129]J[178]0[164]KO(FA(I))[171]1
  558. 18330 B(J)[178]ST(FA(I),J)
  559. 18332 [130]J
  560. 18335 [141]10900
  561. 18337 [129]J[178]0[164]KO(FA(I))[171]1
  562. 18340 [141]10800:[153][200](UN$,J[170]1)SN$(B(J))":"
  563. 18345 [161]A$:[139]A$[178]""[167]18345
  564. 18347 [139][198](A$)[179]48[176][198](A$)[177]53[167]18345
  565. 18350 W(J)[178][197](A$):[141]10800:[153][200](UN$,J[170]1)""W(J)
  566. 18355 C(J)[178]SB(B(J))[171]W(J)
  567. 18360 [130]J
  568. 18370 [139][182](C(0)[171]C(1))[177]1[167]18400
  569. 18372 [139]KO(FA(I))[178]3[175][182](C(0)[171]C(2))[177]1[167]18400
  570. 18374 [139]KO(FA(I))[178]3[175][182](C(1)[171]C(2))[177]1[167]18400
  571. 18376 W[178]W(0)[170]W(1)[170]W(2)
  572. 18378 [129]J[178]0[164]KO(FA(I))[171]1
  573. 18380 SB(B(J))[178]SB(B(J))[171]W(J)
  574. 18385 [130]J
  575. 18390 GE(Z)[178]GE(Z)[170]W[172]500[172][181]((FA(I)[170]1)[173]2)
  576. 18395 GT[178]GT[171]W:Z4[178]I:[141]10000:[141]8000:[137]18965
  577. 18400 [141]10900:[141]10800:[153]"DAS GEHT NICHT!"
  578. 18405 [129]A[178]1[164]1500:[130]:[137]18105
  579. 18500 Z4[178]0:O[178]1
  580. 18505 [129]B[178]1[164]10:[129]C[178]0[164]KO(B)[171]1:I[178]ST(B,C):[139]Z4[179][177]0[167]18514
  581. 18510 [139]V[177]0[167][141]18615:[137]18514
  582. 18512 [145]O[141]18525,18540,18555,18570,18585,18600,18615,18630,18645
  583. 18514 [130]C,B
  584. 18516 [139]Z4[179][177]0[167][145]Z5[137]18900,18920,18940
  585. 18518 O[178]O[170]1:[139]O[179]10[167]18505
  586. 18520 [142]
  587. 18525 [139](FA(I)[178]9[176]FA(I)[178]10)[175]BE(I)[178]Z[175]HY(I)[178]0[167]Z4[178]I:Z5[178]1
  588. 18526 [142]
  589. 18540 [139]KP(Z,FA(I))[178]1[175]BE(I)[178]Z[175]HY(I)[178]0[167]Z4[178]I:Z5[178]1
  590. 18541 [142]
  591. 18555 [139]KP(Z,FA(I))[178]2[175]KO(FA(I))[178]3[175]BE(I)[178]Z[175]HY(I)[178]0[167]Z4[178]I:Z5[178]1
  592. 18556 [142]
  593. 18570 [139](FA(I)[178]9[176]FA(I)[178]10)[175]BE(I)[178]Z[167]Z4[178]I:Z5[178]2
  594. 18571 [142]
  595. 18585 [139]KP(Z,FA(I))[178]0[175]BE(I)[178]Z[175]HY(I)[178]1[167]Z4[178]I:Z5[178]2
  596. 18586 [142]
  597. 18600 [139]KP(Z,FA(I))[178]0[175]KO(FA(I))[178]3[175]BE(I)[178]Z[175]HY(I)[178]1[167]Z4[178]I:Z5[178]2
  598. 18601 [142]
  599. 18615 [139]KP(Z,FA(I))[179]KO(FA(I))[167][142]
  600. 18616 V[178]0:[129]J[178]0[164]KO(FA(I))[171]1
  601. 18617 B(J)[178]ST(FA(I),J)
  602. 18618 V[178]V[170]SB(B(J))
  603. 18619 [130]J
  604. 18620 [139]V[178]0[167][142]
  605. 18621 M[178]0
  606. 18622 [129]J[178]0[164]KO(FA(I))[171]1
  607. 18623 [139]SB(B(J))[177]M[167]M[178]SB(B(J)):Z4[178]B(J)
  608. 18624 [130]J:Z5[178]3:[142]
  609. 18630 [139]BE(I)[178]Z[175]HY(I)[178]0[167]Z4[178]I:Z5[178]1
  610. 18631 [142]
  611. 18645 [139]BE(I)[178]Z[167]Z4[178]I:Z5[178]2
  612. 18646 [142]
  613. 18900 [141]10900:[141]10800:[153]""SP$(Z)" NIMMT":[141]10800
  614. 18902 [153]"HYPOTHEK AUF "AR$(Z4):[141]10800:[153]""SN$(Z4)"
  615. 18905 GOSUB10800:PRINT"AUF.":GOSUB10800:PRINT"SCHULD:"Z9
  616. 18910 GE(Z)=GE(Z)+.5*PR(Z4)
  617. 18913 KP(Z,FA(Z4))=KP(Z,FA(Z4))-1
  618. 18915 HY(Z4)=1:RETURN
  619. 18920 GOSUB10900:GOSUB10800:PRINT""SP$(Z):GOSUB10800
  620. 18922 PRINT"VERKAUFT "AR$(Z4):GOSUB10800
  621. 18925 PRINT""SN$(Z4)
  622. 18930 GOSUB10800:PRINT"SCHULD:"Z9
  623. 18932 GE(Z)=GE(Z)+.5*PR(Z4)
  624. 18933 IFHY(Z4)=0THENKP(Z,FA(Z4))=KP(Z,FA(Z4))-1
  625. 18935 BE(Z4)=5:HY(Z4)=0:RETURN
  626. 18940 GOSUB10900:GOSUB10800:PRINT""SP$(Z)" VERKAUFT":GOSUB10800
  627. 18942 PRINT"EIN HAUS AUF "AT$(Z4):GOSUB10800:PRINT""SN$(Z4)
  628. 18945 GOSUB10800:PRINT"SCHULD:"Z9
  629. 18950 SB(Z4)=SB(Z4)-1:V=V-1
  630. 18955 GE(Z)=GE(Z)+INT((FA(Z4)+1)/2)*500
  631. 18960 GT=GT-1
  632. 18965 RETURN
  633. 19000 FE=0
  634. 19002 GETB$:IFB$=""THEN19000
  635. 19005 GETC$:IFC$=""THEN19005
  636. 19010 GETD$:IFD$=""THEN19010
  637. 19015 A$=B$+C$+D$
  638. 19020 IFA$="SCH"THEN19100
  639. 19025 IFA$="HAU"THEN19130
  640. 19030 I=0
  641. 19035 I=I+1:IFI=41THEN19045
  642. 19040 IFLEFT$(SN$(I),3)<>A$THEN19035
  643. 19045 IFI=41THEN19300
  644. 19050 GOTO19180
  645. 19100 GETB$:IFB$=""THEN19100
  646. 19105 IFB$="L"THENI=40:GOTO19180
  647. 19110 IFB$<>"I"THEN19300
  648. 19115 I=27:GOTO19180
  649. 19130 GETB$:IFB$=""THEN19130
  650. 19135 GETB$:IFB$=""THEN19135
  651. 19140 GETB$:IFB$=""THEN19140
  652. 19145 IFB$="S"THENI=33:GOTO19180
  653. 19150 IFB$<>"B"THEN19300
  654. 19155 I=36:GOTO19180
  655. 19180 A$=SN$(I)
  656. 19190 GOSUB10800:PRINT""A$
  657. 19195 RETURN
  658. 19300 FE=1:RETURN
  659. 19500 IFGE(Z)>PYTHENPJ=0:RETURN
  660. 19510 PJ=1:GOSUB10800:PRINT""SP$(Z)" HAT NICHT":GOSUB10800
  661. 19515 PRINT"GENUG GELD."
  662. 19520 RETURN
  663. 20000 TT=VAL(LEFT$(TI$,2))*60+VAL(MID$(TI$,3,2))
  664. 20002 PRINT"[151]"TR$TU$;"     [157][157][157][157][157]"STR$(RU-TT)
  665. 20005 PRINT"[151]"FR$FU$;"      [157][157][157][157][157][157]"STR$(FP)
  666. 20010 RETURN
  667. 20500 IFPO(Z)=39THENGOTO20520
  668. 20505 GOSUB10900:GOSUB10800:PRINT""SP$(Z)" MUSS"
  669. 20510 GOSUB10800:PRINT"4000 DM ZAHLEN."
  670. 20515 BZ=4000:GOTO20550
  671. 20520 GOSUB10900:GOSUB10800:PRINT""SP$(Z)" MUSS"
  672. 20525 GOSUB10800:PRINT"2000 DM ZAHLEN."
  673. 20530 BZ=2000:GOTO20550
  674. 20550 IFBZ>GE(Z)THENZ9=BZ:GOSUB18000
  675. 20555 GE(Z)=GE(Z)-BZ:FP=FP+BZ:RETURN
  676. 21000 GOSUB22000:GW(Z)=GW(Z)+1
  677. 21010 IFWP$="PASCH"THENPG(Z)=0:GW(Z)=0:GOSUB21100:GOTO3105
  678. 21015 IFGW(Z)=3THENGW(Z)=0:PG(Z)=0:Z9=1000:GOSUB21150:GOTO21040
  679. 21020 IFFF(Z)=1THENPG(Z)=0:GW(Z)=0:FF(Z)=0:GOTO21065
  680. 21021 GOSUB10900:GOSUB10800:PRINT"WILLST DU DICH":GOSUB10800
  681. 21022 PRINT"FUER DM 1000":GOSUB10800:PRINT"FREIKAUFEN ?":GOSUB10800
  682. 21023 PRINT"(J/N)";:IFZ>ANTHEN21030
  683. 21024 TM$=TI$
  684. 21025 GETA$:IFA$<>"J"ANDA$<>"N"THEN21025
  685. 21026 TI$=TM$
  686. 21027 IFA$="J"ANDGE(Z)>=1000THENGW(Z)=3:PRINT" JA!":FORA=1TO1000:NEXT:GOTO21015
  687. 21028 PRINT" NEIN!":FORA=1TO1000:NEXT:GOTO3235
  688. 21030 IFGT>10ORGE(Z)<1000THENA$="N"
  689. 21031 IFGE(Z)>1000AND(WU=10ORWU=7)THENA$="J"
  690. 21032 IFA$="N"THENPRINT" NEIN!":FORA=1TO1000:NEXT:GOTO3235
  691. 21033 PRINT" JA!"
  692. 21035 FORA=1TO1000:NEXT:GW(Z)=3:GOTO21015
  693. 21040 IFGE(Z)<Z9THENGOSUB18000
  694. 21045 IFZ2=1THEN3235
  695. 21050 GE(Z)=GE(Z)-1000:GOTO3105
  696. 21065 GOSUB10900:GOSUB10800:PRINT"E/G-KARTE:"
  697. 21066 GOSUB10800:PRINT"DU KOMMST AUS":GOSUB10800:PRINT"DEM GEFAENGNIS"
  698. 21067 GOSUB10800:PRINT"FREI."
  699. 21070 GOTO3105
  700. 21100 GOSUB10900:GOSUB10800:PRINT"* PASCH *"
  701. 21105 GOSUB10800:PRINT"DU KOMMST AUS":GOSUB10800:PRINT"DEM GEFAENGNIS"
  702. 21110 GOSUB10800:PRINT"FREI."
  703. 21115 RETURN
  704. 21150 GOSUB10900:GOSUB10800:PRINT"DU KOMMST FUER"
  705. 21155 GOSUB10800:PRINT"1000 DM AUS DEM":GOSUB10800:PRINT"GEFAENGNIS FREI"
  706. 21160 RETURN
  707. 21999 GOTO3100
  708. 22000 GOSUB10900
  709. 22005 GOSUB10800:PRINT"* WUERFELN *"
  710. 22010 IFZ>ANOR(PG(Z)=0ANDWP$="")THEN22025
  711. 22015 GOSUB10800:PRINT"[146]RETURN"
  712. 22019 TM$=TI$
  713. 22020 GETA$:IFA$<>CHR$(13)THEN22020
  714. 22021 TI$=TM$:GOSUB10800:PRINT"      "
  715. 22025 W(1)=6:W(2)=6
  716. 22030 B(1)=INT(RND(1)*12)+13
  717. 22040 B(2)=INT(RND(1)*12)+13
  718. 22045 IFB(1)>=B(2)THENX=B(1):GOTO22050
  719. 22046 X=B(2)
  720. 22050 FORY=1TOX:FORI=1TO2
  721. 22052 IFY>B(I)THEN22056
  722. 22055 W(I)=W(I)-1:IFW(I)=0THENW(I)=6
  723. 22056 NEXTI
  724. 22057 PRINT""LEFT$(RE$,21)LEFT$(UN$,22);
  725. 22058 ONW(1)GOSUB22200,22210,22220,22230,22240,22250
  726. 22059 PRINT""LEFT$(RE$,25)LEFT$(UN$,22);
  727. 22060 ONW(2)GOSUB22200,22210,22220,22230,22240,22250
  728. 22065 NEXTY
  729. 22070 IFW(1)=W(2)THENWP$="PASCH"
  730. 22072 IFW(1)<>W(2)THENWP$=""
  731. 22075 IFWP$="PASCH"THENP=P+1:IFP=3THENPG(Z)=1:WU=11-PO(Z):IFWU<0THENWU=WU+40
  732. 22080 IFP=3THEN22100
  733. 22085 WU=W(1)+W(2)
  734. 22090 RETURN
  735. 22100 GOSUB10900:GOSUB10800
  736. 22105 PRINT"DREIMAL PASCH:"
  737. 22110 GOSUB10800:PRINT""SP$(Z)" MUSS INS"
  738. 22115 GOSUB10800:PRINT"GEFAENGNIS."
  739. 22120 FORA=1TO2000:NEXT:RETURN
  740. 22200 PRINT"[153]   [157][157][157] [209] [157][157][157]   ";:RETURN
  741. 22210 PRINT"[153]  [209][157][157][157]   [157][157][157][209]  ";:RETURN
  742. 22220 PRINT"[153][209]  [157][157][157] [209] [157][157][157]  [209]";:RETURN
  743. 22230 PRINT"[153][209] [209][157][157][157]   [157][157][157][209] [209]";:RETURN
  744. 22240 PRINT"[153][209] [209][157][157][157] [209] [157][157][157][209] [209]";:RETURN
  745. 22250 PRINT"[153][209] [209][157][157][157][209] [209][157][157][157][209] [209]";:RETURN
  746. 23000 A=0
  747. 23002 IFLEN(ER$(A,EZ))>18THEN23010
  748. 23005 A=A+1:GOTO23002
  749. 23010 LT$=RIGHT$(ER$(A,EZ),6):L1$=LEFT$(LT$,1):E$(A)=LEFT$(ER$(A,EZ),18)
  750. 23012 IFA>0THENFORB=0TOA-1:E$(B)=ER$(B,EZ):NEXTB
  751. 23015 GOSUB10900
  752. 23020 FORI=0TOA
  753. 23025 GOSUB10800:PRINTLEFT$(UN$,I+1)E$(I)
  754. 23030 NEXTI
  755. 23035 EZ=EZ+1:IFEZ=16THENEZ=0
  756. 23040 GOTO23140
  757. 23100 A=0
  758. 23102 IFLEN(GE$(A,GZ))>18THEN23110
  759. 23105 A=A+1:GOTO23102
  760. 23110 LT$=RIGHT$(GE$(A,GZ),6):L1$=LEFT$(LT$,1):G$(A)=LEFT$(GE$(A,GZ),18)
  761. 23112 IFA>0THENFORB=0TOA-1:G$(B)=GE$(B,GZ):NEXTB
  762. 23115 GOSUB10900
  763. 23120 FORI=0TOA
  764. 23125 GOSUB10800:PRINTLEFT$(UN$,I+1)G$(I)
  765. 23130 NEXTI
  766. 23135 GZ=GZ+1:IFGZ=16THENGZ=0
  767. 23140 IFMID$(LT$,1,3)<>"0"THENL3=VAL(RIGHT$(LT$,4)):GOTO23160
  768. 23145 IFMID$(LT$,1,4)<>"0"THENL3=VAL(RIGHT$(LT$,3)):GOTO23160
  769. 23150 IFMID$(LT$,1,5)<>"0"THENL3=VAL(RIGHT$(LT$,2)):GOTO23160
  770. 23155 L3=VAL(RIGHT$(LT$,1)):GOTO23160
  771. 23160 IFL1$="X"THENWU=L3-PO(Z):IFWU<0THENWU=WU+40
  772. 23162 IFL1$="X"THEN3105
  773. 23165 IFL1$="Y"THENWU=L3-PO(Z):LL=1
  774. 23166 IFL1$="Y"THEN3105
  775. 23170 IFL1$<>"Z"THEN23175
  776. 23171 IFL3>GE(Z)THENZ9=L3:GOSUB18000
  777. 23172 IFZ2=1THEN3235
  778. 23173 GE(Z)=GE(Z)-L3:FP=FP+L3:GOTO3235
  779. 23175 IFL1$="E"THENGE(Z)=GE(Z)+L3:GOTO3235
  780. 23180 IFL1$="G"THENWU=-3:LL=1:GOTO3105
  781. 23185 IFL1$="F"THENFF(Z)=1:GOTO3235
  782. 23190 IFL1$="K"THENPG(Z)=1:WU=11-PO(Z):IFWU<0THENWU=WU+40
  783. 23195 IFL1$="K"THENGOSUB9000:GOTO3235
  784. 23200 IFL1$<>"A"THEN23220
  785. 23201 GOSUB10800:PRINT"[146]E'KARTE - [146]ZAHLEN ?"
  786. 23202 IFZ<=ANTHEN23205
  787. 23203 IFRND(1)<.5ORGE(Z)<200THEN23210
  788. 23204 GOTO23215
  789. 23205 TM$=TI$
  790. 23206 GETA$:IFA$=""THEN23205
  791. 23207 TI$=TM$:IFA$="E"THEN23210
  792. 23208 IFA$<>"Z"THEN23205
  793. 23209 GOTO23215
  794. 23210 Q$="          "
  795. 23211 GOSUB10800:PRINTQ$:FORA=1TO1500:NEXT
  796. 23212 GOTO23000
  797. 23215 Q$="         "
  798. 23216 GOSUB10800:PRINTQ$:IFGE(Z)<200THEN23201
  799. 23217 GE(Z)=GE(Z)-200:FP=FP+200:GOTO3235
  800. 23220 IFL1$<>"B"THEN23230
  801. 23221 FORI=1TO4:IFI=ZTHEN23223
  802. 23222 IFGE(I)>200THENGE(I)=GE(I)-200
  803. 23223 NEXTI
  804. 23224 GE(Z)=GE(Z)+600
  805. 23225 GOTO3235
  806. 23230 IFL1$<>"S"THEN23250
  807. 23231 U=0
  808. 23232 FORI=1TO40
  809. 23233 IFSB(I)=5ANDBE(I)=ZTHENU=U+2300:GOTO23235
  810. 23234 IFSB(I)>0ANDBE(I)=ZTHENU=U+800*SB(I)
  811. 23235 NEXT:GOSUB10800:PRINT"GESAMT:"U"DM"
  812. 23236 IFGE(Z)<UTHENZ9=U:GOSUB18000
  813. 23237 IFZ2=1THEN3235
  814. 23238 GE(Z)=GE(Z)-U
  815. 23239 FP=FP+U
  816. 23240 GOTO3235
  817. 23250 IFL1$<>"R"THEN3235
  818. 23251 U=0
  819. 23252 FORI=1TO40
  820. 23253 IFSB(I)=5ANDBE(I)=ZTHENU=U+2000:GOTO23255
  821. 23254 IFSB(I)>0ANDBE(I)=ZTHENU=U+500*SB(I)
  822. 23255 NEXTI:GOSUB10800:PRINT"GESAMT:"U"DM"
  823. 23256 IFGE(Z)<UTHENZ9=U:GOSUB18000
  824. 23257 IFZ2=1THEN3235
  825. 23258 GE(Z)=GE(Z)-U
  826. 23259 FP=FP+U
  827. 23260 GOTO3235
  828. 24000 IFBE(PO(Z))=5THEN24045
  829. 24005 IFBE(PO(Z))=ZTHENGOSUB10900:GOSUB10800:PRINT""SP$(Z)" IST"
  830. 24006 IFBE(PO(Z))=ZTHENGOSUB10800:PRINT"SELBST BESITZER":RETURN
  831. 24010 IFBE(14)=BE(29)ANDHY(14)=0ANDHY(29)=0THENMX=200*WU:GOTO24020
  832. 24012 MX=80*WU
  833. 24015 IFHY(PO(Z))=1THEN24500
  834. 24020 GOSUB10900:GOSUB10800:PRINT""SP$(Z)" ZAHLT AN":GOSUB10800
  835. 24025 PRINT""SP$(BE(PO(Z)));MX"DM":GOSUB10800:PRINT"MIETE."
  836. 24030 GE(BE(PO(Z)))=GE(BE(PO(Z)))+MX
  837. 24035 IFGE(Z)<MXTHENZ9=MX:GOSUB18000:IFZ2=1THENRETURN
  838. 24040 GE(Z)=GE(Z)-MX:RETURN
  839. 24045 GOSUB10900:GOSUB10800:PRINT""SN$(PO(Z)):GOSUB10800
  840. 24047 PRINT"IST FUER"PR(PO(Z))"DM"
  841. 24050 GOSUB10800:PRINT"ZU VERKAUFEN.":GOSUB10800:PRINT"(J/N)?"
  842. 24055 IFZ>ANTHEN24135
  843. 24059 TM$=TI$
  844. 24060 GETA$:IFA$<>"J"ANDA$<>"N"THEN24060
  845. 24061 TI$=TM$
  846. 24065 IFA$="N"THENGOSUB10800:PRINT"NEIN !":RETURN
  847. 24070 GOSUB10800:PRINT"JA !"
  848. 24075 PY=PR(PO(Z))
  849. 24080 GOSUB19500:IFPJ=1THENRETURN
  850. 24085 GE(Z)=GE(Z)-PY
  851. 24090 BE(PO(Z))=Z
  852. 24095 KP(Z,FA(PO(Z)))=KP(Z,FA(PO(Z)))+1
  853. 24100 PRINT""LEFT$(UN$,ZL)""FA$(FA(PO(Z)))"              [146] - "BB$(SB(PO(Z)));
  854. 24102 PRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"SN$(PO(Z))
  855. 24105 ZL=ZL+1:IFZL=22THENGOSUB10000:ZL=4
  856. 24110 RETURN
  857. 24135 IFKP(Z,FA(PO(Z)))=0ANDRND(1)<.1ANDGE(Z)<2*PR(PO(Z))THENA$="N":GOTO24065
  858. 24140 IFGE(Z)>=PR(PO(Z))THENA$="J":GOTO24070
  859. 24145 A$="N":GOTO24065
  860. 24200 IFBE(PO(Z))=5THEN24045
  861. 24205 IFBE(PO(Z))=ZTHENGOSUB10900:GOSUB10800:PRINT""SP$(Z)" IST"
  862. 24206 IFBE(PO(Z))=ZTHENGOSUB10800:PRINT"SELBST BESITZER":RETURN
  863. 24208 MX=(2^(KP(BE(PO(Z)),FA(PO(Z)))-1))*500
  864. 24210 GOTO24015
  865. 24400 IFBE(PO(Z))=5THEN24045
  866. 24405 IFBE(PO(Z))=ZTHENGOSUB10900:GOSUB10800:PRINT""SP$(Z)" IST"
  867. 24406 IFBE(PO(Z))=ZTHENGOSUB10800:PRINT"SELBST BESITZER":RETURN
  868. 24410 MX=MI(PO(Z),SB(PO(Z)))
  869. 24415 IFKP(BE(PO(Z)),FA(PO(Z)))=KO(FA(PO(Z)))ANDSB(PO(Z))=0THENMX=MX*2
  870. 24420 GOTO24015
  871. 24500 GOSUB10900:GOSUB10800:PRINT"HYPOTHEK AUF "AT$(PO(Z)):GOSUB10800
  872. 24505 PRINT""SN$(PO(Z))":":GOSUB10800:PRINT"KEINE MIETE!"
  873. 24510 RETURN
  874. 25000 DIMPR(40),MI(40,5),BE(40),AR$(40),GW(4)
  875. 25005 DIMSB(40),FA(40),KP(4,10),HY(40),GE(4),G1(4),GG(4),SP$(5),PO(4),PG(4)
  876. 25010 DIMER$(4,15),GE$(4,15),V(15),KN(40),FB(40),ZE(40),AT$(40),ST(10,3)
  877. 25015 FORA=1TO4:GE(A)=30000:NEXT
  878. 25020 FORA=1TO40:READPR(A):NEXT
  879. 25025 FORA=1TO40:FORB=0TO5:READMI(A,B):NEXTB,A
  880. 25030 FORA=1TO40:BE(A)=5:NEXT
  881. 25035 FORA=1TO40:READAR$(A):NEXT
  882. 25036 FORA=1TO40:READAT$(A):NEXT
  883. 25040 FORA=1TO40:READFA(A):NEXT
  884. 25045 FORA=1TO10:READKO(A):NEXT
  885. 25050 FORA=0TO15:V(A)=A:NEXT
  886. 25055 FORA=15TO0STEP-1
  887. 25060 C=INT(RND(1)*(A+1)):E=0
  888. 25065 READGE$(E,V(C))
  889. 25070 IFLEN(GE$(E,V(C)))<=18THENE=E+1:GOTO25065
  890. 25075 IFC=ATHEN25085
  891. 25080 FORD=CTOA-1:V(D)=V(D+1):NEXTD
  892. 25085 NEXTA:RETURN
  893. 25090 FORA=0TO15:V(A)=A:NEXT
  894. 25095 FORA=15TO0STEP-1
  895. 25100 C=INT(RND(1)*(A+1)):E=0
  896. 25105 READER$(E,V(C))
  897. 25110 IFLEN(ER$(E,V(C)))<=18THENE=E+1:GOTO25105
  898. 25115 IFC=ATHEN25125
  899. 25120 FORD=CTOA-1:V(D)=V(D+1):NEXTD
  900. 25125 NEXTA
  901. 25130 FORA=1TO4:READNA$(A):NEXT
  902. 25135 FORA=1TO11:B=32-A
  903. 25136 KN(A)=2024-A:KN(B)=KN(A)-400
  904. 25137 NEXTA
  905. 25140 FORA=12TO20:B=52-A
  906. 25141 KN(A)=2013-40*(A-11):KN(B)=KN(A)+10
  907. 25142 NEXTA
  908. 25150 RE$=""
  909. 25155 UN$=""
  910. 25160 TR$=LEFT$(RE$,31):TU$=LEFT$(UN$,17)
  911. 25165 FR$=LEFT$(RE$,31):FU$=LEFT$(UN$,22)
  912. 25170 SR$=LEFT$(RE$,21):SU$=LEFT$(UN$,6)
  913. 25175 L$="[159]                  [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
  914. 25180 FORA=1TO3:LO$=LO$+L$:NEXT
  915. 25185 FORA=1TO2:LP$=LP$+L$:NEXT
  916. 25190 FORA=1TO2:LQ$=LQ$+L$:NEXT
  917. 25200 FA$(1)="":FA$(2)="[159]":FA$(3)="[156]":FA$(4)="[129]":FA$(5)="":FA$(6)="[158]"
  918. 25205 FA$(7)="":FA$(8)="[154]":FA$(9)="":FA$(10)="[152]"
  919. 25210 FORA=1TO40:READFB(A),ZE(A):NEXTA
  920. 25215 RETURN
  921. 25220 FORA=1TO40:POKEKN(A)+54272,FB(A):POKEKN(A),ZE(A):NEXT
  922. 25300 B=0:C=0:D=0
  923. 25305 FORA=1TO40:READSN$(A)
  924. 25310 IFFA(A)<9ANDFA(A)>0THENST(FA(A),B)=A:B=B+1:IFB=KO(FA(A))THENB=0
  925. 25315 IFFA(A)=9THENST(9,C)=A:C=C+1
  926. 25320 IFFA(A)=10THENST(10,D)=A:D=D+1
  927. 25325 NEXTA
  928. 25999 RETURN
  929. 26000 DATA0,1200,0,1600,0,4000,2000,0,2000,2400,0,2800,2800,3000,3200,4000
  930. 26005 DATA3600,0,3600,4000,0,4400,0,4400,4800,4000,5200,5200,3000,5600,0,6000
  931. 26010 DATA6000,0,6400,4000,0,7000,0,8000
  932. 26020 DATA0,0,0,0,0,0
  933. 26025 DATA40,200,600,1800,3200,5000
  934. 26030 DATA0,0,0,0,0,0
  935. 26035 DATA80,400,1200,3600,6400,9000
  936. 26040 DATA0,0,0,0,0,0
  937. 26045 DATA500,1000,2000,4000,0,0
  938. 26050 DATA120,600,1800,5400,8000,11000
  939. 26055 DATA0,0,0,0,0,0
  940. 26060 DATA120,600,1800,5400,8000,11000
  941. 26065 DATA160,800,2000,6000,9000,12000
  942. 26070 DATA0,0,0,0,0,0
  943. 26075 DATA200,1000,3000,9000,12000,15000
  944. 26080 DATA200,1000,3000,9000,12000,15000
  945. 26085 DATA1,1,1,1,1,1
  946. 26090 DATA240,1200,3600,10000,13000,16000
  947. 26095 DATA500,1000,2000,4000,0,0
  948. 26100 DATA280,1400,4000,11000,15000,19000
  949. 26105 DATA0,0,0,0,0,0
  950. 26110 DATA280,1400,4000,11000,15000,19000
  951. 26115 DATA320,1600,4400,12000,16000,20000
  952. 26120 DATA0,0,0,0,0,0
  953. 26125 DATA360,1800,5000,14000,17500,23000
  954. 26130 DATA0,0,0,0,0,0
  955. 26135 DATA360,1800,5000,14000,17500,23000
  956. 26140 DATA400,2000,6000,15000,18500,24000
  957. 26145 DATA500,1000,2000,4000,0,0
  958. 26150 DATA440,2200,6600,17000,21000,25000
  959. 26155 DATA440,2200,6600,17000,21000,25000
  960. 26160 DATA1,1,1,1,1,1
  961. 26165 DATA480,2400,7200,18000,22500,27000
  962. 26170 DATA0,0,0,0,0,0
  963. 26175 DATA520,2600,7800,19000,24000,28000
  964. 26180 DATA520,2600,7800,19000,24000,28000
  965. 26185 DATA0,0,0,0,0,0
  966. 26190 DATA560,2800,8400,20000,25500,30000
  967. 26195 DATA500,1000,2000,4000,0,0
  968. 26200 DATA0,0,0,0,0,0
  969. 26205 DATA700,3000,11000,25000,30000,35000
  970. 26210 DATA0,0,0,0,0,0
  971. 26211 DATA1000,4000,12000,28000,34000,40000
  972. 26212 DATA,DIE,DAS,DIE,DIE,DEN,DIE,DAS,DIE,DIE,DAS,DIE,DIE,DAS,DIE,DEN,DIE,DAS
  973. 26213 DATADIE,DIE,,DIE,DAS,DIE,DEN,DEN,DIE,DIE,DAS,DIE,,DEN,DIE,DAS,DIE,DEN
  974. 26214 DATADAS,DIE,DIE,DIE
  975. 26215 DATA,DER,DEM,DER,DER,DEM,DER,DEM,DER,DER,DEM,DER,DER,DEM,DER,DEM,DER,DEM
  976. 26216 DATADER,DER,,DER,DEM,DER,DEM,DEM,DER,DER,DEM,DER,,DEM,DER,DEM,DER,DEM,DEM
  977. 26217 DATADER,DER,DER
  978. 26275 DATA0,1,0,1,0,9,2,0,2,2,0,3,3,10,3,9,4,0,4,4,0,5,0,5,5,9,6,6,10,6,0
  979. 26280 DATA7,7,0,7,9,0,8,0,8
  980. 26285 DATA2,3,3,3,3,3,3,2,4,2
  981. 26330 DATA"ZAHLE AN DAS KRAN-
  982. 26331 [131]"KENHAUS. DM 2000  Z 2000
  983. 26335 DATA" AUS LAGERVERKAEU-
  984. 26336 [131]" FEN ERHAELTST DU
  985. 26337 DATA" DM 100.          E 0100
  986. 26340 [131]" EINKOMMENSSTEUER-
  987. 26341 DATA" RUECKZAHLUNG. DU
  988. 26342 [131]" ERHAELTST DM 400.E 0400
  989. 26345 DATA"   ARZTKOSTEN.
  990. 26346 [131]"   ZAHLE DM 100.  Z 0100
  991. 26350 DATA"DU KOMMST AUS DEM
  992. 26351 [131]"GEFAENGNIS FREI.  F 0000
  993. 26355 DATA" ZAHLE DEINE VER-
  994. 26356 [131]" SICHERUNGSSUMME.
  995. 26357 DATA" DM 1000.         Z 1000
  996. 26360 [131]"BANKIRRTUM ZU
  997. 26361 DATA"DEINEN GUNSTEN. DU
  998. 26362 [131]"ERHAELTST DM 4000 E 4000
  999. 26365 DATA"DU HAST IM KREUZ-
  1000. 26366 [131]"WORTRAETSEL GEWON-
  1001. 26367 DATA"NEN. DU ERHAELTST
  1002. 26368 [131]"DM 2000.          E 2000
  1003. 26370 DATA" GEHE ZURUECK ZUR
  1004. 26371 [131]" BADSSTRASSE.     Y 0002
  1005. 26375 DATA"   GEHE IN DAS
  1006. 26376 [131]"   GEFAENGNIS     K 0011
  1007. 26380 DATA"DEINE JAHRESRENTE
  1008. 26381 [131]"WIRD FAELLIG.
  1009. 26382 DATA"ZIEHE DM 2000 EIN.E 2000
  1010. 26385 [131]"DU HAST IN EINER
  1011. 26386 DATA"SCHOENHEITSKONKUR-
  1012. 26387 [131]"RENZ DEN 2. PREIS
  1013. 26388 DATA"GEWONNEN. DU
  1014. 26389 [131]"ERHAELTST DM 200  E 0200
  1015. 26390 DATA" AUS VORZUGSAKTIEN
  1016. 26391 [131]" ERHAELTST DU 7%
  1017. 26392 DATA" DIVIDENDE. DM 500E 0500
  1018. 26395 [131]" DU ERBST DM 2000.E 2000
  1019. 26400 DATA" ZAHLE EINE STRA-
  1020. 26401 [131]" FE VON DM 200
  1021. 26402 DATA" ODER NIMM EINE
  1022. 26403 [131]" EREIGNISKARTE.   A 0000
  1023. 26405 DATA" RUECKE VOR BIS
  1024. 26406 [131]" AUF LOS          X 0001
  1025. 26410 DATA"   MACHE EINEN
  1026. 26411 [131]"   AUSFLUG ZUM
  1027. 26412 DATA"   WESTBAHNHOF    X 0016
  1028. 26415 [131]" ZAHLE SCHULGELD.
  1029. 26416 DATA" DM 3000.         Z 3000
  1030. 26420 [131]"BETRUNKEN IM
  1031. 26421 DATA"DIENST. ZAHLE EINE
  1032. 26422 [131]"STRAFE VON DM 200.Z 0200
  1033. 26425 DATA" RUECKE VOR BIS
  1034. 26426 [131]" ZUR SCHLOSSALLEE.X 0040
  1035. 26430 DATA" DIE BANK ZAHLT
  1036. 26431 [131]" DIR EINE DIVIDEN-
  1037. 26432 DATA" DE VON DM 1000.  E 1000
  1038. 26435 [131]"  GEHE 3 FELDER
  1039. 26436 DATA"  ZURUECK.        G 0003
  1040. 26440 [131]" RUECKE VOR BIS
  1041. 26441 DATA" ZUR SEESTRASSE.  X 0012
  1042. 26445 [131]" STRAFE FUER ZU
  1043. 26446 DATA" SCHNELLES FAHREN.
  1044. 26447 [131]" DM 300.          Z 0300
  1045. 26450 DATA" MIETE UND ANLEI-
  1046. 26451 [131]" HEZINSEN WERDEN
  1047. 26452 DATA" FAELLIG. DU ER-
  1048. 26453 [131]" HAELTST DM 3000. E 3000
  1049. 26455 DATA"  RUECKE VOR BIS
  1050. 26456 [131]"  AUF LOS.        X 0001
  1051. 26460 DATA" RUECKE VOR BIS
  1052. 26461 [131]" ZUM OPERNPLATZ.  X 0025
  1053. 26465 DATA" STRASSENAUSBES-
  1054. 26466 [131]"   SERUNGSARBEITEN
  1055. 26467 DATA"PRO HAUS-  DM 800
  1056. 26468 [131]"PRO HOTEL- DM 2300S 0000
  1057. 26470 DATA" LASSE DEINE HAEU-
  1058. 26471 [131]" SER RENOVIEREN.
  1059. 26472 DATA"PRO HAUS-  DM 500
  1060. 26473 [131]"PRO HOTEL- DM 2000R 0000
  1061. 26475 DATA"   GEHE IN DAS
  1062. 26476 [131]"   GEFAENGNIS     K 0011
  1063. 26480 DATA" ES IST DEIN GE-
  1064. 26481 [131]" BURTSTAG. ZIEHE
  1065. 26482 DATA" VON JEDEM SPIE-
  1066. 26483 [131]" LER DM 200 EIN.  B 0200
  1067. 26485 DATA" DU KOMMST AUS DEM
  1068. 26486 [131]" GEFAENGNIS FREI. F 0000
  1069. 26490 DATA1 COMM,2 COMM,3 COMM,4 COMM
  1070. 26500 DATA1,159,6,130,12,160,6,148,11,160,1,147,3,131,12,160,3,133,3,144,10,163
  1071. 26510 DATA4,147,4,136,15,133,4,142,1,151,8,141,12,160,8,151,8,130,13,164
  1072. 26515 DATA2,141,12,160,2,148,2,143,1,142,7,147,7,140,15,151,7,135,10,161
  1073. 26520 DATA5,146,5,136,12,160,5,130,1,136,12,160,14,144,11,160,14,147
  1074. 26620 DATALOS,BADSTRASSE,GEMEINS.-FELD,TURMSTRASSE,EINKOM.-STEUER,SUEDBAHNHOF
  1075. 26625 DATACHAUSSEESTR.,EREIGNISFELD,ELISENSTRASSE,POSTSTRASSE,GEFAENGNIS
  1076. 26630 DATASEESTRASSE,HAFENSTRASSE,ELEKTR.-WERK,NEUE STRASSE,WESTBAHNHOF
  1077. 26632 DATAMUENCHNER STR.,GEMEINS.-FELD,WIENER STRASSE,BERLINER STR.,FREI PARKEN
  1078. 26635 DATAMUSEUMSSTRASSE,EREIGNISFELD,THEATERSTRASSE,OPERNPLATZ,NORDBAHNHOF
  1079. 26640 DATASCHILLERSTR.,LESSINGSTRASSE,WASSERWERK,GOETHESTRASSE,GEHE INS GEF.
  1080. 26645 DATARATHAUSPLATZ,HAUPTSTRASSE,GEMEINS.-FELD,BAHNHOFSTRASSE,HAUPTBAHNHOF
  1081. 26650 DATAEREIGNISFELD,PARKSTRASSE,ZUSATZSTEUER,SCHLOSSALLEE
  1082. 27000 GOSUB10900:GOSUB10800:PRINT""SP$(Z)" IST":GOSUB10800
  1083. 27001 PRINT"AUSGESCHIEDEN !"
  1084. 27002 GE(Z)=0
  1085. 27005 FORI=1TO40:IFBE(I)=ZTHENBE(I)=5
  1086. 27006 NEXTI
  1087. 27010 FORI=1TO4:IFI=ZTHEN27015
  1088. 27012 IFPO(I)=PO(Z)THENQ=1:J=I
  1089. 27015 NEXTI
  1090. 27020 IFQ=0THEN27030
  1091. 27022 IFASC(S$(J))<65THENPOKEKN(PO(Z))+54272,1:POKEKN(PO(Z)),ASC(S$(J))
  1092. 27025 IFASC(S$(J))>=65THENPOKEKN(PO(Z))+54272,1:POKEKN(PO(Z)),ASC(S$(J))-64
  1093. 27027 GOTO27035
  1094. 27030 POKEKN(PO(Z))+54272,FB(PO(Z)):POKEKN(PO(Z)),ZE(PO(Z))
  1095. 27035 PO(Z)=0
  1096. 27040 J=0
  1097. 27045 FORI=1TO4:IFPO(I)=0THENJ=J+1
  1098. 27050 NEXTI
  1099. 27055 IFJ=3THEN27100
  1100. 27075 Z2=1:RETURN
  1101. 27100 FORA=1TO4:FORI=1TO40
  1102. 27110 IFBE(I)=ATHENG1(A)=G1(A)+PR(I)*(1+.5*(HY(I)=1))
  1103. 27115 IFBE(I)=AANDSB(I)>0THENG1(A)=G1(A)+(INT((FA(I)+1)/2)*500)*SB(I)
  1104. 27120 NEXTI
  1105. 27125 GG(A)=GE(A)+G1(A)
  1106. 27130 NEXTA
  1107. 27135 PRINT"[147]"
  1108. 27137 PRINT:PRINT
  1109. 27140 PRINT"         E N D R E S U L T A T"
  1110. 27145 PRINT"         [196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
  1111. 27150 PRINT:PRINT
  1112. 27155 PRINT"[158] SPIELER:  [156]KAPITAL:  [159]BESITZ:   [129]GESAMT:"
  1113. 27160 PRINT"----------------------------------------";
  1114. 27163 PRINT
  1115. 27165 FORA=1TO4
  1116. 27170 PRINTTAB(1)"[158]"SP$(A);TAB(11)"[156]"GE(A);TAB(21)"[159]"G1(A);TAB(31)"[129]"GG(A)
  1117. 27172 PRINT
  1118. 27175 NEXTA
  1119. 27180 PRINT:PRINT:PRINT
  1120. 27185 PRINT"    NOCH EIN SPIEL ? -> [SPACE]"
  1121. 27190 GETA$:IFA$<>" "THEN27190
  1122. 27200 RUN
  1123.