home *** CD-ROM | disk | FTP | other *** search
/ Publication 8 / Publication_08_1996_High-Tech_de_Side_B.d64 / quadropoly (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  19KB  |  560 lines

  1. 100 rem    monopoly
  2. 105 rem  von a. moeller
  3. 110 clr:poke55,255:poke56,127:clr:x=rnd(-ti)
  4. 120 poke53248+21,0:poke53272,21:poke648,4
  5. 125 poke56576,peek(56576)and252or3:poke53280,0:poke53281,0
  6. 130 dimgp(44),gm(44),h1(44),h2(44),h3(44),h4(44),h5(44),sy(44),sx(44),na$(44)
  7. 140 dimko(8),p1(44),p2(44),ge(8)
  8. 150 forn=1to8:ko(n)=20000:po(n)=1:next
  9. 160 bi=33792:co=55296:si=54272
  10. 170 pokesi+24,15
  11. 1000 rem    vorbereitungen:
  12. 1010 print"[147][150] monopoly :"
  13. 1020 print"[158]bitte einen augenblick warten !"
  14. 1024 restore:gosub9400
  15. 1025 gosub10500
  16. 1026 pokesi+4,0:pokesi+5,42:pokesi+1,70:pokesi+6,0:pokesi+4,17
  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])"
  18. 1032 forn=1to10:geta$:nextn
  19. 1034 geta$:ifa$="j"thengosub11000
  20. 1035 ifa$=""then1034
  21. 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])"
  22. 1038 forn=1to10:geta$:next
  23. 1040 geta$:ifa$=""then1040
  24. 1050 ms=val(a$):ifms=0orms>8then1030
  25. 1053 gosub8700:poke53265,peek(53265)and239
  26. 1055 gosub9000:gosub8000:print"[144]";
  27. 1060 forn=34808to34807+ms:poken,13:next
  28. 1070 v=53248:pokev+16,0:forn=0toms-1:pokev+21,peek(v+21)or2^n:next
  29. 1080 forn=1toms:po(ms)=1:next
  30. 1090 pokev+38,0:pokev+39,1:pokev+40,7:pokev+41,2:pokev+42,5:pokev+43,6
  31. 1100 pokev+44,8:pokev+45,10:pokev+46,13:pokev+28,255
  32. 1110 forn=0toms-1:pokev+n*2,sx(po(n+1)):pokev+n*2+1,sy(po(n+1)):next
  33. 1120 gosub8100:gosub8500
  34. 1200 poke53265,peek(53265)or16
  35. 1210 forn=1to3000:nextn
  36. 2000 rem     hauptprogramm:
  37. 2010 forma=1toms
  38. 2100 rem  wuerfeln
  39. 2105 printza$(ma):ifge(ma)=1then2150
  40. 2110 w1=int(rnd(1)*6)+1:w2=int(rnd(1)*6)+1:wu=w1+w2
  41. 2115 print""tab(30)wu$(w1)" [145][145]"wu$(w2)
  42. 2120 forn1=1towu:po(ma)=po(ma)+1
  43. 2122 ifpo(ma)>44thenpo(ma)=1:ko(ma)=ko(ma)+4000
  44. 2124 pokev+(ma-1)*2,sx(po(ma)):pokev+(ma-1)*2+1,sy(po(ma))
  45. 2125 pokesi+4,16:pokesi+1,10:pokesi+5,22:pokesi+4,17:forp9=1to50:nextp9
  46. 2126 pokesi+4,16:pokesi+11,32:pokesi+18,0:nextn1:fa=1
  47. 2130 iffa=0thenforn=1to4000:nextn:gosub8500
  48. 2140 pokev+(ma-1)*2,sx(po(ma)):pokev+(ma-1)*2+1,sy(po(ma)):fa=0:gosub7300
  49. 2150 print"[129]"na$(po(ma))""
  50. 2151 ifgp(po(ma))=0then2155
  51. 2152 ifgp(po(ma))>10thenprint"[208]reis: "gp(po(ma))"[196][205]"
  52. 2153 ifgp(po(ma))<10thenprint"[196]ie [211]tr. geh[220]rt "gp(po(ma))
  53. 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]"
  54. 2160 ifgp(po(ma))<10orko(ma)<gp(po(ma))then2300
  55. 2162 pokesi+4,16:pokesi+5,3*16+12:pokesi+1,70:pokesi+4,17
  56. 2163 pokesi+11,16:pokesi+12,3*16+12:pokesi+8,60:pokesi+11,17
  57. 2164 pokesi+18,16:pokesi+19,3*16+12:pokesi+15,60:pokesi+18,17
  58. 2165 ifcp(ma)=1then4000
  59. 2170 print"[155][215]ollen [211]ie die [211]tr."
  60. 2180 print"kaufen ? (j/n)[153]"
  61. 2190 forn=1to10:geta$:next
  62. 2200 geta$:ifa$=""then2200
  63. 2210 ifa$<>"j"then3830
  64. 2215 gosub8500:print""
  65. 2220 ko(ma)=ko(ma)-gp(po(ma))
  66. 2225 ka(ma)=ka(ma)+gp(po(ma))
  67. 2230 gp(po(ma))=ma
  68. 2240 print"[150]die str. ist gekauft!"
  69. 2250 print"[206]euer [203]ontostand :":print""ko(ma)"[196][205]"
  70. 2300 ifgp(po(ma))<>maorgp(p1(po(ma)))<>maorgp(p2(po(ma)))<>mathen2400
  71. 2310 ifh4(po(ma))=3then2400
  72. 2312 pokesi+4,32:pokesi+1,50:pokesi+5,28:pokesi+4,33
  73. 2315 ifcp(ma)=1then4100
  74. 2320 print"[150]wieviele h[219]user ? ":print"(hotel = 5)"
  75. 2330 forn=1to10:geta$:next
  76. 2340 geta$:ifa$=""then2340
  77. 2341 a=val(a$)
  78. 2342 ifa=0then2400
  79. 2344 ifpo(ma)<13thenpr=3000*a:goto2351
  80. 2346 ifpo(ma)<23thenpr=6000*a:goto2351
  81. 2348 ifpo(ma)<35thenpr=9000*a:goto2351
  82. 2350 pr=12000*a
  83. 2351 ifpr>ko(ma)thenprint"[218]u teuer !":goto2400
  84. 2353 ko(ma)=ko(ma)-pr:print"[129]es werden"a:print"[200][219]user gebaut ! "
  85. 2354 ka(ma)=ka(ma)+pr
  86. 2355 ifgm(po(ma))>10thengm(po(ma))=ma:a=a-1:gm(p1(po(ma)))=ma:gm(p2(po(ma)))=ma
  87. 2357 ifa=0then2400
  88. 2359 ifh1(po(ma))>10thenh1(po(ma))=ma:a=a-1:h1(p1(po(ma)))=ma:h1(p2(po(ma)))=ma
  89. 2360 ifa=0then2400
  90. 2365 ifh2(po(ma))>10thenh2(po(ma))=ma:a=a-1:h2(p1(po(ma)))=ma:h2(p2(po(ma)))=ma
  91. 2367 ifa=0then2400
  92. 2370 ifh3(po(ma))>10thenh3(po(ma))=ma:a=a-1:h3(p1(po(ma)))=ma:h3(p2(po(ma)))=ma
  93. 2375 ifa=0then2400
  94. 2380 ifh4(po(ma))>10thenh4(po(ma))=ma:a=a-1:h4(p1(po(ma)))=ma:h4(p2(po(ma)))=ma
  95. 2400 ifpo(ma)=6thenko(ma)=ko(ma)-2000:print"[206]euer [203]ontostand:"
  96. 2410 ifpo(ma)=6thenprint""ko(ma)"[196][205]"
  97. 2420 ifpo(ma)=8thenko(ma)=ko(ma)-500:print"[206]euer [203]ontostand:"
  98. 2430 ifpo(ma)=8thenprint""ko(ma)"[196][205]"
  99. 2440 ifpo(ma)=30thenko(ma)=ko(ma)-1000:print"[206]euer [203]ontostand:"
  100. 2450 ifpo(ma)=30thenprint""ko(ma)"[196][205]"
  101. 2460 ifpo(ma)=3orpo(ma)=10orpo(ma)=20orpo(ma)=25orpo(ma)=38orpo(ma)=43then2470
  102. 2465 goto2800
  103. 2470 e1=int(rnd(1)*22)+1
  104. 2480 one1goto2482,2492,2502,2512,2522,2532,2542,2552,2562,2572,2582
  105. 2481 one1-1goto2592,2602,2612,2622,2632,2642,2652,2662,2672,2682,2470
  106. 2482 print"r[221]cke vor bis"
  107. 2483 print"zum [207]pernplatz !"
  108. 2485 ifpo(ma)>27thenko(ma)=ko(ma)+4000
  109. 2487 po(ma)=27:goto2130
  110. 2492 print"r[221]cke bis auf":print"los vor !"
  111. 2493 ko(ma)=ko(ma)+4000:po(ma)=1:goto2130
  112. 2502 print"du hast im kreuz-":print"wortr[219]tzelwettbewerb"
  113. 2504 print"gewonnen.":print"es sind 2000 dm"
  114. 2506 ko(ma)=ko(ma)+2000:goto2800
  115. 2512 print"zahle an das":print"krankenhaus!":print" 2000 dm"
  116. 2514 ko(ma)=ko(ma)-2000:goto2800
  117. 2522 print"arztkosten:1000 dm"
  118. 2524 ko(ma)=ko(ma)-1000:goto2800
  119. 2532 print"aus lagerverk[219]ufen":print"erh[219]ltst du 500 dm"
  120. 2534 ko(ma)=ko(ma)+500:goto2800
  121. 2542 print"du hast den 2.preis in":print"einer sch[220]nheits-"
  122. 2544 print"konkurrenz gewonnen.":print" 200 dm"
  123. 2546 ko(ma)=ko(ma)+200:goto2800
  124. 2552 print"zahle schulgeld!":print" 3000 dm"
  125. 2554 ko(ma)=ko(ma)-3000:goto2800
  126. 2562 print"du erh[219]lst auf":print"vorzugs-aktien"
  127. 2564 print"7% dividende:900 dm"
  128. 2566 ko(ma)=ko(ma)+900:goto2800
  129. 2572 print"einkommensteuer-":print"r[221]ckzahlung: 400 dm"
  130. 2574 ko(ma)=ko(ma)+400:goto2800
  131. 2582 print"du erbst 2000 dm"
  132. 2584 ko(ma)=ko(ma)+2000:goto2800
  133. 2592 print"die jahresrente wird":print"f[219]llig: 2000 dm"
  134. 2594 ko(ma)=ko(ma)+2000:goto2800
  135. 2602 print"bank-irrtum zu deinen":print"gunsten: 4000 dm"
  136. 2604 ko(ma)=ko(ma)+4000:goto2800
  137. 2612 print"strafe f[221]r zu":print"schnelles fahren":print" 300 dm"
  138. 2614 ko(ma)=ko(ma)-300:goto2800
  139. 2622 print"miete und anleihe-":print"zinsen werden f[219]llig"
  140. 2624 print"die bank zahlt dir":print" 3000 dm"
  141. 2626 ko(ma)=ko(ma)+3000:goto2800
  142. 2632 print"mache einen ausflug":print"nach dem s[221]dbahnhof!"
  143. 2634 ifpo(ma)>7thenko(ma)=ko(ma)+4000
  144. 2636 po(ma)=7:goto2130
  145. 2642 print"gehe zur[221]ck nach":print"der badstrasse!"
  146. 2644 po(ma)=2:goto2130
  147. 2652 print"die bank zahlt dir":print"eine dividende"
  148. 2654 print"von 1000 dm":ko(ma)=ko(ma)+1000:goto2800
  149. 2662 print"r[221]cke vor bis zur":print"seestrasse!"
  150. 2664 ifpo(ma)>14thenko(ma)=ko(ma)+4000
  151. 2666 po(ma)=14:goto2130
  152. 2672 print"gehe 3 felder zur[221]ck!"
  153. 2674 ifpo(ma)=3thenpo(ma)=44:goto2130
  154. 2676 po(ma)=po(ma)-3:goto2130
  155. 2682 print"r[221]cke vor bis zur":print"schlossallee !"
  156. 2684 po(ma)=44:goto2130
  157. 2800 rem mieten:
  158. 2810 ifh4(po(ma))=0orgp(po(ma))=mathen3000
  159. 2820 ifh4(po(ma))>10then2840
  160. 2825 print"miete:"h5(po(ma))"dm"
  161. 2830 ko(h4(po(ma)))=ko(h4(po))+h5(po(ma))
  162. 2835 ko(ma)=ko(ma)-h5(po(ma)):goto3000
  163. 2840 ifh3(po(ma))>10then2860
  164. 2845 print"miete:"h4(po(ma))"dm"
  165. 2850 ko(h3(po(ma)))=ko(h3(po(ma)))+h4(po(ma))
  166. 2855 ko(ma)=ko(ma)-h4(po(ma)):goto3000
  167. 2860 ifh2(po(ma))>10then2880
  168. 2865 print"miete:"h3(po(ma))"dm"
  169. 2870 ko(h2(po(ma)))=ko(h2(po(ma)))+h3(po(ma))
  170. 2875 ko(ma)=ko(ma)-h3(po(ma)):goto3000
  171. 2880 ifh1(po(ma))>10then2900
  172. 2885 print"miete:"h2(po(ma))"dm"
  173. 2890 ko(h1(po(ma)))=ko(h1(po(ma)))+h2(po(ma))
  174. 2895 ko(ma)=ko(ma)-h2(po(ma)):goto3000
  175. 2900 ifgm(po(ma))>10then2920
  176. 2905 print"miete:"h1(po(ma))"dm"
  177. 2910 ko(gm(po(ma)))=ko(gm(po(ma)))+h1(po(ma))
  178. 2915 ko(ma)=ko(ma)-h1(po(ma)):goto3000
  179. 2920 ifgp(po(ma))>10then3000
  180. 2925 ifgp(po(ma))=gp(p1(po(ma)))andgp(po(ma))=gp(p2(po(ma)))then2935
  181. 2930 goto2950
  182. 2935 print"miete:"2*gm(po(ma))"dm"
  183. 2940 ko(gp(po(ma)))=ko(gp(po(ma)))+2*gm(po(ma))
  184. 2945 ko(ma)=ko(ma)-2*gm(po(ma)):goto3000
  185. 2950 print"miete:"gm(po(ma))"dm"
  186. 2960 ko(gp(po(ma)))=ko(gp(po(ma)))+gm(po(ma))
  187. 2970 ko(ma)=ko(ma)-gm(po(ma))
  188. 3000 rem bahnhofsmieten:
  189. 3010 ifpo(ma)<>7andpo(ma)<>18andpo(ma)<>29andpo(ma)<>40then3200
  190. 3020 ifgp(po(ma))=maorgp(po(ma))>10then3200
  191. 3030 mi=500:ifgp(h1(po(ma)))=gp(po(ma))thenmi=mi*2
  192. 3040 ifgp(h2(po(ma)))=gp(po(ma))thenmi=mi*2
  193. 3050 ifgp(h3(po(ma)))=gp(po(ma))thenmi=mi*2
  194. 3060 print"hier m[221]ssen sie dem"
  195. 3070 print"besitzer"mi"dm"
  196. 3080 print"miete zahlen !"
  197. 3090 ko(ma)=ko(ma)-mi
  198. 3100 ko(gp(po(ma)))=ko(gp(po(ma)))+mi
  199. 3200 rem werke:
  200. 3210 ifpo(ma)<>15andpo(ma)<>28andpo(ma)<>33then3300
  201. 3220 ifgp(po(ma))>10orgp(po(ma))=mathen3300
  202. 3230 mi=80:ifgp(h1(po(ma)))=gp(po(ma))thenmi=120
  203. 3240 ifgp(h2(po(ma)))=gp(po(ma))thenmi=120
  204. 3250 ifgp(h1(po(ma)))=gp(po(ma))andgp(h2(po(ma)))=gp(po(ma))thenmi=200
  205. 3260 mi=mi*wu:print"sie haben"mi"dm"
  206. 3270 print"miete zu zahlen!"
  207. 3280 ko(ma)=ko(ma)-mi
  208. 3290 ko(gp(po(ma)))=ko(gp(po(ma)))+mi
  209. 3300 rem gehe in das gefaegnis:
  210. 3310 ifpo(ma)<>35then3400
  211. 3320 ge(ma)=1:print"tut mir leid !"
  212. 3330 po(ma)=13:goto2130
  213. 3400 ifpo(ma)<>13then3500
  214. 3410 ifge(ma)<>1thenprint"nur zu besuch!":goto3500
  215. 3420 print"sie sind im gef[219]gnis "
  216. 3430 forn=1to3:w1=int(rnd(1)*6)+1:w2=int(rnd(1)*6)+1
  217. 3435 print""tab(30)wu$(w1)" [145][145]"wu$(w2)
  218. 3440 forn1=1to500:nextn1
  219. 3450 ifw1=w2thenge(ma)=0:gosub8500:goto2100
  220. 3460 nextn:goto3830
  221. 3500 :
  222. 3805 gosub7300:forn=1to1000:nextn
  223. 3820 forp9=2to44:gosub7000:nextp9
  224. 3830 forn=1toms:ifko(n)<0thenko(n)=ko(n)+int(ko(n)/100)
  225. 3840 nextn:gosub8500:ifw1=w2then2100
  226. 3850 forn=1toms:ifko(n)<-40000then5000
  227. 3860 nextn
  228. 3900 nextma:goto2000
  229. 4000 rem computerentscheidungen
  230. 4010 print"kauft der computer ?"
  231. 4015 forn=1to1000:nextn
  232. 4017 p1=gp(p1(po(ma))):p2=gp(p2(po(ma))):p9=gp(po(ma))
  233. 4020 ifko(ma)-p9<500then3830
  234. 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
  235. 4060 goto3830
  236. 4100 rem computer haeuser ?
  237. 4105 print"[156]kauft der computer":print"h[219]user ?"
  238. 4110 ifpo(ma)<13thenmi=3000:goto4150
  239. 4120 ifpo(ma)<23thenmi=6000:goto4150
  240. 4130 ifpo(ma)<35thenmi=9000:goto4150
  241. 4140 mi=12000
  242. 4150 ifko(ma)-5*mi>500andgm(po(ma))>10thena=5:goto2342
  243. 4160 ifko(ma)-4*mi>500andh1(po(ma))>10thena=4:goto2342
  244. 4170 ifko(ma)-3*mi>500andh2(po(ma))>10thena=3:goto2342
  245. 4180 ifko(ma)-2*mi>500andh3(po(ma))>10thena=2:goto2342
  246. 4190 ifko(ma)-1*mi>500andh4(po(ma))>10thena=1:goto2342
  247. 4195 a=0:print"er kauft nicht!":goto2342
  248. 5000 rem ende des spiels:
  249. 5005 pokev+21,0
  250. 5010 print"[147][153]das ende des spiels ist erreicht!"
  251. 5020 print"es wird jetzt das gesamtkapital aller"
  252. 5030 print"ausgegeben.der spieler mit dem meisten"
  253. 5040 print"kapital ist der gewinner."
  254. 5070 forn=1toms:print"[150]spieler"n":[156]"ko(n)"+"ka(n)"="ko(n)+ka(n)"dm":nextn
  255. 5080 print"herzlichen gl[221]ckwunsch !      (taste)";
  256. 5090 forn=1to10:geta$:nextn
  257. 5100 geta$:ifa$=""then5100
  258. 5110 print"[147]neues spiel (j/n) ?"
  259. 5120 geta$:ifa$<>""then5120
  260. 5130 forn=1to10:geta$:nextn
  261. 5140 geta$:ifa$=""then5140
  262. 5150 ifa$="j"thenrun
  263. 5160 print"ende":end
  264. 7000 rem unterprogramm haeuser:
  265. 7010 mi=bi+int(sx(p9)/8-2)+40*int(sy(p9)/8-5)
  266. 7020 h1=mi-40:h2=mi-39:h3=mi:h4=mi+1
  267. 7030 ifp9<13thengp=mi+40:goto7100
  268. 7040 ifp9<23thengp=mi-1:goto7100
  269. 7045 ifgp<35thengp=mi-80:goto7100
  270. 7050 h5=mi-40:gp=mi+2
  271. 7100 ifgp(p9)>10orgp(p9)<1thenreturn
  272. 7110 pokegp,gp(p9)+176
  273. 7120 ifgm(p9)>10orh5(p9)=0thenreturn
  274. 7125 ifh4(p9)<10thenpokeh1,163:pokeh2,163:pokeh3,164:pokeh4,164:return
  275. 7130 ifh3(p9)<10thenpokeh1,128:pokeh2,128:pokeh3,128:pokeh4,128:return
  276. 7140 ifh2(p9)<10thenpokeh1,128:pokeh2,128:pokeh3,128:return
  277. 7150 ifh1(p9)<10thenpokeh1,128:pokeh2,128:return
  278. 7160 ifgm(p9)<10thenpokeh1,128:return
  279. 7170 return
  280. 7300 rem anzeige konto:
  281. 7310 print""tab(28)"sp. dm":printtab(28)"---------"
  282. 7320 forn=1toms:ifn=mathenprint"";
  283. 7330 printtab(28)n"[157]"ko(n)"[157] ":ifn=mathenprint"";
  284. 7340 nextn:return
  285. 8000 rem def. sprite position
  286. 8005 nx=28:ny=57
  287. 8010 forn=23to13step-1:sy(n)=ny:sx(n)=nx:ny=ny+16:next
  288. 8020 ny=ny-16:nx=nx+16:forn=12to1step-1:sy(n)=ny:sx(n)=nx:nx=nx+16:next
  289. 8030 nx=44:ny=57:forn=24to35:sy(n)=ny:sx(n)=nx:nx=nx+16:next
  290. 8040 nx=nx-16:ny=ny+16:forn=36to44:sy(n)=ny:sx(n)=nx:ny=ny+16:next:return
  291. 8100 rem aussehen wuerfeln:
  292. 8110 wu$(1)="[154]   [157][157][157] t [157][157][157]   [146]"
  293. 8120 wu$(2)="[153]  t[157][157][157]   [157][157][157]t  [146]"
  294. 8130 wu$(3)="[150]  t[157][157][157] t [157][157][157]t  [146]"
  295. 8140 wu$(4)="[129]t t[157][157][157]   [157][157][157]t t[146]"
  296. 8150 wu$(5)="[152]t t[157][157][157] t [157][157][157]t t[146]"
  297. 8160 wu$(6)="[156]t t[157][157][157]t t[157][157][157]t t[146]"
  298. 8180 za$=""
  299. 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]"
  300. 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]"
  301. 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]"
  302. 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] "
  303. 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]"
  304. 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]"
  305. 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]  "
  306. 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]"
  307. 8270 return
  308. 8500 rem bildschirm loeschen
  309. 8520 print"";:forn=0to16:print"                      ":next
  310. 8530 return
  311. 8700 rem wer ist der computer?
  312. 8710 print"sollen folgende spieler durch den"
  313. 8720 print"computer ersetzt werden ? (j/n)"
  314. 8730 forn=1toms:print"spieler "n;
  315. 8740 forn1=1to10:geta$:nextn1
  316. 8750 geta$:ifa$=""then8750
  317. 8760 ifa$="j"thencp(n)=1:print"ja"
  318. 8770 ifa$<>"j"thencp(n)=0:print"nein"
  319. 8780 nextn:return
  320. 9000 rem unterprogramm
  321. 9001 rem bildschirmaufbau
  322. 9020 print"[147][158]zzz '[158]   ' '[152]  [158]  [152]  [155] ' '[152]  [155] '[158]   "
  323. 9030 print"z[154]y[158]  '[158]uv ' '[152]ef[158][\[152]jk[155] ' '[152]ab[155] '[158] _ "
  324. 9040 print"z   '[158]wx ' '[152]gh[158]]^[152]lm[155] ' '[152]cd[155] '[158]   "
  325. 9050 print"[149]---"tab(25)"---"
  326. 9060 print"[149]   "tab(25)"   "
  327. 9070 print"[149]---"tab(25)"---"
  328. 9080 print"[149]   "tab(25)"   "
  329. 9090 print"[158] uv"tab(25)"[158]uv "
  330. 9100 print"[158] wx"tab(25)"[158]wx "
  331. 9110 print"[149]---"tab(25)"---"
  332. 9120 print"[149]   "tab(25)"   "
  333. 9130 print"[158] [\"tab(25)"[158][\ "
  334. 9140 print"[158] ]^"tab(25)"[158]]^ "
  335. 9150 print"[156]---"tab(25)"---"
  336. 9160 print"[156]   "tab(25)"   "
  337. 9170 print"[156]---"tab(25)"---"
  338. 9180 print"[156]   "tab(25)"   "
  339. 9190 print"[152]-%-"tab(25)"[158]uv "
  340. 9200 print"[152] & "tab(25)"[158]wx "
  341. 9210 print"[156]---"tab(25)"---"
  342. 9220 print"[156]   "tab(25)"   "
  343. 9230 print"[158] [129]ii[154] ' '[158]uv[154] '[152]jk[158][\[152]jk[150] ' '[158]uv[150] '[158]   "
  344. 9240 print"[158] [129]ii[154] ' '[158]wx[154] '[152]lm[158]]^[152]lm[150] ' '[158]wx[150] '[158]qrs"
  345. 9250 print"[158]  '[154] ' '[158]  [154] '[152]  [158]  [152]  [150] ' '[158]  [150] '[158]nop";
  346. 9390 return
  347. 9400 rem datas:
  348. 9410 rem sprite 1
  349. 9420 data0,60,0,0,235,0,3,170,192,3,170,192,0,235,0,0
  350. 9430 data60,0,0,60,0,0,235,0,0,235,0,0,235,0,3,170
  351. 9440 data192,3,170,192,3,170,192,14,170,176,14,170,176,14,170,176
  352. 9450 data15,255,240,15,255,240,0,0,0,0,0,0,0,0,0
  353. 9700 forn=0to62:readq:poke33600+n,q:next
  354. 9710 poke56334,peek(56334)and254
  355. 9720 poke1,peek(1)and251
  356. 9730 fori=53248to53760:pokei-18432,peek(i):next
  357. 9740 poke1,peek(1)or4
  358. 9750 poke56334,peek(56334)or1
  359. 9760 poke53272,peek(53272)and241or2
  360. 9770 poke56576,peek(56576)and252or1
  361. 9780 poke648,132:print"[147]";
  362. 9820 rem besitzrechte
  363. 9825 data0,0,0,0,0,0,0,0,0
  364. 9830 data1200,40,200,600,1800,3200,5000,4,5
  365. 9832 data0,0,0,0,0,0,0,0,0
  366. 9835 data1200,80,400,1200,3600,6400,9000,2,5
  367. 9840 data1600,100,500,1600,4500,7200,10000,2,4
  368. 9842 data0,0,0,0,0,0,0,0,0
  369. 9843 data4000,0,18,29,40,0,0,0,0
  370. 9844 data0,0,0,0,0,0,0,0,0
  371. 9845 data2000,120,600,1800,5400,8000,11000,11,12
  372. 9847 data0,0,0,0,0,0,0,0,0
  373. 9850 data2000,120,600,1800,5400,8000,11000,9,12
  374. 9855 data2400,160,800,2000,6000,9000,12000,9,11
  375. 9857 data0,0,0,0,0,0,0,0,0
  376. 9860 data2800,200,1000,3000,9000,12500,15000,16,17
  377. 9862 data3000,0,28,33,0,0,0,0,0
  378. 9865 data2800,200,1000,3000,9000,12500,15000,14,17
  379. 9870 data3200,240,1200,3600,10000,14000,16000,14,16
  380. 9872 data4000,0,7,29,40,0,0,0,0
  381. 9875 data3600,280,1400,4000,11000,15000,19000,21,22
  382. 9877 data0,0,0,0,0,0,0,0,0
  383. 9880 data3600,280,1400,4000,11000,15000,19000,19,22
  384. 9885 data4000,320,1600,4400,12000,16000,20000,19,21
  385. 9887 data0,0,0,0,0,0,0,0,0
  386. 9890 data4400,360,1800,5000,14000,17500,21000,26,27
  387. 9892 data0,0,0,0,0,0,0,0,0
  388. 9895 data4400,360,1800,5000,14000,17500,21000,24,27
  389. 9900 data4800,400,2000,6000,15000,18500,22000,24,26
  390. 9902 data3000,0,15,33,0,0,0,0,0
  391. 9903 data4000,0,7,18,40,0,0,0,0
  392. 9904 data0,0,0,0,0,0,0,0,0
  393. 9905 data5200,440,2200,6600,16000,19500,23000,32,34
  394. 9910 data5200,440,2200,6600,16000,19500,23000,31,34
  395. 9912 data3000,0,15,28,0,0,0,0,0
  396. 9915 data5600,580,2400,7200,17000,20500,24000,31,32
  397. 9917 data0,0,0,0,0,0,0,0,0
  398. 9920 data6000,520,2600,7800,18000,22000,25500,37,39
  399. 9925 data6000,520,2600,7800,18000,22000,25500,36,39
  400. 9927 data0,0,0,0,0,0,0,0,0
  401. 9930 data6400,560,3000,9000,20000,24000,28000,36,37
  402. 9932 data4000,0,7,18,29,0,0,0,0
  403. 9935 data7000,750,3500,10500,24000,29000,35000,42,44
  404. 9940 data7000,750,3500,10500,24000,29000,35000,41,44
  405. 9942 data0,0,0,0,0,0,0,0,0
  406. 9945 data8000,1000,4000,12000,28000,34000,40000,41,42
  407. 9950 forn=1to44:readgp(n),gm(n),h1(n),h2(n),h3(n),h4(n),h5(n),p1(n),p2(n):next
  408. 9955 forn=1to44:readna$(n):next:return
  409. 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]"
  410. 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]"
  411. 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]"
  412. 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]"
  413. 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]"
  414. 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]"
  415. 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]"
  416. 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]"
  417. 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]"
  418. 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]"
  419. 9985 data"[197][210][197][201][199][206][201][211]","[211][195][200][204][207][211][211][193][204][204][197][197]"
  420. 10010 data16,56,124,254,116,84,116,116
  421. 10020 data0,15,1,129,193,255,255,255
  422. 10030 data0,224,0,0,0,192,224,240
  423. 10032 data192,128,0,0,0,0,0,0
  424. 10034 data240,112,112,248,0,0,0,0
  425. 10040 data24,24,24,24,24,24,24,24
  426. 10050 data0,0,0,0,0,0,0,0
  427. 10060 data24,25,59,63,63,56,56,63
  428. 10070 data0,16,48,112,240,140,140,252
  429. 10080 data17,162,68,168,17,42,68,138
  430. 10090 data0,1,2,4,2,1,2,4
  431. 10100 data0,192,0,0,128,64,32
  432. 10110 data16,2,1,0,0,4,3,0
  433. 10120 data0,32,64,128,64,32,64,128,0
  434. 10130 data0,1,6,31,6,1,0,0
  435. 10140 data128,0,1,255,1,0,128,0
  436. 10150 data0,168,80,224,80,168,0,0
  437. 10160 data1,1,1,1,1,0,0,0
  438. 10170 data24,37,36,36,153,0,0,0
  439. 10180 data192,0,128,64,128,0,0,0
  440. 10190 data0,0,24,60,60,24,0,0
  441. 10200 data0,3,4,19,0,3,4,11
  442. 10210 data0,192,32,208,80,144,96,128
  443. 10220 data10,5,2,1,0,1,2,1
  444. 10230 data0,208,32,192,0,192,32,192
  445. 10240 data0,0,56,36,56,32,32,0
  446. 10250 data128,64,32,16,8,4,0,0
  447. 10260 data12,30,12,12,63,61,55,63
  448. 10270 data0,31,22,22,254,94,254,252
  449. 10280 data36,110,223,31,14,0,0,0
  450. 10290 data16,56,124,124,56,0,0,0
  451. 10300 data1,2,4,8,80,96,112,0
  452. 10310 data0,0,0,0,0,0,0,0
  453. 10320 data0,0,0,0,0,0,0,255
  454. 10330 data128,128,128,128,128,128,128,128
  455. 10340 data16,16,40,40,68,84,130,170
  456. 10350 data130,170,130,170,130,178,178,178
  457. 10360 data60,66,129,165,153,153,90,60
  458. 10370 data52,44,52,44,24,0,0,0
  459. 10380 data1,1,1,1,1,1,1,1
  460. 10390 data255,0,0,0,0,0,0,0
  461. 10400 data0,0,24,36,36,36,24,0
  462. 10410 data0,0,8,24,8,8,8,0
  463. 10420 data0,0,24,36,8,16,60,0
  464. 10430 data0,0,24,4,8,4,24,0
  465. 10440 data0,0,8,24,40,60,8,0
  466. 10450 data0,0,60,32,56,4,56,0
  467. 10460 data0,0,24,32,56,36,24,0
  468. 10470 data0,0,60,4,8,16,16,0
  469. 10480 data0,0,24,36,24,36,24,0
  470. 10490 data0,0,24,36,28,4,24,0
  471. 10500 rem zeichen laden:
  472. 10510 forn=35840to36159:readq:poken,255-q:nextn
  473. 10515 forn=36200to36207:readq:poken,255-q:nextn
  474. 10520 forn=36224to36303:readq:poken,255-q:nextn
  475. 10530 forn=35336to35631:readq:poken,q:nextn
  476. 10590 return
  477. 10600 data28,99,99,127,99,115,115,115
  478. 10610 data124,99,99,124,99,115,115,126
  479. 10620 data60,99,96,96,96,112,115,60
  480. 10630 data124,102,99,99,99,115,118,124
  481. 10640 data127,96,96,126,96,112,112,127
  482. 10650 data127,24,24,126,24,28,28,28
  483. 10660 data62,99,96,96,103,115,115,62
  484. 10670 data99,99,99,127,99,115,115,115
  485. 10680 data126,24,24,24,24,28,28,126
  486. 10690 data6,6,6,6,6,6,102,60
  487. 10700 data102,108,120,112,120,108,118,115
  488. 10710 data96,96,96,96,96,112,112,127
  489. 10720 data99,119,127,107,107,115,115,115
  490. 10730 data115,115,123,123,111,111,119,119
  491. 10740 data62,99,99,99,99,115,115,62
  492. 10750 data126,99,99,126,96,112,112,112
  493. 10760 data62,99,99,99,123,111,103,62
  494. 10770 data126,99,99,126,120,108,118,115
  495. 10780 data62,99,96,62,3,3,99,62
  496. 10790 data126,24,24,24,24,28,28,28
  497. 10800 data99,99,99,99,99,115,115,62
  498. 10810 data99,99,99,54,54,54,28,28
  499. 10820 data99,99,99,107,107,127,54,54
  500. 10830 data99,99,54,28,28,54,99,99
  501. 10840 data99,99,54,28,12,24,24,112
  502. 10850 data127,3,6,12,24,48,112,127
  503. 10860 data99,8,127,99,99,127,99,115
  504. 10870 data99,0,62,99,99,115,115,62
  505. 10880 data99,0,99,99,99,115,115,62
  506. 10890 data0,0,0,30,48,48,96,0
  507. 10900 data0,0,0,12,30,51,225,192
  508. 10910 data0,0,0,0,0,0,0,0
  509. 10920 data255,255,255,255,255,255,255,255
  510. 10930 data1,3,7,15,31,63,127,255
  511. 10940 data255,254,252,248,240,224,192,128
  512. 10950 data128,192,224,240,248,252,254,255
  513. 10960 data255,127,63,31,15,7,3,1
  514. 10970 rem spielerklaerung:
  515. 11000 print"[147][158]                                        ";
  516. 11010 print" [\              # ## #              [\ ";
  517. 11020 print" ]^  @ @ @ @ @   $ $$ $   @ @ @ @ @  ]^ ";
  518. 11030 print"                                        "
  519. 11040 printtab(13)"[155]m o n o p o l y"
  520. 11050 print"jeder spieler hat 20000 dm startkapital"
  521. 11060 print"mit diesem geld kann er grundst[221]cke und "
  522. 11070 print"h[219]user kaufen. wenn ein gegner auf die "
  523. 11080 print"grundst[221]cke ger[219]t,muss er miete zahlen  "
  524. 11090 print"wenn jemand mehr als 39999 dm schulden"
  525. 11100 print"hat, ist das spiel beendet. zus[219]tzlich "
  526. 11120 print"gibt es noch einige spezialfelder,deren"
  527. 11130 print"funktion jedoch angezeigt wird."
  528. 11140 printtab(32)"taste[155]";
  529. 11150 forn=1to10:geta$:nextn
  530. 11160 geta$:ifa$=""then11160
  531. 11170 print"[147] s p i e l a b l a u f :"
  532. 11180 print"1. jeder spieler kann durch den computer"
  533. 11190 print"   ersetzt werden."
  534. 11200 print"2. jedem mitspieler wird eine kennzahl"
  535. 11210 print"   zugewiesen.diese zahl wird in der"
  536. 11220 print"   rechten oberen ecke angezeigt."
  537. 11230 print"3. jeder spieler erh[219]lt eine spielfigur "
  538. 11260 print"4. damit sich der spieler besser auf"
  539. 11270 print"   seine taktik und pl[219]ne konzentrieren "
  540. 11280 print"   kann,wird ihm der computer viele"
  541. 11290 print"   handlungen abnehmen !"
  542. 11300 forn=1to10:geta$:nextn
  543. 11310 geta$:ifa$=""then11310
  544. 11320 print"[155][147][219] n d e r u n g e n :  "
  545. 11330 print"1. es sind einige strassen hinzugef[221]gt "
  546. 11340 print"   worden."
  547. 11350 print"2. wenn man ins gef[219]ngnis geht,hat man "
  548. 11360 print"   gleich die m[220]glichkeit,es wieder zu"
  549. 11370 print"   verlassen."
  550. 11380 print"3. die 22 ereigniskarten werden nicht"
  551. 11390 print"   vom stapel genommen."
  552. 11400 print"4. es gibt keine gemeinschaftsfelder !"
  553. 11410 print"5. man kann bis -39999 dm schulden"
  554. 11420 print"   machen.man kann jedoch nichts"
  555. 11430 print"   kaufen und muss zinsen zahlen !"
  556. 11500 printtab(32)"taste[155]";
  557. 11880 forn=1to10:geta$:nextn
  558. 11890 geta$:ifa$=""then11890
  559. 11900 return
  560.