home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disc 6
/
Commodore_Disc_06_19xx_-_de.d64
/
antimonopoly.64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
25KB
|
692 lines
100 rem antimonopoly by knight - soft
110 print"[147]":poke53280,0:poke53281,0:poke832,0:clr:gosub1670
120 pg$=" schwarz, hl. blau, lila, orange, rot, weiss, gruen, dk. blau"
130 dimpn$(42),d(42,1),ch$(16),cc$(16),p(42,9),pt$(42),c$(42),ps(42),h(42),mg(42)
140 dim p$(2),pl(2),o(2),jt(2),m(2),cj(2):gosub300:q$="n"
150 goto160
160 input"willst du jackpot auf'frei parken'";q$:ifleft$(q$,1)="y"thenpf=1:fp=500
170 m(1)=30000:m(2)=30000:pl(1)=1:pl(2)=1:dv=2
180 cd$="":cr$=""
190 zq=rnd(-ti):x1=8:y1=10:x2=23:y2=10:rx=6:ry=18:tn=832:tt=886
200 e$=" [146]":rm$="druecke 'r'oder't'[146]"
210 print"[147][159]bitte geduld (c)knight - soft "
220 fori=1to4:p(6+((i-1)*10),8)=100:next:p(13,8)=75:p(29,8)=75
230 ch=int(rnd(1)*16)+1:cc=int(rnd(1)*16)+1
240 fori=1to41:forj=0to1:readd(i,j):next:next
250 p$(1)=" spieler 1[146]":p$(2)=" spieler 2[146]"
260 fori=1to41:gosub7000:next:fori=1to41:readpt$(i):ifpt$(i)<>"p"then280
270 readc$(i):forj=1to9:readp(i,j):nextj
280 nexti
290 fori=1to16:readch$(i):next:fori=1to16:readcc$(i):next:goto370
300 print" knight - soft computerclub "
310 print" presens antimonopoly "
320 print" written by erwin disser "
330 print" (c) copyright only by knight - soft and somme frands"
340 print"druecke 'r' zum wuerfeln und 't' zum abfragen der geschaefte"
350 print"mit '0' kommst du zum unterprogramm zurueck"
360 print:print"versuche dein eigentum zu verschleudern":print:return
370 poke54277,79:poke54284,79:poke54291,79
380 poke54278,248:poke54286,248:poke54292,248
390 poke54276,33:poke54288,33:poke54290,33
400 g(1)=54272:g(2)=54273:g(3)=54279:g(4)=54280:g(5)=54286:g(6)=54287
410 fori=1to6:pokeg(i),0:next
420 poke54296,15:ifpeek(832)<>160thengosub6560
430 gosub1400:forpk=1to2:poked(1,pk-1),48+pk:o(pk)=d(1,pk-1):pt=pk:next:gosub6650
440 gosub1700:ifr1=r2then440
450 pt=(r1>r2)+2
460 poked(pl(1),0),49:poked(pl(2),1),50
470 pt$=str$(pt)
480 ms$="spieler"+pt$+" start [146]"
490 x=rx:y=ry:z$=ms$:gosub1650:forde=1to1500:next:z$=e$:gosub1650:goto700
500 dv=2:mf=0:jb=0
510 ifpl(pt)=41then610
520 jt(pt)=0
530 gosub1700:df=1
540 ifdb=3thensystn:gosub3300:systt:gosub6650:goto640
550 form=1todr:pl(pt)=pl(pt)+1
560 pokeo(pt),160:ifpl(pt)>40thenpl(pt)=pl(pt)-40:systn:gosub1800:systt
570 poked(pl(pt),pt-1),48+pt
580 o(pt)=d(pl(pt),pt-1)
590 fort=1to50step6+pt:fori=1to6:pokeg(i),t:next:next:next
600 fori=1to6:pokeg(i),0:next
610 poked(pl(pt),pt-1),48+pt:gosub6650
620 systn:gosub1870:systt:gosub6650:ifm(pt)<0thengosub6390:systt
630 ifpl(pt)=11thenpoked(41,pt-1),160:poked(11,pt-1),48+pt
640 ifjbthenjb=0:pokeo(pt),160:o(pt)=d(pl(pt),pt-1):goto550
650 ifmfthenmf=0:pokeo(pt),160:o(pt)=d(pl(pt),pt-1):goto610
660 ifjethenje=0:pokeo(pt),160:o(pt)=d(pl(pt),pt-1):goto700
670 ifjfthenjf=0:poked(pl(pt),pt-1),48+pt:pokeo(pt),160:o(pt)=d(pl(pt),pt-1)
680 ifdbthen700
690 pt=3-pt
700 z$=p$(pt):x=rx:y=ry-1:gosub1650
710 z$=rm$:x=rx:y=ry:gosub1650
720 getbc$:ifbc$<>""then720
730 geta$:ifa$=""then730
740 ifa$="t"thensystn:gosub4280:systt:gosub6650:goto700
750 z$=e$:x=rx:y=ry:gosub1650
760 goto500
770 data1978,1938,1974,1973,1931,1930,1968,1967,1925,1924,1922,1921
780 data1959,1958,1956,1955,1953,1952,1950,1949,1944,1904
790 data1824,1825,1744,1745,1664,1665,1584,1585,1505,1506,1424,1425
800 data1346,1347,1264,1265,1184,1185,1104,1105
810 data1029,1030,1032,1033,1035,1036,1038,1039,1081,1082,1044,1045
820 data1047,1048,1130,1131,1053,1054,1096,1097
830 data1217,1218,1297,1298,1377,1378,1457,1458,1536,1537,1617,1618
840 data1697,1698,1777,1778,1857,1858,1906,1907
850 data"start[155]","[155]steinheimer str.[155]","[158]gemeideplatz[155]","[155]rosengasse[155]"
860 data"[154]amtsgericht[155]"
870 data"[152]sued-bahnhof [155]","[159]einhard-str.[155]","[150]chance[155]","[159]ellenseestrasse[155]"
880 data"[159]schulgasse[155]"
890 data"[150]badestrasse[155]","[156]see strasse[155]","[153]rwe[155]","[156]uferstrasse[155]"
900 data"[156]new line street[155]","[152]west-bahnhof [155]","[129]computer street[155]"
910 data"[158]gemeindeplatz[155]"
920 data"[129]lindenstrasse [155]","[129]frankenstr.[155]","[149]the casino [155]","fress - gass[155]"
930 data"[150]chance[155]","museumstrasse[155]","kinoplatz [155]","[152]nord-bahnhof [155]"
940 data"[158]frankfurterstr.[155]"
950 data"[158]schillerstr.[155]","[153]wasserturm[155]","[158]von stein str.[155]","[150]go[155] [154]to[155] knast[155]"
960 data"rathaus str.[155]"
970 data"hauptstrasse [155]","[158]gemeindeplatz[155]","bahnhofstr.[155]"
980 data"[152]haupt-bahnhof[155]"
990 data"[150]chance[155]","city street[155]","[154]luxussteuer[155]","quallenallee[155]","[150]gefaengnis
1000 [131]go,p,schwarz,60,2,10,30,90,160,250,30,50,cc,p,schwarz,60,4,20,60,180,320
1010 [131]450,30,50,it,rr,p,hl. blau,100,6,30,90,270,400,550,50,50,ch,p,hl. blau
1020 [131] 100,6,30,90,270,400,550,50,50,p,hl. blau,120,8,40,100,300,450,600,60,5
1030 [131]jv,p,lila,140,10,50,150,450,625,750,70,100,u,p,lila,140,10,50,150,450
1040 [131]625,750,70,100,p,lila,160,12,60,180,500,700,900,80,100,rr
1050 [131]p,orange,180,14,70,200,550,750,950,90,100,cc,p,orange
1060 [131] 180,14,70,200,550,750,950,90,100
1070 [131]p,orange,200,16,80,220,600,800,1000,100,100,fp,p,rot
1080 [131] 220,18,90,250,700,875
1090 [131]1050,110,150,ch,p,rot,220,18,90,250,700,875,1050,110,150,p,rot,240
1100 [131] 20,100,300
1110 [131]750,925,1100,120,150,rr,p,weiss,260,22,110,330,800,975,1150,130,150
1120 [131] p,weiss,260
1130 [131]22,110,330,800,975,1150,130,150,u,p,weiss,280,24,120,360,850,1025,1200
1140 [131] 140
1150 [131]150,gtj,p,gruen,300,26,130,390,900,1100,1275,150,200,p,gruen
1160 [131] 300,26,130,390,900
1170 [131]1100,1275,150,200,cc,p,gruen,320,28,150,450,1000,1200,1400
1180 [131] 160,200,rr,ch
1190 [131]p,dk. blau,350,35,175,500,1100,1300,1500,175,200,lt,p,dk. blau
1200 [131] 400,50,200,600,1400
1210 [131]1700,2000,200,200,ij
1220 [131] zahle armensteuer $15,geh in's gefaengnis,ruecke nach go(kassiere $200)
1230 [131] du bekommst zinsen kassiere $150
1240 [131] ruecke vor zum naechsten bahnhof zahle 2 x miete
1250 [131]ruecke zur frressgasse, bank zahlt dir eine dividende von $50
1260 [131]geh aus dem knast,zahle jedem spieler $50,ruecke vor zur ???.strasse
1270 [131]ruecke vor bis sued-bahnhof,gehe 3 felder zurueck,ruecke zur quallenall
1280 [131]du renovierst zahle $25 fuer jedes haus $100 fuer jedes hotel
1290 [131] ruecke zum naechsten bahnhof zahle 2 x miete
1300 [131] ruecke zum naechsten stadtwerk wuerfle & zahle 10 * wuerfelwert
1310 [131] geh aus dem knast,geh in den knast,ruecke nach go und kassiere $200
1320 [131] vom verkauf erhaelst du $45,kassiere $50 von jedem spieler
1330 [131] erhalte fuer leistung $25,zahle schulsteuer $150,steuerrueckzahlung $20
1340 [131] preis fuer reparatur $40 pro haus $115 pro hotel
1350 [131] du hast im preisausschreiben gewonnen du bekommst $10
1360 [131] du erbst $100,du bekommst weihnachtsgeld $100,zahle an's hospital $100
1370 [131] bankfehler zu deinem gunsten du bekommst $200,honorar fuer doktor $50
1380 [131] lebensversicherung faellig zahle $100
1390 [137]6550
1400 [153]"loadverify closelistfncloseclosefncloseclosefncloseclosefnclose+print#sinsinsinlistfncloseclosefn fnprintwtlistfncloseclosedeffnk. wait"
1410 [153]"verifyclosec.closelistfncloseclosefndef?listclosefncloseclosefnclose+print# closecloselistfncloseclosefnclose fnprintor>listsgncloseclosecontfn wait"
1420 [153]"verify closesgn listfncloseclose closeclosefn +print#nbhsysfn fnclosecloselistfncloseclosesyssgncloseclosefnval(NULL) listwait"
1430 [153]"usrusrusrforusrlist(NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)usrlistusrusrusrwait"
1440 [153]" for listfn (NULL)(NULL) + listclose wait"
1450 [153]"tab(tab(tab(fortab(listfn sys list(NULL) 1- +tab(listtab(tab(tab(wait"
1460 [153]" for listfn(NULL)sysgp list(NULL) +tolisttototowait"
1470 [153]"tab(tab(tab(tab(fn(NULL)sys list 2- + wait"
1480 [153]"sysgplist fn (NULL)(NULL) +sysgplist wait"
1490 [153]"tab(tab(tab(fortab(listfn tototo tototo thentab(listtab(tab(tab(wait"
1500 [153]"tototofortolistfn then listfn then listfn +tolisttototowait"
1510 [153]"print#sinwbhlistfn then listfn knight list then listfn thenprint#sinhbhwait"
1520 [153]"sin sinlistfn then listfn soft list then listfn thenprint#sin sinlistwait"
1530 [153]"tab(tab(tab(clrtab(listfn tab(tab(tab( tab(tab(tab( +tab(tab(tab(tab(wait"
1540 [153]" clr listfn + def?list wait"
1550 [153]"tab(tab(tab(clrtab(listfn (NULL)(NULL) +tab(listtab(tab(tab(wait"
1560 [153]"tototoclrtolistfn def list(NULL)+tolisttototowait"
1570 [153]" printrwelistfn (NULL)def???list(NULL)+contag.list wait"
1580 [153]" fn (NULL)def list + wait"
1590 [153]"tab(tab(tab(clrtab(listfn (NULL)(NULL) +tab(listtab(tab(tab(wait"
1600 [153]"andandandclrandlist(NULL)andandandandandandandandandandandandandandandandandandandandandandandandandsqrandlistandandandwait"
1610 [153]"def listsgn opensgn fn listsgn opensgn print#sbhlistsgn wait sgn wait sgn wait"
1620 [153]"def listfn fn fn fndef?listclosefnclosecloseprint#fnclosecloselistfncloseclosefncloseclosefn fn go wait"
1630 [153]"def tab(tab(tab(listfn fn fn fn print#sinsinsincontag.listfn fnsysgplistfn fn_tan wait"
1640 [142]
1650 [153]"list";[200](cr$,x);[200](cd$,y);z$;""
1660 [142]
1670 dc$(1)[178]" cmdcmdcmd (NULL) cmdcmdcmd wait":dc$(2)[178]" (NULL)cmdcmdcmd cmdcmdcmd(NULL) wait"
1680 dc$(3)[178]"(NULL) cmdcmdcmd (NULL) cmdcmdcmd (NULL)wait":dc$(4)[178]"(NULL) (NULL)cmdcmdcmd cmdcmdcmd(NULL) (NULL)wait"
1690 dc$(5)[178]"(NULL) (NULL)cmdcmdcmd (NULL) cmdcmdcmd(NULL) (NULL)wait":dc$(6)[178]"(NULL) (NULL)cmdcmdcmd(NULL) (NULL)cmdcmdcmd(NULL) (NULL)wait":[142]
1700 ct[178]0
1710 r1[178][181]([187](1)[172]6)[170]1:r2[178][181]([187](1)[172]6)[170]1:dr[178]r1[170]r2
1720 [129]i[178]1[164]6:[151]g(i),dr[172]10:[130]
1730 [153]"";[200](cr$,x1);[200](cd$,y1);dc$(r1)
1740 [153]"";[200](cr$,x2);[200](cd$,y2);dc$(r2)
1750 [129]i[178]1[164]6:[151]g(i),0:[130]
1760 ct[178]ct[170]1:[139]ct[179]7[167]1710
1770 [139]r1[178]r2[167]db[178]db[170]1:[137]1790
1780 db[178]0
1790 [142]
1800 [153]"load":[153]
1810 [153]" du gewinnst die kohle !!! *new*rndcmdcmdcmdcmdcmdlogcoslogcoswait"
1820 m(pt)[178]m(pt)[170]200:[153]:[153]:[153]:[129]i[178]1[164]6:[151]g(i),0:[130]
1830 [153]" druecke eine taste wait"
1840 [161]w$:[139]w$[179][177]""[167]1840
1850 [161]k$:[139]k$[178]""[167]1850
1860 [142]
1870 [151]198,0:pt$[178]pt$(pl(pt))
1880 [139]pt$[178]"p"[167]2000
1890 [139]pt$[178]"rr"[167]2490
1900 [139]pt$[178]"go"[167][142]
1910 [139]pt$[178]"u"[167]2850
1920 [139]pt$[178]"fp"[167]3160
1930 [139]pt$[178]"jv"[167][142]
1940 [139]pt$[178]"gtj"[167]3300
1950 [139]pt$[178]"it"[167]3410
1960 [139]pt$[178]"lt"[167]3390
1970 [139]pt$[178]"cc"[167]3430
1980 [139]pt$[178]"ch"[167]3670
1990 [139]pt$[178]"ij"[167]4080
2000 [153]"load";[163]15);"grundstueck"
2010 [139]gf[167]2050
2020 [153]" spieler"pt
2030 po[178]3[171]pt
2040 pl[178]pl(pt):p7[178]pt
2050 [153][163]20[171]([195](pn$(pl))[171]1)[173]2)"";pn$(pl)"wait"
2060 [153][200](pn$(pl),1):qr[178][194](646):[151]53280,qr:[153]"onon"
2070 [153]
2080 [153]" miete $";p(pl,2)
2090 [153]" mit 1 haus $";p(pl,3)
2100 [153]" mit 2 haeusern $";p(pl,4)
2110 [153]" mit 3 haeusern $";p(pl,5)
2120 [153]" mit 4 haeusern $";p(pl,6)
2130 [153]" mit 1 hotel $";p(pl,7)
2140 [153]
2150 [153]" hypothekwert $";p(pl,8)
2160 [153]" haeuserpreis $";p(pl,9);"jedes"
2170 [153]" hotel $";p(pl,9);"plus 4 haeuser"
2180 [139]gf[167][153]:[153]:[141]1830:[151]53280,0:[142]
2190 [153]:[129]i[178]1[164]41:[139]c$(pl)[178]c$(i)[175]i[179][177]pl[167][141]2210
2200 [130]:[137]2230
2210 [139]ps(i)[167][153]" "pn$(i)" eigentum von spieler "ps(i):[142]
2220 [153]" "pn$(i)" ist noch frei ":[142]
2230 [153]
2240 [139]mg(pl)[178]1[167][153]" hypothekbelastung $"p(pl,8)
2250 [153]" preis $";p(pl,1)
2260 [139]ps(pl)[178]0[167]2310
2270 [153]" eigentum wait von spieler"ps(pl):[139]h(pl)[167][153]"mit ";
2280 [139]h(pl)[179]5[167][153]h(pl)"haeusern"
2290 [139]h(pl)[178]5[167][153]" 1 hotel"
2300 [137]2360
2310 [153]" du hast $";m(p7)
2320 [153]" willst du kaufen ";:a$[178]"y":[133]a$:a$[178][200](a$,1)
2330 [139]a$[178]"n"[167]2420
2340 [139]a$[179][177]"y"[167][153]"onon":[137]2320
2350 [153]" ok! gekauft: ";pn$(pl)"":m(p7)[178]m(p7)[171]p(pl,1):ps(pl)[178]pt:[137]2410
2360 ow[178]p(pl,h(pl)[170]2):[139]ps(pl)[178]pt[167]2410
2370 [139]mg(pl)[167]2410
2380 p5[178]po:p6[178]ps(pl):[141]2430:[139]oa[167][139]h(pl)[178]0[167]ow[178]ow[172]2
2390 m(pt)[178]m(pt)[171]ow:m(ps(pl))[178]m(ps(pl))[170]ow:[153]" zahle miete $";ow
2400 m(ps(pl))[178]m(ps(pl))[170]ow
2410 [141]1830:[151]53280,0:[142]
2420 [141]6230:[137]2410
2430 mg[178]0:oa[178]0:pc[178]0:[129]i[178]1[164]41:[139]c$(pl)[178]c$(i)[175]ps(i)[178]p5[167]pc[178]pc[170]1:[139]mg(i)[167]mg[178]mg
2440 [130]
2450 [139]pc[178]2[175]c$(pl)[178]"schwarz"[167]oa[178]1:[142]
2460 [139]pc[178]2[175]c$(pl)[178]"dk. blau"[167]oa[178]1:[142]
2470 [139]pc[178]3[167]oa[178]1:[142]
2480 [142]
2490 [153]"load":pl[178]pl(pt)
2500 [153]"spieler"pt
2510 [153]" def(NULL)print# *wait"
2520 [153]" wait"
2530 [153]" (NULL)verify(NULL) (NULL)"
2540 [153]
2550 [153][163]20[171][195](pn$(pl))[173]2)"";pn$(pl)"wait"
2560 [151]54276,129:[151]54288,17:[151]54290,17
2570 ko[178]129:[129]t[178]1[164]2:[129]i[178]1[164]6:[151]g(i),ko:[130]:[129]dl[178]1[164]400:[130]
2580 [129]i[178]1[164]6:[151]g(i),0:[130]:[129]dl[178]1[164]60:[130]:[130]
2590 [151]54276,33:[151]54288,33:[151]54290,33
2600 [153]:[153]"miete fuer 1 bahnhof $25"
2610 [153]"mit 2 bahnhoefen zahle $50"
2620 [153]"mit 3 bahnhoefen zahle $100"
2630 [153]"mit 4 bahnhoefen zahle $200"
2640 [153]
2650 [153]" hypothekwert $100"
2660 [153]:[139]mg(pl)[178]1[167][153]"hypothekbelastung $100":[137]2840
2670 [153]"preis $200"
2680 [153]:[129]i[178]1[164]41:[139]pt$(i)[178]"rr"[167][141]2700
2690 [130]:[137]2720
2700 [139]ps(i)[167][153]pn$(i)" eigentum von spieler ";ps(i):[142]
2710 [153]pn$(i)" ist noch frei ":[142]
2720 [139]ps(pl)[167][153]" eigentum wait von spieler ";ps(pl):[137]2800
2730 [153]" du hast $"m(pt)
2740 [153]" willst du kaufen ";:b$[178]"y":[133]b$:b$[178][200](b$,1)
2750 [139]b$[178]"n"[167][141]6230:[137]2840
2760 [139]b$[179][177]"y"[167][153]"onon":[137]2740
2770 m(pt)[178]m(pt)[171]200:ps(pl)[178]pt
2780 [153]" ok! gekauft: "
2790 [137]2840
2800 ow[178]0:o7[178]0
2810 [139]ps(pl)[178]pt[167]2840
2820 ow[178]25:[129]i[178]6[164]36[169]10:[139]pt$(i)[178]"rr"[175]ps(i)[178]ps(pl)[167]ow[178]ow[172]2
2830 [130]:ow[178]ow[173]dv:[153]"zahle miete $";ow:m(pt)[178]m(pt)[171]ow:m(ps(pl))[178]m(ps(pl))[170]ow
2840 [141]1830:[142]
2850 [153]"load"
2860 [153]"spieler"pt
2870 [153]" sys(NULL)tab((NULL) print#(NULL)(NULL)(NULL) "
2880 [153]" sys(NULL)def^sys(NULL) print#-tan>tantantanright$ "
2890 [153]" sysfnfn print#-tantantantanright$left$ "
2900 [153]" spc( /exp ":[153]
2910 pl[178]pl(pt)
2920 [153][163]20[171][195](pn$(pl))[173]2)"";pn$(pl)"wait"
2930 [153]:[153]"wenn ein stadtwerk verkauft ist zahle 4 x den wuerfelwert"
2940 [153]
2950 [153]"wenn zwei stadtwerke verkauft sind zahle10 x den wuerfelwert"
2960 d1[178][181]([187](1)[172]6)[170]1:d2[178][181]([187](1)[172]6)[170]1
2970 [139]df[167]d1[178]r1:d2[178]r2
2980 [153]:[153]"hypothekwert $75":[153]
2990 [139]mg(pl)[178]1[167][153]"hypothekbelastung $75":[137]3150
3000 [139]ps(42[171]pl)[167][153]pn$(42[171]pl)" eigentum von spieler"ps(42[171]pl):[137]3020
3010 [153]pn$(42[171]pl)" ist noch frei "
3020 [153]:[139]ps(pl)[167][153]" eigentum wait von spieler ";ps(pl):[137]3100
3030 [153]" du hast $"m(pt)
3040 b$[178]"y":[133]" willst du kaufen ";b$:b$[178][200](b$,1)
3050 [139]b$[178]"n"[167][141]6230:[137]3150
3060 [139]b$[179][177]"y"[167][153]"onon":[137]3040
3070 [153]" ok! gekauft: ";pn$(pl)""
3080 m(pt)[178]m(pt)[171]150
3090 ps(pl)[178]pt:[137]3150
3100 [139]ps(pl)[178]pt[167]3150
3110 [153]"wuerfel zeigen"d1"and"d2"."
3120 mt[178]4:[139]ps(13)[178]ps(pl)[175]ps(29)[178]ps(pl)[167]mt[178]10
3130 [139]df[178]0[167]mt[178]10
3140 ow[178]mt[172](d1[170]d2):[153]"zahle $";ow:m(pt)[178]m(pt)[171]ow:m(ps(pl))[178]m(ps(pl))[170]ow
3150 mt[178]0:[141]1830:[142]
3160 [153]"load"
3170 [153]" forfrei
3180 print" [213][195][195][195][195][195][201]"
3190 print" [194] [159][176][192][174] [200]
3200 [153]" (NULL) open/tanexp (NULL)
3210 print" [200] [149][213][195][201] [194]
3220 [153]" (NULL)tanexp verifypeekprint#(NULL)verifyleft$ /tanright$
3230 print" [221] [149][202][198][203] [221]
3240 [153]" /tanprint#nottantantantantanprint#nottanexp
3250 print" [152][166] [166]
3260 [153]:[153]" forparken ":[153]
3270 [139]pf[178]0[167][141]1830:[142]
3280 [153]:[153]" du kannst frei parken"
3290 [153]" jackpot von $"fp"!":m(pt)[178]m(pt)[170]fp:fp[178]0:[153]:[141]1830:[142]
3300 [153]"load";[163]11);"geh in's gefaengnis"
3310 [139]db[178]3[167][153]:[153]" du hast 3 x in serie einen pasch gewuerfelt!!":[153]
3320 [153][163]16);"pokeor======^":[129]i[178]1[164]5:[153][163]16);"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)":[130]
3330 [153][163]16);"/>>>>>>exp":[153]:pl(pt)[178]41:jf[178]1:db[178]0
3340 [129]ko[178]1[164]3:[129]t[178]60[164]110[169]1.7:[129]i[178]1[164]6:[151]g(i),t:[130]:[130]
3350 [129]dl[178]1[164]10:[130]
3360 [129]t[178]110[164]60[169][171]1.7:[129]i[178]1[164]6:[151]g(i),t:[130]:[130]:[130]
3370 [129]i[178]1[164]6:[151]g(i),0:[130]
3380 [153]"";:[141]1830:[142]
3390 [153]"load";[163]15);"luxussteuer":[153]:[153][163]16);"zahle $75"
3400 [153]:[153]:[153]:m(pt)[178]m(pt)[171]75:fp[178]fp[170]75:[141]1830:[142]
3410 [153]"load";[163]15);"einkommensteuer":[153]:[153][163]16);"zahle $200"
3420 [153]:[153]:[153]:m(pt)[178]m(pt)[171]200:fp[178]fp[170]200:[141]1830:[142]
3430 cc[178]cc[170]1:[139]cc[177]16[167]cc[178]cc[171]16
3440 po[178]3[171]pt:cc$[178]cc$(cc):[139]cc[178]1[175]cj(1)[167]cc[178]cc[170]1:cc$[178]cc$(cc)
3450 [153]"load sysgemeindplatz":[129]u[178]0[164]500:[130]u:[153]cc$""
3460 [139]cc[178]1[167]cj(1)[178]pt
3470 [139]cc[178]2[167][141]1830:[137]3300
3480 [139]cc[178]3[167]pl(pt)[178]1:mf[178]1:[141]1830:[141]1800:[142]
3490 [139]cc[178]4[167]m(pt)[178]m(pt)[170]45
3500 [139]cc[178]5[167]m(pt)[178]m(pt)[170]50:m(po)[178]m(po)[171]50
3510 [139]cc[178]6[167]m(pt)[178]m(pt)[170]25
3520 [139]cc[178]7[167]m(pt)[178]m(pt)[171]150:fp[178]fp[170]150
3530 [139]cc[178]8[167]m(pt)[178]m(pt)[170]20
3540 [139]cc[178]9[167][141]3630
3550 [139]cc[178]10[167]m(pt)[178]m(pt)[170]10
3560 [139]cc[178]11[167]m(pt)[178]m(pt)[170]100
3570 [139]cc[178]12[167]m(pt)[178]m(pt)[170]100
3580 [139]cc[178]13[167]m(pt)[178]m(pt)[171]100
3590 [139]cc[178]14[167]m(pt)[178]m(pt)[170]200
3600 [139]cc[178]15[167]m(pt)[178]m(pt)[171]50
3610 [139]cc[178]16[167]m(pt)[178]m(pt)[170]100
3620 [141]1830:[142]
3630 yp[178]0:[129]i[178]1[164]40
3640 [139]ps(i)[178](pt)[175]h(i)[179]5[167]yp[178]yp[170](40[172]h(i))
3650 [139]ps(i)[178](pt)[175]h(i)[178]5[167]yp[178]yp[170]115
3660 [130]:[153]"zahle $"yp:m(pt)[178]m(pt)[171]yp:fp[178]fp[170]yp:[142]
3670 ch[178]ch[170]1:[139]ch[177]16[167]ch[178]ch[171]16
3680 po[178]3[171]pt:ch$[178]ch$(ch):[139]ch[178]8[175]cj(2)[167]ch[178]ch[170]1:ch$[178]ch$(ch)
3690 [153]"load def? ? chance ? ?":[129]u[178]0[164]500:[130]u:[153]ch$""
3700 [139]ch[178]1[167]m(pt)[178]m(pt)[171]15:fp[178]fp[170]15
3710 [139]ch[178]2[167][141]1830:[137]3300
3720 [139]ch[178]3[167]pl(pt)[178]1:mf[178]1:[141]1830:[141]1800:[142]
3730 [139]ch[178]4[167]m(pt)[178]m(pt)[170]150
3740 [139]ch[178]5[167][141]3870:mf[178]1
3750 [139]ch[178]6[167][141]3910:mf[178]1
3760 [139]ch[178]7[167]m(pt)[178]m(pt)[170]50
3770 [139]ch[178]8[167]cj(2)[178]pt
3780 [139]ch[178]9[167]m(pt)[178]m(pt)[171]50:m(po)[178]m(po)[170]50
3790 [139]ch[178]10[167][141]3930:mf[178]1
3800 [139]ch[178]11[167][141]3950:mf[178]1
3810 [139]ch[178]12[167]pl(pt)[178]pl(pt)[171]3:mf[178]1
3820 [139]ch[178]13[167][141]3970:mf[178]1
3830 [139]ch[178]14[167][141]3990
3840 [139]ch[178]15[167][141]3870:mf[178]1
3850 [139]ch[178]16[167][141]4030:mf[178]1
3860 [141]1830:[142]
3870 pl(pt)[178]pl(pt)[170]1:[139]pl(pt)[177]40[167][141]6720:pl(pt)[178]pl(pt)[171]40
3880 [139]pt$(pl(pt))[178]"rr"[167]3900
3890 [137]3870
3900 dv[178]1:[142]
3910 [139]pl(pt)[177]25[167][141]6720
3920 pl(pt)[178]25:[142]
3930 [139]pl(pt)[177]12[167][141]6720
3940 pl(pt)[178]12:[142]
3950 [139]pl(pt)[177]6[167][141]6720
3960 pl(pt)[178]6:[142]
3970 pl(pt)[178]40:[142]
3980 [142]
3990 df[178]0:yp[178]0:[129]i[178]1[164]40
4000 [139]ps(i)[178](pt)[175]h(i)[179]5[167]yp[178]yp[170](25[172]h(i))
4010 [139]ps(i)[178](pt)[175]h(i)[178]5[167]yp[178]yp[170]100
4020 [130]:[153]"zahle $"yp:m(pt)[178]m(pt)[171]yp:fp[178]fp[178]yp:[142]
4030 pl(pt)[178]pl(pt)[170]1
4040 [139]pl(pt)[177]40[167][141]6720:pl(pt)[178]pl(pt)[171]40
4050 [139]pt$(pl(pt))[178]"u"[167]4070
4060 [137]4030
4070 mf[178]1:[142]
4080 [153]"load"
4090 jt(pt)[178]jt(pt)[170]1
4100 [153]"spieler "pt"ist im gefaengnis"
4110 [153]:[153]"du kannst freikommen "jt(pt)"durch"
4120 [153]" 1. zahle $500"
4130 [153]" 2. gib eine 'geh aus dem gefaengnis' karte"
4140 [153]" 3. wuerfel einen pasch"
4150 [153]:[133]"waehle";i:[139]i[179]1[176]i[177]3[167]4150
4160 [139]i[178]1[167]m(pt)[178]m(pt)[171]500:fp[178]fp[170]50:pl(pt)[178]11:[141]1830:je[178]1:[142]
4170 [139]i[178]2[175]cj(1)[178]pt[167]cj(1)[178]0:pl(pt)[178]11:[141]1830:je[178]1:[142]
4180 [139]i[178]2[175]cj(2)[178]pt[167]cj(2)[178]0:pl(pt)[178]11:[141]1830:je[178]1:[142]
4190 [139]i[178]2[167][153]"du hast keine karte":[137]4150
4200 [139]i[178]3[167][141]1700:[139]db[167]4260
4210 [153]"du hast keinen pasch"
4220 [139]jt(pt)[177]2[167][153]"du musst zahlen $50":m(pt)[178]m(pt)[171]50:pl(pt)[178]11:jb[178]1
4230 [139]jt(pt)[177]2[167][141]1830:fp[178]fp[170]50:[142]
4240 [141]1830:[142]
4250 [139]pl(pt)[178]11[167][141]1830:je[178]1:[142]
4260 [153]"du bist draussen!!":pl(pt)[178]11:[141]1830:jb[178]1:db[178]0:[142]
4270 [137]6390
4280 [153]"load":[139]pf[167][153]"geld in 'frei parken' jackpot $";fp
4290 [153]"spieler 1 hat $";m(1):[153]"spieler 2 hat $";m(2)
4300 [153]:[153]"spieler";pt"fuehrt"
4310 [153]:[153]:[153][163]15);" waehle"
4320 [153]
4330 [153]" e=liste des eigentums"
4340 [153]" l=liste aller grundstuecke"
4350 [153]" k=haeuser/hotels kaufen"
4360 [153]" v=eigentum verkaufen"
4370 [153]" h=hypothek aufnehmen(nur ohne haeuser)"
4380 [153]" a=anzeige der grundstck. einer gruppe"
4390 [153]" q=zurueck zum spielfeld"
4400 [153]"xx=spielende":[153]
4410 [133]"waehle qcmdcmdcmd";c$
4420 [139]c$[178]"e"[167][141]4510
4430 [139]c$[178]"l"[167][141]4680
4440 [139]c$[178]"k"[167][141]4830
4450 [139]c$[178]"v"[167][141]5270
4460 [139]c$[178]"h"[167][141]5630
4470 [139]c$[178]"a"[167][141]6690
4480 [139]c$[178]"q"[167][142]
4490 [139]c$[178]"xx"[167]6470
4500 [137]4280
4510 [133]"fuer welchen spieler (1 oder 2)";pn
4520 [139]pn[179]1[176]pn[177]2[167]4510
4530 [153]"load"
4540 [153][163]6)"eigentum von spieler ";pn
4550 [153]
4560 [129]i[178]1[164]40:po$[178]"":[139]ps(i)[178]pn[167][153]pn$(i);
4570 [139]ps(i)[179][177]pn[167]4640
4580 [139]pt$(i)[179][177]"p"[167]4620
4590 [153][166]20[171]([195](pn$(i))[171]2));" -";:[139]h(i)[179]5[167]po$[178][196](h(i))[170]" hs"
4600 [139]h(i)[178]5[167]po$[178]" hotelwait"
4610 po$[178]po$[170]"/$"[170][202]([196](p(i,h(i)[170]2)),2)
4620 [139]mg(i)[178]1[167]po$[178]"- hyptk belastet"
4630 [153]po$
4640 [130]
4650 [153]:[139]cj(1)[178]pn[176]cj(2)[178]pn[167][153]"'geh aus dem gefaengnis' karte"
4660 [153]"spieler"pn"hat $";m(pn)
4670 [153]:[141]1830:[142]
4680 [153]"load"
4690 tt$[178]"name eigentuemer/cmdcmdcmdcmdcmdcmdcmdcmdcmd haeuser":[153]tt$
4700 [129]k[178]1[164]40:[139]pt$(k)[179][177]"p"[175]pt$(k)[179][177]"rr"[175]pt$(k)[179][177]"u"[167]4790
4710 [153]pn$(k)"";[163]21);
4720 [153][163]33)
4730 p$[178][196](ps(k)):pp$[178][202]([196](h(k)),2):[139]h(k)[177]4[167]pp$[178]"h"
4740 [139]pt$(k)[179][177]"p"[167]pp$[178]"x"
4750 [139]mg(k)[167]pp$[178]"hypwait"
4760 p$[178]p$[170]" -"[170]pp$
4770 [139]ps(k)[178]0[167]p$[178]"frei "
4780 [153]p$
4790 [139]k[178]20[167][153]:[141]1830:[153]"load":[153]tt$
4800 [130]k
4810 [153]:[141]1830
4820 [142]
4830 [153]"load"
4840 ho[178]0
4850 [153]" zu welcher gruppe":[153]pg$
4860 [153]
4870 [133]"welche farbe";c$
4880 [129]i8[178]1[164]41:[139]c$[178][200](c$(i8),[195](c$))[167]pl[178]i8:c$[178]c$(i8):[137]4910
4890 [130]i8
4900 [153]"falsche gruppe":[137]4870
4910 p7[178]pt
4920 p5[178]p7:[141]2430:[139]mg[167]oa[178]0
4930 [139]oa[167]4960
4940 [153]"sorry du besitzt nicht alle grund- stuecke in dieser gruppe";
4950 [153]" mit hypothek belastet":[141]1830:[142]
4960 [153]" grundstueck zahl der haeuser(5=hotel)"
4970 hs[178]0:[129]i[178]pl[164]pl[170]4:[139]c$[178]c$(i)[167][153]pn$(i)"";[163]30);h(i):hs[178]hs[170]h(i)
4980 [130]
4990 [153]:[153]"haeuser in der gruppe kosten $"p(pl,9)"jedes"
5000 [153]"hotel kostet $"p(pl,9)"+ 4 haeuser oder $";(p(pl,9)[172]5)
5010 [153]
5020 [153]" du hast $"m(pt)
5030 [153]"nach dem 4. haus automatisch ein hotel"
5040 [153]"wieviel haeuser willst du ankf.(mx=";:mx[178]((5[172]pc)[171]hs):[153]mx")"
5050 [133]hn:[139]hn[177]mx[167][137]5040
5060 h7[178][181](hn[173]pc):h8[178]hn[171](h7[172]pc)
5070 [139]m(p7)[179](hn[172]p(pl,9))[167][153]"du hast nicht genug geld!!!!":[137]5040
5080 [139]hn[178]0[167][153]"ok":[141]1830:[142]
5090 m(p7)[178]m(p7)[171](hn[172]p(pl,9)):[129]e[178]pl[164]pl[170]4:[139]c$[178]c$(e)[167]h(e)[178]h(e)[170]h7
5100 [130]
5110 [139]h8[167]5130
5120 [137]5260
5130 [153]" du hast"h8"haeuser ueber"
5140 [153]:f1[178]0:[129]f[178]pl[164]pl[170]4:[139]c$[178]c$(f)[167]f1[178]f1[170]1:[153]f1,pn$(f);" "h(f)
5150 [130]:[153]:[129]g[178]1[164]h8
5160 [153]"wohin willst du haus nr."g;:[133]hl:[139]hl[178]ho[167][153]"geht nicht":[137]5160
5170 f2[178]0:f1[178]0:f9[178]0
5180 [129]f[178]pl[164]pl[170]3:[139]c$[178]c$(f)[167]f1[178]f1[170]1:[139]f1[178]hl[167]f9[178]f
5190 [130]f
5200 [139]f9[178]0[167][153]"diese nr. nicht":[137]5160
5210 h2[178]0:[129]f[178]pl[164]pl[170]3:[139]c$[178]c$(f)[167][139]h(f9)[177]h(f)[167]h2[178]h2[170]1
5220 [130]
5230 [139]h2[167][153]"falsche verteilung der haeuser!":[137]5160
5240 ho[178]hl:h(f9)[178]h(f9)[170]1
5250 [130]g
5260 [153]"fertig":[141]1830:[142]
5270 [133]"welcher splr. hat eigentum zu verkfn.";p1
5280 [139]p1[178]0[167][141]1830:[142]
5290 p2[178]p1[170]1:[139]p2[177]2[167]p2[178]p2[171]2
5300 [153]"ist es ein grundstueck";:[133]q$:[139][200](q$,1)[178]"n"[167]5510
5310 [153]"in welcher farbgruppe":[153]pg$
5320 [153]:[133]"welche";c$
5330 [129]i6[178]1[164]41:[139]c$[178][200](c$(i6),[195](c$))[167]pl[178]i6:c$[178]c$(i6):[137]5360
5340 [130]i6
5350 [153]"falsche gruppe":[137]5320
5360 [153]"grundstueck nr.";[163]29);"eigentuemer"
5370 ho[178]0:ct[178]0:[129]i[178]pl[164]pl[170]4:[139]c$[178]c$(i)[167]ct[178]ct[170]1:[153]ct" "pn$(i)"";[163]35);ps(i)
5380 [139]h(i)[167]ho[178]1
5390 [130]
5400 [153]:[153]"welche nr. will spieler"p1"verkaufen"
5410 [133]tp
5420 ct[178]0:[129]i[178]pl[164]pl[170]4:[139]c$[178]c$(i)[167]ct[178]ct[170]1:[139]ct[178]tp[167]t4[178]i:ff[178]1
5430 [130]
5440 [139]ff[178]0[167][153]"falsche nummer":[137]5400
5450 [139]ps(t4)[179][177]p1[167][153]"spieler "p1"das gehoert dir nicht":[137]5270
5460 [139]ho[167][153]"du hast haeuser in der gruppe du kanst nicht verkf.":[137]5500
5470 [133] "was ist das hoechste angebot:";sp
5480 m(p1)[178]m(p1)[170]sp:m(p2)[178]m(p2)[171]sp:ps(t4)[178]p2
5490 [153]"spieler "p2"kauft "pn$(t4)"":[153]"fuer $"sp
5500 [153]:[141]1830:[142]
5510 [153]"grundstueck";[163]29);"eigentuemer"
5520 [129]i[178]6[164]36[169]10:n[178]n[170]1:[153]n" "pn$(i)"";[163]35);ps(i):[130]:n[178]0
5530 [153]" 5 "pn$(13)"";[163]35);ps(13):[153]" 6 "pn$(29)"";[163]35);ps(29)
5540 [133]"welche nr.";nm:[139]nm[178]0[167][142]
5550 [139]nm[179]1[176]nm[177]6[167]5540
5560 [139]nm[178]5[175]ps(13)[178]p1[167]sn[178]13:[137]5600
5570 [139]nm[178]6[175]ps(29)[178]p1[167]sn[178]29:[137]5600
5580 [139]nm[177]0[175]nm[179]5[167]sn[178]6[170]((nm[171]1)[172]10):[139]ps(sn)[178]p1[167][137]5600
5590 [153]"du kannst es nicht belasten":[137]5510
5600 [133]"hoechstpreis";sp
5610 m(p1)[178]m(p1)[170]sp:m(p2)[178]m(p2)[171]sp:ps(sn)[178]p2
5620 [141]1830:[142]
5630 [153]"load":[153]" waehle ":[153]"0 zurueck zum unterprogramm":[153]"1 hypothek grundstueck"
5640 [153]"2 hypothek bahnhoefe":[153]"3 hypothek stadtwerke"
5650 [153]"4 hypothek zurueckkaufen(& 10% zinsen)":[153]"5 haeuser verkaufen":[153]
5660 [133]"waehle";gg:[139]gg[179]0[176]gg[177]5[167]5660
5670 [139]gg[178]0[167][141]1830:[142]
5680 [145]gg[141]5700,5930,6020,6100,6730
5690 [137]5630
5700 [153]:[153]"in welcher grp. willst du auf grundstck":[153]"hypothek aufnehmen ?":[153]pg$
5710 [153]:[133]"farbgruppe";c$
5720 [129]i6[178]1[164]41:[139]c$[178][200](c$(i6),[195](c$))[167]pl[178]i6:c$[178]c$(i6):[137]5750
5730 [130]i6
5740 [153]"falsche gruppe":[137]5710
5750 cm[178]0:[129]i[178]pl[164]pl[170]3:[139]c$[178]c$(i)[167]cm[178]cm[170]h(i)
5760 [130]
5770 [139]cm[167][153]"keine hypothek auf grundstck. mit haus in dieser gruppe"
5780 [153]"grundstueck nr.";[163]25);"eigentuemer"
5790 ct[178]0:[129]i[178]pl[164]pl[170]4:[139]c$[179][177]c$(i)[167]5820
5800 ct[178]ct[170]1:[153]ct" "pn$(i)"";[163]27)ps(i);:pp$[178]"":[139]mg(i)[167]pp$[178]"belastet"
5810 [153]pp$
5820 [130]
5830 [153]:[153]"welche nr. willst du belasten";:[133]tp
5840 [139]tp[178]0[167][141]1830:[142]
5850 ct[178]0:[129]i[178]pl[164]pl[170]4:[139]c$[178]c$(i)[167]ct[178]ct[170]1:[139]ct[178]tp[167]t4[178]i:ff[178]1
5860 [130]
5870 [139]ff[178]0[167][153]"falsche nummer":[137]5830
5880 [139]ps(t4)[179][177]pt[167][153]"du kannst es nicht belasten":[141]1830:[137]5630
5890 [139]mg(t4)[178]1[167][153]"ist bereits belastet":[137]5830
5900 [153]:[153]"ok":mg(t4)[178]1
5910 [153]"du bekommst $"p(t4,8)"fuer die hypothek":m(pt)[178]m(pt)[170]p(t4,8)
5920 [141]1830:[142]
5930 rc[178]0:[129]i[178]6[164]36[169]10:[139]pt$(i)[178]"rr"[167]rc[178]rc[170]1:[153]rc" "pn$(i)" splr."ps(i)
5940 [130]
5950 [133]"welche nr.";rg
5960 [139]rg[179]1[176]rg[177]4[167]5950
5970 rg[178]6[170]((rg[171]1)[172]10)
5980 [139]ps(rg)[179][177]pt[167][153]"du kannst es nicht belasten":[141]1830:[137]5630
5990 [139]mg(rg)[178]1[167][153]"ist bereits belastet":[141]1830:[137]5630
6000 mg(rg)[178]1:[153]"du bekommst $100 fuer hyothek":m(pt)[178]m(pt)[170]100
6010 [141]1830:[142]
6020 u(1)[178]13:u(2)[178]29
6030 [129]i[178]1[164]2:[153]i" "pn$(u(i))"":[130]
6040 [133]"welche?";um
6050 [139]um[179]1[176]um[177]2[167]6040
6060 [139]ps(u(um))[179][177]pt[167][153]"du kannst es nicht belasten":[141]1830:[137]5630
6070 [139]mg(u(um))[178]1[167][153]"ist bereits belastet":[141]1830:[137]5630
6080 mg(u(um))[178]1:[153]"du bekommst $75 die fuer hypthek":m(pt)[178]m(pt)[170]75
6090 [141]1830:[142]
6100 [153]:[153]"diese eigentuemer sind mit hypothek belastet"
6110 ml[178]0:[129]i[178]1[164]41:[139]ps(i)[178](pt)[175]mg(i)[178]1[167]ml[178]ml[170]1:[153]ml" "pn$(i)""
6120 [130]
6130 [139]ml[178]0[167][153]"du hast keine hypothek a.dem grundstck.":[141]1830:[142]
6140 [153]:[133]"welche hypothek willst du zurueckkfn.";lf
6150 [139]lf[179]1[176]lf[177]ml[167][153]"falsch":[137]6140
6160 ml[178]0:[129]i[178]1[164]41:[139]ps(i)[178](pt)[175]mg(i)[178]1[167]ml[178]ml[170]1:[139]ml[178]lf[167]ft[178]i
6170 [130]
6180 [153]"die hypothek ist fuer $"p(ft,8)
6190 [153]"du musst bezahlen $";:py[178]p(ft,8)[172]1.10:[153]py
6200 [139]py[177]m(pt)[167][153]"du hast zu wenig geld":[141]1830:[142]
6210 m(pt)[178]m(pt)[171]py:mg(ft)[178]0
6220 [141]1830:[142]
6230 [139]af[167]6250
6240 [142]
6250 pl[178]pl(pt):[153]pn$(pl)" wird versteigert"
6260 [153]"an den hoechstbietenden "
6270 po[178]3[171]pt:[153]:hb[178]0:pa[178]pt:ac[178]0:[153]:hb[178]0:pa[178]pt:ac[178]0
6280 pa[178]3[171]pa
6290 [153]"spieler"pa"was ist dein gebot";:[133]bd:bd[178][181](bd):ac[178]ac[170]1
6300 [139]bd[178]0[167][145](ac[177]1)[170]2[137]6330,6280
6310 [139]bd[179][178]hb[167][153]"du musst hoeher bieten als"hb"oder biete '0'":[137]6290
6320 hb[178]bd:hr[178]pa:[137]6280
6330 [139]hb[178]0[167]6380
6340 [153]pn$(pl)" gehe zu"
6350 [153]"spieler"hr" fuer $"hb
6360 m(hr)[178]m(hr)[171]hb:ps(pl)[178]hr
6370 [142]
6380 [153]:[153]pn$(pl)" wurde noch nict gekauft":[142]
6390 [153]"load":[153]"spieler "pt"ist der gewinner!!!
6400 print" dir fehlen noch $"abs(m(pt))"sonst bist du der gewinner"
6410 print"druecke'q' (zum gewinnen) oder beschaffe dir das";
6420 print" fehlende geld"
6430 gosub1830:gosub4280
6440 ifm(pt)>=0thenreturn
6450 ifm(pt)<0thenprint"du bist bankrott!!!":pt=3+pt
6460 print" --spieler "pt"gewinnt!-- aetsch":end
6470 print"spielende"
6480 print"gewinner ist:";
6490 ifm(1)<m(2)thenprint"spieler 2 mit $"m(1)
6500 ifm(2)<m(1)thenprint"spieler 1 mit $"m(2)
6510 if m(2)=m(1)thenprint"niemand, es ist unentschieden "
6520 print"spieler 1 = $";m(1)
6530 print"spieler 2 = $";m(2)
6540 print
6550 poke54296,0:fori=1to6:pokeg(i),0:end
6560 forj=832to939
6570 readi:pokej,i:next
6580 data 160,0,185,0,4,153,0,200,185,0,5,153,0,201,185,0,6,153,0
6590 data 202,185,0,7,153,0,203,185,0,216,153,0,204,185,0,217,153,0
6600 data 205,185,0,218,153,0,206,185
6610 data 0,219,153,0,207,200,208,205,96,160,0,185,0,200,153,0,4,185,0,201,153
6620 data 0,5,185,0,202,153,0,6,185,0,203,153,0,7,185,0,204,153,0,216,185,0,205
6630 data 153,0,217,185,0,206,153,0,218,185,0,207,153,0,219,200,208,205,96
6640 return
6650 forp4=1to2
6660 y$=""+pn$(pl(p4))+left$("[157] ",18-(len(pn$(pl(p4)))-2))+"[146]"
6670 mn$="$"+mid$(str$(m(p4)),2)+" [146]":x=13:y=2*p4+3:z$=y$:gosub1650
6680 y=y+1:z$=mn$:gosub1650:next:return
6690 print"anzeige fuer welche farbgruppe:":printpg$:inputc$:print
6700 p3=pl:fori=1to41:ifc$=left$(c$(i),len(c$))thengf=1:pl=i:gosub2000:gf=0
6710 next:pl=p3:return
6720 m(pt)=m(pt)+200:print"kassiere $200":return
6730 print"auf welcher farbgruppe:":printpg$:inputc$
6740 pl=0:fori=41to1step-1:ifc$=left$(c$(i),len(c$))thenpl=i:c$=c$(i)
6750 nexti:ifplthen6770
6760 print"falsche gruppe":goto6730
6770 do=0:hn=0:fori=pltopl+3:ifps(i)<>(pt)andc$=c$(i)thendo=1
6780 ifc$=c$(i)thenhn=hn+h(i)
6790 next
6800 ifdo=1orhn=0thenprint"du bist kein eigentuemer des grund- stcks":gosub1830:return
6810 print"eigentum nr.";tab(25);"haeuser(5=hotel)"
6820 ct=0:fori=pltopl+3:ifc$=c$(i)thenct=ct+1:printct" "pn$(i)"";tab(27)h(i)
6830 next
6840 input"willst du alle haeuser verkaufen";a$:ifleft$(a$,1)="y"then6980
6850 print:input"von welcher nr. willst du verk.";tp
6860 iftp=0then return
6870 ct=0:fori=pltopl+3:ifc$=c$(i)thenct=ct+1:ifct=tpthent4=i:ff=1
6880 next
6890 ifff=0thenprint"falsche nummer":goto6850
6900 ifh(t4)=0thenprint"es ist kein haus da":goto6850
6910 nn=0:nh=h(t4):fori=pltopl+3:ifh(i)>nhthennn=1
6920 next
6930 ifnnthenprint"das haus geht nicht":goto6850
6940 print:print"ok.":h(t4)=h(t4)-1
6950 hm=p(pl,9)/2
6960 print"du bekommst $"hm"fuer dein haus":m(pt)=m(pt)+hm
6970 gosub1830:goto5630
6980 hm=0:fori=pltopl+3:ifc$=c$(i)thenhm=hm+(p(pl,9)/2)*h(i):h(i)=0
6990 next:print"du bekommst $"hm"fuer deine haeuser ":m(pt)=m(pt)+hm:goto6970
7000 reada$:pn$(i)=left$(a$+" ",14):return