home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
s85xx
/
s8503c.d64
/
monopoly
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
32KB
|
1,123 lines
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 <SPACE>"
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)<PTTHEN15090
15085 GOSUB17000:S2=1:N=N+1
15090 IFA$="J"THENGOSUB10000:GOSUB8000:GOSUB7000
15092 NEXTI
15095 IFS2=1THENFORA=1TO3000:NEXT
15097 RETURN
16000 N=0
16002 N=N+1:IFN=3THEN16500
16005 GOSUB10900:GOSUB10800:PRINT"WELCHE STRASSE":GOSUB10800
16006 PRINT"WILLST DU ?"
16010 GOSUB19000:IFFE=1THEN16500
16012 FORA=1TO800:NEXT
16015 Z7=I
16020 IFSB(I)>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)<PTTHENGOSUB10800:PRINT"ZU WENIG GELD! "
17051 IFGE(Z)<PTTHENRETURN
17055 GOSUB10800:PRINT"JA!"
17060 BE(Z7)=Z
17061 IFHY(Z7)=0THENKP(Z,FA(Z7))=KP(Z,FA(Z7))+1
17063 IFHY(Z7)=0THENKP(Z4,FA(Z7))=KP(Z4,FA(Z7))-1
17065 GE(Z)=GE(Z)-PT:GE(Z4)=GE(Z4)+PT:RETURN
17100 IFKP(Z,FA(Z7))=KO(FA(Z7))-1THENA$="N"
17105 IFKP(Z4,FA(Z7))>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)<RTHENRETURN
17510 GOSUB10900:GOSUB10800:PRINT""SP$(Z)" WILL":GOSUB10800
17512 PRINT"VON "SP$(Z4)" "AR$(Z7):GOSUB10800
17513 IFR>=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)<RTHENGOSUB10800:PRINT"ZU WENIG GELD":GOTO17575
17557 IFR<0ANDGE(Z4)<(-R)THENGOSUB10800:PRINT"ZU WENIG GELD":GOTO17575
17560 BE(Z7)=Z:BE(Z6)=Z4
17561 IFHY(Z7)=0THENKP(Z,FA(Z7))=KP(Z,FA(Z7))+1
17563 IFHY(Z7)=0THENKP(Z4,FA(Z7))=KP(Z4,FA(Z7))-1
17565 IFHY(Z6)=0THENKP(Z4,FA(Z6))=KP(Z4,FA(Z6))+1
17567 IFHY(Z6)=0THENKP(Z,FA(Z6))=KP(Z,FA(Z6))-1
17570 GE(Z)=GE(Z)-R:GE(Z4)=GE(Z4)+R
17575 RETURN
17600 IFKP(Z,FA(Z7))-KO(FA(Z7))<=KP(Z4,FA(Z6))-KO(FA(Z6))THENA$="J"
17602 IFA$<>"J"THENA$="N"
17605 IFR<0ANDGE(Z4)<ABS(R)THENA$="N"
17610 GOTO17540
18000 IFGE(Z)<Z9THEN18015
18005 IFZ>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)<Z9THENGOSUB18000
21045 IFZ2=1THEN3235
21050 GE(Z)=GE(Z)-1000:GOTO3105
21065 GOSUB10900:GOSUB10800:PRINT"E/G-KARTE:"
21066 GOSUB10800:PRINT"DU KOMMST AUS":GOSUB10800:PRINT"DEM GEFAENGNIS"
21067 GOSUB10800:PRINT"FREI."
21070 GOTO3105
21100 GOSUB10900:GOSUB10800:PRINT"* PASCH *"
21105 GOSUB10800:PRINT"DU KOMMST AUS":GOSUB10800:PRINT"DEM GEFAENGNIS"
21110 GOSUB10800:PRINT"FREI."
21115 RETURN
21150 GOSUB10900:GOSUB10800:PRINT"DU KOMMST FUER"
21155 GOSUB10800:PRINT"1000 DM AUS DEM":GOSUB10800:PRINT"GEFAENGNIS FREI"
21160 RETURN
21999 GOTO3100
22000 GOSUB10900
22005 GOSUB10800:PRINT"* WUERFELN *"
22010 IFZ>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)<UTHENZ9=U:GOSUB18000
23237 IFZ2=1THEN3235
23238 GE(Z)=GE(Z)-U
23239 FP=FP+U
23240 GOTO3235
23250 IFL1$<>"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)<UTHENZ9=U:GOSUB18000
23257 IFZ2=1THEN3235
23258 GE(Z)=GE(Z)-U
23259 FP=FP+U
23260 GOTO3235
24000 IFBE(PO(Z))=5THEN24045
24005 IFBE(PO(Z))=ZTHENGOSUB10900:GOSUB10800:PRINT""SP$(Z)" IST"
24006 IFBE(PO(Z))=ZTHENGOSUB10800:PRINT"SELBST BESITZER":RETURN
24010 IFBE(14)=BE(29)ANDHY(14)=0ANDHY(29)=0THENMX=200*WU:GOTO24020
24012 MX=80*WU
24015 IFHY(PO(Z))=1THEN24500
24020 GOSUB10900:GOSUB10800:PRINT""SP$(Z)" ZAHLT AN":GOSUB10800
24025 PRINT""SP$(BE(PO(Z)));MX"DM":GOSUB10800:PRINT"MIETE."
24030 GE(BE(PO(Z)))=GE(BE(PO(Z)))+MX
24035 IFGE(Z)<MXTHENZ9=MX:GOSUB18000:IFZ2=1THENRETURN
24040 GE(Z)=GE(Z)-MX:RETURN
24045 GOSUB10900:GOSUB10800:PRINT""SN$(PO(Z)):GOSUB10800
24047 PRINT"IST FUER"PR(PO(Z))"DM"
24050 GOSUB10800:PRINT"ZU VERKAUFEN.":GOSUB10800:PRINT"(J/N)?"
24055 IFZ>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