10 REM *** WIRTSCHAFTSMANAGER  ***
11 REM *** AUTOR : TIM FAERBER ***
13 DIM A$(255),LA(100),ED(100),KS$(255)
14 A$(1)="DOLLE":AX(1)=2:AZ(1)=4:BZ(1)=2
15 KS$(1)="T F C":KA(1)=4:GA(1)=1:PQ(1)=600000
16 KS$(2)="MUELLER KG":KA(2)=2:GA(2)=2:KN(2)=4:GN(2)=2:PQ(2)=1200000
17 KS$(3)="MAGGI GMBH":KA(3)=2:GA(3)=2:KN(3)=5:GN(3)=2:PQ(3)=1350000
18 KS$(4)="SPRENGEL":KA(4)=12:PQ(4)=800000
19 KS$(5)="TEXACO":KA(5)=5:GA(5)=5:PQ(5)=800000
20 KS$(6)="ISENBECK":GA(6)=4:GN(6)=3:PQ(6)=950000
21 KS$(7)="":RN=1:KA=10000:EP=2
22 MM(1)=4:MN(1)=6:SX$(1)="PLAETZCHENKARTONS"
23 LM(1)=5:LN(1)=6:PX$(1)="SPIELDISKETTEN"
24 LM(2)=7:LN(2)=7:PX$(2)="HAUSHALTSWAREN"
25 LM(3)=8:LN(3)=7:PX$(4)="SCHOKOLADENKARTONS"
26 LM(4)=6:LN(4)=5:PX$(5)="FAESSER OEL"
27 LM(5)=6:LN(5)=7:PX$(6)="20 L FASS BIER"
28 LM(6)=9:LN(6)=7:PX$(3)="KARTONS A 20 FLASCHEN"
29 GOTO48
30 FORT=1TO8
31 A=LEN(A$(T))
32 IFA=0THEN35
33 B=A-10
34 A$(T)=LEFT$(A$(T),B)
35 A=LEN(KS$(T))
36 IFA=0THEN39
37 B=A-10
38 KS$(T)=LEFT$(KS$(T),B)
39 A=LEN(SX$(T))
40 IFA=0THEN43
41 B=A-10
42 SX$(T)=LEFT$(SX$(T),B)
43 A=LEN(PX$(T))
44 IFA=0THEN47
45 B=A-10
46 PX$(T)=LEFT$(PX$(T),B)
47 NEXT
48 W1=(RND(1)*100)+1
49 PRINT"[147][154]":POKE53281,6:POKE53280,6
50 PRINTTAB(9)"WIRTSCHAFTS MANAGER"
51 PRINT"       JETZT KOMMT DIE"RN"[157]. RUNDE[146]"
52 GOTO54
53 PRINT"[147][154]":POKE53281,1:POKE53280,6
54 FORT=1TO7:EZ(T)=0:NEXT
55 FORT=1TO7
56 AZ(T)= INT((MN(T)/2)*BX(T)+(MN(T)/3)*AX(T)+(MN(T)/3)*CX(T)+(MN(T)/1)*DX(T))
57 BZ(T)= INT((MN(T)/3)*BX(T)+(MN(T)/5)*AX(T)+(MN(T)/4)*CX(T)+(MN(T)/2)*DX(T))
58 CZ(T)= INT((MN(T)/5)*BX(T)+(MN(T)/5)*CX(T)+(MN(T)/3)*DW(T))
59 DZ(T)= INT((MN(T)/4)*DX(T))
60 EW(T)=AZ(T)+BZ(T)+CZ(T)+DZ(T)
61 FORR=30TO600STEP30
62 IFEW(T)>RTHENEZ(T)=EZ(T)+1
63 NEXT
64 LE(T)=MN(T)*(AX(T)*100+BX(T)*200+CX(T)*140+DX(T)*300)
65 NEXT
66 PRINT"[147]"
67 PRINTTAB(15)"*********"
68 PRINTTAB(15)"* MENUE *"
69 PRINTTAB(15)"*********"
70 PRINTTAB(9)"KAPITAL:"KA"[157] RUNDE:"RN"[157] "
71 PRINTTAB(9)"PERSONAL.............A"
72 PRINTTAB(9)"AUSSTATTUNG..........B"
73 PRINTTAB(9)"BOERSE...............C"
74 PRINTTAB(9)"FIRMEN...............D"
75 PRINTTAB(9)"PREISE...............E"
76 PRINTTAB(9)"UEBERSICHT...........F"
77 PRINTTAB(9)"BESTECHUNG...........G"
78 PRINTTAB(9)"UNTERWELT............H"
79 PRINTTAB(9)"DISKETTE.............I"
80 PRINTTAB(9)"WEITER[146]...............J[146]"
81 GET ZZ$:IFZZ$=""GOTO81
82 IFZZ$="A"GOTO93
83 IFZZ$="B"GOTO152
84 IFZZ$="C"GOTO342
85 IFZZ$="D"GOTO207
86 IFZZ$="E"GOTO284
87 IFZZ$="F"GOTO311
88 IFZZ$="G"GOTO496
89 IFZZ$="H"GOTO550
90 IFZZ$="J"GOTO410
91 IFZZ$="I"GOTO648
92 GOTO 81
93 POKE53280,1:POKE53281,1:PRINT"[147]":A=1:W=0:CX=1
94 PRINTTAB(14)"**********"
95 PRINTTAB(14)"*PERSONAL*"
96 PRINTTAB(14)"**********"
97 PRINT""
98 PRINTTAB(9)A$(A)
99 FORT=0TO20-LEN(A$(A))
100 POKEW+1433+ LEN(A$(A))+T,46
101 NEXT
102 POKEW+1433+ LEN(A$(A))+T,CX
103 A=A+1:IFA$(A)<>""THENCX=CX+1:W=W+40:GOTO97
104 PRINT"FUER WELCHE FIRMA ?"
105 GETZZ$:IFZZ$=""THEN105
106 PRINT"[147]":A=ASC(ZZ$)-64
107 IFA<0ORA>7THEN53
108 PRINTTAB(15);A$(A)
109 IFA$(A)=""THEN53
110 PRINT"":
111 PRINT"E=EINSTELLEN/R=RAUSSCHMEISSEN/W=WEITER"
112 PRINT""
113 PRINT"    ART       [221]BENOETIGT[221]EINGE.[221]GEHALT
114 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)TANTANTANTANTANTANTANTANTAN(null)TANTANTANTANTANTAN(null)TANTANTANTANTAN"
115 [153]"              (null)         (null)      (null)"
116 [153]""
117 [153]"ONAUSZUBILDENDER(null)   "AZ(A)"CMD     "AY(A)"CMD    "100[172]MM(A)"CMD "
118 [161]ZZ$:[139]ZZ$[178]""[167]118
119 [139]ZZ$[178]"E"[167]AY(A)[178]AY(A)[170]1
120 [139]ZZ$[178]"R"[167]AY(A)[178]AY(A)[171]1
121 [139]AY(A)[179]0[167]AY(A)[178]0
122 [139]ZZ$[178]"W"[137]124
123 [137]117
124 [153]"ONARBEITER      (null)   "BZ(A)"CMD     "BY(A)"CMD    "200[172]MM(A)"CMD "
125 [161]ZZ$:[139]ZZ$[178]""[167]125
126 [139]ZZ$[178]"E"[167]BY(A)[178]BY(A)[170]1
127 [139]ZZ$[178]"R"[167]BY(A)[178]BY(A)[171]1
128 [139]BY(A)[179]0[167]BY(A)[178]0
129 [139]ZZ$[178]"W"[137]131
130 [137]124
131 [153]"ONFACHARBEITER  (null)   "CZ(A)"CMD     "CY(A)"CMD    "300[172]MM(A)"CMD "
132 [161]ZZ$:[139]ZZ$[178]""[167]132
133 [139]ZZ$[178]"E"[167]CY(A)[178]CY(A)[170]1
134 [139]ZZ$[178]"R"[167]CY(A)[178]CY(A)[171]1
135 [139]CY(A)[179]0[167]CY(A)[178]0
136 [139]ZZ$[178]"W"[167]138
137 [137]131
138 [153]"ONINGENIEUR     (null)   "DZ(A)"CMD     "DY(A)"CMD    "500[172]MM(A)"CMD "
139 [161]ZZ$:[139]ZZ$[178]""[167]139
140 [139]ZZ$[178]"E"[167]DY(A)[178]DY(A)[170]1
141 [139]ZZ$[178]"R"[167]DY(A)[178]DY(A)[171]1
142 [139]DY(A)[179]0[167]DY(A)[178]0
143 [139]ZZ$[178]"W"[167]145
144 [137]138
145 [153]"ONDIREKTOR      (null)   "EZ(A)"CMD     "EY(A)"CMD    "800[172]MM(A)"CMD "
146 [161]ZZ$:[139]ZZ$[178]""[137]146
147 [139]ZZ$[178]"E"[167]EY(A)[178]EY(A)[170]1
148 [139]ZZ$[178]"R"[167]EY(A)[178]EY(A)[171]1
149 [139]EY(A)[179]0[167]EY(A)[178]0
150 [139]ZZ$[178]"W"[167]93
151 [137]145
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
153 EZ(A)[178]0:W[178]0
154 [153][163]13)"*************"
155 [153][163]13)"*AUSSTATTUNG*"
156 [153][163]13)"*************"
157 [153]""
158 [153][163]9)A$(A)
159 [129]T[178]0[164]20[171][195](A$(A))
160 [151]W[170]1433[170][195](A$(A))[170]T,46
161 [130]
162 [151]W[170]1433[170][195](A$(A))[170]T,CX
163 A[178]A[170]1:[139]A$(A)[179][177]""[167]CX[178]CX[170]1:W[178]W[170]40:[137]158
164 [153]"FUER WELCHE FIRMA ?"
165 [161]ZZ$:[139]ZZ$[178]""[167]165
166 [153]"LOAD":A[178][198](ZZ$)[171]64
167 [139]A[179]0[176]A[177]7[167]53
168 [153][163]15);A$(A)
169 [139]A$(A)[178]""[167]53
170 MM[178]MM(A):MN[178]MN(A)
171 [153]"":
172 [153]"K=KAUFEN/V=VERKAUFEN/W=WEITER"
173 [153]""
174 [153]"    ART      (null)LEISTUNG (null)BESITZ(null)PREIS
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]"
176 PRINT"             [221]         [221]      [221]"
177 PRINT""
178 PRINT"[145]SPYNX        [221]   "MN(A)*100"[157]   "AX(A)"[157]    "900*MM(A)"[157] "
179 GETZZ$:IFZZ$=""THEN179
180 IFZZ$="K"THENAX(A)=AX(A)+1:AU(A)=AU(A)+900*MM(A)
181 IFZZ$="V"THENAX(A)=AX(A)-1:EI(A)=EI(A)+(900*MM(A)-90*MN(A))
182 IFAX(A)<0THENAX(A)=0
183 IFZZ$="W"THEN 185
184 GOTO178
185 PRINT"[145]ULTIMUS      [221]   "MN*200"[157]   "BX(A)"[157]    "1870*MM"[157] "
186 GETZZ$:IFZZ$=""THEN186
187 IFZZ$="K"THENBX(A)=BX(A)+1:AU(A)=AU(A)+1870*MM
188 IFZZ$="V"THENBX(A)=BX(A)-1:EI(A)=EI(A)+(1870*MM-187*MN)
189 IFBX(A)<0THENBX(A)=0
190 IFZZ$="W"THEN192
191 GOTO185
192 PRINT"[145]SOROX        [221]   "MN*140"[157]   "CX(A)"[157]    "1350*MM"[157] "
193 GETZZ$:IFZZ$=""THEN193
194 IFZZ$="K"THENCX(A)=CX(A)+1:AU(A)=AU(A)+1350*MM
195 IFZZ$="V"THENCX(A)=CX(A)-1:EI(A)=EI(A)+(1350*MM-135*MN)
196 IFCX(A)<0THENBX(A)=0
197 IFZZ$="W"THEN199
198 GOTO192
199 PRINT"[145]MAGNUS       [221]   "MN*300"[157]   "DX(A)"[157]   "3000*MM"[157] "
200 GETZZ$:IFZZ$=""THEN200
201 IFZZ$="K"THENDX(A)=DX(A)+1:AU(A)=AU(A)+3000*MM
202 IFZZ$="V"THENDX(A)=DX(A)-1:EI(A)=EI(A)+(3000*MM-300*MN)
203 IFDX(A)<0THENDX(A)=0
204 IFZZ$="W"THEN152
205 GOTO199
206 NEXT
207 POKE53281,0:POKE53280,0:PRINT"[147][159]":CX=1
208 W=0:HH=0
209 PRINTTAB(15)"********"
210 PRINTTAB(15)"*FIRMEN*"
211 PRINTTAB(15)"********"
212 PRINT""
213 HH=HH+1
214 PRINTTAB(9)KS$(HH)
215 FORT=0TO20-LEN(KS$(HH))
216 POKEW+1433+LEN(KS$(HH))+T,46
217 NEXT
218 POKEW+1433+LEN(KS$(HH))+T,CX
219 CX=CX+1:W=W+40:IFHH<7THEN213
220 PRINTTAB(9)"VERKAUFEN=V/WEITER=W
221 [161]ZZ$:[139]ZZ$[178]""[167]221
222 [139]ZZ$[178]"W"[167]53
223 [139]ZZ$[178]"V"[167]249
224 [139][198](ZZ$)[179]65[176][198](ZZ$)[177]71[167]221
225 [153]"LOAD"
226 AS[178][198](ZZ$)[171]64
227 [153][163]10);KS$(AS)
228 [153]""
229 [153][163]9)"SPYNX......"KA(AS)
230 [153][163]9)"ULTIMUS...."GA(AS)
231 [153][163]9)"SOROX......"KN(AS)
232 [153][163]9)"MAGNUS....."GN(AS)
233 [153][163]9)"PREIS......"PQ(AS)
234 [153][163]9)"KAUFEN..... ?"
235 [161]ZZ$:[139]ZZ$[178]""[167]235
236 [139]ZZ$[179][177]"J"[167]207
237 [129]T[178]1[164]7
238 [139]A$(T)[178]""[167]240
239 [130]
240 A$(T)[178]KS$(AS)
241 CX(T)[178]KN(AS):SX$(T)[178]PX$(AS)
242 AX(T)[178]KA(AS)
243 DX(T)[178]GN(AS)
244 BX(T)[178]GA(AS)
245 KA[178]KA[171]PQ(AS)
246 MM(T)[178]LM(AS)
247 MN(T)[178]LN(AS):KS$(AS)[178]""
248 [137]207
249 [153]"LOAD":A[178]1:W[178]0:CX[178]1
250 [153][163]9)A$(A)
251 [129]T[178]0[164]20[171][195](A$(A))
252 [151]W[170]1433[170][195](A$(A))[170]T,46
253 [130]
254 [151]W[170]1433[170][195](A$(A))[170]T,CX
255 A[178]A[170]1:[139]A$(A)[179][177]""[167]CX[178]CX[170]1:W[178]W[170]40:[137]250
256 [153]"W=WEITER"
257 [161]ZZ$:[139]ZZ$[178]""[167]257
258 [139]ZZ$[178]"W"[167] 207
259 [139][198](ZZ$)[179]65[176][198](ZZ$)[177]64[170]A[167]257
260 [153]"LOAD"
261 LK[178][198](ZZ$)[171]64:[139]A$(LK)[178]""[167]249
262 [153][163]10);A$(LK)
263 Y[178]5[170]EZ(LK)
264 DJ[178][181]([187](1)[172]Y)[170]1
265 DJ[178]DJ[172]100000
266 [153]""
267 [153][163]10)"PREIS";DJ
268 [153]"VERKAUFEN ?"
269 [161]ZZ$:[139]ZZ$[178]""[167]269
270 [139]ZZ$[179][177]"J"[167]249
271 [129]T[178]1[164]7
272 [139]KS$(T)[178]""[167]274
273 [130]
274 KS$(T)[178]A$(LK)
275 KA(T)[178]AX(LK)
276 KN(T)[178]CX(LK)
277 GA(T)[178]BX(LK):PX$(T)[178]SX$(LK)
278 GN(T)[178]DX(LK)
279 LM(T)[178]MM(LK)
280 LN(T)[178]MN(LK)
281 PQ(T)[178]DJ[170]50000
282 A$(LK)[178]"":KA[178]KA[170]DJ
283 [137]53
284 [151]53280,7:[151]53281,7:[153]"LOADPOKE":A[178]1:CX[178]1:W[178]0:
285 [153][163]15)"********"
286 [153][163]15)"*PREISE*"
287 [153][163]15)"********"
288 [153]""
289 [153][163]9)A$(A)
290 [129]T[178]0[164]20[171][195](A$(A))
291 [151]W[170]1433[170][195](A$(A))[170]T,46
292 [130]
293 [151]W[170]1433[170][195](A$(A))[170]T,CX
294 A[178]A[170]1:[139]A$(A)[179][177]""[167]CX[178]CX[170]1:W[178]W[170]40:[137]289
295 [153]"FUER WELCHE FIRMA ?"
296 [161]ZZ$:[139]ZZ$[178]""[167]296
297 [153]"LOAD":A[178][198](ZZ$)[171]64
298 [139]A[179]0[176]A[177]7[167]53
299 [153][163]10);A$(A)
300 [139]A$(A)[178]""[167]53
301 [153][163]7)"FUER:";SX$(A);""
302 [153][163]9)"ALTER PREIS:";PA(A)
303 [153][163]9)"W=WEITER/A=AENDERN"
304 [161]XX$:[139]XX$[178]""[167]304
305 [139]XX$[178]"W"[167]284
306 [139]XX$[178]"A"[167]308
307 [137]304
308 [133]"NEUER PREIS";PN
309 PA(A)[178]PN
310 [137]297
311 [151]53280,3:[151]53281,3:[153]"LOADVERIFY":A[178]1:CX[178]1:W[178]0:GG[178]1:W[178]0
312 [153][163]13)"************"
313 [153][163]13)"*UEBERSICHT*"
314 [153][163]13)"************"
315 [153]""
316 [153][163]9)A$(A)
317 [129]T[178]0[164]20[171][195](A$(A))
318 [151]W[170]1433[170][195](A$(A))[170]T,46
319 [130]
320 [151]W[170]1433[170][195](A$(A))[170]T,CX
321 A[178]A[170]1:[139]A$(A)[179][177]""[167]CX[178]CX[170]1:W[178]W[170]40:[137]316
322 [153]"FUER WELCHE FIRMA ?"
323 [161]ZZ$:[139]ZZ$[178]""[167]323
324 [153]"LOAD":A[178][198](ZZ$)[171]64
325 [139]A[179]0[176]A[177]7[167]53
326 [153][163]15);A$(A)
327 [139]A$(A)[178]""[167]53
328 MM[178]MM(A):MN[178]MN(A)
329 [139]A$(A)[178]""[167]53
330 [153]"":BV[178]AX(A)[170]BX(A)[170]CX(A)[170]DX(A)
331 [153]"AUSZUBILDENDE........"AY(A)
332 [153]"ARBEITER............."BY(A)
333 [153]"FACHKRAEFTE.........."CY(A)
334 [153]"INGENIEURE..........."DY(A)
335 [153]"DIREKTOREN..........."EY(A)
336 [153]"MASCHINEN............"BV
337 [153]"KAPITAL.............."KA
338 [153]"PREIS................"PA(A)
339 [153]"LEISTUNG";LE(A);SX$(A)
340 [161]ZZ$:[139]ZZ$[178]""[167]340
341 [137]311
342 [151]53281,1 :[151]53280,13:[153]"LOAD":CC[178]1
343 [153][163]15)""
344 [153][163]15)"********"
345 [153][163]15)"*BOERSE*"
346 [153][163]15)"********"
347 [153]"":Y[178]40000[171]RE(CC):OQ[178][181]([187](1)[172]Y)[170]1:OP[178]OQ
348 [153]"K=KAUFEN/A=ABSTOSSEN/W=WEITER"
349 [153]""
350 [153]"   FIRMEN    (null)  FREI   (null)HABEN(null)PREIS
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]"
352 PRINT"             [221]         [221]     [221]"
353 PRINT:ON CC GOTO354,362,370,378,386,394,402
354 PR=10*(INT(1.8*W1)+800)
355 PRINT"[145]DEUTSCHE BANK[221] ";OQ;"[157]    ";RE(CC);"[157]   ";PR;"[157] "
356 GETZZ$:IFZZ$=""THEN356
357 IFZZ$="K"THENOQ=OQ-1:AU(8)=AU(8)+PR:RE(CC)=RE(CC)+1
358 IFZZ$="A"THENOQ=OQ+1:EI(8)=EI(8)+PR:RE(CC)=RE(CC)-1
359 IFRE(CC)<1THENRE(CC)=0:OQ=OP
360 IFZZ$="W"THENCC=CC+1:GOTO343
361 GOTO354
362 PR=10*(INT(2.0*W1)+1200)
363 PRINT"[145]DAIMLER        ";OQ;"[157]    ";RE(CC);"[157]   ";PR;"[157] "
364 GETZZ$:IFZZ$=""THEN364
365 IFZZ$="K"THENOQ=OQ-1:AU(8)=AU(8)+PR:RE(CC)=RE(CC)+1
366 IFZZ$="A"THENOQ=OQ+1:EI(8)=EI(8)+PR:RE(CC)=RE(CC)-1
367 IFRE(CC)<1THENRE(CC)=0:OQ=OP
368 IFZZ$="W"THENCC=CC+1:GOTO343
369 GOTO362
370 PR=10*(INT(1.2*W1)+280)
371 PRINT"[145]A E G          ";OQ;"[157]    ";RE(CC);"[157]   ";PR;"[157] "
372 GETZZ$:IFZZ$=""THEN372
373 IFZZ$="K"THENOQ=OQ-1:AU(8)=AU(8)+PR:RE(CC)=RE(CC)+1
374 IFZZ$="A"THENOQ=OQ+1:EI(8)=EI(8)+PR:RE(CC)=RE(CC)-1
375 IFRE(CC)<1THENRE(CC)=0:OQ=OP
376 IFZZ$="W"THENCC=CC+1:GOTO343
377 GOTO370
378 PR=10*(INT(0.4*W1)+80)
379 PRINT"[145]KLOECKNER    [221] ";OQ;"[157]    ";RE(CC);"[157]   ";PR;"[157] "
380 GETZZ$:IFZZ$=""THEN380
381 IFZZ$="K"THENOQ=OQ-1:AU(8)=AU(8)+PR:RE(CC)=RE(CC)+1
382 IFZZ$="A"THENOQ=OQ+1:EI(8)=EI(8)+PR:RE(CC)=RE(CC)-1
383 IFRE(CC)<1THENRE(CC)=0:OQ=OP
384 IFZZ$="W"THENCC=CC+1:GOTO343
385 GOTO378
386 PR=10*(INT(1.0*W1)+250)
387 PRINT"[145]LUFTHANSA    [221] ";OQ;"[157]    ";RE(CC);"[157]   ";PR;"[157] "
388 GETZZ$:IFZZ$=""THEN388
389 IFZZ$="K"THENOQ=OQ-1:AU(8)=AU(8)+PR:RE(CC)=RE(CC)+1
390 IFZZ$="A"THENOQ=OQ+1:EI(8)=EI(8)+PR:RE(CC)=RE(CC)-1
391 IFRE(CC)<1THENRE(CC)=0:OQ=OP
392 IFZZ$="W"THENCC=CC+1:GOTO343
393 GOTO386
394 PR=10*(INT(0.6*W1)+150)
395 PRINT"[145]HOESCH       [221] ";OQ;"[157]    ";RE(CC);"[157]   ";PR;"[157] "
396 GETZZ$:IFZZ$=""THEN396
397 IFZZ$="K"THENOQ=OQ-1:AU(8)=AU(8)+PR:RE(CC)=RE(CC)+1
398 IFZZ$="A"THENOQ=OQ+1:EI(8)=EI(8)+PR:RE(CC)=RE(CC)-1
399 IFRE(CC)<1THENRE(CC)=0:OQ=OP
400 IFZZ$="W"THENCC=CC+1:GOTO343
401 GOTO394
402 PR=10*(INT(0.7*W1)+150)
403 PRINT"[145]GELSENWASSER [221] ";OQ;"[157]    ";RE(CC);"[157]   ";PR;"[157] "
404 GETZZ$:IFZZ$=""THEN404
405 IFZZ$="K"THENOQ=OQ-1:AU(8)=AU(8)+PR:RE(CC)=RE(CC)+1
406 IFZZ$="A"THENOQ=OQ+1:EI(8)=EI(8)+PR:RE(CC)=RE(CC)-1
407 IFRE(CC)<1THENRE(CC)=0:OQ=OP
408 IFZZ$="W"THENCC=CC+1:GOTO53
409 GOTO402
410 POKE53280,4:POKE53281,4:PRINT"[147][144]":A=1:CX=1:W=0:
411 PRINT"[147]"
412 PRINTTAB(15)"********"
413 PRINTTAB(15)"*BILANZ*"
414 PRINTTAB(15)"********"
415 IFA$(A)=""THEN446
416 PRINTTAB(15)"FUER"
417 PRINTTAB(15);A$(A)
418 MM=MM(A):MN=MN(A)
419 PRINT""
420 L9=MM*(AY(A)*100+BY(A)*200+CY(A)*300+DY(A)*500+EY(A)*800)
421 PRINT"GEHAELTER:";L9
422 PRINT"MASCHINEN:";AU(A)
423 CV=LE(A)
424 CV=CV-150*(AZ(A)-AY(A))
425 CV=CV-300*(BZ(A)-BY(A))
426 CV=CV-450*(CZ(A)-CY(A))
427 CV=CV-750*(DZ(A)-DY(A))
428 IFEY(A)<EZ(A)THENCV=0
429 PRINTSX$(A);":";CV
430 PRINT"LAGER:";LA(A);" ";SX$(A)
431 PRINT"INSGESAMT:";LA(A)+CV;" ";SX$(A)
432 OK=LA(A)+CV
433 PRINT"PREIS:";PA(A)
434 IFPA(A)=MM+2THENUI=OK/2:UY=INT(OK/2.5)
435 IFPA(A)<MM-2THENUI=2*(INT(OK/3)):UY=INT(OK/3)
436 IFPA(A)>MM-3ANDPA(A)<MM+1THENUI=OK/2:UY=INT(OK/3)
437 IFPA(A)>MM+0ANDPA(A)<MM+5THENUI=1*(INT(OK/3)):UY=INT(OK/3)
438 IFPA(A)>MM+2ANDPA(A)<MM+20THENUI=1*(INT(OK/3)):UY=0
439 IFPA(A)>MM+19THENVD=0:GOTO441
440 VD=INT(RND(1)*UI)+UY
441 PRINT"VERKAUFT:";VD:LA(A)=INT((OK-VD)/2)
442 ED(A)=(VD*PA(A))-AU(A)+EI(A)-L9
443 PRINT"ENDSUMME:";ED(A)
444 GETZZ$:IFZZ$=""THEN444
445 A=A+1:GOTO411
446 PRINTTAB(15) "BOERSE"
447 PRINT"AUSGABEN:";AU(8)
448 PRINT"EINNAHMEN:";EI(8)
449 KA=KA-AU(8)+EI(8)
450 FORT=1TO8:AU(T)=0:EI(T)=0:NEXT
451 RN=RN+1:
452 GETZZ$:IFZZ$=""THEN452
453 PRINTTAB(15) "[147]FINANZAMT"
454 FORT=1TO7:VL=VL+ED(T):ED(T)=0:NEXT
455 PRINT"EINAHMEN:";VL
456 IFVL<335THENRP=0
457 IFVL>335THENRP=10
458 IFVL>2000THENRP=28
459 IFVL>5000THENRP=36
460 IFVL>7550THENRP=43
461 IFVL>8990THENRP=48
462 IFVL>42110THENRP=53
463 RP=RP-UW:UW=0:BE=0
464 IFRP<0THENRP=0
465 IFVL<1THENRP=0
466 TS=INT(VL/100)*RP
467 VL=VL-TS
468 PRINT"EINKOMMENSSTEUER:";RP;"%  ";TS;"DM"
469 KA=KA+VL
470 PRINT"KAPITAL:";KA
471 VS=0
472 IFKA>300000THENVS=1
473 IFKA>500000THENVS=2
474 IFKA>1000000THENVS=5
475 DS=INT(KA/100)*VS
476 PRINT"VERMOEGENSTEUER:";VS;"%  ";DS;"DM"
477 KA=KA-DS:VL=0
478 PRINT"KAPITAL:";KA
479 GETZZ$:IFZZ$=""THEN479
480 IFKA>-1THENP0=0
481 IFP0=1THEN486
482 IFKA<0THEN484
483 GOTO488
484 PRINT"[147]DU HAST SCHULDEN. SIEHE ZU,DASS DU SIE  LOS WIRST"
485 FORT=1TO5000:NEXT: P0=1:GOTO488
486 PRINT"[147]DU BIST DEINE SCHULDEN NICHT LOS GEWOR- DEN. DU HAST VERLOREN."
487 END
488 PRINT"[147]UNTERWELT"
489 PRINT"DROGEN:";DG
490 PRINT"PROSTITUTION:";DP
491 PRINT"MAEDCHENHANDEL:";DM
492 KA=KA+DG+DM+DP
493 DG=0:DM=0:DP=0
494 GETZZ$:IFZZ$=""THEN494
495 GOTO48
496 IFBE<>0THENPRINTTAB(9)"SCHON PROBIERT!":GOTO498
497 GOTO500
498 GETZZ$:IFZZ$=""THEN498
499 GOTO53
500 POKE53280,15:POKE53281,15:PRINT"[147][149]":BB=10:NN=10
501 PRINTTAB(13)"************"
502 PRINTTAB(13)"*BESTECHUNG*"
503 PRINTTAB(13)"************"
504 PRINT""
505 PRINTTAB(13)"PREIS";EP*2000;""
506 PRINTTAB(13)"VERSUCH ?(J/N)"
507 GETZZ$:IFZZ$=""THEN507
508 IFZZ$<>"J"THEN53
509 FF=INT(RND(1)*2)+1
510 PRINT"":KA=KA-EP*2000:BE=1:EP=EP+1
511 FORT=1TO50+FF
512 FORDD=1TO500STEPBB:NEXT DD
513 IFT=NNTHENBB=BB-1:NN=NN+5
514 IFXV=1THEN525:PRINTTAB(13)"[145][144]BESTOCHEN[146] "
516 XV=1
517 NEXT
518 GOTO525
519 PRINTTAB(13)"[145]VERWEIGERT "
520 XV=0
521 NEXT
522 PRINT"SCHADE!":
523 GETZZ$:IFZZ$=""THEN523
524 GOTO53
525 PRINT"GUT GEMACHT!"
526 GETZZ$:IFZZ$=""THEN526
527 PRINT"[147]"
528 PRINT""
529 PRINT"  5  0 10  0 20  0 40  0 20  0 10  0  5"
530 PRINT"S=STOP"
531 POKE1346+J,30
532 POKE1343+J+HB,32
533 GETZZ$:IFZZ$="S"THEN537
534 J=J+3:HB=0
535 IFJ>36THENJ=0:HB=39
536 GOTO531
537 IFJ=3ORJ=9ORJ=15ORJ=21ORJ=27ORJ=33THEN544
538 IFJ=0ORJ=36THENUW=5
539 IFJ=6ORJ=30THENUW=10
540 IFJ=12ORJ=24THENUW=20
541 IFJ=18THENUW=40
542 GETZZ$:IFZZ$=""THEN542
543 GOTO53
544 PRINT"DEIN BESTECHUNGSVERSUCH FLIEGT AUF. ZUR STRAFE MUSST DU";J/3;"%";
545 PRINT" MEHR STEUERN ZAHLEN"
546 UW=-(J/3)
547 EP=EP+1
548 GETZZ$:IFZZ$=""THEN548
549 GOTO53
550 POKE53280,5:POKE53281,5:PRINT"[147][153]"
551 PRINTTAB(14)"***********"
552 PRINTTAB(14)"*UNTERWELT*"
553 PRINTTAB(14)"***********"
554 PRINT""
555 PRINTTAB(9)"DROGEN.............A"
556 PRINTTAB(9)"MAEDCHENHANDEL.....B"
557 PRINTTAB(9)"PROSTITUTION.......C"
558 PRINTTAB(9)"WEITER.............D"
559 GETZZ$
560 IFZZ$="A"THEN565
561 IFZZ$="B"THEN592
562 IFZZ$="C"THEN619
563 IFZZ$="D"THEN53
564 GOTO559
565 PRINT"[147]"
566 PRINTTAB(15)"DROGEN"
567 PRINT""
568 PRINTTAB(15)"GEWINN 25%"
569 PRINTTAB(15)"INVESTIEREN?"
570 GETZZ$:IFZZ$=""THEN570
571 IFZZ$<>"J"THEN550
572 PRINTTAB(14);
573 INPUT"WIEVIEL";KL
574 IFKL>KATHEN550
575 KA=KA-KL
576 SS=INT(RND(1)* 7-LD)+1
577 IFSS=1THEN582
578 DG=DG+KL+INT(KL/100)*25
579 PRINTTAB(9)"GESCHAEFT GUT GELAUFEN"
580 GETZZ$:IFZZ$=""THEN580
581 GOTO550
582 LD=LD+1
583 SS=INT(RND(1)*10-LD)+1
584 IFSS=1THEN646
585 BZ=25000
586 IFKA>200000THENBZ=250000
587 PRINT"ALLES IST AUFGEFLOGEN, DAS GELD FUTSCH  UND DU MUSST EINE STRAFE VON";
588 PRINTBZ;"     BEZAHLEN"
589 DG=DG-KL:KA=KA-BZ
590 GETZZ$:IFZZ$=""THEN590
591 GOTO550
592 PRINT"[147]"
593 PRINTTAB(9)"MAEDCHENHANDEL"
594 PRINT""
595 PRINTTAB(14)"GEWINN 50%"
596 PRINTTAB(13)"INVESTIEREN ?"
597 GETZZ$:IFZZ$=""THEN597
598 IFZZ$<>"J"THEN550
599 PRINTTAB(14);
600 INPUT"WIEVIEL";KL
601 IFKL>KATHEN550
602 KA=KA-KL
603 SS=INT(RND(1)* 4-LM)+1
604 IFSS=1THEN609
605 DM=DM+KL+INT(KL/100)*50
606 PRINTTAB(9)"GESCHAEFT GUT GELAUFEN"
607 GETZZ$:IFZZ$=""THEN607
608 GOTO550
609 LM=LM+1
610 SS=INT(RND(1)*6-LM)+1
611 IFSS=1THEN646
612 BZ=50000
613 IFKA>400000THENBZ=500000
614 PRINT"ALLES IST AUFGEFLOGEN, DAS GELD FUTSCH  UND DU MUSST EINE STRAFE VON";
615 PRINTBZ;"     BEZAHLEN"
616 DM=DM-KL:KA=KA-BZ
617 GETZZ$:IFZZ$=""THEN617
618 GOTO550
619 PRINT"[147]"
620 PRINTTAB(10)"PROSTUTITATION"
621 PRINT""
622 PRINTTAB(14)"GEWINN 40%"
623 PRINTTAB(13)"INVESTIEREN ?"
624 GETZZ$:IFZZ$=""THEN624
625 IFZZ$<>"J"THEN550
626 PRINTTAB(14);
627 INPUT"WIEVIEL";KL
628 IFKL>KATHEN550
629 KA=KA-KL
630 SS=INT(RND(1)* 5-LP)+1
631 IFSS=1THEN636
632 DP=DP+KL+INT(KL/100)*40
633 PRINTTAB(9)"GESCHAEFT GUT GELAUFEN"
634 GETZZ$:IFZZ$=""THEN634
635 GOTO550
636 LP=LP+1
637 SS=INT(RND(1)*10-LP)+1
638 IFSS=1THEN646
639 BZ=40000
640 IFKA>300000THENBZ=400000
641 PRINT"ALLES IST AUFGEFLOGEN, DAS GELD FUTSCH  UND DU MUSST EINE STRAFE VON";
642 PRINTBZ;"DM   BEZAHLEN"
643 DP=DP-KL:KA=KA-BZ
644 GETZZ$:IFZZ$=""THEN644
645 GOTO550
646 PRINT"DU MUSST INS GEFAENGNIS UND ALLES IST   FUTSCH. DU HAST VERLOREN"
647 END
648 POKE53280,14:POKE53281,14:PRINT"[147]"
649 PRINTTAB(14)"**********"
650 PRINTTAB(14)"*DISKETTE*"
651 PRINTTAB(14)"**********"
652 PRINT""
653 PRINTTAB(9)"SPEICHERN..........S"
654 PRINTTAB(9)"LADEN..............L"
655 PRINTTAB(9)"WEITER.............W"
656 GETZZ$:IFZZ$=""THEN656
657 IFZZ$="S"THEN661
658 IFZZ$="L"THEN680
659 IFZZ$="W"THEN53
660 GOTO656
661 PRINT"[147]"
662 PRINTTAB(14)"SPEICHERN"
663 PRINTTAB(14)"";
664 INPUT"FILENAME";A$
665 B$=A$+",S,W":A$=CHR$(13)
666 OPEN2,8,2,B$
667 FORT=1TO7
668 PRINT#2,AY(T),A$,BY(T),A$,CY(T),A$,DY(T),A$,EY(T),A$,AX(T),A$,BX(T),A$
669 PRINT#2,CX(T),A$,DX(T),A$,SX$(T),A$,PX$(T),A$
670 PRINT#2,KA(T),A$,KN(T),A$,GA(T),A$,GN(T),A$,KS$(T),A$
671 PRINT#2,A$(T),A$,RE(T),A$,PA(T),A$,MM(T),A$,MN(T),A$,LM(T),A$,LN(T),A$
672 PRINT#2,PQ(T),A$,AU(T),A$,EI(T),A$,LA(T),A$
673 NEXT
674 PRINT#2,RN,A$,KA,A$,BE,A$,UW,A$,DG,A$,DM,A$,DP,A$,LD,A$,LM,A$,LP,A$
675 PRINT#2,AU(8),A$,EI(8),A$
676 CLOSE2
677 PRINTTAB(14)"FERTIG!"
678 GETZZ$:IFZZ$=""THEN678
679 GOTO53
680 PRINT"[147]"
681 PRINTTAB(14)"LADEN"
682 PRINTTAB(14)"";
683 INPUT"FILENAME";A$
684 B$=A$+",S,R"
685 OPEN2,8,2,B$:OPEN1,8,15:INPUT#1,A,C$
686 IFA>5THEN700
687 FORT=1TO7
688 INPUT#2,AY(T),BY(T),CY(T),DY(T),EY(T),AX(T),BX(T)
689 INPUT#2,CX(T),DX(T),SX$(T),PX$(T)
690 INPUT#2,KA(T),KN(T),GA(T),GN(T),KS$(T)
691 INPUT#2,A$(T),RE(T),PA(T),MM(T),MN(T),LM(T),LN(T)
692 INPUT#2,PQ(T),AU(T),EI(T),LA(T)
693 NEXT
694 INPUT#2,RN,KA,BE,UW,DG,DM,DP,LD,LM,LP
695 INPUT#2,AU(8),EI(8)
696 CLOSE2:
697 PRINTTAB(14)"FERTIG!"
698 GETZZ$:IFZZ$=""THEN698
699 GOTO30
700 PRINTTAB(14)"";A,C$:CLOSE2
701 GETZZ$:IFZZ$=""THEN701
702 GOTO648