home *** CD-ROM | disk | FTP | other *** search
/ Highscore 4 / Highscore_4_19xx_-.d64 / antimonopoly.64 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  25KB  |  692 lines

  1. 100 rem antimonopoly by knight - soft
  2. 110 print"[147]":poke53280,0:poke53281,0:poke832,0:clr:gosub1670
  3. 120 pg$=" schwarz, hl. blau, lila, orange,       rot, weiss, gruen, dk. blau"
  4. 130 dimpn$(42),d(42,1),ch$(16),cc$(16),p(42,9),pt$(42),c$(42),ps(42),h(42),mg(42)
  5. 140 dim p$(2),pl(2),o(2),jt(2),m(2),cj(2):gosub300:q$="n"
  6. 150 goto160
  7. 160 input"willst du jackpot auf'frei parken'";q$:ifleft$(q$,1)="y"thenpf=1:fp=500
  8. 170 m(1)=30000:m(2)=30000:pl(1)=1:pl(2)=1:dv=2
  9. 180 cd$="":cr$=""
  10. 190 zq=rnd(-ti):x1=8:y1=10:x2=23:y2=10:rx=6:ry=18:tn=832:tt=886
  11. 200 e$="                  [146]":rm$="druecke 'r'oder't'[146]"
  12. 210 print"[147][159]bitte geduld  (c)knight - soft  "
  13. 220 fori=1to4:p(6+((i-1)*10),8)=100:next:p(13,8)=75:p(29,8)=75
  14. 230 ch=int(rnd(1)*16)+1:cc=int(rnd(1)*16)+1
  15. 240 fori=1to41:forj=0to1:readd(i,j):next:next
  16. 250 p$(1)="  spieler 1[146]":p$(2)="  spieler 2[146]"
  17. 260 fori=1to41:gosub7000:next:fori=1to41:readpt$(i):ifpt$(i)<>"p"then280
  18. 270 readc$(i):forj=1to9:readp(i,j):nextj
  19. 280 nexti
  20. 290 fori=1to16:readch$(i):next:fori=1to16:readcc$(i):next:goto370
  21. 300 print"  knight - soft computerclub "
  22. 310 print"  presens antimonopoly "
  23. 320 print"  written by erwin disser "
  24. 330 print" (c) copyright only by knight - soft and somme frands"
  25. 340 print"druecke 'r' zum wuerfeln und 't' zum    abfragen der geschaefte"
  26. 350 print"mit '0' kommst du zum unterprogramm     zurueck"
  27. 360 print:print"versuche dein eigentum zu verschleudern":print:return
  28. 370 poke54277,79:poke54284,79:poke54291,79
  29. 380 poke54278,248:poke54286,248:poke54292,248
  30. 390 poke54276,33:poke54288,33:poke54290,33
  31. 400 g(1)=54272:g(2)=54273:g(3)=54279:g(4)=54280:g(5)=54286:g(6)=54287
  32. 410 fori=1to6:pokeg(i),0:next
  33. 420 poke54296,15:ifpeek(832)<>160thengosub6560
  34. 430 gosub1400:forpk=1to2:poked(1,pk-1),48+pk:o(pk)=d(1,pk-1):pt=pk:next:gosub6650
  35. 440 gosub1700:ifr1=r2then440
  36. 450 pt=(r1>r2)+2
  37. 460 poked(pl(1),0),49:poked(pl(2),1),50
  38. 470 pt$=str$(pt)
  39. 480 ms$="spieler"+pt$+" start [146]"
  40. 490 x=rx:y=ry:z$=ms$:gosub1650:forde=1to1500:next:z$=e$:gosub1650:goto700
  41. 500 dv=2:mf=0:jb=0
  42. 510 ifpl(pt)=41then610
  43. 520 jt(pt)=0
  44. 530 gosub1700:df=1
  45. 540 ifdb=3thensystn:gosub3300:systt:gosub6650:goto640
  46. 550 form=1todr:pl(pt)=pl(pt)+1
  47. 560 pokeo(pt),160:ifpl(pt)>40thenpl(pt)=pl(pt)-40:systn:gosub1800:systt
  48. 570 poked(pl(pt),pt-1),48+pt
  49. 580 o(pt)=d(pl(pt),pt-1)
  50. 590 fort=1to50step6+pt:fori=1to6:pokeg(i),t:next:next:next
  51. 600 fori=1to6:pokeg(i),0:next
  52. 610 poked(pl(pt),pt-1),48+pt:gosub6650
  53. 620 systn:gosub1870:systt:gosub6650:ifm(pt)<0thengosub6390:systt
  54. 630 ifpl(pt)=11thenpoked(41,pt-1),160:poked(11,pt-1),48+pt
  55. 640 ifjbthenjb=0:pokeo(pt),160:o(pt)=d(pl(pt),pt-1):goto550
  56. 650 ifmfthenmf=0:pokeo(pt),160:o(pt)=d(pl(pt),pt-1):goto610
  57. 660 ifjethenje=0:pokeo(pt),160:o(pt)=d(pl(pt),pt-1):goto700
  58. 670 ifjfthenjf=0:poked(pl(pt),pt-1),48+pt:pokeo(pt),160:o(pt)=d(pl(pt),pt-1)
  59. 680 ifdbthen700
  60. 690 pt=3-pt
  61. 700 z$=p$(pt):x=rx:y=ry-1:gosub1650
  62. 710 z$=rm$:x=rx:y=ry:gosub1650
  63. 720 getbc$:ifbc$<>""then720
  64. 730 geta$:ifa$=""then730
  65. 740 ifa$="t"thensystn:gosub4280:systt:gosub6650:goto700
  66. 750 z$=e$:x=rx:y=ry:gosub1650
  67. 760 goto500
  68. 770 data1978,1938,1974,1973,1931,1930,1968,1967,1925,1924,1922,1921
  69. 780 data1959,1958,1956,1955,1953,1952,1950,1949,1944,1904
  70. 790 data1824,1825,1744,1745,1664,1665,1584,1585,1505,1506,1424,1425
  71. 800 data1346,1347,1264,1265,1184,1185,1104,1105
  72. 810 data1029,1030,1032,1033,1035,1036,1038,1039,1081,1082,1044,1045
  73. 820 data1047,1048,1130,1131,1053,1054,1096,1097
  74. 830 data1217,1218,1297,1298,1377,1378,1457,1458,1536,1537,1617,1618
  75. 840 data1697,1698,1777,1778,1857,1858,1906,1907
  76. 850 data"start[155]","[155]steinheimer str.[155]","[158]gemeideplatz[155]","[155]rosengasse[155]"
  77. 860 data"[154]amtsgericht[155]"
  78. 870 data"[152]sued-bahnhof [155]","[159]einhard-str.[155]","[150]chance[155]","[159]ellenseestrasse[155]"
  79. 880 data"[159]schulgasse[155]"
  80. 890 data"[150]badestrasse[155]","[156]see strasse[155]","[153]rwe[155]","[156]uferstrasse[155]"
  81. 900 data"[156]new line street[155]","[152]west-bahnhof [155]","[129]computer street[155]"
  82. 910 data"[158]gemeindeplatz[155]"
  83. 920 data"[129]lindenstrasse [155]","[129]frankenstr.[155]","[149]the casino [155]","fress - gass[155]"
  84. 930 data"[150]chance[155]","museumstrasse[155]","kinoplatz [155]","[152]nord-bahnhof [155]"
  85. 940 data"[158]frankfurterstr.[155]"
  86. 950 data"[158]schillerstr.[155]","[153]wasserturm[155]","[158]von stein str.[155]","[150]go[155] [154]to[155] knast[155]"
  87. 960 data"rathaus str.[155]"
  88. 970 data"hauptstrasse [155]","[158]gemeindeplatz[155]","bahnhofstr.[155]"
  89. 980 data"[152]haupt-bahnhof[155]"
  90. 990 data"[150]chance[155]","city street[155]","[154]luxussteuer[155]","quallenallee[155]","[150]gefaengnis
  91. 1000 [131]go,p,schwarz,60,2,10,30,90,160,250,30,50,cc,p,schwarz,60,4,20,60,180,320
  92. 1010 [131]450,30,50,it,rr,p,hl. blau,100,6,30,90,270,400,550,50,50,ch,p,hl. blau
  93. 1020 [131] 100,6,30,90,270,400,550,50,50,p,hl. blau,120,8,40,100,300,450,600,60,5
  94. 1030 [131]jv,p,lila,140,10,50,150,450,625,750,70,100,u,p,lila,140,10,50,150,450
  95. 1040 [131]625,750,70,100,p,lila,160,12,60,180,500,700,900,80,100,rr
  96. 1050 [131]p,orange,180,14,70,200,550,750,950,90,100,cc,p,orange
  97. 1060 [131] 180,14,70,200,550,750,950,90,100
  98. 1070 [131]p,orange,200,16,80,220,600,800,1000,100,100,fp,p,rot
  99. 1080 [131] 220,18,90,250,700,875
  100. 1090 [131]1050,110,150,ch,p,rot,220,18,90,250,700,875,1050,110,150,p,rot,240
  101. 1100 [131] 20,100,300
  102. 1110 [131]750,925,1100,120,150,rr,p,weiss,260,22,110,330,800,975,1150,130,150
  103. 1120 [131] p,weiss,260
  104. 1130 [131]22,110,330,800,975,1150,130,150,u,p,weiss,280,24,120,360,850,1025,1200
  105. 1140 [131] 140
  106. 1150 [131]150,gtj,p,gruen,300,26,130,390,900,1100,1275,150,200,p,gruen
  107. 1160 [131] 300,26,130,390,900
  108. 1170 [131]1100,1275,150,200,cc,p,gruen,320,28,150,450,1000,1200,1400
  109. 1180 [131] 160,200,rr,ch
  110. 1190 [131]p,dk. blau,350,35,175,500,1100,1300,1500,175,200,lt,p,dk. blau
  111. 1200 [131] 400,50,200,600,1400
  112. 1210 [131]1700,2000,200,200,ij
  113. 1220 [131] zahle armensteuer $15,geh in's gefaengnis,ruecke nach go(kassiere $200)
  114. 1230 [131] du bekommst zinsen                        kassiere $150
  115. 1240 [131] ruecke vor zum naechsten bahnhof        zahle 2 x miete
  116. 1250 [131]ruecke zur frressgasse, bank zahlt dir eine dividende von $50
  117. 1260 [131]geh aus dem knast,zahle jedem spieler $50,ruecke vor zur ???.strasse
  118. 1270 [131]ruecke vor bis sued-bahnhof,gehe 3 felder zurueck,ruecke zur quallenall
  119. 1280 [131]du renovierst zahle $25 fuer jedes haus           $100 fuer jedes hotel
  120. 1290 [131] ruecke zum naechsten bahnhof            zahle 2 x miete
  121. 1300 [131] ruecke zum naechsten stadtwerk          wuerfle & zahle 10 * wuerfelwert
  122. 1310 [131] geh aus dem knast,geh in den knast,ruecke nach go und kassiere $200
  123. 1320 [131] vom verkauf erhaelst du $45,kassiere $50 von jedem spieler
  124. 1330 [131] erhalte fuer leistung $25,zahle schulsteuer $150,steuerrueckzahlung $20
  125. 1340 [131] preis fuer reparatur $40 pro haus                       $115 pro hotel
  126. 1350 [131] du hast im preisausschreiben gewonnen   du bekommst $10
  127. 1360 [131] du erbst $100,du bekommst weihnachtsgeld $100,zahle an's hospital $100
  128. 1370 [131] bankfehler zu deinem gunsten du bekommst $200,honorar fuer doktor $50
  129. 1380 [131] lebensversicherung faellig zahle $100
  130. 1390 [137]6550
  131. 1400 [153]"loadverify   closelistfncloseclosefncloseclosefncloseclosefnclose+print#sinsinsinlistfncloseclosefn  fnprintwtlistfncloseclosedeffnk. wait"
  132. 1410 [153]"verifyclosec.closelistfncloseclosefndef?listclosefncloseclosefnclose+print# closecloselistfncloseclosefnclose fnprintor>listsgncloseclosecontfn   wait"
  133. 1420 [153]"verify   closesgn  listfncloseclose closeclosefn +print#nbhsysfn  fnclosecloselistfncloseclosesyssgncloseclosefnval(NULL) listwait"
  134. 1430 [153]"usrusrusrforusrlist(NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)usrlistusrusrusrwait"
  135. 1440 [153]"   for listfn  (NULL)(NULL)                     + listclose  wait"
  136. 1450 [153]"tab(tab(tab(fortab(listfn sys   list(NULL) 1-                 +tab(listtab(tab(tab(wait"
  137. 1460 [153]"   for listfn(NULL)sysgp list(NULL)                    +tolisttototowait"
  138. 1470 [153]"tab(tab(tab(tab(fn(NULL)sys   list  2-                 +    wait"
  139. 1480 [153]"sysgplist  fn (NULL)(NULL)                      +sysgplist  wait"
  140. 1490 [153]"tab(tab(tab(fortab(listfn   tototo            tototo    thentab(listtab(tab(tab(wait"
  141. 1500 [153]"tototofortolistfn  then   listfn          then   listfn   +tolisttototowait"
  142. 1510 [153]"print#sinwbhlistfn  then   listfn  knight list then   listfn   thenprint#sinhbhwait"
  143. 1520 [153]"sin  sinlistfn  then   listfn   soft list  then   listfn   thenprint#sin  sinlistwait"
  144. 1530 [153]"tab(tab(tab(clrtab(listfn   tab(tab(tab(            tab(tab(tab(    +tab(tab(tab(tab(wait"
  145. 1540 [153]"   clr listfn                         + def?list  wait"
  146. 1550 [153]"tab(tab(tab(clrtab(listfn                      (NULL)(NULL) +tab(listtab(tab(tab(wait"
  147. 1560 [153]"tototoclrtolistfn                     def   list(NULL)+tolisttototowait"
  148. 1570 [153]" printrwelistfn                    (NULL)def???list(NULL)+contag.list wait"
  149. 1580 [153]"    fn                    (NULL)def   list +    wait"
  150. 1590 [153]"tab(tab(tab(clrtab(listfn                     (NULL)(NULL)  +tab(listtab(tab(tab(wait"
  151. 1600 [153]"andandandclrandlist(NULL)andandandandandandandandandandandandandandandandandandandandandandandandandsqrandlistandandandwait"
  152. 1610 [153]"def listsgn  opensgn  fn  listsgn  opensgn  print#sbhlistsgn  wait   sgn  wait   sgn   wait"
  153. 1620 [153]"def listfn  fn  fn  fndef?listclosefnclosecloseprint#fnclosecloselistfncloseclosefncloseclosefn  fn  go  wait"
  154. 1630 [153]"def tab(tab(tab(listfn  fn  fn  fn  print#sinsinsincontag.listfn  fnsysgplistfn  fn_tan wait"
  155. 1640 [142]
  156. 1650 [153]"list";[200](cr$,x);[200](cd$,y);z$;""
  157. 1660 [142]
  158. 1670 dc$(1)[178]"   cmdcmdcmd (NULL) cmdcmdcmd   wait":dc$(2)[178]"  (NULL)cmdcmdcmd   cmdcmdcmd(NULL)  wait"
  159. 1680 dc$(3)[178]"(NULL)  cmdcmdcmd (NULL) cmdcmdcmd  (NULL)wait":dc$(4)[178]"(NULL) (NULL)cmdcmdcmd   cmdcmdcmd(NULL) (NULL)wait"
  160. 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]
  161. 1700 ct[178]0
  162. 1710 r1[178][181]([187](1)[172]6)[170]1:r2[178][181]([187](1)[172]6)[170]1:dr[178]r1[170]r2
  163. 1720 [129]i[178]1[164]6:[151]g(i),dr[172]10:[130]
  164. 1730 [153]"";[200](cr$,x1);[200](cd$,y1);dc$(r1)
  165. 1740 [153]"";[200](cr$,x2);[200](cd$,y2);dc$(r2)
  166. 1750 [129]i[178]1[164]6:[151]g(i),0:[130]
  167. 1760 ct[178]ct[170]1:[139]ct[179]7[167]1710
  168. 1770 [139]r1[178]r2[167]db[178]db[170]1:[137]1790
  169. 1780 db[178]0
  170. 1790 [142]
  171. 1800 [153]"load":[153]
  172. 1810 [153]" du gewinnst die kohle !!! *new*rndcmdcmdcmdcmdcmdlogcoslogcoswait"
  173. 1820 m(pt)[178]m(pt)[170]200:[153]:[153]:[153]:[129]i[178]1[164]6:[151]g(i),0:[130]
  174. 1830 [153]" druecke eine taste wait"
  175. 1840 [161]w$:[139]w$[179][177]""[167]1840
  176. 1850 [161]k$:[139]k$[178]""[167]1850
  177. 1860 [142]
  178. 1870 [151]198,0:pt$[178]pt$(pl(pt))
  179. 1880 [139]pt$[178]"p"[167]2000
  180. 1890 [139]pt$[178]"rr"[167]2490
  181. 1900 [139]pt$[178]"go"[167][142]
  182. 1910 [139]pt$[178]"u"[167]2850
  183. 1920 [139]pt$[178]"fp"[167]3160
  184. 1930 [139]pt$[178]"jv"[167][142]
  185. 1940 [139]pt$[178]"gtj"[167]3300
  186. 1950 [139]pt$[178]"it"[167]3410
  187. 1960 [139]pt$[178]"lt"[167]3390
  188. 1970 [139]pt$[178]"cc"[167]3430
  189. 1980 [139]pt$[178]"ch"[167]3670
  190. 1990 [139]pt$[178]"ij"[167]4080
  191. 2000 [153]"load";[163]15);"grundstueck"
  192. 2010 [139]gf[167]2050
  193. 2020 [153]" spieler"pt
  194. 2030 po[178]3[171]pt
  195. 2040 pl[178]pl(pt):p7[178]pt
  196. 2050 [153][163]20[171]([195](pn$(pl))[171]1)[173]2)"";pn$(pl)"wait"
  197. 2060 [153][200](pn$(pl),1):qr[178][194](646):[151]53280,qr:[153]"onon"
  198. 2070 [153]
  199. 2080 [153]"               miete     $";p(pl,2)
  200. 2090 [153]"         mit 1 haus      $";p(pl,3)
  201. 2100 [153]"         mit 2 haeusern  $";p(pl,4)
  202. 2110 [153]"         mit 3 haeusern  $";p(pl,5)
  203. 2120 [153]"         mit 4 haeusern  $";p(pl,6)
  204. 2130 [153]"         mit 1 hotel     $";p(pl,7)
  205. 2140 [153]
  206. 2150 [153]"           hypothekwert  $";p(pl,8)
  207. 2160 [153]"           haeuserpreis  $";p(pl,9);"jedes"
  208. 2170 [153]"      hotel  $";p(pl,9);"plus 4 haeuser"
  209. 2180 [139]gf[167][153]:[153]:[141]1830:[151]53280,0:[142]
  210. 2190 [153]:[129]i[178]1[164]41:[139]c$(pl)[178]c$(i)[175]i[179][177]pl[167][141]2210
  211. 2200 [130]:[137]2230
  212. 2210 [139]ps(i)[167][153]" "pn$(i)" eigentum von spieler "ps(i):[142]
  213. 2220 [153]" "pn$(i)" ist noch frei ":[142]
  214. 2230 [153]
  215. 2240 [139]mg(pl)[178]1[167][153]" hypothekbelastung $"p(pl,8)
  216. 2250 [153]" preis  $";p(pl,1)
  217. 2260 [139]ps(pl)[178]0[167]2310
  218. 2270 [153]"  eigentum wait von spieler"ps(pl):[139]h(pl)[167][153]"mit ";
  219. 2280 [139]h(pl)[179]5[167][153]h(pl)"haeusern"
  220. 2290 [139]h(pl)[178]5[167][153]" 1 hotel"
  221. 2300 [137]2360
  222. 2310 [153]" du hast $";m(p7)
  223. 2320 [153]" willst du kaufen ";:a$[178]"y":[133]a$:a$[178][200](a$,1)
  224. 2330 [139]a$[178]"n"[167]2420
  225. 2340 [139]a$[179][177]"y"[167][153]"onon":[137]2320
  226. 2350 [153]" ok! gekauft: ";pn$(pl)"":m(p7)[178]m(p7)[171]p(pl,1):ps(pl)[178]pt:[137]2410
  227. 2360 ow[178]p(pl,h(pl)[170]2):[139]ps(pl)[178]pt[167]2410
  228. 2370 [139]mg(pl)[167]2410
  229. 2380 p5[178]po:p6[178]ps(pl):[141]2430:[139]oa[167][139]h(pl)[178]0[167]ow[178]ow[172]2
  230. 2390 m(pt)[178]m(pt)[171]ow:m(ps(pl))[178]m(ps(pl))[170]ow:[153]" zahle miete $";ow
  231. 2400 m(ps(pl))[178]m(ps(pl))[170]ow
  232. 2410 [141]1830:[151]53280,0:[142]
  233. 2420 [141]6230:[137]2410
  234. 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
  235. 2440 [130]
  236. 2450 [139]pc[178]2[175]c$(pl)[178]"schwarz"[167]oa[178]1:[142]
  237. 2460 [139]pc[178]2[175]c$(pl)[178]"dk. blau"[167]oa[178]1:[142]
  238. 2470 [139]pc[178]3[167]oa[178]1:[142]
  239. 2480 [142]
  240. 2490 [153]"load":pl[178]pl(pt)
  241. 2500 [153]"spieler"pt
  242. 2510 [153]"                   def(NULL)print# *wait"
  243. 2520 [153]"                      wait"
  244. 2530 [153]"                  (NULL)verify(NULL) (NULL)"
  245. 2540 [153]
  246. 2550 [153][163]20[171][195](pn$(pl))[173]2)"";pn$(pl)"wait"
  247. 2560 [151]54276,129:[151]54288,17:[151]54290,17
  248. 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]
  249. 2580 [129]i[178]1[164]6:[151]g(i),0:[130]:[129]dl[178]1[164]60:[130]:[130]
  250. 2590 [151]54276,33:[151]54288,33:[151]54290,33     
  251. 2600 [153]:[153]"miete fuer 1 bahnhof    $25"
  252. 2610 [153]"mit 2 bahnhoefen zahle  $50"
  253. 2620 [153]"mit 3 bahnhoefen zahle  $100"
  254. 2630 [153]"mit 4 bahnhoefen zahle  $200"
  255. 2640 [153]
  256. 2650 [153]"      hypothekwert      $100"
  257. 2660 [153]:[139]mg(pl)[178]1[167][153]"hypothekbelastung $100":[137]2840
  258. 2670 [153]"preis  $200"
  259. 2680 [153]:[129]i[178]1[164]41:[139]pt$(i)[178]"rr"[167][141]2700
  260. 2690 [130]:[137]2720
  261. 2700 [139]ps(i)[167][153]pn$(i)" eigentum von spieler ";ps(i):[142]
  262. 2710 [153]pn$(i)" ist noch frei ":[142]
  263. 2720 [139]ps(pl)[167][153]" eigentum wait von spieler ";ps(pl):[137]2800
  264. 2730 [153]" du hast $"m(pt)
  265. 2740 [153]" willst du kaufen ";:b$[178]"y":[133]b$:b$[178][200](b$,1)
  266. 2750 [139]b$[178]"n"[167][141]6230:[137]2840
  267. 2760 [139]b$[179][177]"y"[167][153]"onon":[137]2740
  268. 2770 m(pt)[178]m(pt)[171]200:ps(pl)[178]pt
  269. 2780 [153]" ok! gekauft: "
  270. 2790 [137]2840
  271. 2800 ow[178]0:o7[178]0
  272. 2810 [139]ps(pl)[178]pt[167]2840
  273. 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
  274. 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
  275. 2840 [141]1830:[142]
  276. 2850 [153]"load"
  277. 2860 [153]"spieler"pt
  278. 2870 [153]"            sys(NULL)tab((NULL)     print#(NULL)(NULL)(NULL)    "
  279. 2880 [153]"            sys(NULL)def^sys(NULL)    print#-tan>tantantanright$ "
  280. 2890 [153]"             sysfnfn    print#-tantantantanright$left$ "
  281. 2900 [153]"             spc(          /exp ":[153]
  282. 2910 pl[178]pl(pt)
  283. 2920 [153][163]20[171][195](pn$(pl))[173]2)"";pn$(pl)"wait"
  284. 2930 [153]:[153]"wenn ein stadtwerk verkauft ist zahle   4 x den wuerfelwert"
  285. 2940 [153]
  286. 2950 [153]"wenn zwei stadtwerke verkauft sind zahle10 x den wuerfelwert"
  287. 2960 d1[178][181]([187](1)[172]6)[170]1:d2[178][181]([187](1)[172]6)[170]1
  288. 2970 [139]df[167]d1[178]r1:d2[178]r2
  289. 2980 [153]:[153]"hypothekwert  $75":[153]
  290. 2990 [139]mg(pl)[178]1[167][153]"hypothekbelastung $75":[137]3150
  291. 3000 [139]ps(42[171]pl)[167][153]pn$(42[171]pl)" eigentum von spieler"ps(42[171]pl):[137]3020
  292. 3010 [153]pn$(42[171]pl)" ist noch frei "
  293. 3020 [153]:[139]ps(pl)[167][153]" eigentum wait von spieler ";ps(pl):[137]3100
  294. 3030 [153]" du hast $"m(pt)
  295. 3040 b$[178]"y":[133]" willst du kaufen ";b$:b$[178][200](b$,1)
  296. 3050 [139]b$[178]"n"[167][141]6230:[137]3150
  297. 3060 [139]b$[179][177]"y"[167][153]"onon":[137]3040
  298. 3070 [153]" ok! gekauft: ";pn$(pl)""
  299. 3080 m(pt)[178]m(pt)[171]150
  300. 3090 ps(pl)[178]pt:[137]3150
  301. 3100 [139]ps(pl)[178]pt[167]3150
  302. 3110 [153]"wuerfel zeigen"d1"and"d2"."
  303. 3120 mt[178]4:[139]ps(13)[178]ps(pl)[175]ps(29)[178]ps(pl)[167]mt[178]10
  304. 3130 [139]df[178]0[167]mt[178]10
  305. 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
  306. 3150 mt[178]0:[141]1830:[142]
  307. 3160 [153]"load"
  308. 3170 [153]"                 forfrei
  309. 3180 print"                [213][195][195][195][195][195][201]"
  310. 3190 print"                [194] [159][176][192][174] [200]
  311. 3200 [153]"                (NULL) open/tanexp (NULL)
  312. 3210 print"                [200] [149][213][195][201] [194]
  313. 3220 [153]"              (NULL)tanexp verifypeekprint#(NULL)verifyleft$ /tanright$
  314. 3230 print"              [221]   [149][202][198][203]   [221]
  315. 3240 [153]"              /tanprint#nottantantantantanprint#nottanexp
  316. 3250 print"                [152][166]     [166]
  317. 3260 [153]:[153]"                forparken ":[153]
  318. 3270 [139]pf[178]0[167][141]1830:[142]
  319. 3280 [153]:[153]"       du kannst frei parken"
  320. 3290 [153]"         jackpot von $"fp"!":m(pt)[178]m(pt)[170]fp:fp[178]0:[153]:[141]1830:[142]
  321. 3300 [153]"load";[163]11);"geh in's gefaengnis"
  322. 3310 [139]db[178]3[167][153]:[153]" du hast 3 x in serie einen pasch        gewuerfelt!!":[153]
  323. 3320 [153][163]16);"pokeor======^":[129]i[178]1[164]5:[153][163]16);"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)":[130]
  324. 3330 [153][163]16);"/>>>>>>exp":[153]:pl(pt)[178]41:jf[178]1:db[178]0
  325. 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]
  326. 3350 [129]dl[178]1[164]10:[130]
  327. 3360 [129]t[178]110[164]60[169][171]1.7:[129]i[178]1[164]6:[151]g(i),t:[130]:[130]:[130]
  328. 3370 [129]i[178]1[164]6:[151]g(i),0:[130]
  329. 3380 [153]"";:[141]1830:[142]
  330. 3390 [153]"load";[163]15);"luxussteuer":[153]:[153][163]16);"zahle $75"
  331. 3400 [153]:[153]:[153]:m(pt)[178]m(pt)[171]75:fp[178]fp[170]75:[141]1830:[142]
  332. 3410 [153]"load";[163]15);"einkommensteuer":[153]:[153][163]16);"zahle $200"
  333. 3420 [153]:[153]:[153]:m(pt)[178]m(pt)[171]200:fp[178]fp[170]200:[141]1830:[142]
  334. 3430 cc[178]cc[170]1:[139]cc[177]16[167]cc[178]cc[171]16
  335. 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)
  336. 3450 [153]"load           sysgemeindplatz":[129]u[178]0[164]500:[130]u:[153]cc$""
  337. 3460 [139]cc[178]1[167]cj(1)[178]pt
  338. 3470 [139]cc[178]2[167][141]1830:[137]3300
  339. 3480 [139]cc[178]3[167]pl(pt)[178]1:mf[178]1:[141]1830:[141]1800:[142]
  340. 3490 [139]cc[178]4[167]m(pt)[178]m(pt)[170]45
  341. 3500 [139]cc[178]5[167]m(pt)[178]m(pt)[170]50:m(po)[178]m(po)[171]50
  342. 3510 [139]cc[178]6[167]m(pt)[178]m(pt)[170]25
  343. 3520 [139]cc[178]7[167]m(pt)[178]m(pt)[171]150:fp[178]fp[170]150
  344. 3530 [139]cc[178]8[167]m(pt)[178]m(pt)[170]20
  345. 3540 [139]cc[178]9[167][141]3630
  346. 3550 [139]cc[178]10[167]m(pt)[178]m(pt)[170]10
  347. 3560 [139]cc[178]11[167]m(pt)[178]m(pt)[170]100
  348. 3570 [139]cc[178]12[167]m(pt)[178]m(pt)[170]100
  349. 3580 [139]cc[178]13[167]m(pt)[178]m(pt)[171]100
  350. 3590 [139]cc[178]14[167]m(pt)[178]m(pt)[170]200
  351. 3600 [139]cc[178]15[167]m(pt)[178]m(pt)[171]50
  352. 3610 [139]cc[178]16[167]m(pt)[178]m(pt)[170]100
  353. 3620 [141]1830:[142]
  354. 3630 yp[178]0:[129]i[178]1[164]40
  355. 3640 [139]ps(i)[178](pt)[175]h(i)[179]5[167]yp[178]yp[170](40[172]h(i))
  356. 3650 [139]ps(i)[178](pt)[175]h(i)[178]5[167]yp[178]yp[170]115
  357. 3660 [130]:[153]"zahle $"yp:m(pt)[178]m(pt)[171]yp:fp[178]fp[170]yp:[142]
  358. 3670 ch[178]ch[170]1:[139]ch[177]16[167]ch[178]ch[171]16
  359. 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)
  360. 3690 [153]"load          def? ? chance ? ?":[129]u[178]0[164]500:[130]u:[153]ch$""
  361. 3700 [139]ch[178]1[167]m(pt)[178]m(pt)[171]15:fp[178]fp[170]15
  362. 3710 [139]ch[178]2[167][141]1830:[137]3300
  363. 3720 [139]ch[178]3[167]pl(pt)[178]1:mf[178]1:[141]1830:[141]1800:[142]
  364. 3730 [139]ch[178]4[167]m(pt)[178]m(pt)[170]150
  365. 3740 [139]ch[178]5[167][141]3870:mf[178]1
  366. 3750 [139]ch[178]6[167][141]3910:mf[178]1
  367. 3760 [139]ch[178]7[167]m(pt)[178]m(pt)[170]50
  368. 3770 [139]ch[178]8[167]cj(2)[178]pt
  369. 3780 [139]ch[178]9[167]m(pt)[178]m(pt)[171]50:m(po)[178]m(po)[170]50
  370. 3790 [139]ch[178]10[167][141]3930:mf[178]1
  371. 3800 [139]ch[178]11[167][141]3950:mf[178]1
  372. 3810 [139]ch[178]12[167]pl(pt)[178]pl(pt)[171]3:mf[178]1
  373. 3820 [139]ch[178]13[167][141]3970:mf[178]1
  374. 3830 [139]ch[178]14[167][141]3990
  375. 3840 [139]ch[178]15[167][141]3870:mf[178]1
  376. 3850 [139]ch[178]16[167][141]4030:mf[178]1
  377. 3860 [141]1830:[142]
  378. 3870 pl(pt)[178]pl(pt)[170]1:[139]pl(pt)[177]40[167][141]6720:pl(pt)[178]pl(pt)[171]40
  379. 3880 [139]pt$(pl(pt))[178]"rr"[167]3900
  380. 3890 [137]3870
  381. 3900 dv[178]1:[142]
  382. 3910 [139]pl(pt)[177]25[167][141]6720
  383. 3920 pl(pt)[178]25:[142]
  384. 3930 [139]pl(pt)[177]12[167][141]6720
  385. 3940 pl(pt)[178]12:[142]
  386. 3950 [139]pl(pt)[177]6[167][141]6720
  387. 3960 pl(pt)[178]6:[142]
  388. 3970 pl(pt)[178]40:[142]
  389. 3980 [142]
  390. 3990 df[178]0:yp[178]0:[129]i[178]1[164]40
  391. 4000 [139]ps(i)[178](pt)[175]h(i)[179]5[167]yp[178]yp[170](25[172]h(i))
  392. 4010 [139]ps(i)[178](pt)[175]h(i)[178]5[167]yp[178]yp[170]100
  393. 4020 [130]:[153]"zahle $"yp:m(pt)[178]m(pt)[171]yp:fp[178]fp[178]yp:[142]
  394. 4030 pl(pt)[178]pl(pt)[170]1
  395. 4040 [139]pl(pt)[177]40[167][141]6720:pl(pt)[178]pl(pt)[171]40
  396. 4050 [139]pt$(pl(pt))[178]"u"[167]4070
  397. 4060 [137]4030
  398. 4070 mf[178]1:[142]
  399. 4080 [153]"load"
  400. 4090 jt(pt)[178]jt(pt)[170]1
  401. 4100 [153]"spieler "pt"ist im gefaengnis"
  402. 4110 [153]:[153]"du kannst freikommen "jt(pt)"durch"
  403. 4120 [153]" 1. zahle $500"
  404. 4130 [153]" 2. gib eine 'geh aus dem gefaengnis'       karte"
  405. 4140 [153]" 3. wuerfel einen pasch"
  406. 4150 [153]:[133]"waehle";i:[139]i[179]1[176]i[177]3[167]4150
  407. 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]
  408. 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]
  409. 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]
  410. 4190 [139]i[178]2[167][153]"du hast keine karte":[137]4150
  411. 4200 [139]i[178]3[167][141]1700:[139]db[167]4260
  412. 4210 [153]"du hast keinen pasch"
  413. 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
  414. 4230 [139]jt(pt)[177]2[167][141]1830:fp[178]fp[170]50:[142]
  415. 4240 [141]1830:[142]
  416. 4250 [139]pl(pt)[178]11[167][141]1830:je[178]1:[142]
  417. 4260 [153]"du bist draussen!!":pl(pt)[178]11:[141]1830:jb[178]1:db[178]0:[142]
  418. 4270 [137]6390
  419. 4280 [153]"load":[139]pf[167][153]"geld in 'frei parken' jackpot $";fp
  420. 4290 [153]"spieler 1 hat $";m(1):[153]"spieler 2 hat $";m(2)
  421. 4300 [153]:[153]"spieler";pt"fuehrt"
  422. 4310 [153]:[153]:[153][163]15);" waehle"
  423. 4320 [153]
  424. 4330 [153]" e=liste des eigentums"
  425. 4340 [153]" l=liste aller grundstuecke"
  426. 4350 [153]" k=haeuser/hotels kaufen"
  427. 4360 [153]" v=eigentum verkaufen"
  428. 4370 [153]" h=hypothek aufnehmen(nur ohne haeuser)"
  429. 4380 [153]" a=anzeige der grundstck. einer gruppe"
  430. 4390 [153]" q=zurueck zum spielfeld"
  431. 4400 [153]"xx=spielende":[153]
  432. 4410 [133]"waehle  qcmdcmdcmd";c$
  433. 4420 [139]c$[178]"e"[167][141]4510
  434. 4430 [139]c$[178]"l"[167][141]4680
  435. 4440 [139]c$[178]"k"[167][141]4830
  436. 4450 [139]c$[178]"v"[167][141]5270
  437. 4460 [139]c$[178]"h"[167][141]5630
  438. 4470 [139]c$[178]"a"[167][141]6690
  439. 4480 [139]c$[178]"q"[167][142]
  440. 4490 [139]c$[178]"xx"[167]6470
  441. 4500 [137]4280
  442. 4510 [133]"fuer welchen spieler (1 oder 2)";pn
  443. 4520 [139]pn[179]1[176]pn[177]2[167]4510
  444. 4530 [153]"load"
  445. 4540 [153][163]6)"eigentum von spieler ";pn
  446. 4550 [153]
  447. 4560 [129]i[178]1[164]40:po$[178]"":[139]ps(i)[178]pn[167][153]pn$(i);
  448. 4570 [139]ps(i)[179][177]pn[167]4640
  449. 4580 [139]pt$(i)[179][177]"p"[167]4620
  450. 4590 [153][166]20[171]([195](pn$(i))[171]2));" -";:[139]h(i)[179]5[167]po$[178][196](h(i))[170]" hs"
  451. 4600 [139]h(i)[178]5[167]po$[178]" hotelwait"
  452. 4610 po$[178]po$[170]"/$"[170][202]([196](p(i,h(i)[170]2)),2)
  453. 4620 [139]mg(i)[178]1[167]po$[178]"- hyptk belastet"
  454. 4630 [153]po$
  455. 4640 [130]
  456. 4650 [153]:[139]cj(1)[178]pn[176]cj(2)[178]pn[167][153]"'geh aus dem gefaengnis' karte"
  457. 4660 [153]"spieler"pn"hat $";m(pn)
  458. 4670 [153]:[141]1830:[142]
  459. 4680 [153]"load"
  460. 4690 tt$[178]"name                      eigentuemer/cmdcmdcmdcmdcmdcmdcmdcmdcmd haeuser":[153]tt$
  461. 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
  462. 4710 [153]pn$(k)"";[163]21);
  463. 4720 [153][163]33)
  464. 4730 p$[178][196](ps(k)):pp$[178][202]([196](h(k)),2):[139]h(k)[177]4[167]pp$[178]"h"
  465. 4740 [139]pt$(k)[179][177]"p"[167]pp$[178]"x"
  466. 4750 [139]mg(k)[167]pp$[178]"hypwait"
  467. 4760 p$[178]p$[170]" -"[170]pp$
  468. 4770 [139]ps(k)[178]0[167]p$[178]"frei "
  469. 4780 [153]p$
  470. 4790 [139]k[178]20[167][153]:[141]1830:[153]"load":[153]tt$
  471. 4800 [130]k
  472. 4810 [153]:[141]1830
  473. 4820 [142]
  474. 4830 [153]"load"
  475. 4840 ho[178]0
  476. 4850 [153]" zu welcher gruppe":[153]pg$
  477. 4860 [153]
  478. 4870 [133]"welche farbe";c$
  479. 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
  480. 4890 [130]i8
  481. 4900 [153]"falsche gruppe":[137]4870
  482. 4910 p7[178]pt
  483. 4920 p5[178]p7:[141]2430:[139]mg[167]oa[178]0
  484. 4930 [139]oa[167]4960
  485. 4940 [153]"sorry du besitzt nicht alle grund-      stuecke in dieser gruppe";
  486. 4950 [153]" mit hypothek belastet":[141]1830:[142]
  487. 4960 [153]" grundstueck  zahl der haeuser(5=hotel)"
  488. 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)
  489. 4980 [130]
  490. 4990 [153]:[153]"haeuser in der gruppe kosten $"p(pl,9)"jedes"
  491. 5000 [153]"hotel kostet $"p(pl,9)"+ 4 haeuser oder $";(p(pl,9)[172]5)
  492. 5010 [153]
  493. 5020 [153]" du hast $"m(pt)
  494. 5030 [153]"nach dem 4. haus automatisch ein hotel"
  495. 5040 [153]"wieviel haeuser willst du ankf.(mx=";:mx[178]((5[172]pc)[171]hs):[153]mx")"
  496. 5050 [133]hn:[139]hn[177]mx[167][137]5040
  497. 5060 h7[178][181](hn[173]pc):h8[178]hn[171](h7[172]pc)
  498. 5070 [139]m(p7)[179](hn[172]p(pl,9))[167][153]"du hast nicht genug geld!!!!":[137]5040
  499. 5080 [139]hn[178]0[167][153]"ok":[141]1830:[142]
  500. 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
  501. 5100 [130]
  502. 5110 [139]h8[167]5130
  503. 5120 [137]5260
  504. 5130 [153]" du hast"h8"haeuser ueber"
  505. 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)
  506. 5150 [130]:[153]:[129]g[178]1[164]h8
  507. 5160 [153]"wohin willst du haus nr."g;:[133]hl:[139]hl[178]ho[167][153]"geht nicht":[137]5160
  508. 5170 f2[178]0:f1[178]0:f9[178]0
  509. 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
  510. 5190 [130]f
  511. 5200 [139]f9[178]0[167][153]"diese nr. nicht":[137]5160
  512. 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
  513. 5220 [130]
  514. 5230 [139]h2[167][153]"falsche verteilung der haeuser!":[137]5160
  515. 5240 ho[178]hl:h(f9)[178]h(f9)[170]1
  516. 5250 [130]g
  517. 5260 [153]"fertig":[141]1830:[142]
  518. 5270 [133]"welcher splr. hat eigentum zu verkfn.";p1
  519. 5280 [139]p1[178]0[167][141]1830:[142]
  520. 5290 p2[178]p1[170]1:[139]p2[177]2[167]p2[178]p2[171]2
  521. 5300 [153]"ist es ein grundstueck";:[133]q$:[139][200](q$,1)[178]"n"[167]5510
  522. 5310 [153]"in welcher farbgruppe":[153]pg$
  523. 5320 [153]:[133]"welche";c$
  524. 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
  525. 5340 [130]i6
  526. 5350 [153]"falsche gruppe":[137]5320
  527. 5360 [153]"grundstueck nr.";[163]29);"eigentuemer"
  528. 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)
  529. 5380 [139]h(i)[167]ho[178]1
  530. 5390 [130]
  531. 5400 [153]:[153]"welche nr. will spieler"p1"verkaufen"
  532. 5410 [133]tp
  533. 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
  534. 5430 [130]
  535. 5440 [139]ff[178]0[167][153]"falsche nummer":[137]5400
  536. 5450 [139]ps(t4)[179][177]p1[167][153]"spieler "p1"das gehoert dir nicht":[137]5270
  537. 5460 [139]ho[167][153]"du hast haeuser in der gruppe du kanst nicht verkf.":[137]5500
  538. 5470 [133] "was ist das hoechste angebot:";sp
  539. 5480 m(p1)[178]m(p1)[170]sp:m(p2)[178]m(p2)[171]sp:ps(t4)[178]p2
  540. 5490 [153]"spieler "p2"kauft "pn$(t4)"":[153]"fuer $"sp
  541. 5500 [153]:[141]1830:[142]
  542. 5510 [153]"grundstueck";[163]29);"eigentuemer"
  543. 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
  544. 5530 [153]" 5   "pn$(13)"";[163]35);ps(13):[153]" 6   "pn$(29)"";[163]35);ps(29)
  545. 5540 [133]"welche nr.";nm:[139]nm[178]0[167][142]
  546. 5550 [139]nm[179]1[176]nm[177]6[167]5540
  547. 5560 [139]nm[178]5[175]ps(13)[178]p1[167]sn[178]13:[137]5600
  548. 5570 [139]nm[178]6[175]ps(29)[178]p1[167]sn[178]29:[137]5600
  549. 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
  550. 5590 [153]"du kannst es nicht belasten":[137]5510
  551. 5600 [133]"hoechstpreis";sp
  552. 5610 m(p1)[178]m(p1)[170]sp:m(p2)[178]m(p2)[171]sp:ps(sn)[178]p2
  553. 5620 [141]1830:[142]
  554. 5630 [153]"load":[153]" waehle ":[153]"0 zurueck zum unterprogramm":[153]"1 hypothek grundstueck"
  555. 5640 [153]"2 hypothek bahnhoefe":[153]"3 hypothek stadtwerke"
  556. 5650 [153]"4 hypothek zurueckkaufen(& 10% zinsen)":[153]"5 haeuser verkaufen":[153]
  557. 5660 [133]"waehle";gg:[139]gg[179]0[176]gg[177]5[167]5660
  558. 5670 [139]gg[178]0[167][141]1830:[142]
  559. 5680 [145]gg[141]5700,5930,6020,6100,6730
  560. 5690 [137]5630
  561. 5700 [153]:[153]"in welcher grp. willst du auf grundstck":[153]"hypothek aufnehmen ?":[153]pg$
  562. 5710 [153]:[133]"farbgruppe";c$
  563. 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
  564. 5730 [130]i6
  565. 5740 [153]"falsche gruppe":[137]5710
  566. 5750 cm[178]0:[129]i[178]pl[164]pl[170]3:[139]c$[178]c$(i)[167]cm[178]cm[170]h(i)
  567. 5760 [130]
  568. 5770 [139]cm[167][153]"keine hypothek auf grundstck. mit haus  in dieser gruppe"
  569. 5780 [153]"grundstueck nr.";[163]25);"eigentuemer"
  570. 5790 ct[178]0:[129]i[178]pl[164]pl[170]4:[139]c$[179][177]c$(i)[167]5820
  571. 5800 ct[178]ct[170]1:[153]ct"   "pn$(i)"";[163]27)ps(i);:pp$[178]"":[139]mg(i)[167]pp$[178]"belastet"
  572. 5810 [153]pp$
  573. 5820 [130]
  574. 5830 [153]:[153]"welche nr. willst du belasten";:[133]tp
  575. 5840 [139]tp[178]0[167][141]1830:[142]
  576. 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
  577. 5860 [130]
  578. 5870 [139]ff[178]0[167][153]"falsche nummer":[137]5830
  579. 5880 [139]ps(t4)[179][177]pt[167][153]"du kannst es nicht belasten":[141]1830:[137]5630
  580. 5890 [139]mg(t4)[178]1[167][153]"ist bereits belastet":[137]5830
  581. 5900 [153]:[153]"ok":mg(t4)[178]1
  582. 5910 [153]"du bekommst $"p(t4,8)"fuer die hypothek":m(pt)[178]m(pt)[170]p(t4,8)
  583. 5920 [141]1830:[142]
  584. 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)
  585. 5940 [130]
  586. 5950 [133]"welche nr.";rg
  587. 5960 [139]rg[179]1[176]rg[177]4[167]5950
  588. 5970 rg[178]6[170]((rg[171]1)[172]10)
  589. 5980 [139]ps(rg)[179][177]pt[167][153]"du kannst es nicht belasten":[141]1830:[137]5630
  590. 5990 [139]mg(rg)[178]1[167][153]"ist bereits belastet":[141]1830:[137]5630
  591. 6000 mg(rg)[178]1:[153]"du bekommst $100 fuer hyothek":m(pt)[178]m(pt)[170]100
  592. 6010 [141]1830:[142]
  593. 6020 u(1)[178]13:u(2)[178]29
  594. 6030 [129]i[178]1[164]2:[153]i"  "pn$(u(i))"":[130]
  595. 6040 [133]"welche?";um
  596. 6050 [139]um[179]1[176]um[177]2[167]6040
  597. 6060 [139]ps(u(um))[179][177]pt[167][153]"du kannst es nicht belasten":[141]1830:[137]5630
  598. 6070 [139]mg(u(um))[178]1[167][153]"ist bereits belastet":[141]1830:[137]5630
  599. 6080 mg(u(um))[178]1:[153]"du bekommst $75 die fuer hypthek":m(pt)[178]m(pt)[170]75
  600. 6090 [141]1830:[142]
  601. 6100 [153]:[153]"diese eigentuemer sind mit hypothek     belastet"
  602. 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)""
  603. 6120 [130]
  604. 6130 [139]ml[178]0[167][153]"du hast keine hypothek a.dem grundstck.":[141]1830:[142]
  605. 6140 [153]:[133]"welche hypothek willst du zurueckkfn.";lf
  606. 6150 [139]lf[179]1[176]lf[177]ml[167][153]"falsch":[137]6140
  607. 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
  608. 6170 [130]
  609. 6180 [153]"die hypothek ist fuer $"p(ft,8)
  610. 6190 [153]"du musst bezahlen $";:py[178]p(ft,8)[172]1.10:[153]py
  611. 6200 [139]py[177]m(pt)[167][153]"du hast zu wenig geld":[141]1830:[142]
  612. 6210 m(pt)[178]m(pt)[171]py:mg(ft)[178]0
  613. 6220 [141]1830:[142]
  614. 6230 [139]af[167]6250
  615. 6240 [142]
  616. 6250 pl[178]pl(pt):[153]pn$(pl)"    wird versteigert"
  617. 6260 [153]"an den hoechstbietenden  "
  618. 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
  619. 6280 pa[178]3[171]pa
  620. 6290 [153]"spieler"pa"was ist dein gebot";:[133]bd:bd[178][181](bd):ac[178]ac[170]1
  621. 6300 [139]bd[178]0[167][145](ac[177]1)[170]2[137]6330,6280
  622. 6310 [139]bd[179][178]hb[167][153]"du musst hoeher bieten als"hb"oder biete '0'":[137]6290
  623. 6320 hb[178]bd:hr[178]pa:[137]6280
  624. 6330 [139]hb[178]0[167]6380
  625. 6340 [153]pn$(pl)" gehe zu"
  626. 6350 [153]"spieler"hr" fuer $"hb
  627. 6360 m(hr)[178]m(hr)[171]hb:ps(pl)[178]hr
  628. 6370 [142]
  629. 6380 [153]:[153]pn$(pl)" wurde noch nict gekauft":[142]
  630. 6390 [153]"load":[153]"spieler "pt"ist der gewinner!!!
  631. 6400 print" dir fehlen noch $"abs(m(pt))"sonst bist du der gewinner"
  632. 6410 print"druecke'q' (zum gewinnen) oder  beschaffe dir das";
  633. 6420 print" fehlende geld"
  634. 6430 gosub1830:gosub4280
  635. 6440 ifm(pt)>=0thenreturn
  636. 6450 ifm(pt)<0thenprint"du bist bankrott!!!":pt=3+pt
  637. 6460 print" --spieler "pt"gewinnt!-- aetsch":end
  638. 6470 print"spielende"
  639. 6480 print"gewinner ist:";
  640. 6490 ifm(1)<m(2)thenprint"spieler 2 mit $"m(1)
  641. 6500 ifm(2)<m(1)thenprint"spieler 1 mit $"m(2)
  642. 6510 if m(2)=m(1)thenprint"niemand, es ist unentschieden "
  643. 6520 print"spieler 1 =  $";m(1)
  644. 6530 print"spieler 2 =  $";m(2)
  645. 6540 print
  646. 6550 poke54296,0:fori=1to6:pokeg(i),0:end
  647. 6560 forj=832to939
  648. 6570 readi:pokej,i:next
  649. 6580 data 160,0,185,0,4,153,0,200,185,0,5,153,0,201,185,0,6,153,0
  650. 6590 data 202,185,0,7,153,0,203,185,0,216,153,0,204,185,0,217,153,0
  651. 6600 data 205,185,0,218,153,0,206,185
  652. 6610 data 0,219,153,0,207,200,208,205,96,160,0,185,0,200,153,0,4,185,0,201,153
  653. 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
  654. 6630 data 153,0,217,185,0,206,153,0,218,185,0,207,153,0,219,200,208,205,96
  655. 6640 return
  656. 6650 forp4=1to2
  657. 6660 y$=""+pn$(pl(p4))+left$("[157]               ",18-(len(pn$(pl(p4)))-2))+"[146]"
  658. 6670 mn$="$"+mid$(str$(m(p4)),2)+"    [146]":x=13:y=2*p4+3:z$=y$:gosub1650
  659. 6680 y=y+1:z$=mn$:gosub1650:next:return
  660. 6690 print"anzeige fuer welche farbgruppe:":printpg$:inputc$:print
  661. 6700 p3=pl:fori=1to41:ifc$=left$(c$(i),len(c$))thengf=1:pl=i:gosub2000:gf=0
  662. 6710 next:pl=p3:return
  663. 6720 m(pt)=m(pt)+200:print"kassiere $200":return
  664. 6730 print"auf welcher farbgruppe:":printpg$:inputc$
  665. 6740 pl=0:fori=41to1step-1:ifc$=left$(c$(i),len(c$))thenpl=i:c$=c$(i)
  666. 6750 nexti:ifplthen6770
  667. 6760 print"falsche gruppe":goto6730
  668. 6770 do=0:hn=0:fori=pltopl+3:ifps(i)<>(pt)andc$=c$(i)thendo=1
  669. 6780 ifc$=c$(i)thenhn=hn+h(i)
  670. 6790 next
  671. 6800 ifdo=1orhn=0thenprint"du bist kein eigentuemer des grund-     stcks":gosub1830:return
  672. 6810 print"eigentum nr.";tab(25);"haeuser(5=hotel)"
  673. 6820 ct=0:fori=pltopl+3:ifc$=c$(i)thenct=ct+1:printct"   "pn$(i)"";tab(27)h(i)
  674. 6830 next
  675. 6840 input"willst du alle haeuser verkaufen";a$:ifleft$(a$,1)="y"then6980
  676. 6850 print:input"von welcher nr. willst du verk.";tp
  677. 6860 iftp=0then return
  678. 6870 ct=0:fori=pltopl+3:ifc$=c$(i)thenct=ct+1:ifct=tpthent4=i:ff=1
  679. 6880 next
  680. 6890 ifff=0thenprint"falsche nummer":goto6850
  681. 6900 ifh(t4)=0thenprint"es ist kein haus da":goto6850
  682. 6910 nn=0:nh=h(t4):fori=pltopl+3:ifh(i)>nhthennn=1
  683. 6920 next
  684. 6930 ifnnthenprint"das haus geht nicht":goto6850
  685. 6940 print:print"ok.":h(t4)=h(t4)-1
  686. 6950 hm=p(pl,9)/2
  687. 6960 print"du bekommst $"hm"fuer dein haus":m(pt)=m(pt)+hm
  688. 6970 gosub1830:goto5630
  689. 6980 hm=0:fori=pltopl+3:ifc$=c$(i)thenhm=hm+(p(pl,9)/2)*h(i):h(i)=0
  690. 6990 next:print"du bekommst $"hm"fuer deine haeuser ":m(pt)=m(pt)+hm:goto6970
  691. 7000 reada$:pn$(i)=left$(a$+"               ",14):return
  692.