10 REM ****************************** 11 REM * * 12 REM * COMMERCIAL TOWN FUER C64 * 13 REM * * 14 REM * VON : PETER FINK * 15 REM * 8500 NUERNBERG 30 * 16 REM * STEPHANSTRASSE 20 * 17 REM * TEL.: 0911/467930 * 18 REM * * 19 REM ****************************** 99 PRINT"[147]"; 100 DIMSN$(41) 150 POKE53281,0:POKE53280,0 200 SN$(0)="" 205 SN$(1)=" C O M M E R C I A L T O W N" 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]" 215 SN$(3)="" 220 SN$(4)=" PETER FINK, FEBRUAR 1985" 225 SN$(5)="" 230 SN$(6)="DIESES SPIEL LAEUFT NACH DEN ORIGINALEN" 235 SN$(7)="MONOPOLY-REGELN. ES KOENNEN 1 - 4 SPIE-" 240 SN$(8)="LER TEILNEHMEN. DIE AUF 4 SPIELER FEH-" 245 SN$(9)="LENEDN WERDEN VOM COMPUTER SIMULIERT." 250 SN$(10)="BEI DER EINGABE VON STRASSENNAMEN BRAU-" 255 SN$(11)="CHEN NUR DIE ERSTEN DREI BUCHSTABEN" 260 SN$(12)="EINGEGEBEN ZU WERDEN." 265 SN$(13)=" AUSNAHMEN:" 270 SN$(14)="SCHILLERSTRASSE UND SCHLOSSALLEE: 4" 275 SN$(15)="HAUPTBAHNHOF UND HAUPTSTRASSE: 6" 280 SN$(16)="" 285 SN$(17)="1 HOTEL ENTSPRICHT 5 HAEUSERN, DAS" 290 SN$(18)="HEISST AUCH BEIM KAUF UND VERKAUF VON" 295 SN$(19)="HAEUSERN MUESSEN HOTELS ALS 5 HAEUSER" 300 SN$(20)="EINGEGEBEN WERDEN." 305 SN$(21)="" 310 SN$(22)="" 315 SN$(23)=" WEITER -> [SPACE]" 320 SN$(24)="" 325 SN$(25)="BEI DER ABFRAGE NACH DEN AKTIVITAETEN" 330 SN$(26)="DES SPIELERS VOR DEM WUERFELN KANN FOL-" 335 SN$(27)="GENDE AUSWAHL GETROFFEN WERDEN:" 340 SN$(28)="> H < WENN ER HAEUSER KAUFEN WILL" 345 SN$(29)="> Z < WENN ER EINE HYPOTHEK ZURUECK-" 350 SN$(30)=" ZAHLEN WILL." 355 SN$(31)="> K < WENN ER EINEM MITSPIELER EIN VER-" 360 SN$(32)=" KAUFS- ODER TAUSCHANGEBOT MACHEN" 362 SN$(34)="> W < WENN ER WUERFELN WILL." 365 SN$(33)=" WILL." 370 SN$(35)="" 375 SN$(36)="STEHT IM FELD 'STANDORT': GEFAENGNIS #[146]" 380 SN$(37)="SO HEISST DAS, DASS DER SPIELER NICHT" 385 SN$(38)="NUR ZU BESUCH SONDERN ECHT IM GEFAENG-" 390 SN$(39)="NIS IST." 395 SN$(40)="" 400 SN$(41)=" START -> [SPACE]" 420 FORA=0TO22:PRINT"[129]"SN$(A):NEXT 422 GOSUB25000:PRINTSN$(23) 425 GETA$:IFA$<>" "THEN425 430 PRINT"[147]";:FORA=24TO40:PRINT""SN$(A):NEXT 440 GOSUB25090:PRINTSN$(41) 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]" 520 SN$(1)="[150][194]***[194] [158]BESITZ[150] [194]***[194][149][194] STANDORT: [149][194]" 530 SN$(2)="[150][171][195][195][195][203] [197][197][197][197][197][197][150] [202][195][195][195][179][149][194] [194]" 540 SN$(3)="[150][194] [194][149][194] [194]" 550 SN$(4)="[150][194] [194][149][194] [194]" 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]" 570 SN$(6)="[150][194] [194][149][194][159] [146][149][194]" 580 SN$(7)="[150][194] [194][149][194][159] [146][149][194]" 590 SN$(8)="[150][194] [194][149][194][159] [146][149][194]" 600 SN$(9)="[150][194] [194][149][194][159] [146][149][194]" 610 SN$(10)="[150][194] [194][149][194][159] [146][149][194]" 620 SN$(11)="[150][194] [194][149][194][159] [146][149][194]" 630 SN$(12)="[150][194] [194][149][194][159] [146][149][194]" 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]" 650 SN$(14)="[150][194] [194] SPIELER " 660 SN$(15)="[150][194] [194][161] [146][161] [129][213][195][195][195][195][195][195][195][201] " 670 SN$(16)="[150][194] [194][161] [146][161] [129][194][149] ZEIT: [129][194] " 680 SN$(17)="[150][194] [194][188][162][162][162][162][162][162][162][146][190] [129][194] [194] " 690 SN$(18)="[150][194] [194] [158]KAPITAL [129][202][195][195][195][195][195][195][195][203] " 700 SN$(19)="[150][194] [194][156][161] [146][161] " 710 SN$(20)="[150][194] [194][156][161] [146][161] [213][195][195][195][195][195][195][195][201] " 720 SN$(21)="[150][194] [194][156][188][162][162][162][162][162][162][162][146][190] [194][152]FREI P.[194] " 730 SN$(22)="[150][194] [194] [153][209] [209][146]  [209][146] [194] [194] " 740 SN$(23)="[150][194] [194] [153] [146]  [209] [146] [202][195][195][195][195][195][195][195][203] " 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] " 775 GETA$:IFA$<>" "THEN775 776 PRINT"[147]"; 780 FORA=0TO24:PRINTSN$(A);:NEXT 795 POKE56295,14:POKE2023,102 1000 GOSUB25220 1100 GOSUB10900:GOSUB10800:PRINT"DAUER DES SPIELES":GOSUB10800 1105 PRINT" (IN MIN.)":GOSUB10800 1110 PRINT"";:B$="" 1111 GETA$:IFA$<>CHR$(20)THEN1114 1112 IFLEN(B$)>0THENPRINT"[157] [157]";:B$=LEFT$(B$,LEN(B$)-1) 1113 GOTO1111 1114 IFA$<>""ANDA$<>CHR$(13)THENIFASC(A$)<48ORASC(A$)>57THEN1111 1115 PRINTA$;:IFA$=CHR$(13)ANDLEN(B$)>0THEN1118 1116 B$=B$+A$:GOTO1111 1118 RU=VAL(B$) 1120 GOSUB10900:GOSUB10800 1125 PRINT"ANZAHL DER SPIELER":GOSUB10800 1130 PRINT"";:B$="" 1131 GETA$:IFA$<>CHR$(20)ANDA$<>CHR$(13)ANDA$<>""THENPRINTA$"[157]";:B$=A$ 1132 IFA$=CHR$(13)ANDLEN(B$)=1THEN1134 1133 GOTO1131 1134 IFASC(B$)<48ORASC(B$)>52THEN1120 1135 AN=VAL(B$) 1140 GOSUB10900:IFAN=0THEN1180 1145 FORA=1TOAN 1150 PRINT""SR$SU$"[159] NAME SPIELER "A 1155 PRINTSR$"[145](BIS ZU 7 BUCHST.) 1156 [153]""SU$SR$"ANM.: VERSCHIEDENECMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"; 1157 [153]"ANFANGSBUCHSTABENCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"; 1158 [153]"WAEREN VON VORTEIL" 1160 [153]SR$"";:B$[178]"" 1161 [161]A$:[139]A$[179][177][199](20)[167]1164 1162 [139][195](B$)[177]0[167][153]"CMD CMD";:B$[178][200](B$,[195](B$)[171]1) 1163 [137]1161 1164 [139][195](B$)[177][178]7[167]1168 1165 [139]A$[178][199](13)[167]1167 1166 [153]A$;:B$[178]B$[170]A$:[137]1161 1167 [139][195](B$)[178]0[167]1161 1168 SP$(A)[178]B$:[141]10900 1170 [130]A 1175 [139]AN[178]4[167]1200 1180 B[178]1:[129]A[178]AN[170]1[164]4 1185 SP$(A)[178]NA$(B):B[178]B[170]1 1190 [130]A 1195 SP$(5)[178]"BANK" 1200 [129]A[178]1[164]40:SB(A)[178]0:[130] 1205 [129]A[178]1[164]4:PO(A)[178]1:[130] 1210 BB$(0)[178]" ":BB$(1)[178]"1":BB$(2)[178]"2":BB$(3)[178]"3":BB$(4)[178]"4":BB$(5)[178]"ATN" 1215 [129]A[178]1[164]4:S$(A)[178][200](SP$(A),1):[130] 1220 FP[178]0:EZ[178]1:GZ[178]1 2995 TI$[178]"000000":[141]20000 3000 [129]Z[178]1[164]4:LL[178]0:P[178]0:WP$[178]"":[139]PO(Z)[178]0[167]3995 3010 [141]7000 3015 [141]6000 3020 [141]10000 3025 [141]5000 3030 [141]8000 3035 [139]PG(Z)[178]1[167]21000 3040 [139]Z[177]AN[167][141]13000:[137]3100 3042 [141]10900 3045 [153]""SR$SU$"OPEN * AKTIVITAETEN *" 3050 [153]""SR$SU$"HAUS KAUFEN -> H" 3051 [153]""SR$SU$"HYP. Z'ZAHLEN -> Z" 3052 [153]""SR$SU$"ANGEB. MITSP. -> K" 3053 [153]""SR$SU$"WUERFELN -> W" 3054 TM$[178]TI$ 3055 [161]A$:[139]A$[178]""[167]3055 3057 TI$[178]TM$ 3060 [139]A$[178]"H"[167][141]10900:[141]12000:[137]3042 3065 [139]A$[178]"Z"[167][141]10900:[141]11000:[137]3042 3070 [139]A$[178]"K"[167][141]10900:[141]16000:[137]3042 3075 [139]A$[179][177]"W"[167]3045 3100 [141]22000 3105 [141]9000 3110 [141]5000 3200 [139]LO[178]1[175]PO(Z)[179][177]1[167]I[178]4000:[137]3210 3205 [139]LO[178]1[175]PO(Z)[178]1[167]I[178]8000:[137]3210 3206 [137]3220 3210 [141]10900:[141]10800:[153]""SP$(Z)" BEKOMMT" 3215 [141]10800:[153]""I"DM." 3216 GE(Z)[178]GE(Z)[170]I 3218 LO[178]0:[129]A[178]1[164]1500:[130] 3220 [139]PO(Z)[178]5[176]PO(Z)[178]39[167][141]20500 3225 [139]PO(Z)[178]8[176]PO(Z)[178]23[176]PO(Z)[178]37[167]23000 3230 [139]PO(Z)[178]3[176]PO(Z)[178]18[176]PO(Z)[178]34[167]23100 3235 [139]Z2[178]1[167]Z2[178]0:[137]3995 3240 [139]PO(Z)[178]11[167][141]10900:[137]3285 3245 [139]PO(Z)[178]21[167][141]10900:[141]10800:[153]""SP$(Z)" BEKOMMT" 3250 [139]PO(Z)[178]21[167][141]10800:[153]""FP"DM." 3255 [139]PO(Z)[178]21[167]GE(Z)[178]GE(Z)[170]FP:FP[178]0 3260 [139]PO(Z)[178]31[167]PG(Z)[178]1:WU[178]20:[137]3105 3265 [139]FA(PO(Z))[178]10[167][141]24000 3270 [139]FA(PO(Z))[178]9[167][141]24200 3275 [139]FA(PO(Z))[177]0[175]FA(PO(Z))[179]9[167][141]24400 3280 [139]Z2[178]1[167]Z2[178]0:[137]3995 3285 [141]7000:[141]20000 3287 [129]A[178]1[164]1000:[130] 3290 [139]WP$[178]"PASCH"[175]PG(Z)[178]0[167]3400 3295 [137]3990 3400 [139]Z[179][178]AN[167]3100 3410 [141]10900:[141]10800:[153]"PASCH: NOCHMAL!":[129]A[178]1[164]1500:[130]:[137]3100 3990 [129]A[178]1[164]1000:[130] 3992 [141]10900 3995 [130]Z:[139]TT[177]RU[167]27100 3996 [137]3000 5000 [153]"WAIT"[200](RE$,22);"PRINT CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"; 5005 [153]" " 5010 [153]""[200](RE$,22);"PRINT";SN$(PO(Z))" "BB$(SB(PO(Z)))"WAIT"; 5015 [139]PG(Z)[178]1[167][153]"CMD#" 5020 [139]FA(PO(Z))[177]0[167][153]""[200](RE$,22)"DEFBESITZER: "SP$(BE(PO(Z))) 5025 [129]A[178]1[164]100:[130] 5030 [153]"WAIT"[200](RE$,22);"PRINT CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"; 5035 [153]""[200](RE$,22);"PRINT";SN$(PO(Z))" "BB$(SB(PO(Z))); 5040 [139]PG(Z)[178]1[167][153]"CMD#WAIT" 5050 [142] 6000 [153]""[200](RE$,21);[200](UN$,16);" WAIT" 6010 [153]""[200](RE$,21);[200](UN$,16);""SP$(Z)"WAIT" 6015 [142] 7000 GE(Z)[178][181](GE(Z)[173]10)[172]10:G$[178][201]([196](GE(Z)),[195]([196](GE(Z)))[171]1) 7005 [153]"CLR"[200](RE$,21);[200](UN$,20);" WAIT" 7010 [153]"CLR"[200](RE$,21);[200](UN$,20);""G$"WAIT" 7015 [142] 8000 ZL[178]4:J[178]1 8002 [129]B[178]0[164]KO(J)[171]1:I[178]ST(J,B) 8005 [139]BE(I)[179][177]Z[167]8020 8007 [139]ZL[178]22[167][141]8200 8010 [153]""[200](UN$,ZL)""FA$(FA(I))" WAIT - "BB$(SB(I)); 8011 [139]HY(I)[178]1[167][153]"CMDH"; 8012 [153]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"SN$(I):ZL[178]ZL[170]1 8020 [130]B 8025 J[178]J[170]1:[139]J[178]11[167][142] 8030 [137]8002 8200 [139]Z[177]AN[167]8300 8202 [153]""[200](UN$,ZL[170]1)"LISTWEITER MIT " 8204 TM$[178]TI$ 8205 [161]A$:[139]A$[178]""[167]8205 8206 TI$[178]TM$ 8210 [141]10000:ZL[178]4:[142] 8300 [129]A[178]1[164]2000:[130]:[137]8210 9000 [129]A[178]1[164][182](WU):Q[178]0 9005 [129]I[178]1[164]4:[139]I[178]Z[167]9015 9010 [139]PO(Z)[178]PO(I)[167]Q[178]1:J[178]I 9015 [130]I 9020 [139]Q[178]0[167]9030 9025 [139][198](S$(J))[179]65[167][151]KN(PO(Z))[170]54272,1:[151]KN(PO(Z)),[198](S$(J)):[137]9050 9027 [151]KN(PO(Z))[170]54272,1:[151]KN(PO(Z)),[198](S$(J))[171]64:[137]9050 9030 [151]KN(PO(Z))[170]54272,FB(PO(Z)):[151]KN(PO(Z)),ZE(PO(Z)) 9050 PO(Z)[178]PO(Z)[170][180](WU) 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 9060 [139][198](S$(Z))[179]65[167][151]KN(PO(Z))[170]54272,1:[151]KN(PO(Z)),[198](S$(Z)):[137]9070 9065 [151]KN(PO(Z))[170]54272,1:[151]KN(PO(Z)),[198](S$(Z))[171]64 9070 [130]A:[142] 10000 [153]"WAIT"; 10005 [129]A[178]1[164]20 10010 [153]" CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"; 10015 [130] 10020 [142] 10800 [153]""SU$SR$"OPEN";:[142] 10900 [153]""SU$SR$LO$LP$LQ$:[142] 11000 [141]10900:[141]10800:[153]"AUF WELCHER":[141]10800 11002 [153]"STRASSE WILLST DU":[141]10800:[153]"EINE HYPOTHEK" 11004 [141]10800:[153]"ZURUECKZAHLEN ?" 11010 [141]19000:[141]10800:[153]"AUF "AT$(I):[139]FE[178]1[167]11025 11020 [139]HY(I)[178]1[175]GE(Z)[177][178].6[172]PR(I)[167]11030 11025 [141]10800:[153]"FALSCHE EINGABE!":[137]11050 11030 HY(I)[178]0:GE(Z)[178]GE(Z)[171].6[172]PR(I) 11035 KP(Z,FA(I))[178]KP(Z,FA(I))[170]1 11040 [141]10000:[141]8000:[141]7000 11050 [129]A[178]1[164]1500:[130]:[142] 12000 [141]10900:[141]10800 12005 [153]"AUF WELCHE":[141]10800:[153]"STRASSEN WILLST":[141]10800 12010 [153]"DU HAEUSER BAUEN?":[141]10800:[153]"(DIE 1. ANGEBEN)" 12015 [141]19000:[139]FE[178]1[167]12500 12020 [139]BE(I)[179][177]Z[167]12500 12025 [139]I[177]38[167]12500 12027 [139]FA(I)[179]1[176]FA(I)[177]8[167]12500 12030 R[178]I 12035 W(0)[178]0:W(1)[178]0:W(2)[178]0 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)) 12045 [139]BE(B(J))[179][177]Z[167]Q[178]1 12050 [130]J 12055 [139]Q[178]1[167]Q[178]0:[137]12500 12065 [141]10900:[141]10800:[153]"WIEVIELE AUF .." 12070 [129]I[178]0[164]KO(FA(R))[171]1 12075 [141]10800:[153][200](UN$,I[170]2)""B$(I); 12080 [161]W$(I):[139]W$(I)[178]""[167]12080 12085 [139][198](W$(I))[179]48[176][198](W$(I))[177]53[167]12080 12090 [141]10800:[153][200](UN$,I[170]2)""W$(I):W(I)[178][197](W$(I)) 12095 [130]I 12097 [139][182](SB(B(0))[170]W(0)[171]SB(B(1))[171]W(1))[177]1[167]12500 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 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 12110 [129]I[178]0[164]KO(FA(R))[171]1 12115 [139]SB(B(I))[170]W(I)[177]5[167]Q[178]1 12120 [130]I 12125 [139]Q[178]1[167]Q[178]0:[137]12500 12130 PY[178][181]((FA(R)[170]1)[173]2)[172]1000[172](W(0)[170]W(1)[170]W(2)) 12135 [141]10800:[153]"PREIS:"PY:[141]19500 12140 [139]PJ[178]1[167][142] 12145 [129]I[178]0[164]KO(FA(R))[171]1 12150 SB(B(I))[178]SB(B(I))[170]W(I) 12155 GT[178]GT[170]W(I) 12160 [130]I 12165 GE(Z)[178]GE(Z)[171]PY:[141]7000:[141]10000:[141]8000:[129]A[178]1[164]2000:[130]:[142] 12500 [141]10800:[153]"FALSCHE EINGABE!":[129]A[178]1[164]2000:[130]:[142] 13000 [141]13900:[141]14000:[139]S2[178]1[167]13900 13005 [141]15000:[139]S2[178]1[167][141]13900 13010 [141]13100:[142] 13100 J[178]0:K[178]0:M2[178]9:KJ[178]0 13105 L(0)[178]0:L(1)[178]0 13110 [129]I[178]1[164]8 13115 [139]KP(Z,I)[178]KO(I)[167]K(J)[178]I:J[178]J[170]1:K[178]1 13120 [130]I:[139]K[178]0[167]13400 13125 [129]K[178]1[164]J 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 13135 H[178][181](([187](1)[173]4[170].5)[172]GE(Z)) 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 13145 N[178][181](H[173](([181]((K(M)[170]1)[173]2)[172]1000))) 13150 [139]N[178]0[167]13345 13155 M2[178]M 13160 [129]I[178]0[164]KO(K(M))[171]1 13165 B$(I)[178]SN$(ST(K(M),I)):B(I)[178]ST(K(M),I):[130]I 13190 Y[178]SB(B(0))[170]SB(B(1))[171](SB(B(2))[172](KO(K(M))[178]3)) 13195 [139]Y[170]N[177]5[172]KO(K(M))[167]N[178]5[172]KO(K(M))[171]Y 13200 [139]N[178]0[167]13345 13210 [139]KO(K(M))[178]2[167]13250 13215 [139]SB(B(0))[178]SB(B(1))[175]SB(B(0))[178]SB(B(2))[167]13230 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 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 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) 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 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) 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 13250 [139]SB(B(0))[178]SB(B(1))[167]13260 13255 L(0)[178]1:N[178]N[171]1 13260 [139][181](N[173]2)[178]N[173]2[167]C(0)[178]N[173]2:C(1)[178]C(0) 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 13270 C(0)[178]C(0)[170]L(0):N[178]N[170]L(0) 13272 [129]G[178]0[164]KO(K(M))[171]1 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)) 13274 [130]G:[139]N[178]0[167]13345 13275 [141]10900:[141]10800:[153]""SP$(Z)" KAUFT":[141]10800 13280 [153]"HAEUSER: AUF.." 13285 L(0)[178]0:L(1)[178]0 13290 [129]G[178]0[164]KO(K(M))[171]1 13295 [141]10800:[153][200](UN$,G[170]4)""B$(G) 13300 [141]10800:[153][200](UN$,G[170]4)""C(G) 13305 [130]G 13310 [129]I[178]0[164]KO(K(M))[171]1 13315 SB(B(I))[178]SB(B(I))[170]C(I) 13320 GT[178]GT[170]C(I) 13325 [130]I 13330 GE(Z)[178]GE(Z)[171]N[172][181]((K(M)[170]1)[173]2)[172]1000 13335 XJ[178]J:[141]7000:[141]10000:[141]8000:J[178]XJ 13340 [129]A[178]1[164]2000:[130]A 13345 [130]K 13400 [142] 13900 [141]10900 13910 [141]10800:[153]"* AKTIVITAETEN *":[142] 14000 I[178]0:S2[178]0 14010 I[178]I[170]1:[139](BE(I)[179][177]Z[176]HY(I)[178]0)[175]I[179]40[167]14010 14020 [139]I[179]40[167]14060 14030 [139]BE(40)[178]Z[175]HY(40)[178]1[167]14060 14040 [139]S2[178]1[167][141]7000:[141]10000:[141]8000 14050 [142] 14060 [139]GE(Z)[179].8[172]PR(I)[167]14040 14070 [141]10900:[141]10800:[153]""SP$(Z)" ZAHLT":[141]10800 14075 [153]"HYPOTHEK AUF "AT$(I):[141]10800:[153]""SN$(I) 14078 [141]10800:[153]"ZURUECK. 14080 GE(Z)=GE(Z)-.6*PR(I):HY(I)=0:S2=1 14085 KP(Z,FA(I))=KP(Z,FA(I))+1 14090 FORA=1TO1500:NEXT 14095 IFI=40THEN14040 14100 GOTO14010 15000 S2=0:N=0 15005 FORI=1TO8:A$="":Z4=0:Z5=0:Z6=0:Z7=0:IFN>=2THEN15090 15010 IFKP(Z,I)=KO(I)ORKP(Z,I)=0THEN15090 15015 FORJ=1TO4:IFJ=ZORZ4<>0THEN15025 15020 IFKP(J,I)>0THENZ4=J 15025 NEXTJ 15030 IFZ4=0THEN15090 15035 FORK=1TO8:IFK=IORZ5<>0THEN15045 15040 IF(KP(Z4,K)=1ORKP(Z4,K)=2ANDKO(K)=3)ANDKP(Z,K)=1THENZ5=K 15045 NEXTK 15050 IFZ5=0THEN15069 15055 M=-1 15057 M=M+1:IFBE(ST(I,M))<>Z4THEN15057 15060 Z7=ST(I,M):M=-1 15062 M=M+1:IFBE(ST(Z5,M))<>ZTHEN15062 15065 Z6=ST(Z5,M):GOSUB17500:N=N+1:S2=1:GOTO15090 15069 M=-1 15070 M=M+1:IFBE(ST(I,M))<>Z4THEN15070 15075 Z7=ST(I,M):PT=INT((PR(Z7)*(1.9+RND(1)*1.4))/100)*100 15080 IFGE(Z)0THEN16500 16030 FORJ=0TOKO(FA(J))-1:B(J)=ST(FA(I),J) 16035 NEXTJ 16040 IFSB(B(1))>0THEN16500 16045 IFM=3ANDSB(B(2))>0THEN16500 16050 GOSUB10900:GOSUB10800:PRINT"VON WEM WILLST":GOSUB10800 16051 PRINT"DU "AR$(Z7):GOSUB10800:PRINT""SN$(Z7)" ?" 16055 Z4=0 16060 TM$=TI$ 16065 GETA$:IFA$=""THEN16065 16066 TI$=TM$ 16070 FORK=1TO4:IFK=ZTHEN16075 16072 IFA$=LEFT$(SP$(K),1)THENZ4=K 16075 NEXTK 16080 IFZ4=0ORZ4<>BE(I)THEN16500 16085 GOSUB10800:PRINT""SP$(Z4) 16088 FORA=1TO1000:NEXT 16090 GOSUB10900:GOSUB10800:PRINT"WILLST DU":GOSUB10800 16095 PRINT"KAUFEN (V) ODER":GOSUB10800:PRINT"TAUSCHEN (T) ?" 16099 TM$=TI$ 16100 GETA$:IFA$<>"V"ANDA$<>"T"THEN16100 16101 TI$=TM$ 16105 IFA$="T"THEN16140 16110 GOSUB10800:PRINT"ZU WELCHEM PREIS?" 16113 B$="" 16115 GOSUB10800:PRINT"DM "; 16116 GETA$:IFA$<>CHR$(20)THEN16119 16117 IFLEN(B$)>0THENPRINT"[157] [157]";:B$=LEFT$(B$,LEN(B$)-1) 16118 GOTO16116 16119 IFA$<>""ANDA$<>CHR$(13)THENIFASC(A$)<48ORASC(A$)>57THEN16116 16120 PRINTA$;:IFA$=CHR$(13)ANDLEN(B$)>0THEN16122 16121 B$=B$+A$:GOTO16116 16122 PT=VAL(B$) 16125 GOSUB17000 16130 IFA$="J"THENGOSUB10000:GOSUB8000:GOSUB7000 16135 FORA=1TO3000:NEXT:RETURN 16140 GOSUB10800:PRINT"GEGEN WELCHE ?":GOSUB19000:IFFE=1THEN16500 16145 Z6=I:J=I 16150 IFBE(J)<>ZTHEN16500 16155 FORK=0TOKO(FA(J))-1:B(K)=ST(FA(J),K) 16160 NEXTK 16165 IFSB(J)>0ORSB(B(1))>0THEN16500 16170 IFM=2ANDSB(B(2))>0THEN16500 16180 GOSUB17500:GOTO16130 16500 GOSUB10800:PRINT"FALSCHE EINGABE!":FORA=1TO1500:NEXT:GOSUB10900 16510 RETURN 17000 GOSUB10900:GOSUB10800:PRINT""SP$(Z)" WILL":GOSUB10800 17002 PRINT"VON "SP$(Z4)" "AR$(Z7) 17005 A$="" 17010 GOSUB10800:PRINT""SN$(Z7):GOSUB10800:PRINT"FUER DM"PT 17015 GOSUB10800:PRINT"(J/N)?" 17020 IFZ4>ANTHEN17100 17024 TM$=TI$ 17025 GETA$:IFA$=""THEN17025 17026 TI$=TM$ 17030 IFA$="J"THEN17050 17035 IFA$="N"THEN17045 17040 GOTO17024 17045 GOSUB10800:PRINT"NEIN!":RETURN 17050 IFGE(Z)1THENA$="N" 17110 M=0 17115 FORJ=1TO8:IFKP(Z4,J)=KO(J)THENM=M+1 17120 NEXTJ:IFM<2ANDPT<3*PR(Z7)THENA$="N" 17125 IFPT<2*PR(Z7)THENA$="N" 17130 IFPT>3*PR(Z7)ANDRND(1)<.5THENA$="N" 17132 IFGE(Z4)>3000THENA$="N" 17135 IFA$<>"N"THENA$="J" 17140 GOTO17030 17500 R=PR(Z7)-PR(Z6):A$="" 17505 IFR>0ANDGE(Z)=0THEN17520 17515 PRINT""SN$(Z7)" +":GOSUB10800:PRINT""ABS(R)"DM GEGEN "AR$(Z6) 17517 GOSUB10800:PRINT""SN$(Z6) 17518 GOTO17525 17520 GOSUB10800:PRINT""SN$(Z7):GOSUB10800:PRINT"GEGEN DM"ABS(R) 17522 GOSUB10800:PRINT"+ "SN$(Z6) 17525 GOSUB10800:PRINT"(J/N)?" 17530 IFZ4>ANTHEN17600 17534 TM$=TI$ 17535 GETA$:IFA$=""THEN17535 17536 TI$=TM$ 17540 IFA$="J"THEN17555 17545 IFA$="N"THEN17552 17550 GOTO17534 17552 GOSUB10800:PRINT"NEIN!":RETURN 17555 GOSUB10800:PRINT"JA!" 17556 IFR>0ANDGE(Z)"J"THENA$="N" 17605 IFR<0ANDGE(Z4)ANTHENGOSUB10000:GOSUB8000 18010 V=0:FORA=1TO1000:NEXT:RETURN 18015 Q=0 18020 FORI=1TO40 18025 IFBE(I)=ZTHENQ=1 18030 NEXTI 18035 IFQ=0THEN27000 18040 GOSUB18100:GOSUB7000:GOTO18000 18100 IFZ>ANTHEN18500 18105 GOSUB10900:GOSUB10800:PRINT"HAEUSER VERK. -> V" 18110 GOSUB10800:PRINT"HYPOTHEK AUFN.-> H" 18115 GOSUB10800:PRINT"STRASSE VERK. -> S" 18120 GOSUB10800:PRINT"SCHULD:"Z9 18124 TM$=TI$ 18125 GETA$:IFA$=""THEN18125 18126 TI$=TM$ 18127 IFA$="V"THEN18300 18128 IFA$="H"THEN18200 18129 IFA$<>"S"THEN18124 18130 GOSUB10900:GOSUB10800:PRINT"WELCHE STRASSE":GOSUB10800:PRINT"WILLST DU" 18135 GOSUB10800:PRINT"VERKAUFEN?" 18140 GOSUB19000:IFFE=1THEN18105 18142 IFBE(I)<>ZTHEN18400 18144 FORJ=0TO2 18146 B(J)=ST(FA(I),J) 18148 NEXTJ 18150 Q=0 18152 FORJ=0TOKO(FA(I)) 18154 IFSB(B(J))>0THENQ=1 18156 NEXTJ 18160 IFQ=1THEN18400 18165 BE(I)=5 18170 GE(Z)=GE(Z)+PR(I)*(1+(.5*(HY(I)=1))) 18172 IFHY(I)=0THENKP(Z,FA(I))=KP(Z,FA(I))-1 18175 HY(I)=0:GOSUB10000:GOSUB8000:RETURN 18200 GOSUB10900:GOSUB10800:PRINT"AUF WELCHE":GOSUB10800:PRINT"STRASSE WILLST" 18205 GOSUB10800:PRINT"DU EINE HYPOTHEK":GOSUB10800:PRINT"AUFNEHMEN?" 18210 GOSUB19000:IFFE=1THEN18105 18215 IFBE(I)<>ZTHEN18400 18220 FORJ=0TOKO(FA(I))-1 18225 B(J)=ST(FA(I),J) 18230 NEXTJ 18235 Q=0 18240 FORJ=0TOKO(FA(I))-1 18245 IFSB(B(J))>0THENQ=1 18250 NEXTJ 18255 IFQ=1THEN18400 18260 IFHY(I)=1THEN18400 18265 GE(Z)=GE(Z)+.5*PR(I) 18267 KP(Z,FA(I))=KP(Z,FA(I))-1 18270 HY(I)=1:GOSUB10000:GOSUB8000:RETURN 18300 GOSUB10900:GOSUB10800:PRINT"AUF WELCHEM":GOSUB10800:PRINT"STRASSENZUG 18305 [141]10800:[153]"WILLST DU HAEUSER":[141]10800:[153]"VERKAUFEN?" 18310 [141]10800:[153]"(DIE 1. ANGEBEN)" 18315 [141]19000:[139]FE[178]1[167]18105 18325 [129]J[178]0[164]KO(FA(I))[171]1 18330 B(J)[178]ST(FA(I),J) 18332 [130]J 18335 [141]10900 18337 [129]J[178]0[164]KO(FA(I))[171]1 18340 [141]10800:[153][200](UN$,J[170]1)SN$(B(J))":" 18345 [161]A$:[139]A$[178]""[167]18345 18347 [139][198](A$)[179]48[176][198](A$)[177]53[167]18345 18350 W(J)[178][197](A$):[141]10800:[153][200](UN$,J[170]1)""W(J) 18355 C(J)[178]SB(B(J))[171]W(J) 18360 [130]J 18370 [139][182](C(0)[171]C(1))[177]1[167]18400 18372 [139]KO(FA(I))[178]3[175][182](C(0)[171]C(2))[177]1[167]18400 18374 [139]KO(FA(I))[178]3[175][182](C(1)[171]C(2))[177]1[167]18400 18376 W[178]W(0)[170]W(1)[170]W(2) 18378 [129]J[178]0[164]KO(FA(I))[171]1 18380 SB(B(J))[178]SB(B(J))[171]W(J) 18385 [130]J 18390 GE(Z)[178]GE(Z)[170]W[172]500[172][181]((FA(I)[170]1)[173]2) 18395 GT[178]GT[171]W:Z4[178]I:[141]10000:[141]8000:[137]18965 18400 [141]10900:[141]10800:[153]"DAS GEHT NICHT!" 18405 [129]A[178]1[164]1500:[130]:[137]18105 18500 Z4[178]0:O[178]1 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 18510 [139]V[177]0[167][141]18615:[137]18514 18512 [145]O[141]18525,18540,18555,18570,18585,18600,18615,18630,18645 18514 [130]C,B 18516 [139]Z4[179][177]0[167][145]Z5[137]18900,18920,18940 18518 O[178]O[170]1:[139]O[179]10[167]18505 18520 [142] 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 18526 [142] 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 18541 [142] 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 18556 [142] 18570 [139](FA(I)[178]9[176]FA(I)[178]10)[175]BE(I)[178]Z[167]Z4[178]I:Z5[178]2 18571 [142] 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 18586 [142] 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 18601 [142] 18615 [139]KP(Z,FA(I))[179]KO(FA(I))[167][142] 18616 V[178]0:[129]J[178]0[164]KO(FA(I))[171]1 18617 B(J)[178]ST(FA(I),J) 18618 V[178]V[170]SB(B(J)) 18619 [130]J 18620 [139]V[178]0[167][142] 18621 M[178]0 18622 [129]J[178]0[164]KO(FA(I))[171]1 18623 [139]SB(B(J))[177]M[167]M[178]SB(B(J)):Z4[178]B(J) 18624 [130]J:Z5[178]3:[142] 18630 [139]BE(I)[178]Z[175]HY(I)[178]0[167]Z4[178]I:Z5[178]1 18631 [142] 18645 [139]BE(I)[178]Z[167]Z4[178]I:Z5[178]2 18646 [142] 18900 [141]10900:[141]10800:[153]""SP$(Z)" NIMMT":[141]10800 18902 [153]"HYPOTHEK AUF "AR$(Z4):[141]10800:[153]""SN$(Z4)" 18905 GOSUB10800:PRINT"AUF.":GOSUB10800:PRINT"SCHULD:"Z9 18910 GE(Z)=GE(Z)+.5*PR(Z4) 18913 KP(Z,FA(Z4))=KP(Z,FA(Z4))-1 18915 HY(Z4)=1:RETURN 18920 GOSUB10900:GOSUB10800:PRINT""SP$(Z):GOSUB10800 18922 PRINT"VERKAUFT "AR$(Z4):GOSUB10800 18925 PRINT""SN$(Z4) 18930 GOSUB10800:PRINT"SCHULD:"Z9 18932 GE(Z)=GE(Z)+.5*PR(Z4) 18933 IFHY(Z4)=0THENKP(Z,FA(Z4))=KP(Z,FA(Z4))-1 18935 BE(Z4)=5:HY(Z4)=0:RETURN 18940 GOSUB10900:GOSUB10800:PRINT""SP$(Z)" VERKAUFT":GOSUB10800 18942 PRINT"EIN HAUS AUF "AT$(Z4):GOSUB10800:PRINT""SN$(Z4) 18945 GOSUB10800:PRINT"SCHULD:"Z9 18950 SB(Z4)=SB(Z4)-1:V=V-1 18955 GE(Z)=GE(Z)+INT((FA(Z4)+1)/2)*500 18960 GT=GT-1 18965 RETURN 19000 FE=0 19002 GETB$:IFB$=""THEN19000 19005 GETC$:IFC$=""THEN19005 19010 GETD$:IFD$=""THEN19010 19015 A$=B$+C$+D$ 19020 IFA$="SCH"THEN19100 19025 IFA$="HAU"THEN19130 19030 I=0 19035 I=I+1:IFI=41THEN19045 19040 IFLEFT$(SN$(I),3)<>A$THEN19035 19045 IFI=41THEN19300 19050 GOTO19180 19100 GETB$:IFB$=""THEN19100 19105 IFB$="L"THENI=40:GOTO19180 19110 IFB$<>"I"THEN19300 19115 I=27:GOTO19180 19130 GETB$:IFB$=""THEN19130 19135 GETB$:IFB$=""THEN19135 19140 GETB$:IFB$=""THEN19140 19145 IFB$="S"THENI=33:GOTO19180 19150 IFB$<>"B"THEN19300 19155 I=36:GOTO19180 19180 A$=SN$(I) 19190 GOSUB10800:PRINT""A$ 19195 RETURN 19300 FE=1:RETURN 19500 IFGE(Z)>PYTHENPJ=0:RETURN 19510 PJ=1:GOSUB10800:PRINT""SP$(Z)" HAT NICHT":GOSUB10800 19515 PRINT"GENUG GELD." 19520 RETURN 20000 TT=VAL(LEFT$(TI$,2))*60+VAL(MID$(TI$,3,2)) 20002 PRINT"[151]"TR$TU$;" [157][157][157][157][157]"STR$(RU-TT) 20005 PRINT"[151]"FR$FU$;" [157][157][157][157][157][157]"STR$(FP) 20010 RETURN 20500 IFPO(Z)=39THENGOTO20520 20505 GOSUB10900:GOSUB10800:PRINT""SP$(Z)" MUSS" 20510 GOSUB10800:PRINT"4000 DM ZAHLEN." 20515 BZ=4000:GOTO20550 20520 GOSUB10900:GOSUB10800:PRINT""SP$(Z)" MUSS" 20525 GOSUB10800:PRINT"2000 DM ZAHLEN." 20530 BZ=2000:GOTO20550 20550 IFBZ>GE(Z)THENZ9=BZ:GOSUB18000 20555 GE(Z)=GE(Z)-BZ:FP=FP+BZ:RETURN 21000 GOSUB22000:GW(Z)=GW(Z)+1 21010 IFWP$="PASCH"THENPG(Z)=0:GW(Z)=0:GOSUB21100:GOTO3105 21015 IFGW(Z)=3THENGW(Z)=0:PG(Z)=0:Z9=1000:GOSUB21150:GOTO21040 21020 IFFF(Z)=1THENPG(Z)=0:GW(Z)=0:FF(Z)=0:GOTO21065 21021 GOSUB10900:GOSUB10800:PRINT"WILLST DU DICH":GOSUB10800 21022 PRINT"FUER DM 1000":GOSUB10800:PRINT"FREIKAUFEN ?":GOSUB10800 21023 PRINT"(J/N)";:IFZ>ANTHEN21030 21024 TM$=TI$ 21025 GETA$:IFA$<>"J"ANDA$<>"N"THEN21025 21026 TI$=TM$ 21027 IFA$="J"ANDGE(Z)>=1000THENGW(Z)=3:PRINT" JA!":FORA=1TO1000:NEXT:GOTO21015 21028 PRINT" NEIN!":FORA=1TO1000:NEXT:GOTO3235 21030 IFGT>10ORGE(Z)<1000THENA$="N" 21031 IFGE(Z)>1000AND(WU=10ORWU=7)THENA$="J" 21032 IFA$="N"THENPRINT" NEIN!":FORA=1TO1000:NEXT:GOTO3235 21033 PRINT" JA!" 21035 FORA=1TO1000:NEXT:GW(Z)=3:GOTO21015 21040 IFGE(Z)ANOR(PG(Z)=0ANDWP$="")THEN22025 22015 GOSUB10800:PRINT"[146]RETURN" 22019 TM$=TI$ 22020 GETA$:IFA$<>CHR$(13)THEN22020 22021 TI$=TM$:GOSUB10800:PRINT" " 22025 W(1)=6:W(2)=6 22030 B(1)=INT(RND(1)*12)+13 22040 B(2)=INT(RND(1)*12)+13 22045 IFB(1)>=B(2)THENX=B(1):GOTO22050 22046 X=B(2) 22050 FORY=1TOX:FORI=1TO2 22052 IFY>B(I)THEN22056 22055 W(I)=W(I)-1:IFW(I)=0THENW(I)=6 22056 NEXTI 22057 PRINT""LEFT$(RE$,21)LEFT$(UN$,22); 22058 ONW(1)GOSUB22200,22210,22220,22230,22240,22250 22059 PRINT""LEFT$(RE$,25)LEFT$(UN$,22); 22060 ONW(2)GOSUB22200,22210,22220,22230,22240,22250 22065 NEXTY 22070 IFW(1)=W(2)THENWP$="PASCH" 22072 IFW(1)<>W(2)THENWP$="" 22075 IFWP$="PASCH"THENP=P+1:IFP=3THENPG(Z)=1:WU=11-PO(Z):IFWU<0THENWU=WU+40 22080 IFP=3THEN22100 22085 WU=W(1)+W(2) 22090 RETURN 22100 GOSUB10900:GOSUB10800 22105 PRINT"DREIMAL PASCH:" 22110 GOSUB10800:PRINT""SP$(Z)" MUSS INS" 22115 GOSUB10800:PRINT"GEFAENGNIS." 22120 FORA=1TO2000:NEXT:RETURN 22200 PRINT"[153] [157][157][157] [209] [157][157][157] ";:RETURN 22210 PRINT"[153] [209][157][157][157] [157][157][157][209] ";:RETURN 22220 PRINT"[153][209] [157][157][157] [209] [157][157][157] [209]";:RETURN 22230 PRINT"[153][209] [209][157][157][157] [157][157][157][209] [209]";:RETURN 22240 PRINT"[153][209] [209][157][157][157] [209] [157][157][157][209] [209]";:RETURN 22250 PRINT"[153][209] [209][157][157][157][209] [209][157][157][157][209] [209]";:RETURN 23000 A=0 23002 IFLEN(ER$(A,EZ))>18THEN23010 23005 A=A+1:GOTO23002 23010 LT$=RIGHT$(ER$(A,EZ),6):L1$=LEFT$(LT$,1):E$(A)=LEFT$(ER$(A,EZ),18) 23012 IFA>0THENFORB=0TOA-1:E$(B)=ER$(B,EZ):NEXTB 23015 GOSUB10900 23020 FORI=0TOA 23025 GOSUB10800:PRINTLEFT$(UN$,I+1)E$(I) 23030 NEXTI 23035 EZ=EZ+1:IFEZ=16THENEZ=0 23040 GOTO23140 23100 A=0 23102 IFLEN(GE$(A,GZ))>18THEN23110 23105 A=A+1:GOTO23102 23110 LT$=RIGHT$(GE$(A,GZ),6):L1$=LEFT$(LT$,1):G$(A)=LEFT$(GE$(A,GZ),18) 23112 IFA>0THENFORB=0TOA-1:G$(B)=GE$(B,GZ):NEXTB 23115 GOSUB10900 23120 FORI=0TOA 23125 GOSUB10800:PRINTLEFT$(UN$,I+1)G$(I) 23130 NEXTI 23135 GZ=GZ+1:IFGZ=16THENGZ=0 23140 IFMID$(LT$,1,3)<>"0"THENL3=VAL(RIGHT$(LT$,4)):GOTO23160 23145 IFMID$(LT$,1,4)<>"0"THENL3=VAL(RIGHT$(LT$,3)):GOTO23160 23150 IFMID$(LT$,1,5)<>"0"THENL3=VAL(RIGHT$(LT$,2)):GOTO23160 23155 L3=VAL(RIGHT$(LT$,1)):GOTO23160 23160 IFL1$="X"THENWU=L3-PO(Z):IFWU<0THENWU=WU+40 23162 IFL1$="X"THEN3105 23165 IFL1$="Y"THENWU=L3-PO(Z):LL=1 23166 IFL1$="Y"THEN3105 23170 IFL1$<>"Z"THEN23175 23171 IFL3>GE(Z)THENZ9=L3:GOSUB18000 23172 IFZ2=1THEN3235 23173 GE(Z)=GE(Z)-L3:FP=FP+L3:GOTO3235 23175 IFL1$="E"THENGE(Z)=GE(Z)+L3:GOTO3235 23180 IFL1$="G"THENWU=-3:LL=1:GOTO3105 23185 IFL1$="F"THENFF(Z)=1:GOTO3235 23190 IFL1$="K"THENPG(Z)=1:WU=11-PO(Z):IFWU<0THENWU=WU+40 23195 IFL1$="K"THENGOSUB9000:GOTO3235 23200 IFL1$<>"A"THEN23220 23201 GOSUB10800:PRINT"[146]E'KARTE - [146]ZAHLEN ?" 23202 IFZ<=ANTHEN23205 23203 IFRND(1)<.5ORGE(Z)<200THEN23210 23204 GOTO23215 23205 TM$=TI$ 23206 GETA$:IFA$=""THEN23205 23207 TI$=TM$:IFA$="E"THEN23210 23208 IFA$<>"Z"THEN23205 23209 GOTO23215 23210 Q$=" " 23211 GOSUB10800:PRINTQ$:FORA=1TO1500:NEXT 23212 GOTO23000 23215 Q$=" " 23216 GOSUB10800:PRINTQ$:IFGE(Z)<200THEN23201 23217 GE(Z)=GE(Z)-200:FP=FP+200:GOTO3235 23220 IFL1$<>"B"THEN23230 23221 FORI=1TO4:IFI=ZTHEN23223 23222 IFGE(I)>200THENGE(I)=GE(I)-200 23223 NEXTI 23224 GE(Z)=GE(Z)+600 23225 GOTO3235 23230 IFL1$<>"S"THEN23250 23231 U=0 23232 FORI=1TO40 23233 IFSB(I)=5ANDBE(I)=ZTHENU=U+2300:GOTO23235 23234 IFSB(I)>0ANDBE(I)=ZTHENU=U+800*SB(I) 23235 NEXT:GOSUB10800:PRINT"GESAMT:"U"DM" 23236 IFGE(Z)"R"THEN3235 23251 U=0 23252 FORI=1TO40 23253 IFSB(I)=5ANDBE(I)=ZTHENU=U+2000:GOTO23255 23254 IFSB(I)>0ANDBE(I)=ZTHENU=U+500*SB(I) 23255 NEXTI:GOSUB10800:PRINT"GESAMT:"U"DM" 23256 IFGE(Z)ANTHEN24135 24059 TM$=TI$ 24060 GETA$:IFA$<>"J"ANDA$<>"N"THEN24060 24061 TI$=TM$ 24065 IFA$="N"THENGOSUB10800:PRINT"NEIN !":RETURN 24070 GOSUB10800:PRINT"JA !" 24075 PY=PR(PO(Z)) 24080 GOSUB19500:IFPJ=1THENRETURN 24085 GE(Z)=GE(Z)-PY 24090 BE(PO(Z))=Z 24095 KP(Z,FA(PO(Z)))=KP(Z,FA(PO(Z)))+1 24100 PRINT""LEFT$(UN$,ZL)""FA$(FA(PO(Z)))" [146] - "BB$(SB(PO(Z))); 24102 PRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"SN$(PO(Z)) 24105 ZL=ZL+1:IFZL=22THENGOSUB10000:ZL=4 24110 RETURN 24135 IFKP(Z,FA(PO(Z)))=0ANDRND(1)<.1ANDGE(Z)<2*PR(PO(Z))THENA$="N":GOTO24065 24140 IFGE(Z)>=PR(PO(Z))THENA$="J":GOTO24070 24145 A$="N":GOTO24065 24200 IFBE(PO(Z))=5THEN24045 24205 IFBE(PO(Z))=ZTHENGOSUB10900:GOSUB10800:PRINT""SP$(Z)" IST" 24206 IFBE(PO(Z))=ZTHENGOSUB10800:PRINT"SELBST BESITZER":RETURN 24208 MX=(2^(KP(BE(PO(Z)),FA(PO(Z)))-1))*500 24210 GOTO24015 24400 IFBE(PO(Z))=5THEN24045 24405 IFBE(PO(Z))=ZTHENGOSUB10900:GOSUB10800:PRINT""SP$(Z)" IST" 24406 IFBE(PO(Z))=ZTHENGOSUB10800:PRINT"SELBST BESITZER":RETURN 24410 MX=MI(PO(Z),SB(PO(Z))) 24415 IFKP(BE(PO(Z)),FA(PO(Z)))=KO(FA(PO(Z)))ANDSB(PO(Z))=0THENMX=MX*2 24420 GOTO24015 24500 GOSUB10900:GOSUB10800:PRINT"HYPOTHEK AUF "AT$(PO(Z)):GOSUB10800 24505 PRINT""SN$(PO(Z))":":GOSUB10800:PRINT"KEINE MIETE!" 24510 RETURN 25000 DIMPR(40),MI(40,5),BE(40),AR$(40),GW(4) 25005 DIMSB(40),FA(40),KP(4,10),HY(40),GE(4),G1(4),GG(4),SP$(5),PO(4),PG(4) 25010 DIMER$(4,15),GE$(4,15),V(15),KN(40),FB(40),ZE(40),AT$(40),ST(10,3) 25015 FORA=1TO4:GE(A)=30000:NEXT 25020 FORA=1TO40:READPR(A):NEXT 25025 FORA=1TO40:FORB=0TO5:READMI(A,B):NEXTB,A 25030 FORA=1TO40:BE(A)=5:NEXT 25035 FORA=1TO40:READAR$(A):NEXT 25036 FORA=1TO40:READAT$(A):NEXT 25040 FORA=1TO40:READFA(A):NEXT 25045 FORA=1TO10:READKO(A):NEXT 25050 FORA=0TO15:V(A)=A:NEXT 25055 FORA=15TO0STEP-1 25060 C=INT(RND(1)*(A+1)):E=0 25065 READGE$(E,V(C)) 25070 IFLEN(GE$(E,V(C)))<=18THENE=E+1:GOTO25065 25075 IFC=ATHEN25085 25080 FORD=CTOA-1:V(D)=V(D+1):NEXTD 25085 NEXTA:RETURN 25090 FORA=0TO15:V(A)=A:NEXT 25095 FORA=15TO0STEP-1 25100 C=INT(RND(1)*(A+1)):E=0 25105 READER$(E,V(C)) 25110 IFLEN(ER$(E,V(C)))<=18THENE=E+1:GOTO25105 25115 IFC=ATHEN25125 25120 FORD=CTOA-1:V(D)=V(D+1):NEXTD 25125 NEXTA 25130 FORA=1TO4:READNA$(A):NEXT 25135 FORA=1TO11:B=32-A 25136 KN(A)=2024-A:KN(B)=KN(A)-400 25137 NEXTA 25140 FORA=12TO20:B=52-A 25141 KN(A)=2013-40*(A-11):KN(B)=KN(A)+10 25142 NEXTA 25150 RE$="" 25155 UN$="" 25160 TR$=LEFT$(RE$,31):TU$=LEFT$(UN$,17) 25165 FR$=LEFT$(RE$,31):FU$=LEFT$(UN$,22) 25170 SR$=LEFT$(RE$,21):SU$=LEFT$(UN$,6) 25175 L$="[159] [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]" 25180 FORA=1TO3:LO$=LO$+L$:NEXT 25185 FORA=1TO2:LP$=LP$+L$:NEXT 25190 FORA=1TO2:LQ$=LQ$+L$:NEXT 25200 FA$(1)="":FA$(2)="[159]":FA$(3)="[156]":FA$(4)="[129]":FA$(5)="":FA$(6)="[158]" 25205 FA$(7)="":FA$(8)="[154]":FA$(9)="":FA$(10)="[152]" 25210 FORA=1TO40:READFB(A),ZE(A):NEXTA 25215 RETURN 25220 FORA=1TO40:POKEKN(A)+54272,FB(A):POKEKN(A),ZE(A):NEXT 25300 B=0:C=0:D=0 25305 FORA=1TO40:READSN$(A) 25310 IFFA(A)<9ANDFA(A)>0THENST(FA(A),B)=A:B=B+1:IFB=KO(FA(A))THENB=0 25315 IFFA(A)=9THENST(9,C)=A:C=C+1 25320 IFFA(A)=10THENST(10,D)=A:D=D+1 25325 NEXTA 25999 RETURN 26000 DATA0,1200,0,1600,0,4000,2000,0,2000,2400,0,2800,2800,3000,3200,4000 26005 DATA3600,0,3600,4000,0,4400,0,4400,4800,4000,5200,5200,3000,5600,0,6000 26010 DATA6000,0,6400,4000,0,7000,0,8000 26020 DATA0,0,0,0,0,0 26025 DATA40,200,600,1800,3200,5000 26030 DATA0,0,0,0,0,0 26035 DATA80,400,1200,3600,6400,9000 26040 DATA0,0,0,0,0,0 26045 DATA500,1000,2000,4000,0,0 26050 DATA120,600,1800,5400,8000,11000 26055 DATA0,0,0,0,0,0 26060 DATA120,600,1800,5400,8000,11000 26065 DATA160,800,2000,6000,9000,12000 26070 DATA0,0,0,0,0,0 26075 DATA200,1000,3000,9000,12000,15000 26080 DATA200,1000,3000,9000,12000,15000 26085 DATA1,1,1,1,1,1 26090 DATA240,1200,3600,10000,13000,16000 26095 DATA500,1000,2000,4000,0,0 26100 DATA280,1400,4000,11000,15000,19000 26105 DATA0,0,0,0,0,0 26110 DATA280,1400,4000,11000,15000,19000 26115 DATA320,1600,4400,12000,16000,20000 26120 DATA0,0,0,0,0,0 26125 DATA360,1800,5000,14000,17500,23000 26130 DATA0,0,0,0,0,0 26135 DATA360,1800,5000,14000,17500,23000 26140 DATA400,2000,6000,15000,18500,24000 26145 DATA500,1000,2000,4000,0,0 26150 DATA440,2200,6600,17000,21000,25000 26155 DATA440,2200,6600,17000,21000,25000 26160 DATA1,1,1,1,1,1 26165 DATA480,2400,7200,18000,22500,27000 26170 DATA0,0,0,0,0,0 26175 DATA520,2600,7800,19000,24000,28000 26180 DATA520,2600,7800,19000,24000,28000 26185 DATA0,0,0,0,0,0 26190 DATA560,2800,8400,20000,25500,30000 26195 DATA500,1000,2000,4000,0,0 26200 DATA0,0,0,0,0,0 26205 DATA700,3000,11000,25000,30000,35000 26210 DATA0,0,0,0,0,0 26211 DATA1000,4000,12000,28000,34000,40000 26212 DATA,DIE,DAS,DIE,DIE,DEN,DIE,DAS,DIE,DIE,DAS,DIE,DIE,DAS,DIE,DEN,DIE,DAS 26213 DATADIE,DIE,,DIE,DAS,DIE,DEN,DEN,DIE,DIE,DAS,DIE,,DEN,DIE,DAS,DIE,DEN 26214 DATADAS,DIE,DIE,DIE 26215 DATA,DER,DEM,DER,DER,DEM,DER,DEM,DER,DER,DEM,DER,DER,DEM,DER,DEM,DER,DEM 26216 DATADER,DER,,DER,DEM,DER,DEM,DEM,DER,DER,DEM,DER,,DEM,DER,DEM,DER,DEM,DEM 26217 DATADER,DER,DER 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 26280 DATA7,7,0,7,9,0,8,0,8 26285 DATA2,3,3,3,3,3,3,2,4,2 26330 DATA"ZAHLE AN DAS KRAN- 26331 [131]"KENHAUS. DM 2000 Z 2000 26335 DATA" AUS LAGERVERKAEU- 26336 [131]" FEN ERHAELTST DU 26337 DATA" DM 100. E 0100 26340 [131]" EINKOMMENSSTEUER- 26341 DATA" RUECKZAHLUNG. DU 26342 [131]" ERHAELTST DM 400.E 0400 26345 DATA" ARZTKOSTEN. 26346 [131]" ZAHLE DM 100. Z 0100 26350 DATA"DU KOMMST AUS DEM 26351 [131]"GEFAENGNIS FREI. F 0000 26355 DATA" ZAHLE DEINE VER- 26356 [131]" SICHERUNGSSUMME. 26357 DATA" DM 1000. Z 1000 26360 [131]"BANKIRRTUM ZU 26361 DATA"DEINEN GUNSTEN. DU 26362 [131]"ERHAELTST DM 4000 E 4000 26365 DATA"DU HAST IM KREUZ- 26366 [131]"WORTRAETSEL GEWON- 26367 DATA"NEN. DU ERHAELTST 26368 [131]"DM 2000. E 2000 26370 DATA" GEHE ZURUECK ZUR 26371 [131]" BADSSTRASSE. Y 0002 26375 DATA" GEHE IN DAS 26376 [131]" GEFAENGNIS K 0011 26380 DATA"DEINE JAHRESRENTE 26381 [131]"WIRD FAELLIG. 26382 DATA"ZIEHE DM 2000 EIN.E 2000 26385 [131]"DU HAST IN EINER 26386 DATA"SCHOENHEITSKONKUR- 26387 [131]"RENZ DEN 2. PREIS 26388 DATA"GEWONNEN. DU 26389 [131]"ERHAELTST DM 200 E 0200 26390 DATA" AUS VORZUGSAKTIEN 26391 [131]" ERHAELTST DU 7% 26392 DATA" DIVIDENDE. DM 500E 0500 26395 [131]" DU ERBST DM 2000.E 2000 26400 DATA" ZAHLE EINE STRA- 26401 [131]" FE VON DM 200 26402 DATA" ODER NIMM EINE 26403 [131]" EREIGNISKARTE. A 0000 26405 DATA" RUECKE VOR BIS 26406 [131]" AUF LOS X 0001 26410 DATA" MACHE EINEN 26411 [131]" AUSFLUG ZUM 26412 DATA" WESTBAHNHOF X 0016 26415 [131]" ZAHLE SCHULGELD. 26416 DATA" DM 3000. Z 3000 26420 [131]"BETRUNKEN IM 26421 DATA"DIENST. ZAHLE EINE 26422 [131]"STRAFE VON DM 200.Z 0200 26425 DATA" RUECKE VOR BIS 26426 [131]" ZUR SCHLOSSALLEE.X 0040 26430 DATA" DIE BANK ZAHLT 26431 [131]" DIR EINE DIVIDEN- 26432 DATA" DE VON DM 1000. E 1000 26435 [131]" GEHE 3 FELDER 26436 DATA" ZURUECK. G 0003 26440 [131]" RUECKE VOR BIS 26441 DATA" ZUR SEESTRASSE. X 0012 26445 [131]" STRAFE FUER ZU 26446 DATA" SCHNELLES FAHREN. 26447 [131]" DM 300. Z 0300 26450 DATA" MIETE UND ANLEI- 26451 [131]" HEZINSEN WERDEN 26452 DATA" FAELLIG. DU ER- 26453 [131]" HAELTST DM 3000. E 3000 26455 DATA" RUECKE VOR BIS 26456 [131]" AUF LOS. X 0001 26460 DATA" RUECKE VOR BIS 26461 [131]" ZUM OPERNPLATZ. X 0025 26465 DATA" STRASSENAUSBES- 26466 [131]" SERUNGSARBEITEN 26467 DATA"PRO HAUS- DM 800 26468 [131]"PRO HOTEL- DM 2300S 0000 26470 DATA" LASSE DEINE HAEU- 26471 [131]" SER RENOVIEREN. 26472 DATA"PRO HAUS- DM 500 26473 [131]"PRO HOTEL- DM 2000R 0000 26475 DATA" GEHE IN DAS 26476 [131]" GEFAENGNIS K 0011 26480 DATA" ES IST DEIN GE- 26481 [131]" BURTSTAG. ZIEHE 26482 DATA" VON JEDEM SPIE- 26483 [131]" LER DM 200 EIN. B 0200 26485 DATA" DU KOMMST AUS DEM 26486 [131]" GEFAENGNIS FREI. F 0000 26490 DATA1 COMM,2 COMM,3 COMM,4 COMM 26500 DATA1,159,6,130,12,160,6,148,11,160,1,147,3,131,12,160,3,133,3,144,10,163 26510 DATA4,147,4,136,15,133,4,142,1,151,8,141,12,160,8,151,8,130,13,164 26515 DATA2,141,12,160,2,148,2,143,1,142,7,147,7,140,15,151,7,135,10,161 26520 DATA5,146,5,136,12,160,5,130,1,136,12,160,14,144,11,160,14,147 26620 DATALOS,BADSTRASSE,GEMEINS.-FELD,TURMSTRASSE,EINKOM.-STEUER,SUEDBAHNHOF 26625 DATACHAUSSEESTR.,EREIGNISFELD,ELISENSTRASSE,POSTSTRASSE,GEFAENGNIS 26630 DATASEESTRASSE,HAFENSTRASSE,ELEKTR.-WERK,NEUE STRASSE,WESTBAHNHOF 26632 DATAMUENCHNER STR.,GEMEINS.-FELD,WIENER STRASSE,BERLINER STR.,FREI PARKEN 26635 DATAMUSEUMSSTRASSE,EREIGNISFELD,THEATERSTRASSE,OPERNPLATZ,NORDBAHNHOF 26640 DATASCHILLERSTR.,LESSINGSTRASSE,WASSERWERK,GOETHESTRASSE,GEHE INS GEF. 26645 DATARATHAUSPLATZ,HAUPTSTRASSE,GEMEINS.-FELD,BAHNHOFSTRASSE,HAUPTBAHNHOF 26650 DATAEREIGNISFELD,PARKSTRASSE,ZUSATZSTEUER,SCHLOSSALLEE 27000 GOSUB10900:GOSUB10800:PRINT""SP$(Z)" IST":GOSUB10800 27001 PRINT"AUSGESCHIEDEN !" 27002 GE(Z)=0 27005 FORI=1TO40:IFBE(I)=ZTHENBE(I)=5 27006 NEXTI 27010 FORI=1TO4:IFI=ZTHEN27015 27012 IFPO(I)=PO(Z)THENQ=1:J=I 27015 NEXTI 27020 IFQ=0THEN27030 27022 IFASC(S$(J))<65THENPOKEKN(PO(Z))+54272,1:POKEKN(PO(Z)),ASC(S$(J)) 27025 IFASC(S$(J))>=65THENPOKEKN(PO(Z))+54272,1:POKEKN(PO(Z)),ASC(S$(J))-64 27027 GOTO27035 27030 POKEKN(PO(Z))+54272,FB(PO(Z)):POKEKN(PO(Z)),ZE(PO(Z)) 27035 PO(Z)=0 27040 J=0 27045 FORI=1TO4:IFPO(I)=0THENJ=J+1 27050 NEXTI 27055 IFJ=3THEN27100 27075 Z2=1:RETURN 27100 FORA=1TO4:FORI=1TO40 27110 IFBE(I)=ATHENG1(A)=G1(A)+PR(I)*(1+.5*(HY(I)=1)) 27115 IFBE(I)=AANDSB(I)>0THENG1(A)=G1(A)+(INT((FA(I)+1)/2)*500)*SB(I) 27120 NEXTI 27125 GG(A)=GE(A)+G1(A) 27130 NEXTA 27135 PRINT"[147]" 27137 PRINT:PRINT 27140 PRINT" E N D R E S U L T A T" 27145 PRINT" [196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]" 27150 PRINT:PRINT 27155 PRINT"[158] SPIELER: [156]KAPITAL: [159]BESITZ: [129]GESAMT:" 27160 PRINT"----------------------------------------"; 27163 PRINT 27165 FORA=1TO4 27170 PRINTTAB(1)"[158]"SP$(A);TAB(11)"[156]"GE(A);TAB(21)"[159]"G1(A);TAB(31)"[129]"GG(A) 27172 PRINT 27175 NEXTA 27180 PRINT:PRINT:PRINT 27185 PRINT" NOCH EIN SPIEL ? -> [SPACE]" 27190 GETA$:IFA$<>" "THEN27190 27200 RUN