home *** CD-ROM | disk | FTP | other *** search
/ Game On / Game_On_90-09_1990_-_de_Side_B.d64 / 02 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  20KB  |  529 lines
  1. 0 ifpeek(2)=0thenpoke2,1:load"03",8,1
  2. 1 ifpeek(2)=1thenpoke2,2:load"04",8,1
  3. 2 dimm$(12),a$(4),t$(4),n$(4),k(5),g(4),l(4),t(4),p(4),wa(4),wb(4),wc(4),wd(4)
  4. 3 dimwe(4),kn(4),ta(4),tb(4),tc(4),td(4),te(4),ka(4),kb(4),kc(4),kd(4),ke(4)
  5. 4 dimba(4),bb(4),bc(4),bd(4),be(4),lw(4),kw(4),lp(4),kp(4),bk(4),xa(4),xb(4)
  6. 5 dimxc(4),xd(4),xe(4),ya(4),yb(4),yc(4),yd(4),ye(4),m(4),le(4),ei(4),au(4)
  7. 6 dimmk(4),za(4),zb(4),zc(4),zd(4),ze(4),ll(4),kl(4),bz(4),er(4),af(4),b(5)
  8. 7 data"   januar","  februar","     m)rz","    april","      mai","     juni"
  9. 8 data"     juli","   august","september","  oktober"," november"," dezember"
  10. 9 data" mr' ","mrs' ",25000,1920,5000,2500
  11. 10 fori=1to4:ya(i)=1:yb(i)=1:yc(i)=1:yd(i)=1:ye(i)=1:nexti
  12. 11 fori=1to12:readm$(i):next:fori=0to1:reada$(i):next:readk,ja,r1,r2:m=1
  13. 12 ifpeek(38000)=0thensf=2:sy=49152:vc=53248:sf(1)=0:goto1200
  14. 13 pl=peek(38001):j=peek(38002):z=38006:sy=49152:fori=0to15:poke35832+i,0:next
  15. 14 forx=1topl:fort=1to10:n$(x)=n$(x)+chr$(peek(z+t)):next:z=z+10:next:j1=0:p=0
  16. 15 forx=1topl:y=peek(38002+x):t$(x)=a$(y):next:forx=1topl:k(x)=k:l(x)=3:le(x)=0
  17. 16 t(x)=150:pr(x)=50:kn(x)=1:g(x)=600+int(rnd(1)*50):g(x)=int(g(x)*kn(x)):next
  18. 17 forx=1topl:ll(x)=le(x)*1000:kl(x)=le(x)*2500:lp(x)=8500+ll(x)+int(rnd(1)*r2)
  19. 18 kp(x)=27500+kl(x)+int(rnd(1)*r1):lw(x)=int(lp(x)/100*75):m(x)=l(x)*1000
  20. 19 kw(x)=int(kp(x)/100*85):mk(x)=kw(x)*kn(x)+lw(x)*l(x):bk(x)=int(rnd(1)*4)+1
  21. 20 bk(x)=bk(x)*l(x):wa(x)=int(g(x)*1.2):wb(x)=int(g(x)*0.6)
  22. 21 wc(x)=int(g(x)*0.4):wd(x)=int(g(x)*0.8):we(x)=int(g(x)*0.5)
  23. 23 xa(x)=2+int(rnd(1)*3):xb(x)=1+int(rnd(1)*2):xc(x)=5+int(rnd(1)*5)
  24. 24 xd(x)=4+int(rnd(1)*4):xe(x)=3+int(rnd(1)*3)
  25. 30 fori=1tol(x):a=24+i:ifa>100thena=100
  26. 31 bz(x)=bz(x)+a:nexti:nextx:goto40
  27. 37 ifk(p)>0thensp=1
  28. 38 ifk(p)<0thensp=2
  29. 39 poke211,k1:poke214,k2:sys58640:return
  30. 40 j1=j1+1:p=p+1:ifj1=1thenj0=56321:n=254:o=247:s=253:w=251:f=239
  31. 41 ifj1=2andj=0thenj0=56321:n=254:o=247:s=253:w=251:f=239:j1=0
  32. 42 ifj1=2andj=1thenj0=56320:n=126:o=119:s=125:w=123:f=111:j1=0
  33. 43 ifp>plthen990
  34. 44 pr(p)=int(pr(p))
  35. 45 ifb(p)=1thenb1=b1+1:goto40
  36. 50 syssy:syssy+60:syssy+157:syssy+3349:fori=0to3:poke53248+i,0:nexti
  37. 51 k1=2:k2=2:gosub39:printt$(p);n$(p)
  38. 52 k1=23:k2=2:gosub39:printm$(m);ja
  39. 53 k1=3:k2=7:gosub37:print"kapital    ("spc(sp)k(p):poke35112,46:poke55592,1
  40. 54 k1=3:k2=8:gosub39:print"kneipen    (";kn(p)
  41. 55 k1=3:k2=9:gosub39:print"lieferwagen(";l(p)
  42. 56 k1=3:k2=15:gosub39:print"warenbestand("
  43. 57 k1=3:k2=17:gosub39:print"bier   (";ba(p)
  44. 58 k1=3:k2=18:gosub39:print"schnaps(";bb(p)
  45. 59 k1=3:k2=19:gosub39:print"sekt   (";bc(p)
  46. 60 k1=3:k2=20:gosub39:print"wein   (";bd(p)
  47. 61 k1=3:k2=21:gosub39:print"whisky (";be(p)
  48. 62 k1=26:k2=16:gosub39:print"produktion[157][157][157][157][157][157][157][157][157][157]transport"
  49. 63 k1=26:k2=18:gosub39:print"fuhrpark[157][157][157][157][157][157][157][157]kneipen[157][157][157][157][157][157][157]preise"
  50. 64 k1=26:k2=21:gosub39:print"weiter"
  51. 65 vc=53248:pokevc+16,3:pokevc+21,3:pokevc+39,1:pokevc+40,2:poke35832,52:poke35833,53
  52. 66 px=58:py=179:c=1
  53. 67 pokevc,px:pokevc+1,py:pokevc+2,px:pokevc+3,py
  54. 68 ifpeek(j0)=nthenpy=py-8:c=c-1
  55. 69 ifpeek(j0)=sthenpy=py+8:c=c+1
  56. 70 ifpeek(j0)=fthen75
  57. 71 ifpy<179thenpy=179:c=1
  58. 72 ifpy>219thenpy=219:c=6
  59. 73 fort=1to25:nextt:goto67
  60. 75 oncgoto90,91,250,450,600,800
  61. 90 pokevc+21,0:syssy:syssy+60:syssy+676:syssy+3349:goto99
  62. 91 ift(p)<bz(p)orkn(p)=0then67
  63. 92 pokevc+21,0:syssy:syssy+60:syssy+676:syssy+1202:syssy+3349
  64. 99 pokevc,0:pokevc+1,0:pokevc+2,0:pokevc+3,0
  65. 100 k1=2:k2=2:gosub39:printt$(p);n$(p)
  66. 101 k1=19:k2=2:gosub37:print"kapital(";spc(sp)k(p):poke34924,46:poke55404,1
  67. 102 k1=3:k2=7:gosub39:print"warenbestand("spc(5)"ben*tigtes("
  68. 103 k1=3:k2=9:gosub39:print"bier   ("ba(p)
  69. 104 k1=3:k2=10:gosub39:print"schnaps("bb(p)
  70. 105 k1=3:k2=11:gosub39:print"sekt   ("bc(p)
  71. 106 k1=3:k2=12:gosub39:print"wein   ("bd(p)
  72. 107 k1=3:k2=13:gosub39:print"whisky ("be(p)
  73. 108 k1=21:k2=9:gosub39:print"bier   ("wa(p)
  74. 109 k1=21:k2=10:gosub39:print"schnaps("wb(p)
  75. 110 k1=21:k2=11:gosub39:print"sekt   ("wc(p)
  76. 111 k1=21:k2=12:gosub39:print"wein   ("wd(p)
  77. 112 k1=21:k2=13:gosub39:print"whisky ("we(p)
  78. 113 k1=29:k2=17:gosub39:print"bier[157][157][157][157]schnaps[157][157][157][157][157][157][157]sekt[157][157][157][157]wein"
  79. 114 k1=29:k2=21:gosub39:print"whisky [157][157][157][157][157][157][157]weiter"
  80. 115 ifc=2then130
  81. 120 k1=4:k2=18:gosub39:print"bier     "xa(p)
  82. 121 k1=4:k2=19:gosub39:print"schnaps  "xb(p)
  83. 122 k1=4:k2=20:gosub39:print"sekt     "xc(p)
  84. 123 k1=4:k2=21:gosub39:print"wein     "xd(p)
  85. 124 k1=4:k2=22:gosub39:print"whisky   "xe(p)
  86. 125 fori=0to4:poke35549+i*40,46:poke56029+i*40,1:next:goto150
  87. 130 k1=3:k2=16:gosub39:print"maximal("m(p)
  88. 131 k1=3:k2=18:gosub39:print"bier   ("ta(p)
  89. 132 k1=3:k2=19:gosub39:print"schnaps("tb(p)
  90. 133 k1=3:k2=20:gosub39:print"sekt   ("tc(p)
  91. 134 k1=3:k2=21:gosub39:print"wein   ("td(p)
  92. 135 k1=3:k2=22:gosub39:print"whisky ("te(p)
  93. 150 px=58:py=187:c0=1:pokevc+21,3
  94. 151 pokevc,px:pokevc+1,py:pokevc+2,px:pokevc+3,py
  95. 152 ifpeek(j0)=nthenpy=py-8:c0=c0-1
  96. 153 ifpeek(j0)=sthenpy=py+8:c0=c0+1
  97. 154 ifpeek(j0)=fthen159
  98. 155 ifpy<187thenpy=187:c0=1
  99. 156 ifpy>227thenpy=227:c0=6
  100. 157 fort=1to25:nextt:goto151
  101. 159 ifc0<>6thenpokevc+21,0:goto165
  102. 160 pokevc+21,0:pokevc,0:pokevc+1,0:pokevc+2,0:pokevc+3,0:goto50
  103. 165 pokevc,0:pokevc+1,0:pokevc+2,0:pokevc+3,0:px=56:py=229:fort=1to6:s(t)=0:next
  104. 166 k1=22:k2=21:gosub39:print"[\\\\\\\\\\\\\][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]^menge( 000000^"
  105. 167 k1=22:k2=23:gosub39:print"_\\\\\\[157][157][157][157][157][157][151]@@@@@@":pokevc+21,3:t=6
  106. 168 pokevc,px:pokevc+1,py:pokevc+2,px:pokevc+3,py:poke35725+t,s(t)+48
  107. 170 ifpeek(j0)=wthent=t-1:px=px-8
  108. 171 ifpeek(j0)=othent=t+1:px=px+8
  109. 172 ifpeek(j0)=nthens(t)=s(t)+1
  110. 173 ifpeek(j0)=sthens(t)=s(t)-1
  111. 174 ifpeek(j0)=fthenpokevc+21,0:goto185
  112. 176 ifs(t)<0thens(t)=9
  113. 177 ifs(t)>9thens(t)=0
  114. 178 ift<1thent=1:px=16
  115. 179 ift>6thent=6:px=56
  116. 180 fori=1to25:next:goto168
  117. 185 me=100000*s(1)+10000*s(2)+1000*s(3)+100*s(4)+10*s(5)+s(6)
  118. 189 ifme=0then75
  119. 190 ifc=2then200
  120. 191 onc0goto192,193,194,195,196
  121. 192 ba(p)=ba(p)+me:au(p)=au(p)+me*xa(p):k(p)=k(p)-me*xa(p):goto75
  122. 193 bb(p)=bb(p)+me:au(p)=au(p)+me*xb(p):k(p)=k(p)-me*xb(p):goto75
  123. 194 bc(p)=bc(p)+me:au(p)=au(p)+me*xc(p):k(p)=k(p)-me*xc(p):goto75
  124. 195 bd(p)=bd(p)+me:au(p)=au(p)+me*xd(p):k(p)=k(p)-me*xd(p):goto75
  125. 196 be(p)=be(p)+me:au(p)=au(p)+me*xe(p):k(p)=k(p)-me*xe(p):goto75
  126. 200 ifm(p)-me<0thengoto75
  127. 201 onc0goto202,204,206,208,210
  128. 202 ifba(p)-me<0then75
  129. 203 ta(p)=ta(p)+me:ba(p)=ba(p)-me:goto212
  130. 204 ifbb(p)-me<0then75
  131. 205 tb(p)=tb(p)+me:bb(p)=bb(p)-me:goto212
  132. 206 ifbc(p)-me<0then75
  133. 207 tc(p)=tc(p)+me:bc(p)=bc(p)-me:goto212
  134. 208 ifbd(p)-me<0then75
  135. 209 td(p)=td(p)+me:bd(p)=bd(p)-me:goto212
  136. 210 ifbe(p)-me<0then75
  137. 211 te(p)=te(p)+me:be(p)=be(p)-me:goto212
  138. 212 m(p)=m(p)-me:goto75
  139. 250 pokevc+21,0:syssy:syssy+60:syssy+1379:syssy+3349
  140. 251 pokevc,0:pokevc+1,0:pokevc+2,0:pokevc+3,0
  141. 255 k1=2:k2=2:gosub39:printt$(p);n$(p)
  142. 256 k1=19:k2=2:gosub37:print"kapital(";spc(sp)k(p):poke34924,46:poke55404,1
  143. 257 k1=2:k2=8:gosub39:print"lieferwagen("l(p)
  144. 258 k1=2:k2=9:gosub39:print"auftr)ge   ("af(p)
  145. 259 k1=2:k2=10:gosub39:print"tank("pr(p);","
  146. 260 k1=22:k2=8:gosub39:print"wert   ( "lw(p)
  147. 261 k1=22:k2=9:gosub39:print"auftrag( "lp(p)
  148. 262 k1=22:k2=10:gosub39:print"kosten ( "bk(p)
  149. 263 fori=1to3:poke35127+i*40,46:poke55607+i*40,1:next
  150. 265 k1=3:k2=15:gosub39:print"maximal("m(p)
  151. 266 k1=3:k2=17:gosub39:print"bier   ("ta(p)
  152. 267 k1=3:k2=18:gosub39:print"schnaps("tb(p)
  153. 268 k1=3:k2=19:gosub39:print"sekt   ("tc(p)
  154. 269 k1=3:k2=20:gosub39:print"wein   ("td(p)
  155. 270 k1=3:k2=21:gosub39:print"whisky ("te(p)
  156. 272 k1=27:k2=18:gosub39:print"kaufen[157][157][157][157][157][157]verkaufen[157][157][157][157][157][157][157][157][157]tanken[157][157][157][157][157][157]weiter"
  157. 280 px=58:py=195:c0=1:pokevc+21,3
  158. 281 pokevc,px:pokevc+1,py:pokevc+2,px:pokevc+3,py
  159. 282 ifpeek(j0)=nthenpy=py-8:c0=c0-1
  160. 283 ifpeek(j0)=sthenpy=py+8:c0=c0+1
  161. 284 ifpeek(j0)=fthengoto288
  162. 285 ifpy<195thenpy=195:c0=1
  163. 286 ifpy>219thenpy=219:c0=4
  164. 287 fort=1to25:nextt:goto281
  165. 288 ifc0<>4thenpokevc+21,0:goto290
  166. 289 pokevc+21,0:pokevc,0:pokevc+1,0:pokevc+2,0:pokevc+3,0:goto50
  167. 290 onc0goto300,300,399
  168. 300 pokevc,0:pokevc+1,0:pokevc+2,0:pokevc+3,0:px=56:py=221:fort=1to2:s(t)=0:next
  169. 301 k1=25:k2=20:gosub39:print"[\\\\\\\\\\][157][157][157][157][157][157][157][157][157][157][157][157]^anzahl( 00^"
  170. 302 k1=25:k2=22:gosub39:print"_\\\\\\[157][157][157][157][157][157][151]@@@@@@":pokevc+21,3:t=2
  171. 303 pokevc,px:pokevc+1,py:pokevc+2,px:pokevc+3,py:poke35689+t,s(t)+48
  172. 310 ifpeek(j0)=wthent=t-1:px=px-8
  173. 311 ifpeek(j0)=othent=t+1:px=px+8
  174. 312 ifpeek(j0)=nthens(t)=s(t)+1
  175. 313 ifpeek(j0)=sthens(t)=s(t)-1
  176. 314 ifpeek(j0)=fthenpokevc+21,0:goto325
  177. 315 ifs(t)<0thens(t)=9
  178. 316 ifs(t)>9thens(t)=0
  179. 317 ift<1thent=1:px=48
  180. 318 ift>2thent=2:px=56
  181. 319 fori=1to25:next:goto303
  182. 325 me=10*s(1)+s(2)
  183. 326 ifme=0then250
  184. 350 ifc0=2then360
  185. 351 af(p)=af(p)+me:au(p)=au(p)+me*lp(p):k(p)=k(p)-me*lp(p):goto250
  186. 360 ifl(p)-me<0then250
  187. 361 tf(p)=ta(p)+tb(p)+tc(p)+td(p)+te(p)
  188. 362 ifl(p)*1000-me*1000<tf(p)then250
  189. 363 ei(p)=ei(p)+me*lw(p):k(p)=k(p)+me*lw(p):l(p)=l(p)-me:t(p)=t(p)-25*me
  190. 364 m(p)=l(p)*1000-tf(p):mk(p)=kw(p)*kn(p)+lw(p)*l(p)
  191. 365 ifl(p)=0thenpr(p)=0:t(p)=0:goto368
  192. 366 ifpr(p)<0thenpr(p)=0:t(p)=0:goto368
  193. 367 pr(p)=(t(p)*100)/(l(p)*100)
  194. 368 ifpr(p)>100thenpr(p)=100:t(p)=100*l(p)
  195. 370 goto250
  196. 399 ifl(p)=0then250
  197. 400 pokevc,0:pokevc+1,0:pokevc+2,0:pokevc+3,0:px=40:py=221:fort=1to2:s(t)=0:next
  198. 401 k1=22:k2=20:gosub39:print"[\\\\\\\\\\\\\][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]^prozent( 00 ,^"
  199. 402 k1=22:k2=22:gosub39:print"_\\\\\\\\\[157][157][157][157][157][157][157][157][157][151]@@@@@@@@@":pokevc+21,3:t=2
  200. 403 pokevc,px:pokevc+1,py:pokevc+2,px:pokevc+3,py:poke35687+t,s(t)+48
  201. 410 ifpeek(j0)=wthent=t-1:px=px-8
  202. 411 ifpeek(j0)=othent=t+1:px=px+8
  203. 412 ifpeek(j0)=nthens(t)=s(t)+1
  204. 413 ifpeek(j0)=sthens(t)=s(t)-1
  205. 414 ifpeek(j0)=fthenpokevc+21,0:goto425
  206. 415 ifs(t)<0thens(t)=9
  207. 416 ifs(t)>9thens(t)=0
  208. 417 ift<1thent=1:px=32
  209. 418 ift>2thent=2:px=40
  210. 419 fori=1to25:next:goto403
  211. 425 me=s(1)*10+s(2)
  212. 426 ifme=0then250
  213. 427 ifpr(p)+me=>101then250
  214. 428 pr(p)=pr(p)+me:t(p)=t(p)+me*l(p)
  215. 429 au(p)=au(p)+me*bk(p):k(p)=k(p)-me*bk(p):goto250
  216. 449 pokevc,0:pokevc+1,0:pokevc+2,0:pokevc+3,0
  217. 450 pokevc+21,0:syssy:syssy+60:syssy+1824:syssy+3349
  218. 451 k1=2:k2=2:gosub39:printt$(p);n$(p)
  219. 452 k1=19:k2=2:gosub37:print"kapital(";spc(sp)k(p):poke34924,46:poke55404,1
  220. 460 k1=3:k2=7:gosub39:print"kneipen    ("kn(p)
  221. 461 k1=3:k2=8:gosub39:print"er*ffnungen("er(p)
  222. 462 k1=3:k2=10:gosub39:print"wert     ( "kw(p)
  223. 463 k1=3:k2=11:gosub39:print"er*ffnung( "kp(p)
  224. 464 fori=1to2:poke35190+i*40,46:next
  225. 465 k1=3:k2=16:gosub39:print"ware    preis"
  226. 466 k1=3:k2=18:gosub39:print"bier      "ya(p)
  227. 467 k1=3:k2=19:gosub39:print"schnaps   "yb(p)
  228. 468 k1=3:k2=20:gosub39:print"sekt      "yc(p)
  229. 469 k1=3:k2=21:gosub39:print"wein      "yd(p)
  230. 470 k1=3:k2=22:gosub39:print"whisky    "ye(p)
  231. 471 fori=1to5:poke35509+i*40,46:next
  232. 472 k1=27:k2=19:gosub39:print"er*ffnen[157][157][157][157][157][157][157][157]verkaufen[157][157][157][157][157][157][157][157][157]weiter"
  233. 480 px=58:py=203:c0=1:pokevc+21,3
  234. 481 pokevc,px:pokevc+1,py:pokevc+2,px:pokevc+3,py
  235. 482 ifpeek(j0)=nthenpy=py-8:c0=c0-1
  236. 483 ifpeek(j0)=sthenpy=py+8:c0=c0+1
  237. 484 ifpeek(j0)=fthengoto488
  238. 485 ifpy<203thenpy=203:c0=1
  239. 486 ifpy>219thenpy=219:c0=3
  240. 487 fort=1to25:nextt:goto481
  241. 488 ifc0<>3thenpokevc+21,0:goto500
  242. 489 pokevc+21,0:pokevc,0:pokevc+1,0:pokevc+2,0:pokevc+3,0:goto50
  243. 500 pokevc,0:pokevc+1,0:pokevc+2,0:pokevc+3,0:px=56:py=221:fort=1to2:s(t)=0:next
  244. 501 k1=25:k2=20:gosub39:print"[\\\\\\\\\\][157][157][157][157][157][157][157][157][157][157][157][157]^anzahl( 00^"
  245. 502 k1=25:k2=22:gosub39:print"_\\\\\\[157][157][157][157][157][157][151]@@@@@@":pokevc+21,3:t=2
  246. 503 pokevc,px:pokevc+1,py:pokevc+2,px:pokevc+3,py:poke35689+t,s(t)+48
  247. 510 ifpeek(j0)=wthent=t-1:px=px-8
  248. 511 ifpeek(j0)=othent=t+1:px=px+8
  249. 512 ifpeek(j0)=nthens(t)=s(t)+1
  250. 513 ifpeek(j0)=sthens(t)=s(t)-1
  251. 514 ifpeek(j0)=fthenpokevc+21,0:goto520
  252. 515 ifs(t)<0thens(t)=9
  253. 516 ifs(t)>9thens(t)=0
  254. 517 ift<1thent=1:px=48
  255. 518 ift>2thent=2:px=56
  256. 519 fori=1to25:next:goto503
  257. 520 me=10*s(1)+s(2)
  258. 521 ifme=0then449
  259. 525 ifc0=2then540
  260. 530 er(p)=er(p)+me:au(p)=au(p)+kp(p)*me:k(p)=k(p)-kp(p)*me:goto449
  261. 540 ifkn(p)-me<0then449
  262. 542 lg=600+int(rnd(1)*50):kn(p)=kn(p)-me:ei(p)=ei(p)+kw(p)*me
  263. 543 k(p)=k(p)+kw(p)*me:g(p)=g(p)-lg*me:ifkn(p)=0theng(p)=0
  264. 544 ifg(p)>kn(p)*900theng(p)=kn(p)*900
  265. 545 ifg(p)<kn(p)*100theng(p)=kn(p)*100
  266. 546 mk(p)=kw(p)*kn(p)+lw(p)*l(p)
  267. 550 wa(p)=int(g(p)*1.2):wb(p)=int(g(p)*0.6):wc(p)=int(g(p)*0.4)
  268. 551 wd(p)=int(g(p)*0.8):we(p)=int(g(p)*0.5)
  269. 560 goto449
  270. 600 pokevc+21,0:syssy:syssy+60:syssy+2281:syssy+1037:syssy+3349
  271. 601 fori=0to3:pokevc+i,0:nexti
  272. 610 k1=2:k2=2:gosub39:printt$(p);n$(p)
  273. 611 k1=19:k2=2:gosub37:print"kapital(";spc(sp)k(p):poke34924,46:poke55404,1
  274. 612 k1=3:k2=7:gosub39:print"ware      menge     preis"
  275. 613 k1=3:k2=9:gosub39:print"bier     "ka(p)
  276. 614 k1=3:k2=10:gosub39:print"schnaps  "kb(p)
  277. 615 k1=3:k2=11:gosub39:print"sekt     "kc(p)
  278. 616 k1=3:k2=12:gosub39:print"wein     "kd(p)
  279. 617 k1=3:k2=13:gosub39:print"whisky   "ke(p)
  280. 618 k1=24:k2=9:gosub39:printya(p):k1=24:k2=10:gosub39:printyb(p):k1=24:k2=11:gosub39:printyc(p)
  281. 621 k1=24:k2=12:gosub39:printyd(p)
  282. 622 k1=24:k2=13:gosub39:printye(p):fori=0to4:poke35200+i*40,46:nexti
  283. 623 k1=29:k2=17:gosub39:print"bier[157][157][157][157]schnaps[157][157][157][157][157][157][157]sekt[157][157][157][157]wein[157][157][157][157]whisky"
  284. 624 k1=29:k2=22:gosub39:print"weiter"
  285. 650 px=58:py=187:c0=1:pokevc+21,3
  286. 651 pokevc,px:pokevc+1,py:pokevc+2,px:pokevc+3,py
  287. 652 ifpeek(j0)=nthenpy=py-8:c0=c0-1
  288. 653 ifpeek(j0)=sthenpy=py+8:c0=c0+1
  289. 654 ifpeek(j0)=fthen659
  290. 655 ifpy<187thenpy=187:c0=1
  291. 656 ifpy>227thenpy=227:c0=6
  292. 657 fort=1to25:nextt:goto651
  293. 659 ifc0<>6thenpokevc+21,0:goto665
  294. 660 pokevc+21,0:fori=0to3:pokevc+i,0:nexti:goto50
  295. 665 pokevc,0:pokevc+1,0:pokevc+2,0:pokevc+3,0:px=56:py=229:fort=1to2:s(t)=0:next
  296. 666 k1=25:k2=21:gosub39:print"[\\\\\\\\\\][157][157][157][157][157][157][157][157][157][157][157][157]^preis( .00^"
  297. 667 k1=25:k2=23:gosub39:print"_\\\\\\[157][157][157][157][157][157][151]@@@@@@":pokevc+21,3:t=2
  298. 668 pokevc,px:pokevc+1,py:pokevc+2,px:pokevc+3,py:poke35729+t,s(t)+48
  299. 670 ifpeek(j0)=wthent=t-1:px=px-8
  300. 671 ifpeek(j0)=othent=t+1:px=px+8
  301. 672 ifpeek(j0)=nthens(t)=s(t)+1
  302. 673 ifpeek(j0)=sthens(t)=s(t)-1
  303. 674 ifpeek(j0)=fthenpokevc+21,0:goto685
  304. 675 ifs(t)<0thens(t)=9
  305. 676 ifs(t)>9thens(t)=0
  306. 677 ift<1thent=1:px=48
  307. 678 ift>2thent=2:px=56
  308. 679 fori=1to25:next:goto668
  309. 685 me=10*s(1)+s(2)
  310. 690 ifme=0then600
  311. 700 onc0goto701,702,703,704,705
  312. 701 ya(p)=me:goto600
  313. 702 yb(p)=me:goto600
  314. 703 yc(p)=me:goto600
  315. 704 yd(p)=me:goto600
  316. 705 ye(p)=me:goto600
  317. 800 pokevc+21,0:z=int(rnd(1)*26)+1
  318. 801 ifz>13then990
  319. 802 onzgoto850,990,870,990,890,990,900,990,910,990,920,990,930
  320. 820 syssy:syssy+60:syssy+2458:syssy+3349
  321. 821 k1=2:k2=2:gosub39:printt$(p);n$(p)
  322. 822 k1=23:k2=2:gosub39:printm$(m);ja
  323. 830 k1=30:k2=21:gosub39:print"weiter":return
  324. 831 pokevc+21,3:ifpeek(j0)=fthenpokevc+21,0:fori=0to3:pokevc+i,0:next:goto990
  325. 832 goto831
  326. 850 gosub820:g=10000+5000*le+100*int(rnd(1)*50):ei(p)=ei(p)+g
  327. 860 k1=13:k2=11:gosub39:print"lotteriegewinn"
  328. 861 k1=17:k2=13:gosub39:printg:poke35353,46:poke55833,1:k(p)=k(p)+g:goto831
  329. 870 gosub820:v=int(rnd(1)*74)+1:g=100-v
  330. 880 k1=12:k2=11:gosub39:print"diebe pl+nderten"
  331. 881 k1=12:k2=13:gosub39:print"ihre lagerr)ume"
  332. 883 ba(p)=int(ba(p)/100*g):bb(p)=int(bb(p)/100*g):bc(p)=int(bc(p)/100*g)
  333. 884 bd(p)=int(bd(p)/100*g):be(p)=int(be(p)/100*g):goto831
  334. 890 ifak(p)=1then990
  335. 891 gosub820:g=7500+2500*le+100*int(rnd(1)*75):ak(p)=1:ei(p)=ei(p)+g
  336. 892 k1=12:k2=11:gosub39:print"aktiendividende":ak(p)=1
  337. 893 k1=17:k2=13:gosub39:printg:poke35353,46:poke55833,1:k(p)=k(p)+g:goto831
  338. 900 gosub820:g=7500+2500*le+100*int(rnd(1)*75):au(p)=au(p)+g
  339. 901 k1=13:k2=11:gosub39:print"aktienverlust"
  340. 902 k1=17:k2=13:gosub39:printg:poke35353,46:poke55833,1:k(p)=k(p)-g:goto831
  341. 910 gosub820:g=12000+3000*le+1000*int(rnd(1)*6):ei(p)=ei(p)+g
  342. 911 k1=15:k2=11:gosub39:print"wettgewinn"
  343. 912 k1=17:k2=13:gosub39:printg:poke35353,46:poke55833,1:k(p)=k(p)+g:goto831
  344. 920 ifkn(p)=0orkn(p)=1then990
  345. 921 kn(p)=kn(p)-1:mk(p)=l(p)*lw(p)+kn(p)*kw(p)
  346. 922 gosub820:k1=11:k2=11:gosub39:print"sie verlieren beim"
  347. 923 k1=11:k2=13:gosub39:print"pokern eine kneipe":goto831
  348. 930 er(p)=er(p)+1:mk(p)=l(p)*lw(p)+kn(p)*kw(p)
  349. 931 gosub820:k1=11:k2=11:gosub39:print"sie gewinnen beim"
  350. 932 k1=11:k2=13:gosub39:print"pokern eine kneipe":goto831
  351. 940 p=0:gosub820:k1=15:k2=10:gosub39:print"spielende"
  352. 941 k1=12:k2=12:gosub39:print"alle spieler sind"
  353. 942 k1=16:k2=14:gosub39:print"bankrott":bk=0:gosub955
  354. 943 ifpeek(j0)=fthen945
  355. 944 goto943
  356. 945 poke2,8:sys33232:ifpeek(2)=0thenpokevc+21,0:fori=0to3:pokevc+i,0:next:goto947
  357. 946 goto943
  358. 947 poke2,1:print"[147][144]load"chr$(34)"05"chr$(34)","8:print"run"
  359. 948 forx=631to634:pokex,13:next:poke198,4:end
  360. 950 gosub820:k1=16:k2=12:gosub39:print"bankrott":gosub830:gosub955:b(p)=1
  361. 951 ifpeek(j0)=fthenpokevc+21,0:fori=0to3:pokevc+i,0:next:goto956
  362. 952 goto951
  363. 955 pokevc+21,3:pokevc,58:pokevc+1,219:pokevc+2,58:pokevc+3,219:return
  364. 956 ifb1=>plthen940
  365. 957 ifp=>plthen1162
  366. 958 goto1090
  367. 960 p=0:gosub820:k1=16:k2=12:gosub39:print"spielende"
  368. 961 pokevc+21,3:pokevc,58:pokevc+1,219:pokevc+2,58:pokevc+3,219
  369. 962 goto943
  370. 970 pokevc+21,0:print"[147]":k1=4:k2=11:gosub39:print"bitte chicago-diskette ";
  371. 971 print"einlegen":k1=8:k2=13:gosub39:print"und feuerknopf dr+cken"
  372. 972 ifpeek(j0)=fthen974
  373. 973 goto972
  374. 974 ift$(p)=" mr' "thenpoke38000,0
  375. 975 ift$(p)="mrs' "thenpoke38000,1
  376. 976 fori=1to10:poke38000+i,32:next:n$=n$(p)
  377. 977 fori=1tolen(n$):poke38000+i,asc(right$(n$,i)):nexti
  378. 978 print"[144]load"chr$(34)"05"chr$(34)","8:print"run"
  379. 979 forx=631to634:pokex,13:next:poke198,4:end
  380. 990 ifp>plthenp=0:goto995
  381. 991 j1=j1+1:p=p+1:ifj1=1thenj0=56321:n=254:o=247:s=253:w=251:f=239
  382. 992 ifj1=2andj=0thenj0=56321:n=254:o=247:s=253:w=251:f=239:j1=0
  383. 993 ifj1=2andj=1thenj0=56320:n=126:o=119:s=125:w=123:f=111:j1=0
  384. 994 goto43
  385. 995 fori=0to3:pokevc+i,0:nexti
  386. 996 forp=1topl
  387. 997 ifb(p)=1thennextp
  388. 998 ifp=pl+1thenp=0:j1=0:goto1090
  389. 1002 ka(p)=ka(p)+ta(p):kb(p)=kb(p)+tb(p):kc(p)=kc(p)+tc(p):kd(p)=kd(p)+td(p)
  390. 1003 ke(p)=ke(p)+te(p):ta(p)=0:tb(p)=0:tc(p)=0:td(p)=0:te(p)=0:m1=int(900*1.2)
  391. 1004 m2=int(900*0.6):m3=int(900*0.4):m4=int(900*0.8):m5=int(900*0.5)
  392. 1005 v1(p)=xa(p)^(4/3)/ya(p)*sqr(wa(p))*(ka(p)/100*0.75)*sqr(xa(p))*2.12
  393. 1006 v2(p)=xb(p)^(4/3)/yb(p)*sqr(wb(p))*(wb(p)/100*0.75)*sqr(xb(p))*2.12
  394. 1007 v3(p)=xc(p)^(4/3)/yc(p)*sqr(wc(p))*(wc(p)/100*0.75)*sqr(xc(p))*2.12
  395. 1008 v4(p)=xd(p)^(4/3)/yd(p)*sqr(wd(p))*(wd(p)/100*0.75)*sqr(xd(p))*2.12
  396. 1009 v5(p)=xe(p)^(4/3)/ye(p)*sqr(we(p))*(we(p)/100*0.75)*sqr(xe(p))*2.12
  397. 1010 v1(p)=int(v1(p)):v2(p)=int(v2(p)):v3(p)=int(v3(p)):v4(p)=int(v4(p))
  398. 1011 v5(p)=int(v5(p))
  399. 1012 ifv1(p)>ka(p)thenv1(p)=ka(p)
  400. 1013 ifv1(p)>wa(p)theng(p)=int(g(p)/100*102)
  401. 1014 ifv1(p)>m1*kn(p)thenv1(p)=m1*kn(p)
  402. 1015 ifv2(p)>kb(p)thenv2(p)=kb(p)
  403. 1016 ifv2(p)>wb(p)theng(p)=int(g(p)/100*102)
  404. 1017 ifv2(p)>m2*kn(p)thenv2(p)=m2*kn(p)
  405. 1018 ifv3(p)>kc(p)thenv3(p)=kc(p)
  406. 1019 ifv3(p)>wc(p)theng(p)=int(g(p)/100*102)
  407. 1020 ifv3(p)>m3*kn(p)thenv3(p)=m3*kn(p)
  408. 1021 ifv4(p)>kd(p)thenv4(p)=kd(p)
  409. 1022 ifv4(p)>wd(p)theng(p)=int(g(p)/100*102)
  410. 1023 ifv4(p)>m4*kn(p)thenv4(p)=m4*kn(p)
  411. 1024 ifv5(p)>ke(p)thenv5(p)=ke(p)
  412. 1025 ifv5(p)>we(p)theng(p)=int(g(p)/100*102)
  413. 1026 ifv5(p)>m5*kn(p)thenv5(p)=m5*kn(p)
  414. 1027 gw(p)=v1(p)*ya(p)+v2(p)*yb(p)+v3(p)*yc(p)+v4(p)*yd(p)+v5(p)*ye(p)
  415. 1028 ei(p)=ei(p)+gw(p):k(p)=k(p)+gw(p)
  416. 1030 ka(p)=ka(p)-v1(p):kb(p)=kb(p)-v2(p):kc(p)=kc(p)-v3(p):kd(p)=kd(p)-v4(p)
  417. 1031 ke(p)=ke(p)-v5(p)
  418. 1032 gl(p)=l(p)*1000-m(p)-1:ifgl(p)=-1then1036
  419. 1033 gl(p)=int(gl(p)/1000)
  420. 1034 fori=1togl(p)+1:a=24+i:ifa>100thena=100
  421. 1035 t(p)=t(p)-a:nexti:pr(p)=(t(p)*100)/(l(p)*100):ifpr(p)<0thenpr(p)=0:t(p)=0
  422. 1036 ifk(p)<0thenk(p)=int(k(p)/100)*105
  423. 1037 ifv1(p)<wa(p)theng(p)=int(g(p)/100*99)
  424. 1038 ifv2(p)<wb(p)theng(p)=int(g(p)/100*99)
  425. 1039 ifv3(p)<wc(p)theng(p)=int(g(p)/100*99)
  426. 1040 ifv4(p)<wd(p)theng(p)=int(g(p)/100*99)
  427. 1041 ifv5(p)<we(p)theng(p)=int(g(p)/100*99)
  428. 1042 ifg(p)>kn(p)*900theng(p)=kn(p)*900
  429. 1043 ifg(p)<kn(p)*100theng(p)=kn(p)*100
  430. 1044 ifkn(p)=0theng(p)=0
  431. 1049 nextp:p=0:j1=0:goto1090
  432. 1050 kn(p)=kn(p)+er(p):g=600+int(rnd(1)*50):g(p)=g(p)+g*er(p)
  433. 1051 l(p)=l(p)+af(p):pp(p)=100*af(p):t(p)=t(p)+pp(p):gosub1056
  434. 1052 ei(p)=0:au(p)=0:bz(p)=0:er(p)=0:af(p)=0
  435. 1053 mk(p)=lw(p)*l(p)+kw(p)*kn(p)
  436. 1054 v1(p)=0:v2(p)=0:v3(p)=0:v4(p)=0:v5(p)=0
  437. 1056 ifl(p)=0thenpr(p)=0:t(p)=0:return
  438. 1057 pr(p)=(t(p)*100)/(l(p)*100):return
  439. 1060 return
  440. 1062 ifb1=>plthen960
  441. 1090 j1=j1+1:p=p+1:ifj1=1thenj0=56321:n=254:o=247:s=253:w=251:f=239
  442. 1091 ifj1=2andj=0thenj0=56321:n=254:o=247:s=253:w=251:f=239:j1=0
  443. 1092 ifj1=2andj=1thenj0=56320:n=126:o=119:s=125:w=123:f=111:j1=0
  444. 1093 ifp>plthen1162
  445. 1094 ifb(p)=1then1090
  446. 1095 ifk(p)<-mk(p)thenb1=b1+1:goto950
  447. 1096 ifk(p)=>100000000then970
  448. 1100 pokevc+21,0:syssy:syssy+60:syssy+2739:syssy+3349:fori=0to3:pokevc+i,0:next
  449. 1101 k1=2:k2=2:gosub39:printt$(p);n$(p)
  450. 1102 k1=23:k2=2:gosub39:printm$(m);ja
  451. 1103 k1=3:k2=7:gosub37:print"kapital  ("spc(sp)k(p):poke35110,46:poke55590,1
  452. 1104 k1=3:k2=8:gosub39:print"g)ste    ("g(p)
  453. 1105 k1=3:k2=10:gosub39:print"einnahmen( "ei(p):poke35230,46
  454. 1106 k1=3:k2=11:gosub39:print"ausgaben ( "au(p):poke35270,46
  455. 1110 k1=3:k2=17:gosub39:print"bier   ("v1(p)
  456. 1120 k1=3:k2=18:gosub39:print"schnaps("v2(p)
  457. 1130 k1=3:k2=19:gosub39:print"sekt   ("v3(p)
  458. 1140 k1=3:k2=20:gosub39:print"wein   ("v4(p)
  459. 1141 k1=3:k2=21:gosub39:print"whisky ("v5(p)
  460. 1145 k1=27:k2=20:gosub39:print"speichern[157][157][157][157][157][157][157][157][157]weiter":gosub1050
  461. 1150 px=58:py=219:c0=2:pokevc+21,3
  462. 1151 pokevc,px:pokevc+1,py:pokevc+2,px:pokevc+3,py
  463. 1152 ifpeek(j0)=nthenpy=py-8:c0=c0-1
  464. 1153 ifpeek(j0)=sthenpy=py+8:c0=c0+1
  465. 1154 ifpeek(j0)=fthenpokevc+21,0:sf=1:goto1159
  466. 1155 ifpy<211thenpy=211:c0=1
  467. 1156 ifpy>219thenpy=219:c0=2
  468. 1157 fort=1to25:nextt:goto1151
  469. 1159 onc0goto1200,1160
  470. 1160 ifp=plthen1162
  471. 1161 goto1090
  472. 1162 m=m+1:j1=0:b1=0:pl=peek(38001):ifm=6thenfori=1topl:le(i)=le(i)+1:nexti
  473. 1164 ifm=13thenja=ja+1:fori=1topl:le(i)=le(i)+1:m=1:ak(i)=0:nexti
  474. 1165 ifja=1933andm=12then960
  475. 1166 p=0:goto17
  476. 1200 pokevc+21,0:fori=0to3:pokevc+i,0:nexti:poke35832,52:poke35833,53
  477. 1201 syssy:syssy+3160:syssy+3349:j0=56321:n=254:o=247:s=253:w=251:f=239
  478. 1202 fori=1to5:k1=5:k2=4+i:gosub39:print"spielstand"i:nexti
  479. 1203 k1=5:k2=10:gosub39:print"weiter":pokevc+39,1:pokevc+40,2
  480. 1204 s$(1)="csg 1":s$(2)="csg 2":s$(3)="csg 3":s$(4)="csg 4":s$(5)="csg 5"
  481. 1205 pokevc+16,0:px=162:py=91:c0=1:pokevc+21,3
  482. 1206 ifsf=1thenk1=5:k2=3:gosub39:print"speichern("
  483. 1207 ifsf=2thenk1=5:k2=3:gosub39:print"laden("
  484. 1210 pokevc,px:pokevc+1,py:pokevc+2,px:pokevc+3,py
  485. 1212 ifpeek(j0)=nthenpy=py-8:c0=c0-1
  486. 1213 ifpeek(j0)=sthenpy=py+8:c0=c0+1
  487. 1214 ifpeek(j0)=fthen1220
  488. 1215 ifpy<91thenpy=91:c0=1
  489. 1216 ifpy>131thenpy=131:c0=6
  490. 1217 fort=1to25:nextt:goto1210
  491. 1220 ifc0=6andsf=1thenpokevc+16,3:pokevc+21,0:fori=0to3:pokevc+i,0:nexti:goto1160
  492. 1221 ifc0=6andsf(1)=1thenpokevc+16,3:pokevc+21,0:fori=0to3:pokevc+i,0:nexti:goto1500
  493. 1222 ifc0=6andsf(1)=0then1210
  494. 1230 ifsf=2then1300
  495. 1240 poke2,8:sys33232:ifpeek(2)=0then1248
  496. 1241 goto1210
  497. 1248 pokevc+21,0:open1,8,15,"ui:":close1
  498. 1249 open2,8,2,"@:"+s$(c0)+",s,w"
  499. 1250 print#2,pl:print#2,j:print#2,m:print#2,ja
  500. 1260 fori=1topl:print#2,t$(i):print#2,n$(i):print#2,k(i):print#2,g(i)
  501. 1261 print#2,l(i):print#2,t(i):print#2,pr(i):print#2,kn(i):print#2,ka(i)
  502. 1262 print#2,kb(i):print#2,kc(i):print#2,kd(i):print#2,ke(i):print#2,b(i)
  503. 1263 print#2,ba(i):print#2,bb(i):print#2,bc(i):print#2,bd(i):print#2,be(i)
  504. 1264 print#2,ya(i):print#2,yb(i):print#2,yc(i):print#2,yd(i):print#2,ye(i)
  505. 1265 print#2,tf(i):print#2,le(i):print#2,af(i):print#2,er(i):nexti
  506. 1266 close2:goto1200
  507. 1300 poke2,8:sys33232:ifpeek(2)=0then1306
  508. 1301 pokevc,px:pokevc+1,py:pokevc+2,px:pokevc+3,py:goto1210
  509. 1306 pokevc+21,0:open1,8,15,"ui:":close1
  510. 1307 open2,8,2,s$(c0)+",s,r":close2
  511. 1308 open15,8,15:input#15,f$,g$,h$,i$:close15
  512. 1309 ifval(f$)<>0then1200
  513. 1310 open2,8,2,s$(c0)+",s,r"
  514. 1320 input#2,pl:input#2,j:input#2,m:input#2,ja
  515. 1330 fori=1topl:input#2,t$(i):input#2,n$(i):input#2,k(i):input#2,g(i)
  516. 1331 input#2,l(i):input#2,t(i):input#2,pr(i):input#2,kn(i):input#2,ka(i)
  517. 1332 input#2,kb(i):input#2,kc(i):input#2,kd(i):input#2,ke(i):input#2,b(i)
  518. 1333 input#2,ba(i):input#2,bb(i):input#2,bc(i):input#2,bd(i):input#2,be(i)
  519. 1334 input#2,ya(i):input#2,yb(i):input#2,yc(i):input#2,yd(i):input#2,ye(i)
  520. 1335 input#2,tf(i):input#2,le(i):input#2,af(i):input#2,er(i):nexti
  521. 1336 close2:sf(1)=1:poke38001,pl
  522. 1337 fori=1topl:ift$(i)="mr' "thent$(i)=" mr' "
  523. 1338 nexti
  524. 1349 forp=1topl:gosub1050:nextp:p=0:j1=0:fori=0to3:pokevc+i,0:nexti:goto1200
  525. 1500 m=m+1:j1=0:b1=0:ifm=6thenfori=1topl:le(i)=le(i)+1:nexti      
  526. 1501 ifm=13thenja=ja+1:fori=1topl:le(i)=le(i)+1:m=1:ak(i)=0:nexti
  527. 1502 ifja=1933andm=12then960
  528. 1503 goto17
  529.