home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Publication 8
/
Publication_08_1996_High-Tech_de_Side_B.d64
/
quadropoly
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
19KB
|
560 lines
100 rem monopoly
105 rem von a. moeller
110 clr:poke55,255:poke56,127:clr:x=rnd(-ti)
120 poke53248+21,0:poke53272,21:poke648,4
125 poke56576,peek(56576)and252or3:poke53280,0:poke53281,0
130 dimgp(44),gm(44),h1(44),h2(44),h3(44),h4(44),h5(44),sy(44),sx(44),na$(44)
140 dimko(8),p1(44),p2(44),ge(8)
150 forn=1to8:ko(n)=20000:po(n)=1:next
160 bi=33792:co=55296:si=54272
170 pokesi+24,15
1000 rem vorbereitungen:
1010 print"[147][150] monopoly :"
1020 print"[158]bitte einen augenblick warten !"
1024 restore:gosub9400
1025 gosub10500
1026 pokesi+4,0:pokesi+5,42:pokesi+1,70:pokesi+6,0:pokesi+4,17
1030 print"[158]w[221][206][211][195][200][197][206] [211][201][197] [197][201][206][197] [211][208][201][197][204][197][210][203][204][219][210][213][206][199] ?":printtab(15)"([202]/[206])"
1032 forn=1to10:geta$:nextn
1034 geta$:ifa$="j"thengosub11000
1035 ifa$=""then1034
1036 print"[147][155][215][201][197][214][201][197][204][197] [208][197][210][211][207][206][197][206][160][211][208][201][197][204][197][206] [205][201][212] ?":printtab(10)"([205][193][216][201][205][193][204] [193][195][200][212])"
1038 forn=1to10:geta$:next
1040 geta$:ifa$=""then1040
1050 ms=val(a$):ifms=0orms>8then1030
1053 gosub8700:poke53265,peek(53265)and239
1055 gosub9000:gosub8000:print"[144]";
1060 forn=34808to34807+ms:poken,13:next
1070 v=53248:pokev+16,0:forn=0toms-1:pokev+21,peek(v+21)or2^n:next
1080 forn=1toms:po(ms)=1:next
1090 pokev+38,0:pokev+39,1:pokev+40,7:pokev+41,2:pokev+42,5:pokev+43,6
1100 pokev+44,8:pokev+45,10:pokev+46,13:pokev+28,255
1110 forn=0toms-1:pokev+n*2,sx(po(n+1)):pokev+n*2+1,sy(po(n+1)):next
1120 gosub8100:gosub8500
1200 poke53265,peek(53265)or16
1210 forn=1to3000:nextn
2000 rem hauptprogramm:
2010 forma=1toms
2100 rem wuerfeln
2105 printza$(ma):ifge(ma)=1then2150
2110 w1=int(rnd(1)*6)+1:w2=int(rnd(1)*6)+1:wu=w1+w2
2115 print""tab(30)wu$(w1)" [145][145]"wu$(w2)
2120 forn1=1towu:po(ma)=po(ma)+1
2122 ifpo(ma)>44thenpo(ma)=1:ko(ma)=ko(ma)+4000
2124 pokev+(ma-1)*2,sx(po(ma)):pokev+(ma-1)*2+1,sy(po(ma))
2125 pokesi+4,16:pokesi+1,10:pokesi+5,22:pokesi+4,17:forp9=1to50:nextp9
2126 pokesi+4,16:pokesi+11,32:pokesi+18,0:nextn1:fa=1
2130 iffa=0thenforn=1to4000:nextn:gosub8500
2140 pokev+(ma-1)*2,sx(po(ma)):pokev+(ma-1)*2+1,sy(po(ma)):fa=0:gosub7300
2150 print"[129]"na$(po(ma))""
2151 ifgp(po(ma))=0then2155
2152 ifgp(po(ma))>10thenprint"[208]reis: "gp(po(ma))"[196][205]"
2153 ifgp(po(ma))<10thenprint"[196]ie [211]tr. geh[220]rt "gp(po(ma))
2155 print"[159][159][159][159][159][159][159][159][159][159][159][159][159][159][159][159][159][159][159][159][159][159][153]"
2160 ifgp(po(ma))<10orko(ma)<gp(po(ma))then2300
2162 pokesi+4,16:pokesi+5,3*16+12:pokesi+1,70:pokesi+4,17
2163 pokesi+11,16:pokesi+12,3*16+12:pokesi+8,60:pokesi+11,17
2164 pokesi+18,16:pokesi+19,3*16+12:pokesi+15,60:pokesi+18,17
2165 ifcp(ma)=1then4000
2170 print"[155][215]ollen [211]ie die [211]tr."
2180 print"kaufen ? (j/n)[153]"
2190 forn=1to10:geta$:next
2200 geta$:ifa$=""then2200
2210 ifa$<>"j"then3830
2215 gosub8500:print""
2220 ko(ma)=ko(ma)-gp(po(ma))
2225 ka(ma)=ka(ma)+gp(po(ma))
2230 gp(po(ma))=ma
2240 print"[150]die str. ist gekauft!"
2250 print"[206]euer [203]ontostand :":print""ko(ma)"[196][205]"
2300 ifgp(po(ma))<>maorgp(p1(po(ma)))<>maorgp(p2(po(ma)))<>mathen2400
2310 ifh4(po(ma))=3then2400
2312 pokesi+4,32:pokesi+1,50:pokesi+5,28:pokesi+4,33
2315 ifcp(ma)=1then4100
2320 print"[150]wieviele h[219]user ? ":print"(hotel = 5)"
2330 forn=1to10:geta$:next
2340 geta$:ifa$=""then2340
2341 a=val(a$)
2342 ifa=0then2400
2344 ifpo(ma)<13thenpr=3000*a:goto2351
2346 ifpo(ma)<23thenpr=6000*a:goto2351
2348 ifpo(ma)<35thenpr=9000*a:goto2351
2350 pr=12000*a
2351 ifpr>ko(ma)thenprint"[218]u teuer !":goto2400
2353 ko(ma)=ko(ma)-pr:print"[129]es werden"a:print"[200][219]user gebaut ! "
2354 ka(ma)=ka(ma)+pr
2355 ifgm(po(ma))>10thengm(po(ma))=ma:a=a-1:gm(p1(po(ma)))=ma:gm(p2(po(ma)))=ma
2357 ifa=0then2400
2359 ifh1(po(ma))>10thenh1(po(ma))=ma:a=a-1:h1(p1(po(ma)))=ma:h1(p2(po(ma)))=ma
2360 ifa=0then2400
2365 ifh2(po(ma))>10thenh2(po(ma))=ma:a=a-1:h2(p1(po(ma)))=ma:h2(p2(po(ma)))=ma
2367 ifa=0then2400
2370 ifh3(po(ma))>10thenh3(po(ma))=ma:a=a-1:h3(p1(po(ma)))=ma:h3(p2(po(ma)))=ma
2375 ifa=0then2400
2380 ifh4(po(ma))>10thenh4(po(ma))=ma:a=a-1:h4(p1(po(ma)))=ma:h4(p2(po(ma)))=ma
2400 ifpo(ma)=6thenko(ma)=ko(ma)-2000:print"[206]euer [203]ontostand:"
2410 ifpo(ma)=6thenprint""ko(ma)"[196][205]"
2420 ifpo(ma)=8thenko(ma)=ko(ma)-500:print"[206]euer [203]ontostand:"
2430 ifpo(ma)=8thenprint""ko(ma)"[196][205]"
2440 ifpo(ma)=30thenko(ma)=ko(ma)-1000:print"[206]euer [203]ontostand:"
2450 ifpo(ma)=30thenprint""ko(ma)"[196][205]"
2460 ifpo(ma)=3orpo(ma)=10orpo(ma)=20orpo(ma)=25orpo(ma)=38orpo(ma)=43then2470
2465 goto2800
2470 e1=int(rnd(1)*22)+1
2480 one1goto2482,2492,2502,2512,2522,2532,2542,2552,2562,2572,2582
2481 one1-1goto2592,2602,2612,2622,2632,2642,2652,2662,2672,2682,2470
2482 print"r[221]cke vor bis"
2483 print"zum [207]pernplatz !"
2485 ifpo(ma)>27thenko(ma)=ko(ma)+4000
2487 po(ma)=27:goto2130
2492 print"r[221]cke bis auf":print"los vor !"
2493 ko(ma)=ko(ma)+4000:po(ma)=1:goto2130
2502 print"du hast im kreuz-":print"wortr[219]tzelwettbewerb"
2504 print"gewonnen.":print"es sind 2000 dm"
2506 ko(ma)=ko(ma)+2000:goto2800
2512 print"zahle an das":print"krankenhaus!":print" 2000 dm"
2514 ko(ma)=ko(ma)-2000:goto2800
2522 print"arztkosten:1000 dm"
2524 ko(ma)=ko(ma)-1000:goto2800
2532 print"aus lagerverk[219]ufen":print"erh[219]ltst du 500 dm"
2534 ko(ma)=ko(ma)+500:goto2800
2542 print"du hast den 2.preis in":print"einer sch[220]nheits-"
2544 print"konkurrenz gewonnen.":print" 200 dm"
2546 ko(ma)=ko(ma)+200:goto2800
2552 print"zahle schulgeld!":print" 3000 dm"
2554 ko(ma)=ko(ma)-3000:goto2800
2562 print"du erh[219]lst auf":print"vorzugs-aktien"
2564 print"7% dividende:900 dm"
2566 ko(ma)=ko(ma)+900:goto2800
2572 print"einkommensteuer-":print"r[221]ckzahlung: 400 dm"
2574 ko(ma)=ko(ma)+400:goto2800
2582 print"du erbst 2000 dm"
2584 ko(ma)=ko(ma)+2000:goto2800
2592 print"die jahresrente wird":print"f[219]llig: 2000 dm"
2594 ko(ma)=ko(ma)+2000:goto2800
2602 print"bank-irrtum zu deinen":print"gunsten: 4000 dm"
2604 ko(ma)=ko(ma)+4000:goto2800
2612 print"strafe f[221]r zu":print"schnelles fahren":print" 300 dm"
2614 ko(ma)=ko(ma)-300:goto2800
2622 print"miete und anleihe-":print"zinsen werden f[219]llig"
2624 print"die bank zahlt dir":print" 3000 dm"
2626 ko(ma)=ko(ma)+3000:goto2800
2632 print"mache einen ausflug":print"nach dem s[221]dbahnhof!"
2634 ifpo(ma)>7thenko(ma)=ko(ma)+4000
2636 po(ma)=7:goto2130
2642 print"gehe zur[221]ck nach":print"der badstrasse!"
2644 po(ma)=2:goto2130
2652 print"die bank zahlt dir":print"eine dividende"
2654 print"von 1000 dm":ko(ma)=ko(ma)+1000:goto2800
2662 print"r[221]cke vor bis zur":print"seestrasse!"
2664 ifpo(ma)>14thenko(ma)=ko(ma)+4000
2666 po(ma)=14:goto2130
2672 print"gehe 3 felder zur[221]ck!"
2674 ifpo(ma)=3thenpo(ma)=44:goto2130
2676 po(ma)=po(ma)-3:goto2130
2682 print"r[221]cke vor bis zur":print"schlossallee !"
2684 po(ma)=44:goto2130
2800 rem mieten:
2810 ifh4(po(ma))=0orgp(po(ma))=mathen3000
2820 ifh4(po(ma))>10then2840
2825 print"miete:"h5(po(ma))"dm"
2830 ko(h4(po(ma)))=ko(h4(po))+h5(po(ma))
2835 ko(ma)=ko(ma)-h5(po(ma)):goto3000
2840 ifh3(po(ma))>10then2860
2845 print"miete:"h4(po(ma))"dm"
2850 ko(h3(po(ma)))=ko(h3(po(ma)))+h4(po(ma))
2855 ko(ma)=ko(ma)-h4(po(ma)):goto3000
2860 ifh2(po(ma))>10then2880
2865 print"miete:"h3(po(ma))"dm"
2870 ko(h2(po(ma)))=ko(h2(po(ma)))+h3(po(ma))
2875 ko(ma)=ko(ma)-h3(po(ma)):goto3000
2880 ifh1(po(ma))>10then2900
2885 print"miete:"h2(po(ma))"dm"
2890 ko(h1(po(ma)))=ko(h1(po(ma)))+h2(po(ma))
2895 ko(ma)=ko(ma)-h2(po(ma)):goto3000
2900 ifgm(po(ma))>10then2920
2905 print"miete:"h1(po(ma))"dm"
2910 ko(gm(po(ma)))=ko(gm(po(ma)))+h1(po(ma))
2915 ko(ma)=ko(ma)-h1(po(ma)):goto3000
2920 ifgp(po(ma))>10then3000
2925 ifgp(po(ma))=gp(p1(po(ma)))andgp(po(ma))=gp(p2(po(ma)))then2935
2930 goto2950
2935 print"miete:"2*gm(po(ma))"dm"
2940 ko(gp(po(ma)))=ko(gp(po(ma)))+2*gm(po(ma))
2945 ko(ma)=ko(ma)-2*gm(po(ma)):goto3000
2950 print"miete:"gm(po(ma))"dm"
2960 ko(gp(po(ma)))=ko(gp(po(ma)))+gm(po(ma))
2970 ko(ma)=ko(ma)-gm(po(ma))
3000 rem bahnhofsmieten:
3010 ifpo(ma)<>7andpo(ma)<>18andpo(ma)<>29andpo(ma)<>40then3200
3020 ifgp(po(ma))=maorgp(po(ma))>10then3200
3030 mi=500:ifgp(h1(po(ma)))=gp(po(ma))thenmi=mi*2
3040 ifgp(h2(po(ma)))=gp(po(ma))thenmi=mi*2
3050 ifgp(h3(po(ma)))=gp(po(ma))thenmi=mi*2
3060 print"hier m[221]ssen sie dem"
3070 print"besitzer"mi"dm"
3080 print"miete zahlen !"
3090 ko(ma)=ko(ma)-mi
3100 ko(gp(po(ma)))=ko(gp(po(ma)))+mi
3200 rem werke:
3210 ifpo(ma)<>15andpo(ma)<>28andpo(ma)<>33then3300
3220 ifgp(po(ma))>10orgp(po(ma))=mathen3300
3230 mi=80:ifgp(h1(po(ma)))=gp(po(ma))thenmi=120
3240 ifgp(h2(po(ma)))=gp(po(ma))thenmi=120
3250 ifgp(h1(po(ma)))=gp(po(ma))andgp(h2(po(ma)))=gp(po(ma))thenmi=200
3260 mi=mi*wu:print"sie haben"mi"dm"
3270 print"miete zu zahlen!"
3280 ko(ma)=ko(ma)-mi
3290 ko(gp(po(ma)))=ko(gp(po(ma)))+mi
3300 rem gehe in das gefaegnis:
3310 ifpo(ma)<>35then3400
3320 ge(ma)=1:print"tut mir leid !"
3330 po(ma)=13:goto2130
3400 ifpo(ma)<>13then3500
3410 ifge(ma)<>1thenprint"nur zu besuch!":goto3500
3420 print"sie sind im gef[219]gnis "
3430 forn=1to3:w1=int(rnd(1)*6)+1:w2=int(rnd(1)*6)+1
3435 print""tab(30)wu$(w1)" [145][145]"wu$(w2)
3440 forn1=1to500:nextn1
3450 ifw1=w2thenge(ma)=0:gosub8500:goto2100
3460 nextn:goto3830
3500 :
3805 gosub7300:forn=1to1000:nextn
3820 forp9=2to44:gosub7000:nextp9
3830 forn=1toms:ifko(n)<0thenko(n)=ko(n)+int(ko(n)/100)
3840 nextn:gosub8500:ifw1=w2then2100
3850 forn=1toms:ifko(n)<-40000then5000
3860 nextn
3900 nextma:goto2000
4000 rem computerentscheidungen
4010 print"kauft der computer ?"
4015 forn=1to1000:nextn
4017 p1=gp(p1(po(ma))):p2=gp(p2(po(ma))):p9=gp(po(ma))
4020 ifko(ma)-p9<500then3830
4030 ifp1=p2andp2</openatnprintgotorempoke(NULL)chr$on(NULL)(NULL)(NULL){$7f}rem(NULL)(NULL){$7f}gototan{$7f}rem(NULL)openopentan{$7f}gotoright$openopenatnprint(NULL)printopen(NULL)(NULL)on(NULL)(NULL)(NULL)listremremremright$ko(ma)then2215
4060 goto3830
4100 rem computer haeuser ?
4105 print"[156]kauft der computer":print"h[219]user ?"
4110 ifpo(ma)<13thenmi=3000:goto4150
4120 ifpo(ma)<23thenmi=6000:goto4150
4130 ifpo(ma)<35thenmi=9000:goto4150
4140 mi=12000
4150 ifko(ma)-5*mi>500andgm(po(ma))>10thena=5:goto2342
4160 ifko(ma)-4*mi>500andh1(po(ma))>10thena=4:goto2342
4170 ifko(ma)-3*mi>500andh2(po(ma))>10thena=3:goto2342
4180 ifko(ma)-2*mi>500andh3(po(ma))>10thena=2:goto2342
4190 ifko(ma)-1*mi>500andh4(po(ma))>10thena=1:goto2342
4195 a=0:print"er kauft nicht!":goto2342
5000 rem ende des spiels:
5005 pokev+21,0
5010 print"[147][153]das ende des spiels ist erreicht!"
5020 print"es wird jetzt das gesamtkapital aller"
5030 print"ausgegeben.der spieler mit dem meisten"
5040 print"kapital ist der gewinner."
5070 forn=1toms:print"[150]spieler"n":[156]"ko(n)"+"ka(n)"="ko(n)+ka(n)"dm":nextn
5080 print"herzlichen gl[221]ckwunsch ! (taste)";
5090 forn=1to10:geta$:nextn
5100 geta$:ifa$=""then5100
5110 print"[147]neues spiel (j/n) ?"
5120 geta$:ifa$<>""then5120
5130 forn=1to10:geta$:nextn
5140 geta$:ifa$=""then5140
5150 ifa$="j"thenrun
5160 print"ende":end
7000 rem unterprogramm haeuser:
7010 mi=bi+int(sx(p9)/8-2)+40*int(sy(p9)/8-5)
7020 h1=mi-40:h2=mi-39:h3=mi:h4=mi+1
7030 ifp9<13thengp=mi+40:goto7100
7040 ifp9<23thengp=mi-1:goto7100
7045 ifgp<35thengp=mi-80:goto7100
7050 h5=mi-40:gp=mi+2
7100 ifgp(p9)>10orgp(p9)<1thenreturn
7110 pokegp,gp(p9)+176
7120 ifgm(p9)>10orh5(p9)=0thenreturn
7125 ifh4(p9)<10thenpokeh1,163:pokeh2,163:pokeh3,164:pokeh4,164:return
7130 ifh3(p9)<10thenpokeh1,128:pokeh2,128:pokeh3,128:pokeh4,128:return
7140 ifh2(p9)<10thenpokeh1,128:pokeh2,128:pokeh3,128:return
7150 ifh1(p9)<10thenpokeh1,128:pokeh2,128:return
7160 ifgm(p9)<10thenpokeh1,128:return
7170 return
7300 rem anzeige konto:
7310 print""tab(28)"sp. dm":printtab(28)"---------"
7320 forn=1toms:ifn=mathenprint"";
7330 printtab(28)n"[157]"ko(n)"[157] ":ifn=mathenprint"";
7340 nextn:return
8000 rem def. sprite position
8005 nx=28:ny=57
8010 forn=23to13step-1:sy(n)=ny:sx(n)=nx:ny=ny+16:next
8020 ny=ny-16:nx=nx+16:forn=12to1step-1:sy(n)=ny:sx(n)=nx:nx=nx+16:next
8030 nx=44:ny=57:forn=24to35:sy(n)=ny:sx(n)=nx:nx=nx+16:next
8040 nx=nx-16:ny=ny+16:forn=36to44:sy(n)=ny:sx(n)=nx:ny=ny+16:next:return
8100 rem aussehen wuerfeln:
8110 wu$(1)="[154] [157][157][157] t [157][157][157] [146]"
8120 wu$(2)="[153] t[157][157][157] [157][157][157]t [146]"
8130 wu$(3)="[150] t[157][157][157] t [157][157][157]t [146]"
8140 wu$(4)="[129]t t[157][157][157] [157][157][157]t t[146]"
8150 wu$(5)="[152]t t[157][157][157] t [157][157][157]t t[146]"
8160 wu$(6)="[156]t t[157][157][157]t t[157][157][157]t t[146]"
8180 za$=""
8190 za$(1)=za$+" [162] [157][157][157][157] [162][161] [157][157][157][157][162][163][161] [157][157][157][157] [161] [157][157][157][157] [161] [157][157][157][157] [161][161][161]"
8200 za$(2)=za$+"[162][161][161][164][157][157][157][157][161] [161][157][157][157][157] [162][163][157][157][157][157] [162][163] [157][157][157][157][162][163] [157][157][157][157][161][161][161][161]"
8210 za$(3)=za$+"[162][161][161][164][157][157][157][157] [161][157][157][157][157] [162][163][157][157][157][157] [165][164][157][157][157][157] [161][157][157][157][157][165][161][161][163]"
8220 za$(4)=za$+" [157][157][157][157] [162] [157][157][157][157] [162][161] [157][157][157][157][162][163][161] [157][157][157][157][161][161][161][161][157][157][157][157] [161] "
8230 za$(5)=za$+"[161][161][161][161][157][157][157][157][161] [157][157][157][157][161][161][161][164][157][157][157][157] [161][157][157][157][157][164] [161][157][157][157][157][165][161][161][163]"
8240 za$(6)=za$+"[162][161][161][164][157][157][157][157][161] [157][157][157][157][161][161][161][164][157][157][157][157][161] [161][157][157][157][157][161] [161][157][157][157][157][165][161][161][163]"
8250 za$(7)=za$+"[161][161][161][161][157][157][157][157][163] [162][163][157][157][157][157] [162][163] [157][157][157][157] [161] [157][157][157][157] [161] [157][157][157][157] [161] "
8260 za$(8)=za$+"[162][161][161][164][157][157][157][157][161] [161][157][157][157][157][165][164][162][163][157][157][157][157][162][163][165][164][157][157][157][157][161] [161][157][157][157][157][165][161][161][163]"
8270 return
8500 rem bildschirm loeschen
8520 print"";:forn=0to16:print" ":next
8530 return
8700 rem wer ist der computer?
8710 print"sollen folgende spieler durch den"
8720 print"computer ersetzt werden ? (j/n)"
8730 forn=1toms:print"spieler "n;
8740 forn1=1to10:geta$:nextn1
8750 geta$:ifa$=""then8750
8760 ifa$="j"thencp(n)=1:print"ja"
8770 ifa$<>"j"thencp(n)=0:print"nein"
8780 nextn:return
9000 rem unterprogramm
9001 rem bildschirmaufbau
9020 print"[147][158]zzz '[158] ' '[152] [158] [152] [155] ' '[152] [155] '[158] "
9030 print"z[154]y[158] '[158]uv ' '[152]ef[158][\[152]jk[155] ' '[152]ab[155] '[158] _ "
9040 print"z '[158]wx ' '[152]gh[158]]^[152]lm[155] ' '[152]cd[155] '[158] "
9050 print"[149]---"tab(25)"---"
9060 print"[149] "tab(25)" "
9070 print"[149]---"tab(25)"---"
9080 print"[149] "tab(25)" "
9090 print"[158] uv"tab(25)"[158]uv "
9100 print"[158] wx"tab(25)"[158]wx "
9110 print"[149]---"tab(25)"---"
9120 print"[149] "tab(25)" "
9130 print"[158] [\"tab(25)"[158][\ "
9140 print"[158] ]^"tab(25)"[158]]^ "
9150 print"[156]---"tab(25)"---"
9160 print"[156] "tab(25)" "
9170 print"[156]---"tab(25)"---"
9180 print"[156] "tab(25)" "
9190 print"[152]-%-"tab(25)"[158]uv "
9200 print"[152] & "tab(25)"[158]wx "
9210 print"[156]---"tab(25)"---"
9220 print"[156] "tab(25)" "
9230 print"[158] [129]ii[154] ' '[158]uv[154] '[152]jk[158][\[152]jk[150] ' '[158]uv[150] '[158] "
9240 print"[158] [129]ii[154] ' '[158]wx[154] '[152]lm[158]]^[152]lm[150] ' '[158]wx[150] '[158]qrs"
9250 print"[158] '[154] ' '[158] [154] '[152] [158] [152] [150] ' '[158] [150] '[158]nop";
9390 return
9400 rem datas:
9410 rem sprite 1
9420 data0,60,0,0,235,0,3,170,192,3,170,192,0,235,0,0
9430 data60,0,0,60,0,0,235,0,0,235,0,0,235,0,3,170
9440 data192,3,170,192,3,170,192,14,170,176,14,170,176,14,170,176
9450 data15,255,240,15,255,240,0,0,0,0,0,0,0,0,0
9700 forn=0to62:readq:poke33600+n,q:next
9710 poke56334,peek(56334)and254
9720 poke1,peek(1)and251
9730 fori=53248to53760:pokei-18432,peek(i):next
9740 poke1,peek(1)or4
9750 poke56334,peek(56334)or1
9760 poke53272,peek(53272)and241or2
9770 poke56576,peek(56576)and252or1
9780 poke648,132:print"[147]";
9820 rem besitzrechte
9825 data0,0,0,0,0,0,0,0,0
9830 data1200,40,200,600,1800,3200,5000,4,5
9832 data0,0,0,0,0,0,0,0,0
9835 data1200,80,400,1200,3600,6400,9000,2,5
9840 data1600,100,500,1600,4500,7200,10000,2,4
9842 data0,0,0,0,0,0,0,0,0
9843 data4000,0,18,29,40,0,0,0,0
9844 data0,0,0,0,0,0,0,0,0
9845 data2000,120,600,1800,5400,8000,11000,11,12
9847 data0,0,0,0,0,0,0,0,0
9850 data2000,120,600,1800,5400,8000,11000,9,12
9855 data2400,160,800,2000,6000,9000,12000,9,11
9857 data0,0,0,0,0,0,0,0,0
9860 data2800,200,1000,3000,9000,12500,15000,16,17
9862 data3000,0,28,33,0,0,0,0,0
9865 data2800,200,1000,3000,9000,12500,15000,14,17
9870 data3200,240,1200,3600,10000,14000,16000,14,16
9872 data4000,0,7,29,40,0,0,0,0
9875 data3600,280,1400,4000,11000,15000,19000,21,22
9877 data0,0,0,0,0,0,0,0,0
9880 data3600,280,1400,4000,11000,15000,19000,19,22
9885 data4000,320,1600,4400,12000,16000,20000,19,21
9887 data0,0,0,0,0,0,0,0,0
9890 data4400,360,1800,5000,14000,17500,21000,26,27
9892 data0,0,0,0,0,0,0,0,0
9895 data4400,360,1800,5000,14000,17500,21000,24,27
9900 data4800,400,2000,6000,15000,18500,22000,24,26
9902 data3000,0,15,33,0,0,0,0,0
9903 data4000,0,7,18,40,0,0,0,0
9904 data0,0,0,0,0,0,0,0,0
9905 data5200,440,2200,6600,16000,19500,23000,32,34
9910 data5200,440,2200,6600,16000,19500,23000,31,34
9912 data3000,0,15,28,0,0,0,0,0
9915 data5600,580,2400,7200,17000,20500,24000,31,32
9917 data0,0,0,0,0,0,0,0,0
9920 data6000,520,2600,7800,18000,22000,25500,37,39
9925 data6000,520,2600,7800,18000,22000,25500,36,39
9927 data0,0,0,0,0,0,0,0,0
9930 data6400,560,3000,9000,20000,24000,28000,36,37
9932 data4000,0,7,18,29,0,0,0,0
9935 data7000,750,3500,10500,24000,29000,35000,42,44
9940 data7000,750,3500,10500,24000,29000,35000,41,44
9942 data0,0,0,0,0,0,0,0,0
9945 data8000,1000,4000,12000,28000,34000,40000,41,42
9950 forn=1to44:readgp(n),gm(n),h1(n),h2(n),h3(n),h4(n),h5(n),p1(n),p2(n):next
9955 forn=1to44:readna$(n):next:return
9960 data"[204][207][211]","[194][193][196][211][212][210][193]ss[197]","[197][210][197][201][199][206][201][211]","[212][213][210][205][211][212][210][193][211][211][197]","[204][201][206][196][197][206][211][212][210][193][211][211][197]"
9963 data"[197][201][206][203][207][205][205][197][206][211][212][197][213][197][210]","[211][221][196][194][193][200][206][200][207][198]","[211][212][210][193][211][211][197][206][194][197][206].[199][197][194][221][200][210]"
9965 data"[195][200][193][213][211][211][197][197][211][212][210][193][211][211][197]","[197][210][197][201][199][206][201][211]","[197][204][201][211][197][206][211][212][210][193][211][211][197]","[208][207][211][212][211][212][210][193][211][211][197]","[199][197][198][219][199][206][201][211]"
9967 data"[211][197][197][211][212][210][193][211][211][197]","[197][204][197][203][212][210][201][218][201][212][219][212][211][215][197][210][203]","[200][193][198][197][206][211][212][210][193][211][211][197]","[206][197][213][197][160][211][212][210][193][211][211][197]"
9970 data"[215][197][211][212][194][193][200][206][200][207][198]","[205][221][206][195][200][206][197][210] [211][212][210][193][211][211][197]","[197][210][197][201][199][206][201][211]","[215][201][197][206][197][210] [211][212][210][193][211][211][197]"
9973 data"[194][197][210][204][201][206][197][210][160][211][212][210][193][211][211][197]","[198][210][197][201][160][208][193][210][203][197][206]","[212][200][197][193][212][197][210][211][212][210][193][211][211][197]","[197][210][197][201][199][206][201][211]"
9975 data"[205][213][211][197][213][205][211][212][210][193][211][211][197]","[207][208][197][210][206][208][204][193][212][218]","[211][212][193][196][212][215][197][210][203][197]","[206][207][210][196][194][193][200][206][200][207][198]","[218][213][211][193][212][218][211][212][197][213][197][210]"
9977 data"[204][197][211][211][201][206][199][211][212][210][193][211][211][197]","[211][195][200][201][204][204][197][210][211][212][210][193][211][211][197]","[215][193][211][211][197][210][215][197][210][203]","[199][207][197][212][200][197][211][212][210][193][211][211][197]"
9980 data"[199][197][200][197][160][201][206][211][160][199][197][198][219][199][206][201][211]","[210][193][212][200][193][213][211][208][204][193][212][218]","[200][193][213][208][212][211][212][210][193][211][211][197]","[197][210][197][201][199][206][201][211]"
9983 data"[194][193][200][206][200][207][198][211][212][210][193][211][211][197]","[200][193][213][208][212][194][193][200][206][200][207][198]","[198][197][204][196][211][195][200][205][201][197][196][197]","[208][193][210][203][211][212][210][193][211][211][197]"
9985 data"[197][210][197][201][199][206][201][211]","[211][195][200][204][207][211][211][193][204][204][197][197]"
10010 data16,56,124,254,116,84,116,116
10020 data0,15,1,129,193,255,255,255
10030 data0,224,0,0,0,192,224,240
10032 data192,128,0,0,0,0,0,0
10034 data240,112,112,248,0,0,0,0
10040 data24,24,24,24,24,24,24,24
10050 data0,0,0,0,0,0,0,0
10060 data24,25,59,63,63,56,56,63
10070 data0,16,48,112,240,140,140,252
10080 data17,162,68,168,17,42,68,138
10090 data0,1,2,4,2,1,2,4
10100 data0,192,0,0,128,64,32
10110 data16,2,1,0,0,4,3,0
10120 data0,32,64,128,64,32,64,128,0
10130 data0,1,6,31,6,1,0,0
10140 data128,0,1,255,1,0,128,0
10150 data0,168,80,224,80,168,0,0
10160 data1,1,1,1,1,0,0,0
10170 data24,37,36,36,153,0,0,0
10180 data192,0,128,64,128,0,0,0
10190 data0,0,24,60,60,24,0,0
10200 data0,3,4,19,0,3,4,11
10210 data0,192,32,208,80,144,96,128
10220 data10,5,2,1,0,1,2,1
10230 data0,208,32,192,0,192,32,192
10240 data0,0,56,36,56,32,32,0
10250 data128,64,32,16,8,4,0,0
10260 data12,30,12,12,63,61,55,63
10270 data0,31,22,22,254,94,254,252
10280 data36,110,223,31,14,0,0,0
10290 data16,56,124,124,56,0,0,0
10300 data1,2,4,8,80,96,112,0
10310 data0,0,0,0,0,0,0,0
10320 data0,0,0,0,0,0,0,255
10330 data128,128,128,128,128,128,128,128
10340 data16,16,40,40,68,84,130,170
10350 data130,170,130,170,130,178,178,178
10360 data60,66,129,165,153,153,90,60
10370 data52,44,52,44,24,0,0,0
10380 data1,1,1,1,1,1,1,1
10390 data255,0,0,0,0,0,0,0
10400 data0,0,24,36,36,36,24,0
10410 data0,0,8,24,8,8,8,0
10420 data0,0,24,36,8,16,60,0
10430 data0,0,24,4,8,4,24,0
10440 data0,0,8,24,40,60,8,0
10450 data0,0,60,32,56,4,56,0
10460 data0,0,24,32,56,36,24,0
10470 data0,0,60,4,8,16,16,0
10480 data0,0,24,36,24,36,24,0
10490 data0,0,24,36,28,4,24,0
10500 rem zeichen laden:
10510 forn=35840to36159:readq:poken,255-q:nextn
10515 forn=36200to36207:readq:poken,255-q:nextn
10520 forn=36224to36303:readq:poken,255-q:nextn
10530 forn=35336to35631:readq:poken,q:nextn
10590 return
10600 data28,99,99,127,99,115,115,115
10610 data124,99,99,124,99,115,115,126
10620 data60,99,96,96,96,112,115,60
10630 data124,102,99,99,99,115,118,124
10640 data127,96,96,126,96,112,112,127
10650 data127,24,24,126,24,28,28,28
10660 data62,99,96,96,103,115,115,62
10670 data99,99,99,127,99,115,115,115
10680 data126,24,24,24,24,28,28,126
10690 data6,6,6,6,6,6,102,60
10700 data102,108,120,112,120,108,118,115
10710 data96,96,96,96,96,112,112,127
10720 data99,119,127,107,107,115,115,115
10730 data115,115,123,123,111,111,119,119
10740 data62,99,99,99,99,115,115,62
10750 data126,99,99,126,96,112,112,112
10760 data62,99,99,99,123,111,103,62
10770 data126,99,99,126,120,108,118,115
10780 data62,99,96,62,3,3,99,62
10790 data126,24,24,24,24,28,28,28
10800 data99,99,99,99,99,115,115,62
10810 data99,99,99,54,54,54,28,28
10820 data99,99,99,107,107,127,54,54
10830 data99,99,54,28,28,54,99,99
10840 data99,99,54,28,12,24,24,112
10850 data127,3,6,12,24,48,112,127
10860 data99,8,127,99,99,127,99,115
10870 data99,0,62,99,99,115,115,62
10880 data99,0,99,99,99,115,115,62
10890 data0,0,0,30,48,48,96,0
10900 data0,0,0,12,30,51,225,192
10910 data0,0,0,0,0,0,0,0
10920 data255,255,255,255,255,255,255,255
10930 data1,3,7,15,31,63,127,255
10940 data255,254,252,248,240,224,192,128
10950 data128,192,224,240,248,252,254,255
10960 data255,127,63,31,15,7,3,1
10970 rem spielerklaerung:
11000 print"[147][158] ";
11010 print" [\ # ## # [\ ";
11020 print" ]^ @ @ @ @ @ $ $$ $ @ @ @ @ @ ]^ ";
11030 print" "
11040 printtab(13)"[155]m o n o p o l y"
11050 print"jeder spieler hat 20000 dm startkapital"
11060 print"mit diesem geld kann er grundst[221]cke und "
11070 print"h[219]user kaufen. wenn ein gegner auf die "
11080 print"grundst[221]cke ger[219]t,muss er miete zahlen "
11090 print"wenn jemand mehr als 39999 dm schulden"
11100 print"hat, ist das spiel beendet. zus[219]tzlich "
11120 print"gibt es noch einige spezialfelder,deren"
11130 print"funktion jedoch angezeigt wird."
11140 printtab(32)"taste[155]";
11150 forn=1to10:geta$:nextn
11160 geta$:ifa$=""then11160
11170 print"[147] s p i e l a b l a u f :"
11180 print"1. jeder spieler kann durch den computer"
11190 print" ersetzt werden."
11200 print"2. jedem mitspieler wird eine kennzahl"
11210 print" zugewiesen.diese zahl wird in der"
11220 print" rechten oberen ecke angezeigt."
11230 print"3. jeder spieler erh[219]lt eine spielfigur "
11260 print"4. damit sich der spieler besser auf"
11270 print" seine taktik und pl[219]ne konzentrieren "
11280 print" kann,wird ihm der computer viele"
11290 print" handlungen abnehmen !"
11300 forn=1to10:geta$:nextn
11310 geta$:ifa$=""then11310
11320 print"[155][147][219] n d e r u n g e n : "
11330 print"1. es sind einige strassen hinzugef[221]gt "
11340 print" worden."
11350 print"2. wenn man ins gef[219]ngnis geht,hat man "
11360 print" gleich die m[220]glichkeit,es wieder zu"
11370 print" verlassen."
11380 print"3. die 22 ereigniskarten werden nicht"
11390 print" vom stapel genommen."
11400 print"4. es gibt keine gemeinschaftsfelder !"
11410 print"5. man kann bis -39999 dm schulden"
11420 print" machen.man kann jedoch nichts"
11430 print" kaufen und muss zinsen zahlen !"
11500 printtab(32)"taste[155]";
11880 forn=1to10:geta$:nextn
11890 geta$:ifa$=""then11890
11900 return