home *** CD-ROM | disk | FTP | other *** search
/ Killer Drive 64 5 / Killer-Drive_64_05_1998_-_de_Side_B.d64 / wirtschafts-man. (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  17KB  |  692 lines
  1. 10 rem *** wirtschaftsmanager  ***
  2. 11 rem *** autor : tim faerber ***
  3. 13 dim a$(255),la(100),ed(100),ks$(255)
  4. 14 a$(1)="dolle":ax(1)=2:az(1)=4:bz(1)=2
  5. 15 ks$(1)="t f c":ka(1)=4:ga(1)=1:pq(1)=600000
  6. 16 ks$(2)="mueller kg":ka(2)=2:ga(2)=2:kn(2)=4:gn(2)=2:pq(2)=1200000
  7. 17 ks$(3)="maggi gmbh":ka(3)=2:ga(3)=2:kn(3)=5:gn(3)=2:pq(3)=1350000
  8. 18 ks$(4)="sprengel":ka(4)=12:pq(4)=800000
  9. 19 ks$(5)="texaco":ka(5)=5:ga(5)=5:pq(5)=800000
  10. 20 ks$(6)="isenbeck":ga(6)=4:gn(6)=3:pq(6)=950000
  11. 21 ks$(7)="":rn=1:ka=10000:ep=2
  12. 22 mm(1)=4:mn(1)=6:sx$(1)="plaetzchenkartons"
  13. 23 lm(1)=5:ln(1)=6:px$(1)="spieldisketten"
  14. 24 lm(2)=7:ln(2)=7:px$(2)="haushaltswaren"
  15. 25 lm(3)=8:ln(3)=7:px$(4)="schokoladenkartons"
  16. 26 lm(4)=6:ln(4)=5:px$(5)="faesser oel"
  17. 27 lm(5)=6:ln(5)=7:px$(6)="20 l fass bier"
  18. 28 lm(6)=9:ln(6)=7:px$(3)="kartons a 20 flaschen"
  19. 29 goto48
  20. 30 fort=1to8
  21. 31 a=len(a$(t))
  22. 32 ifa=0then35
  23. 33 b=a-10
  24. 34 a$(t)=left$(a$(t),b)
  25. 35 a=len(ks$(t))
  26. 36 ifa=0then39
  27. 37 b=a-10
  28. 38 ks$(t)=left$(ks$(t),b)
  29. 39 a=len(sx$(t))
  30. 40 ifa=0then43
  31. 41 b=a-10
  32. 42 sx$(t)=left$(sx$(t),b)
  33. 43 a=len(px$(t))
  34. 44 ifa=0then47
  35. 45 b=a-10
  36. 46 px$(t)=left$(px$(t),b)
  37. 47 next
  38. 48 w1=(rnd(1)*100)+1
  39. 49 print"[147][154]":poke53281,6:poke53280,6
  40. 50 printtab(9)"wirtschafts manager"
  41. 51 print"       jetzt kommt die"rn"[157]. runde[146]"
  42. 52 goto54
  43. 53 print"[147][154]":poke53281,1:poke53280,6
  44. 54 fort=1to7:ez(t)=0:next
  45. 55 fort=1to7
  46. 56 az(t)= int((mn(t)/2)*bx(t)+(mn(t)/3)*ax(t)+(mn(t)/3)*cx(t)+(mn(t)/1)*dx(t))
  47. 57 bz(t)= int((mn(t)/3)*bx(t)+(mn(t)/5)*ax(t)+(mn(t)/4)*cx(t)+(mn(t)/2)*dx(t))
  48. 58 cz(t)= int((mn(t)/5)*bx(t)+(mn(t)/5)*cx(t)+(mn(t)/3)*dw(t))
  49. 59 dz(t)= int((mn(t)/4)*dx(t))
  50. 60 ew(t)=az(t)+bz(t)+cz(t)+dz(t)
  51. 61 forr=30to600step30
  52. 62 ifew(t)>rthenez(t)=ez(t)+1
  53. 63 next
  54. 64 le(t)=mn(t)*(ax(t)*100+bx(t)*200+cx(t)*140+dx(t)*300)
  55. 65 next
  56. 66 print"[147]"
  57. 67 printtab(15)"*********"
  58. 68 printtab(15)"* menue *"
  59. 69 printtab(15)"*********"
  60. 70 printtab(9)"kapital:"ka"[157] runde:"rn"[157] "
  61. 71 printtab(9)"personal.............a"
  62. 72 printtab(9)"ausstattung..........b"
  63. 73 printtab(9)"boerse...............c"
  64. 74 printtab(9)"firmen...............d"
  65. 75 printtab(9)"preise...............e"
  66. 76 printtab(9)"uebersicht...........f"
  67. 77 printtab(9)"bestechung...........g"
  68. 78 printtab(9)"unterwelt............h"
  69. 79 printtab(9)"diskette.............i"
  70. 80 printtab(9)"weiter[146]...............j[146]"
  71. 81 get zz$:ifzz$=""goto81
  72. 82 ifzz$="a"goto93
  73. 83 ifzz$="b"goto152
  74. 84 ifzz$="c"goto342
  75. 85 ifzz$="d"goto207
  76. 86 ifzz$="e"goto284
  77. 87 ifzz$="f"goto311
  78. 88 ifzz$="g"goto496
  79. 89 ifzz$="h"goto550
  80. 90 ifzz$="j"goto410
  81. 91 ifzz$="i"goto648
  82. 92 goto 81
  83. 93 poke53280,1:poke53281,1:print"[147]":a=1:w=0:cx=1
  84. 94 printtab(14)"**********"
  85. 95 printtab(14)"*personal*"
  86. 96 printtab(14)"**********"
  87. 97 print""
  88. 98 printtab(9)a$(a)
  89. 99 fort=0to20-len(a$(a))
  90. 100 pokew+1433+ len(a$(a))+t,46
  91. 101 next
  92. 102 pokew+1433+ len(a$(a))+t,cx
  93. 103 a=a+1:ifa$(a)<>""thencx=cx+1:w=w+40:goto97
  94. 104 print"fuer welche firma ?"
  95. 105 getzz$:ifzz$=""then105
  96. 106 print"[147]":a=asc(zz$)-64
  97. 107 ifa<0ora>7then53
  98. 108 printtab(15);a$(a)
  99. 109 ifa$(a)=""then53
  100. 110 print"":
  101. 111 print"e=einstellen/r=rausschmeissen/w=weiter"
  102. 112 print""
  103. 113 print"    art       [221]benoetigt[221]einge.[221]gehalt
  104. 114 [153]"tantantantantantantantantantantantantantan(NULL)tantantantantantantantantan(NULL)tantantantantantan(NULL)tantantantantan"
  105. 115 [153]"              (NULL)         (NULL)      (NULL)"
  106. 116 [153]""
  107. 117 [153]"onauszubildender(NULL)   "az(a)"cmd     "ay(a)"cmd    "100[172]mm(a)"cmd "
  108. 118 [161]zz$:[139]zz$[178]""[167]118
  109. 119 [139]zz$[178]"e"[167]ay(a)[178]ay(a)[170]1
  110. 120 [139]zz$[178]"r"[167]ay(a)[178]ay(a)[171]1
  111. 121 [139]ay(a)[179]0[167]ay(a)[178]0
  112. 122 [139]zz$[178]"w"[137]124
  113. 123 [137]117
  114. 124 [153]"onarbeiter      (NULL)   "bz(a)"cmd     "by(a)"cmd    "200[172]mm(a)"cmd "
  115. 125 [161]zz$:[139]zz$[178]""[167]125
  116. 126 [139]zz$[178]"e"[167]by(a)[178]by(a)[170]1
  117. 127 [139]zz$[178]"r"[167]by(a)[178]by(a)[171]1
  118. 128 [139]by(a)[179]0[167]by(a)[178]0
  119. 129 [139]zz$[178]"w"[137]131
  120. 130 [137]124
  121. 131 [153]"onfacharbeiter  (NULL)   "cz(a)"cmd     "cy(a)"cmd    "300[172]mm(a)"cmd "
  122. 132 [161]zz$:[139]zz$[178]""[167]132
  123. 133 [139]zz$[178]"e"[167]cy(a)[178]cy(a)[170]1
  124. 134 [139]zz$[178]"r"[167]cy(a)[178]cy(a)[171]1
  125. 135 [139]cy(a)[179]0[167]cy(a)[178]0
  126. 136 [139]zz$[178]"w"[167]138
  127. 137 [137]131
  128. 138 [153]"oningenieur     (NULL)   "dz(a)"cmd     "dy(a)"cmd    "500[172]mm(a)"cmd "
  129. 139 [161]zz$:[139]zz$[178]""[167]139
  130. 140 [139]zz$[178]"e"[167]dy(a)[178]dy(a)[170]1
  131. 141 [139]zz$[178]"r"[167]dy(a)[178]dy(a)[171]1
  132. 142 [139]dy(a)[179]0[167]dy(a)[178]0
  133. 143 [139]zz$[178]"w"[167]145
  134. 144 [137]138
  135. 145 [153]"ondirektor      (NULL)   "ez(a)"cmd     "ey(a)"cmd    "800[172]mm(a)"cmd "
  136. 146 [161]zz$:[139]zz$[178]""[137]146
  137. 147 [139]zz$[178]"e"[167]ey(a)[178]ey(a)[170]1
  138. 148 [139]zz$[178]"r"[167]ey(a)[178]ey(a)[171]1
  139. 149 [139]ey(a)[179]0[167]ey(a)[178]0
  140. 150 [139]zz$[178]"w"[167]93
  141. 151 [137]145
  142. 152 [151]53281,2:[151]53280,2:[153]"load":a[178]1:cx[178]1:az(a)[178]0:bz(a)[178]0:cz(a)[178]0:dz(a)[178]0
  143. 153 ez(a)[178]0:w[178]0
  144. 154 [153][163]13)"*************"
  145. 155 [153][163]13)"*ausstattung*"
  146. 156 [153][163]13)"*************"
  147. 157 [153]""
  148. 158 [153][163]9)a$(a)
  149. 159 [129]t[178]0[164]20[171][195](a$(a))
  150. 160 [151]w[170]1433[170][195](a$(a))[170]t,46
  151. 161 [130]
  152. 162 [151]w[170]1433[170][195](a$(a))[170]t,cx
  153. 163 a[178]a[170]1:[139]a$(a)[179][177]""[167]cx[178]cx[170]1:w[178]w[170]40:[137]158
  154. 164 [153]"fuer welche firma ?"
  155. 165 [161]zz$:[139]zz$[178]""[167]165
  156. 166 [153]"load":a[178][198](zz$)[171]64
  157. 167 [139]a[179]0[176]a[177]7[167]53
  158. 168 [153][163]15);a$(a)
  159. 169 [139]a$(a)[178]""[167]53
  160. 170 mm[178]mm(a):mn[178]mn(a)
  161. 171 [153]"":
  162. 172 [153]"k=kaufen/v=verkaufen/w=weiter"
  163. 173 [153]""
  164. 174 [153]"    art      (NULL)leistung (NULL)besitz(NULL)preis
  165. 175 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][219][192][192][192][192][192]"
  166. 176 print"             [221]         [221]      [221]"
  167. 177 print""
  168. 178 print"[145]spynx        [221]   "mn(a)*100"[157]   "ax(a)"[157]    "900*mm(a)"[157] "
  169. 179 getzz$:ifzz$=""then179
  170. 180 ifzz$="k"thenax(a)=ax(a)+1:au(a)=au(a)+900*mm(a)
  171. 181 ifzz$="v"thenax(a)=ax(a)-1:ei(a)=ei(a)+(900*mm(a)-90*mn(a))
  172. 182 ifax(a)<0thenax(a)=0
  173. 183 ifzz$="w"then 185
  174. 184 goto178
  175. 185 print"[145]ultimus      [221]   "mn*200"[157]   "bx(a)"[157]    "1870*mm"[157] "
  176. 186 getzz$:ifzz$=""then186
  177. 187 ifzz$="k"thenbx(a)=bx(a)+1:au(a)=au(a)+1870*mm
  178. 188 ifzz$="v"thenbx(a)=bx(a)-1:ei(a)=ei(a)+(1870*mm-187*mn)
  179. 189 ifbx(a)<0thenbx(a)=0
  180. 190 ifzz$="w"then192
  181. 191 goto185
  182. 192 print"[145]sorox        [221]   "mn*140"[157]   "cx(a)"[157]    "1350*mm"[157] "
  183. 193 getzz$:ifzz$=""then193
  184. 194 ifzz$="k"thencx(a)=cx(a)+1:au(a)=au(a)+1350*mm
  185. 195 ifzz$="v"thencx(a)=cx(a)-1:ei(a)=ei(a)+(1350*mm-135*mn)
  186. 196 ifcx(a)<0thenbx(a)=0
  187. 197 ifzz$="w"then199
  188. 198 goto192
  189. 199 print"[145]magnus       [221]   "mn*300"[157]   "dx(a)"[157]   "3000*mm"[157] "
  190. 200 getzz$:ifzz$=""then200
  191. 201 ifzz$="k"thendx(a)=dx(a)+1:au(a)=au(a)+3000*mm
  192. 202 ifzz$="v"thendx(a)=dx(a)-1:ei(a)=ei(a)+(3000*mm-300*mn)
  193. 203 ifdx(a)<0thendx(a)=0
  194. 204 ifzz$="w"then152
  195. 205 goto199
  196. 206 next
  197. 207 poke53281,0:poke53280,0:print"[147][159]":cx=1
  198. 208 w=0:hh=0
  199. 209 printtab(15)"********"
  200. 210 printtab(15)"*firmen*"
  201. 211 printtab(15)"********"
  202. 212 print""
  203. 213 hh=hh+1
  204. 214 printtab(9)ks$(hh)
  205. 215 fort=0to20-len(ks$(hh))
  206. 216 pokew+1433+len(ks$(hh))+t,46
  207. 217 next
  208. 218 pokew+1433+len(ks$(hh))+t,cx
  209. 219 cx=cx+1:w=w+40:ifhh<7then213
  210. 220 printtab(9)"verkaufen=v/weiter=w
  211. 221 [161]zz$:[139]zz$[178]""[167]221
  212. 222 [139]zz$[178]"w"[167]53
  213. 223 [139]zz$[178]"v"[167]249
  214. 224 [139][198](zz$)[179]65[176][198](zz$)[177]71[167]221
  215. 225 [153]"load"
  216. 226 as[178][198](zz$)[171]64
  217. 227 [153][163]10);ks$(as)
  218. 228 [153]""
  219. 229 [153][163]9)"spynx......"ka(as)
  220. 230 [153][163]9)"ultimus...."ga(as)
  221. 231 [153][163]9)"sorox......"kn(as)
  222. 232 [153][163]9)"magnus....."gn(as)
  223. 233 [153][163]9)"preis......"pq(as)
  224. 234 [153][163]9)"kaufen..... ?"
  225. 235 [161]zz$:[139]zz$[178]""[167]235
  226. 236 [139]zz$[179][177]"j"[167]207
  227. 237 [129]t[178]1[164]7
  228. 238 [139]a$(t)[178]""[167]240
  229. 239 [130]
  230. 240 a$(t)[178]ks$(as)
  231. 241 cx(t)[178]kn(as):sx$(t)[178]px$(as)
  232. 242 ax(t)[178]ka(as)
  233. 243 dx(t)[178]gn(as)
  234. 244 bx(t)[178]ga(as)
  235. 245 ka[178]ka[171]pq(as)
  236. 246 mm(t)[178]lm(as)
  237. 247 mn(t)[178]ln(as):ks$(as)[178]""
  238. 248 [137]207
  239. 249 [153]"load":a[178]1:w[178]0:cx[178]1
  240. 250 [153][163]9)a$(a)
  241. 251 [129]t[178]0[164]20[171][195](a$(a))
  242. 252 [151]w[170]1433[170][195](a$(a))[170]t,46
  243. 253 [130]
  244. 254 [151]w[170]1433[170][195](a$(a))[170]t,cx
  245. 255 a[178]a[170]1:[139]a$(a)[179][177]""[167]cx[178]cx[170]1:w[178]w[170]40:[137]250
  246. 256 [153]"w=weiter"
  247. 257 [161]zz$:[139]zz$[178]""[167]257
  248. 258 [139]zz$[178]"w"[167] 207
  249. 259 [139][198](zz$)[179]65[176][198](zz$)[177]64[170]a[167]257
  250. 260 [153]"load"
  251. 261 lk[178][198](zz$)[171]64:[139]a$(lk)[178]""[167]249
  252. 262 [153][163]10);a$(lk)
  253. 263 y[178]5[170]ez(lk)
  254. 264 dj[178][181]([187](1)[172]y)[170]1
  255. 265 dj[178]dj[172]100000
  256. 266 [153]""
  257. 267 [153][163]10)"preis";dj
  258. 268 [153]"verkaufen ?"
  259. 269 [161]zz$:[139]zz$[178]""[167]269
  260. 270 [139]zz$[179][177]"j"[167]249
  261. 271 [129]t[178]1[164]7
  262. 272 [139]ks$(t)[178]""[167]274
  263. 273 [130]
  264. 274 ks$(t)[178]a$(lk)
  265. 275 ka(t)[178]ax(lk)
  266. 276 kn(t)[178]cx(lk)
  267. 277 ga(t)[178]bx(lk):px$(t)[178]sx$(lk)
  268. 278 gn(t)[178]dx(lk)
  269. 279 lm(t)[178]mm(lk)
  270. 280 ln(t)[178]mn(lk)
  271. 281 pq(t)[178]dj[170]50000
  272. 282 a$(lk)[178]"":ka[178]ka[170]dj
  273. 283 [137]53
  274. 284 [151]53280,7:[151]53281,7:[153]"loadpoke":a[178]1:cx[178]1:w[178]0:
  275. 285 [153][163]15)"********"
  276. 286 [153][163]15)"*preise*"
  277. 287 [153][163]15)"********"
  278. 288 [153]""
  279. 289 [153][163]9)a$(a)
  280. 290 [129]t[178]0[164]20[171][195](a$(a))
  281. 291 [151]w[170]1433[170][195](a$(a))[170]t,46
  282. 292 [130]
  283. 293 [151]w[170]1433[170][195](a$(a))[170]t,cx
  284. 294 a[178]a[170]1:[139]a$(a)[179][177]""[167]cx[178]cx[170]1:w[178]w[170]40:[137]289
  285. 295 [153]"fuer welche firma ?"
  286. 296 [161]zz$:[139]zz$[178]""[167]296
  287. 297 [153]"load":a[178][198](zz$)[171]64
  288. 298 [139]a[179]0[176]a[177]7[167]53
  289. 299 [153][163]10);a$(a)
  290. 300 [139]a$(a)[178]""[167]53
  291. 301 [153][163]7)"fuer:";sx$(a);""
  292. 302 [153][163]9)"alter preis:";pa(a)
  293. 303 [153][163]9)"w=weiter/a=aendern"
  294. 304 [161]xx$:[139]xx$[178]""[167]304
  295. 305 [139]xx$[178]"w"[167]284
  296. 306 [139]xx$[178]"a"[167]308
  297. 307 [137]304
  298. 308 [133]"neuer preis";pn
  299. 309 pa(a)[178]pn
  300. 310 [137]297
  301. 311 [151]53280,3:[151]53281,3:[153]"loadverify":a[178]1:cx[178]1:w[178]0:gg[178]1:w[178]0
  302. 312 [153][163]13)"************"
  303. 313 [153][163]13)"*uebersicht*"
  304. 314 [153][163]13)"************"
  305. 315 [153]""
  306. 316 [153][163]9)a$(a)
  307. 317 [129]t[178]0[164]20[171][195](a$(a))
  308. 318 [151]w[170]1433[170][195](a$(a))[170]t,46
  309. 319 [130]
  310. 320 [151]w[170]1433[170][195](a$(a))[170]t,cx
  311. 321 a[178]a[170]1:[139]a$(a)[179][177]""[167]cx[178]cx[170]1:w[178]w[170]40:[137]316
  312. 322 [153]"fuer welche firma ?"
  313. 323 [161]zz$:[139]zz$[178]""[167]323
  314. 324 [153]"load":a[178][198](zz$)[171]64
  315. 325 [139]a[179]0[176]a[177]7[167]53
  316. 326 [153][163]15);a$(a)
  317. 327 [139]a$(a)[178]""[167]53
  318. 328 mm[178]mm(a):mn[178]mn(a)
  319. 329 [139]a$(a)[178]""[167]53
  320. 330 [153]"":bv[178]ax(a)[170]bx(a)[170]cx(a)[170]dx(a)
  321. 331 [153]"auszubildende........"ay(a)
  322. 332 [153]"arbeiter............."by(a)
  323. 333 [153]"fachkraefte.........."cy(a)
  324. 334 [153]"ingenieure..........."dy(a)
  325. 335 [153]"direktoren..........."ey(a)
  326. 336 [153]"maschinen............"bv
  327. 337 [153]"kapital.............."ka
  328. 338 [153]"preis................"pa(a)
  329. 339 [153]"leistung";le(a);sx$(a)
  330. 340 [161]zz$:[139]zz$[178]""[167]340
  331. 341 [137]311
  332. 342 [151]53281,1 :[151]53280,13:[153]"load":cc[178]1
  333. 343 [153][163]15)""
  334. 344 [153][163]15)"********"
  335. 345 [153][163]15)"*boerse*"
  336. 346 [153][163]15)"********"
  337. 347 [153]"":y[178]40000[171]re(cc):oq[178][181]([187](1)[172]y)[170]1:op[178]oq
  338. 348 [153]"k=kaufen/a=abstossen/w=weiter"
  339. 349 [153]""
  340. 350 [153]"   firmen    (NULL)  frei   (NULL)haben(NULL)preis
  341. 351 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][192]"
  342. 352 print"             [221]         [221]     [221]"
  343. 353 print:on cc goto354,362,370,378,386,394,402
  344. 354 pr=10*(int(1.8*w1)+800)
  345. 355 print"[145]deutsche bank[221] ";oq;"[157]    ";re(cc);"[157]   ";pr;"[157] "
  346. 356 getzz$:ifzz$=""then356
  347. 357 ifzz$="k"thenoq=oq-1:au(8)=au(8)+pr:re(cc)=re(cc)+1
  348. 358 ifzz$="a"thenoq=oq+1:ei(8)=ei(8)+pr:re(cc)=re(cc)-1
  349. 359 ifre(cc)<1thenre(cc)=0:oq=op
  350. 360 ifzz$="w"thencc=cc+1:goto343
  351. 361 goto354
  352. 362 pr=10*(int(2.0*w1)+1200)
  353. 363 print"[145]daimler        ";oq;"[157]    ";re(cc);"[157]   ";pr;"[157] "
  354. 364 getzz$:ifzz$=""then364
  355. 365 ifzz$="k"thenoq=oq-1:au(8)=au(8)+pr:re(cc)=re(cc)+1
  356. 366 ifzz$="a"thenoq=oq+1:ei(8)=ei(8)+pr:re(cc)=re(cc)-1
  357. 367 ifre(cc)<1thenre(cc)=0:oq=op
  358. 368 ifzz$="w"thencc=cc+1:goto343
  359. 369 goto362
  360. 370 pr=10*(int(1.2*w1)+280)
  361. 371 print"[145]a e g          ";oq;"[157]    ";re(cc);"[157]   ";pr;"[157] "
  362. 372 getzz$:ifzz$=""then372
  363. 373 ifzz$="k"thenoq=oq-1:au(8)=au(8)+pr:re(cc)=re(cc)+1
  364. 374 ifzz$="a"thenoq=oq+1:ei(8)=ei(8)+pr:re(cc)=re(cc)-1
  365. 375 ifre(cc)<1thenre(cc)=0:oq=op
  366. 376 ifzz$="w"thencc=cc+1:goto343
  367. 377 goto370
  368. 378 pr=10*(int(0.4*w1)+80)
  369. 379 print"[145]kloeckner    [221] ";oq;"[157]    ";re(cc);"[157]   ";pr;"[157] "
  370. 380 getzz$:ifzz$=""then380
  371. 381 ifzz$="k"thenoq=oq-1:au(8)=au(8)+pr:re(cc)=re(cc)+1
  372. 382 ifzz$="a"thenoq=oq+1:ei(8)=ei(8)+pr:re(cc)=re(cc)-1
  373. 383 ifre(cc)<1thenre(cc)=0:oq=op
  374. 384 ifzz$="w"thencc=cc+1:goto343
  375. 385 goto378
  376. 386 pr=10*(int(1.0*w1)+250)
  377. 387 print"[145]lufthansa    [221] ";oq;"[157]    ";re(cc);"[157]   ";pr;"[157] "
  378. 388 getzz$:ifzz$=""then388
  379. 389 ifzz$="k"thenoq=oq-1:au(8)=au(8)+pr:re(cc)=re(cc)+1
  380. 390 ifzz$="a"thenoq=oq+1:ei(8)=ei(8)+pr:re(cc)=re(cc)-1
  381. 391 ifre(cc)<1thenre(cc)=0:oq=op
  382. 392 ifzz$="w"thencc=cc+1:goto343
  383. 393 goto386
  384. 394 pr=10*(int(0.6*w1)+150)
  385. 395 print"[145]hoesch       [221] ";oq;"[157]    ";re(cc);"[157]   ";pr;"[157] "
  386. 396 getzz$:ifzz$=""then396
  387. 397 ifzz$="k"thenoq=oq-1:au(8)=au(8)+pr:re(cc)=re(cc)+1
  388. 398 ifzz$="a"thenoq=oq+1:ei(8)=ei(8)+pr:re(cc)=re(cc)-1
  389. 399 ifre(cc)<1thenre(cc)=0:oq=op
  390. 400 ifzz$="w"thencc=cc+1:goto343
  391. 401 goto394
  392. 402 pr=10*(int(0.7*w1)+150)
  393. 403 print"[145]gelsenwasser [221] ";oq;"[157]    ";re(cc);"[157]   ";pr;"[157] "
  394. 404 getzz$:ifzz$=""then404
  395. 405 ifzz$="k"thenoq=oq-1:au(8)=au(8)+pr:re(cc)=re(cc)+1
  396. 406 ifzz$="a"thenoq=oq+1:ei(8)=ei(8)+pr:re(cc)=re(cc)-1
  397. 407 ifre(cc)<1thenre(cc)=0:oq=op
  398. 408 ifzz$="w"thencc=cc+1:goto53
  399. 409 goto402
  400. 410 poke53280,4:poke53281,4:print"[147][144]":a=1:cx=1:w=0:
  401. 411 print"[147]"
  402. 412 printtab(15)"********"
  403. 413 printtab(15)"*bilanz*"
  404. 414 printtab(15)"********"
  405. 415 ifa$(a)=""then446
  406. 416 printtab(15)"fuer"
  407. 417 printtab(15);a$(a)
  408. 418 mm=mm(a):mn=mn(a)
  409. 419 print""
  410. 420 l9=mm*(ay(a)*100+by(a)*200+cy(a)*300+dy(a)*500+ey(a)*800)
  411. 421 print"gehaelter:";l9
  412. 422 print"maschinen:";au(a)
  413. 423 cv=le(a)
  414. 424 cv=cv-150*(az(a)-ay(a))
  415. 425 cv=cv-300*(bz(a)-by(a))
  416. 426 cv=cv-450*(cz(a)-cy(a))
  417. 427 cv=cv-750*(dz(a)-dy(a))
  418. 428 ifey(a)<ez(a)thencv=0
  419. 429 printsx$(a);":";cv
  420. 430 print"lager:";la(a);" ";sx$(a)
  421. 431 print"insgesamt:";la(a)+cv;" ";sx$(a)
  422. 432 ok=la(a)+cv
  423. 433 print"preis:";pa(a)
  424. 434 ifpa(a)=mm+2thenui=ok/2:uy=int(ok/2.5)
  425. 435 ifpa(a)<mm-2thenui=2*(int(ok/3)):uy=int(ok/3)
  426. 436 ifpa(a)>mm-3andpa(a)<mm+1thenui=ok/2:uy=int(ok/3)
  427. 437 ifpa(a)>mm+0andpa(a)<mm+5thenui=1*(int(ok/3)):uy=int(ok/3)
  428. 438 ifpa(a)>mm+2andpa(a)<mm+20thenui=1*(int(ok/3)):uy=0
  429. 439 ifpa(a)>mm+19thenvd=0:goto441
  430. 440 vd=int(rnd(1)*ui)+uy
  431. 441 print"verkauft:";vd:la(a)=int((ok-vd)/2)
  432. 442 ed(a)=(vd*pa(a))-au(a)+ei(a)-l9
  433. 443 print"endsumme:";ed(a)
  434. 444 getzz$:ifzz$=""then444
  435. 445 a=a+1:goto411
  436. 446 printtab(15) "boerse"
  437. 447 print"ausgaben:";au(8)
  438. 448 print"einnahmen:";ei(8)
  439. 449 ka=ka-au(8)+ei(8)
  440. 450 fort=1to8:au(t)=0:ei(t)=0:next
  441. 451 rn=rn+1:
  442. 452 getzz$:ifzz$=""then452
  443. 453 printtab(15) "[147]finanzamt"
  444. 454 fort=1to7:vl=vl+ed(t):ed(t)=0:next
  445. 455 print"einahmen:";vl
  446. 456 ifvl<335thenrp=0
  447. 457 ifvl>335thenrp=10
  448. 458 ifvl>2000thenrp=28
  449. 459 ifvl>5000thenrp=36
  450. 460 ifvl>7550thenrp=43
  451. 461 ifvl>8990thenrp=48
  452. 462 ifvl>42110thenrp=53
  453. 463 rp=rp-uw:uw=0:be=0
  454. 464 ifrp<0thenrp=0
  455. 465 ifvl<1thenrp=0
  456. 466 ts=int(vl/100)*rp
  457. 467 vl=vl-ts
  458. 468 print"einkommenssteuer:";rp;"%  ";ts;"dm"
  459. 469 ka=ka+vl
  460. 470 print"kapital:";ka
  461. 471 vs=0
  462. 472 ifka>300000thenvs=1
  463. 473 ifka>500000thenvs=2
  464. 474 ifka>1000000thenvs=5
  465. 475 ds=int(ka/100)*vs
  466. 476 print"vermoegensteuer:";vs;"%  ";ds;"dm"
  467. 477 ka=ka-ds:vl=0
  468. 478 print"kapital:";ka
  469. 479 getzz$:ifzz$=""then479
  470. 480 ifka>-1thenp0=0
  471. 481 ifp0=1then486
  472. 482 ifka<0then484
  473. 483 goto488
  474. 484 print"[147]du hast schulden. siehe zu,dass du sie  los wirst"
  475. 485 fort=1to5000:next: p0=1:goto488
  476. 486 print"[147]du bist deine schulden nicht los gewor- den. du hast verloren."
  477. 487 end
  478. 488 print"[147]unterwelt"
  479. 489 print"drogen:";dg
  480. 490 print"prostitution:";dp
  481. 491 print"maedchenhandel:";dm
  482. 492 ka=ka+dg+dm+dp
  483. 493 dg=0:dm=0:dp=0
  484. 494 getzz$:ifzz$=""then494
  485. 495 goto48
  486. 496 ifbe<>0thenprinttab(9)"schon probiert!":goto498
  487. 497 goto500
  488. 498 getzz$:ifzz$=""then498
  489. 499 goto53
  490. 500 poke53280,15:poke53281,15:print"[147][149]":bb=10:nn=10
  491. 501 printtab(13)"************"
  492. 502 printtab(13)"*bestechung*"
  493. 503 printtab(13)"************"
  494. 504 print""
  495. 505 printtab(13)"preis";ep*2000;""
  496. 506 printtab(13)"versuch ?(j/n)"
  497. 507 getzz$:ifzz$=""then507
  498. 508 ifzz$<>"j"then53
  499. 509 ff=int(rnd(1)*2)+1
  500. 510 print"":ka=ka-ep*2000:be=1:ep=ep+1
  501. 511 fort=1to50+ff
  502. 512 fordd=1to500stepbb:next dd
  503. 513 ift=nnthenbb=bb-1:nn=nn+5
  504. 514 ifxv=1then525:printtab(13)"[145][144]bestochen[146] "
  505. 516 xv=1
  506. 517 next
  507. 518 goto525
  508. 519 printtab(13)"[145]verweigert "
  509. 520 xv=0
  510. 521 next
  511. 522 print"schade!":
  512. 523 getzz$:ifzz$=""then523
  513. 524 goto53
  514. 525 print"gut gemacht!"
  515. 526 getzz$:ifzz$=""then526
  516. 527 print"[147]"
  517. 528 print""
  518. 529 print"  5  0 10  0 20  0 40  0 20  0 10  0  5"
  519. 530 print"s=stop"
  520. 531 poke1346+j,30
  521. 532 poke1343+j+hb,32
  522. 533 getzz$:ifzz$="s"then537
  523. 534 j=j+3:hb=0
  524. 535 ifj>36thenj=0:hb=39
  525. 536 goto531
  526. 537 ifj=3orj=9orj=15orj=21orj=27orj=33then544
  527. 538 ifj=0orj=36thenuw=5
  528. 539 ifj=6orj=30thenuw=10
  529. 540 ifj=12orj=24thenuw=20
  530. 541 ifj=18thenuw=40
  531. 542 getzz$:ifzz$=""then542
  532. 543 goto53
  533. 544 print"dein bestechungsversuch fliegt auf. zur strafe musst du";j/3;"%";
  534. 545 print" mehr steuern zahlen"
  535. 546 uw=-(j/3)
  536. 547 ep=ep+1
  537. 548 getzz$:ifzz$=""then548
  538. 549 goto53
  539. 550 poke53280,5:poke53281,5:print"[147][153]"
  540. 551 printtab(14)"***********"
  541. 552 printtab(14)"*unterwelt*"
  542. 553 printtab(14)"***********"
  543. 554 print""
  544. 555 printtab(9)"drogen.............a"
  545. 556 printtab(9)"maedchenhandel.....b"
  546. 557 printtab(9)"prostitution.......c"
  547. 558 printtab(9)"weiter.............d"
  548. 559 getzz$
  549. 560 ifzz$="a"then565
  550. 561 ifzz$="b"then592
  551. 562 ifzz$="c"then619
  552. 563 ifzz$="d"then53
  553. 564 goto559
  554. 565 print"[147]"
  555. 566 printtab(15)"drogen"
  556. 567 print""
  557. 568 printtab(15)"gewinn 25%"
  558. 569 printtab(15)"investieren?"
  559. 570 getzz$:ifzz$=""then570
  560. 571 ifzz$<>"j"then550
  561. 572 printtab(14);
  562. 573 input"wieviel";kl
  563. 574 ifkl>kathen550
  564. 575 ka=ka-kl
  565. 576 ss=int(rnd(1)* 7-ld)+1
  566. 577 ifss=1then582
  567. 578 dg=dg+kl+int(kl/100)*25
  568. 579 printtab(9)"geschaeft gut gelaufen"
  569. 580 getzz$:ifzz$=""then580
  570. 581 goto550
  571. 582 ld=ld+1
  572. 583 ss=int(rnd(1)*10-ld)+1
  573. 584 ifss=1then646
  574. 585 bz=25000
  575. 586 ifka>200000thenbz=250000
  576. 587 print"alles ist aufgeflogen, das geld futsch  und du musst eine strafe von";
  577. 588 printbz;"     bezahlen"
  578. 589 dg=dg-kl:ka=ka-bz
  579. 590 getzz$:ifzz$=""then590
  580. 591 goto550
  581. 592 print"[147]"
  582. 593 printtab(9)"maedchenhandel"
  583. 594 print""
  584. 595 printtab(14)"gewinn 50%"
  585. 596 printtab(13)"investieren ?"
  586. 597 getzz$:ifzz$=""then597
  587. 598 ifzz$<>"j"then550
  588. 599 printtab(14);
  589. 600 input"wieviel";kl
  590. 601 ifkl>kathen550
  591. 602 ka=ka-kl
  592. 603 ss=int(rnd(1)* 4-lm)+1
  593. 604 ifss=1then609
  594. 605 dm=dm+kl+int(kl/100)*50
  595. 606 printtab(9)"geschaeft gut gelaufen"
  596. 607 getzz$:ifzz$=""then607
  597. 608 goto550
  598. 609 lm=lm+1
  599. 610 ss=int(rnd(1)*6-lm)+1
  600. 611 ifss=1then646
  601. 612 bz=50000
  602. 613 ifka>400000thenbz=500000
  603. 614 print"alles ist aufgeflogen, das geld futsch  und du musst eine strafe von";
  604. 615 printbz;"     bezahlen"
  605. 616 dm=dm-kl:ka=ka-bz
  606. 617 getzz$:ifzz$=""then617
  607. 618 goto550
  608. 619 print"[147]"
  609. 620 printtab(10)"prostutitation"
  610. 621 print""
  611. 622 printtab(14)"gewinn 40%"
  612. 623 printtab(13)"investieren ?"
  613. 624 getzz$:ifzz$=""then624
  614. 625 ifzz$<>"j"then550
  615. 626 printtab(14);
  616. 627 input"wieviel";kl
  617. 628 ifkl>kathen550
  618. 629 ka=ka-kl
  619. 630 ss=int(rnd(1)* 5-lp)+1
  620. 631 ifss=1then636
  621. 632 dp=dp+kl+int(kl/100)*40
  622. 633 printtab(9)"geschaeft gut gelaufen"
  623. 634 getzz$:ifzz$=""then634
  624. 635 goto550
  625. 636 lp=lp+1
  626. 637 ss=int(rnd(1)*10-lp)+1
  627. 638 ifss=1then646
  628. 639 bz=40000
  629. 640 ifka>300000thenbz=400000
  630. 641 print"alles ist aufgeflogen, das geld futsch  und du musst eine strafe von";
  631. 642 printbz;"dm   bezahlen"
  632. 643 dp=dp-kl:ka=ka-bz
  633. 644 getzz$:ifzz$=""then644
  634. 645 goto550
  635. 646 print"du musst ins gefaengnis und alles ist   futsch. du hast verloren"
  636. 647 end
  637. 648 poke53280,14:poke53281,14:print"[147]"
  638. 649 printtab(14)"**********"
  639. 650 printtab(14)"*diskette*"
  640. 651 printtab(14)"**********"
  641. 652 print""
  642. 653 printtab(9)"speichern..........s"
  643. 654 printtab(9)"laden..............l"
  644. 655 printtab(9)"weiter.............w"
  645. 656 getzz$:ifzz$=""then656
  646. 657 ifzz$="s"then661
  647. 658 ifzz$="l"then680
  648. 659 ifzz$="w"then53
  649. 660 goto656
  650. 661 print"[147]"
  651. 662 printtab(14)"speichern"
  652. 663 printtab(14)"";
  653. 664 input"filename";a$
  654. 665 b$=a$+",s,w":a$=chr$(13)
  655. 666 open2,8,2,b$
  656. 667 fort=1to7
  657. 668 print#2,ay(t),a$,by(t),a$,cy(t),a$,dy(t),a$,ey(t),a$,ax(t),a$,bx(t),a$
  658. 669 print#2,cx(t),a$,dx(t),a$,sx$(t),a$,px$(t),a$
  659. 670 print#2,ka(t),a$,kn(t),a$,ga(t),a$,gn(t),a$,ks$(t),a$
  660. 671 print#2,a$(t),a$,re(t),a$,pa(t),a$,mm(t),a$,mn(t),a$,lm(t),a$,ln(t),a$
  661. 672 print#2,pq(t),a$,au(t),a$,ei(t),a$,la(t),a$
  662. 673 next
  663. 674 print#2,rn,a$,ka,a$,be,a$,uw,a$,dg,a$,dm,a$,dp,a$,ld,a$,lm,a$,lp,a$
  664. 675 print#2,au(8),a$,ei(8),a$
  665. 676 close2
  666. 677 printtab(14)"fertig!"
  667. 678 getzz$:ifzz$=""then678
  668. 679 goto53
  669. 680 print"[147]"
  670. 681 printtab(14)"laden"
  671. 682 printtab(14)"";
  672. 683 input"filename";a$
  673. 684 b$=a$+",s,r"
  674. 685 open2,8,2,b$:open1,8,15:input#1,a,c$
  675. 686 ifa>5then700
  676. 687 fort=1to7
  677. 688 input#2,ay(t),by(t),cy(t),dy(t),ey(t),ax(t),bx(t)
  678. 689 input#2,cx(t),dx(t),sx$(t),px$(t)
  679. 690 input#2,ka(t),kn(t),ga(t),gn(t),ks$(t)
  680. 691 input#2,a$(t),re(t),pa(t),mm(t),mn(t),lm(t),ln(t)
  681. 692 input#2,pq(t),au(t),ei(t),la(t)
  682. 693 next
  683. 694 input#2,rn,ka,be,uw,dg,dm,dp,ld,lm,lp
  684. 695 input#2,au(8),ei(8)
  685. 696 close2:
  686. 697 printtab(14)"fertig!"
  687. 698 getzz$:ifzz$=""then698
  688. 699 goto30
  689. 700 printtab(14)"";a,c$:close2
  690. 701 getzz$:ifzz$=""then701
  691. 702 goto648
  692.