0 IFPEEK(2)=0THENPOKE2,1:LOAD"03",8,1
1 IFPEEK(2)=1THENPOKE2,2:LOAD"04",8,1
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)
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)
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)
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)
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)
7 DATA"   JANUAR","  FEBRUAR","     M)RZ","    APRIL","      MAI","     JUNI"
8 DATA"     JULI","   AUGUST","SEPTEMBER","  OKTOBER"," NOVEMBER"," DEZEMBER"
9 DATA" MR' ","MRS' ",25000,1920,5000,2500
10 FORI=1TO4:YA(I)=1:YB(I)=1:YC(I)=1:YD(I)=1:YE(I)=1:NEXTI
11 FORI=1TO12:READM$(I):NEXT:FORI=0TO1:READA$(I):NEXT:READK,JA,R1,R2:M=1
12 IFPEEK(38000)=0THENSF=2:SY=49152:VC=53248:SF(1)=0:GOTO1200
13 PL=PEEK(38001):J=PEEK(38002):Z=38006:SY=49152:FORI=0TO15:POKE35832+I,0:NEXT
14 FORX=1TOPL:FORT=1TO10:N$(X)=N$(X)+CHR$(PEEK(Z+T)):NEXT:Z=Z+10:NEXT:J1=0:P=0
15 FORX=1TOPL:Y=PEEK(38002+X):T$(X)=A$(Y):NEXT:FORX=1TOPL:K(X)=K:L(X)=3:LE(X)=0
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
17 FORX=1TOPL:LL(X)=LE(X)*1000:KL(X)=LE(X)*2500:LP(X)=8500+LL(X)+INT(RND(1)*R2)
18 KP(X)=27500+KL(X)+INT(RND(1)*R1):LW(X)=INT(LP(X)/100*75):M(X)=L(X)*1000
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
20 BK(X)=BK(X)*L(X):WA(X)=INT(G(X)*1.2):WB(X)=INT(G(X)*0.6)
21 WC(X)=INT(G(X)*0.4):WD(X)=INT(G(X)*0.8):WE(X)=INT(G(X)*0.5)
23 XA(X)=2+INT(RND(1)*3):XB(X)=1+INT(RND(1)*2):XC(X)=5+INT(RND(1)*5)
24 XD(X)=4+INT(RND(1)*4):XE(X)=3+INT(RND(1)*3)
30 FORI=1TOL(X):A=24+I:IFA>100THENA=100
31 BZ(X)=BZ(X)+A:NEXTI:NEXTX:GOTO40
37 IFK(P)>0THENSP=1
38 IFK(P)<0THENSP=2
39 POKE211,K1:POKE214,K2:SYS58640:RETURN
40 J1=J1+1:P=P+1:IFJ1=1THENJ0=56321:N=254:O=247:S=253:W=251:F=239
41 IFJ1=2ANDJ=0THENJ0=56321:N=254:O=247:S=253:W=251:F=239:J1=0
42 IFJ1=2ANDJ=1THENJ0=56320:N=126:O=119:S=125:W=123:F=111:J1=0
43 IFP>PLTHEN990
44 PR(P)=INT(PR(P))
45 IFB(P)=1THENB1=B1+1:GOTO40
50 SYSSY:SYSSY+60:SYSSY+157:SYSSY+3349:FORI=0TO3:POKE53248+I,0:NEXTI
51 K1=2:K2=2:GOSUB39:PRINTT$(P);N$(P)
52 K1=23:K2=2:GOSUB39:PRINTM$(M);JA
53 K1=3:K2=7:GOSUB37:PRINT"KAPITAL    ("SPC(SP)K(P):POKE35112,46:POKE55592,1
54 K1=3:K2=8:GOSUB39:PRINT"KNEIPEN    (";KN(P)
55 K1=3:K2=9:GOSUB39:PRINT"LIEFERWAGEN(";L(P)
56 K1=3:K2=15:GOSUB39:PRINT"WARENBESTAND("
57 K1=3:K2=17:GOSUB39:PRINT"BIER   (";BA(P)
58 K1=3:K2=18:GOSUB39:PRINT"SCHNAPS(";BB(P)
59 K1=3:K2=19:GOSUB39:PRINT"SEKT   (";BC(P)
60 K1=3:K2=20:GOSUB39:PRINT"WEIN   (";BD(P)
61 K1=3:K2=21:GOSUB39:PRINT"WHISKY (";BE(P)
62 K1=26:K2=16:GOSUB39:PRINT"PRODUKTION[157][157][157][157][157][157][157][157][157][157]TRANSPORT"
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"
64 K1=26:K2=21:GOSUB39:PRINT"WEITER"
65 VC=53248:POKEVC+16,3:POKEVC+21,3:POKEVC+39,1:POKEVC+40,2:POKE35832,52:POKE35833,53
66 PX=58:PY=179:C=1
67 POKEVC,PX:POKEVC+1,PY:POKEVC+2,PX:POKEVC+3,PY
68 IFPEEK(J0)=NTHENPY=PY-8:C=C-1
69 IFPEEK(J0)=STHENPY=PY+8:C=C+1
70 IFPEEK(J0)=FTHEN75
71 IFPY<179THENPY=179:C=1
72 IFPY>219THENPY=219:C=6
73 FORT=1TO25:NEXTT:GOTO67
75 ONCGOTO90,91,250,450,600,800
90 POKEVC+21,0:SYSSY:SYSSY+60:SYSSY+676:SYSSY+3349:GOTO99
91 IFT(P)<BZ(P)ORKN(P)=0THEN67
92 POKEVC+21,0:SYSSY:SYSSY+60:SYSSY+676:SYSSY+1202:SYSSY+3349
99 POKEVC,0:POKEVC+1,0:POKEVC+2,0:POKEVC+3,0
100 K1=2:K2=2:GOSUB39:PRINTT$(P);N$(P)
101 K1=19:K2=2:GOSUB37:PRINT"KAPITAL(";SPC(SP)K(P):POKE34924,46:POKE55404,1
102 K1=3:K2=7:GOSUB39:PRINT"WARENBESTAND("SPC(5)"BEN*TIGTES("
103 K1=3:K2=9:GOSUB39:PRINT"BIER   ("BA(P)
104 K1=3:K2=10:GOSUB39:PRINT"SCHNAPS("BB(P)
105 K1=3:K2=11:GOSUB39:PRINT"SEKT   ("BC(P)
106 K1=3:K2=12:GOSUB39:PRINT"WEIN   ("BD(P)
107 K1=3:K2=13:GOSUB39:PRINT"WHISKY ("BE(P)
108 K1=21:K2=9:GOSUB39:PRINT"BIER   ("WA(P)
109 K1=21:K2=10:GOSUB39:PRINT"SCHNAPS("WB(P)
110 K1=21:K2=11:GOSUB39:PRINT"SEKT   ("WC(P)
111 K1=21:K2=12:GOSUB39:PRINT"WEIN   ("WD(P)
112 K1=21:K2=13:GOSUB39:PRINT"WHISKY ("WE(P)
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"
114 K1=29:K2=21:GOSUB39:PRINT"WHISKY [157][157][157][157][157][157][157]WEITER"
115 IFC=2THEN130
120 K1=4:K2=18:GOSUB39:PRINT"BIER     "XA(P)
121 K1=4:K2=19:GOSUB39:PRINT"SCHNAPS  "XB(P)
122 K1=4:K2=20:GOSUB39:PRINT"SEKT     "XC(P)
123 K1=4:K2=21:GOSUB39:PRINT"WEIN     "XD(P)
124 K1=4:K2=22:GOSUB39:PRINT"WHISKY   "XE(P)
125 FORI=0TO4:POKE35549+I*40,46:POKE56029+I*40,1:NEXT:GOTO150
130 K1=3:K2=16:GOSUB39:PRINT"MAXIMAL("M(P)
131 K1=3:K2=18:GOSUB39:PRINT"BIER   ("TA(P)
132 K1=3:K2=19:GOSUB39:PRINT"SCHNAPS("TB(P)
133 K1=3:K2=20:GOSUB39:PRINT"SEKT   ("TC(P)
134 K1=3:K2=21:GOSUB39:PRINT"WEIN   ("TD(P)
135 K1=3:K2=22:GOSUB39:PRINT"WHISKY ("TE(P)
150 PX=58:PY=187:C0=1:POKEVC+21,3
151 POKEVC,PX:POKEVC+1,PY:POKEVC+2,PX:POKEVC+3,PY
152 IFPEEK(J0)=NTHENPY=PY-8:C0=C0-1
153 IFPEEK(J0)=STHENPY=PY+8:C0=C0+1
154 IFPEEK(J0)=FTHEN159
155 IFPY<187THENPY=187:C0=1
156 IFPY>227THENPY=227:C0=6
157 FORT=1TO25:NEXTT:GOTO151
159 IFC0<>6THENPOKEVC+21,0:GOTO165
160 POKEVC+21,0:POKEVC,0:POKEVC+1,0:POKEVC+2,0:POKEVC+3,0:GOTO50
165 POKEVC,0:POKEVC+1,0:POKEVC+2,0:POKEVC+3,0:PX=56:PY=229:FORT=1TO6:S(T)=0:NEXT
166 K1=22:K2=21:GOSUB39:PRINT"[\\\\\\\\\\\\\][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]^MENGE( 000000^"
167 K1=22:K2=23:GOSUB39:PRINT"_\\\\\\[157][157][157][157][157][157][151]@@@@@@":POKEVC+21,3:T=6
168 POKEVC,PX:POKEVC+1,PY:POKEVC+2,PX:POKEVC+3,PY:POKE35725+T,S(T)+48
170 IFPEEK(J0)=WTHENT=T-1:PX=PX-8
171 IFPEEK(J0)=OTHENT=T+1:PX=PX+8
172 IFPEEK(J0)=NTHENS(T)=S(T)+1
173 IFPEEK(J0)=STHENS(T)=S(T)-1
174 IFPEEK(J0)=FTHENPOKEVC+21,0:GOTO185
176 IFS(T)<0THENS(T)=9
177 IFS(T)>9THENS(T)=0
178 IFT<1THENT=1:PX=16
179 IFT>6THENT=6:PX=56
180 FORI=1TO25:NEXT:GOTO168
185 ME=100000*S(1)+10000*S(2)+1000*S(3)+100*S(4)+10*S(5)+S(6)
189 IFME=0THEN75
190 IFC=2THEN200
191 ONC0GOTO192,193,194,195,196
192 BA(P)=BA(P)+ME:AU(P)=AU(P)+ME*XA(P):K(P)=K(P)-ME*XA(P):GOTO75
193 BB(P)=BB(P)+ME:AU(P)=AU(P)+ME*XB(P):K(P)=K(P)-ME*XB(P):GOTO75
194 BC(P)=BC(P)+ME:AU(P)=AU(P)+ME*XC(P):K(P)=K(P)-ME*XC(P):GOTO75
195 BD(P)=BD(P)+ME:AU(P)=AU(P)+ME*XD(P):K(P)=K(P)-ME*XD(P):GOTO75
196 BE(P)=BE(P)+ME:AU(P)=AU(P)+ME*XE(P):K(P)=K(P)-ME*XE(P):GOTO75
200 IFM(P)-ME<0THENGOTO75
201 ONC0GOTO202,204,206,208,210
202 IFBA(P)-ME<0THEN75
203 TA(P)=TA(P)+ME:BA(P)=BA(P)-ME:GOTO212
204 IFBB(P)-ME<0THEN75
205 TB(P)=TB(P)+ME:BB(P)=BB(P)-ME:GOTO212
206 IFBC(P)-ME<0THEN75
207 TC(P)=TC(P)+ME:BC(P)=BC(P)-ME:GOTO212
208 IFBD(P)-ME<0THEN75
209 TD(P)=TD(P)+ME:BD(P)=BD(P)-ME:GOTO212
210 IFBE(P)-ME<0THEN75
211 TE(P)=TE(P)+ME:BE(P)=BE(P)-ME:GOTO212
212 M(P)=M(P)-ME:GOTO75
250 POKEVC+21,0:SYSSY:SYSSY+60:SYSSY+1379:SYSSY+3349
251 POKEVC,0:POKEVC+1,0:POKEVC+2,0:POKEVC+3,0
255 K1=2:K2=2:GOSUB39:PRINTT$(P);N$(P)
256 K1=19:K2=2:GOSUB37:PRINT"KAPITAL(";SPC(SP)K(P):POKE34924,46:POKE55404,1
257 K1=2:K2=8:GOSUB39:PRINT"LIEFERWAGEN("L(P)
258 K1=2:K2=9:GOSUB39:PRINT"AUFTR)GE   ("AF(P)
259 K1=2:K2=10:GOSUB39:PRINT"TANK("PR(P);","
260 K1=22:K2=8:GOSUB39:PRINT"WERT   ( "LW(P)
261 K1=22:K2=9:GOSUB39:PRINT"AUFTRAG( "LP(P)
262 K1=22:K2=10:GOSUB39:PRINT"KOSTEN ( "BK(P)
263 FORI=1TO3:POKE35127+I*40,46:POKE55607+I*40,1:NEXT
265 K1=3:K2=15:GOSUB39:PRINT"MAXIMAL("M(P)
266 K1=3:K2=17:GOSUB39:PRINT"BIER   ("TA(P)
267 K1=3:K2=18:GOSUB39:PRINT"SCHNAPS("TB(P)
268 K1=3:K2=19:GOSUB39:PRINT"SEKT   ("TC(P)
269 K1=3:K2=20:GOSUB39:PRINT"WEIN   ("TD(P)
270 K1=3:K2=21:GOSUB39:PRINT"WHISKY ("TE(P)
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"
280 PX=58:PY=195:C0=1:POKEVC+21,3
281 POKEVC,PX:POKEVC+1,PY:POKEVC+2,PX:POKEVC+3,PY
282 IFPEEK(J0)=NTHENPY=PY-8:C0=C0-1
283 IFPEEK(J0)=STHENPY=PY+8:C0=C0+1
284 IFPEEK(J0)=FTHENGOTO288
285 IFPY<195THENPY=195:C0=1
286 IFPY>219THENPY=219:C0=4
287 FORT=1TO25:NEXTT:GOTO281
288 IFC0<>4THENPOKEVC+21,0:GOTO290
289 POKEVC+21,0:POKEVC,0:POKEVC+1,0:POKEVC+2,0:POKEVC+3,0:GOTO50
290 ONC0GOTO300,300,399
300 POKEVC,0:POKEVC+1,0:POKEVC+2,0:POKEVC+3,0:PX=56:PY=221:FORT=1TO2:S(T)=0:NEXT
301 K1=25:K2=20:GOSUB39:PRINT"[\\\\\\\\\\][157][157][157][157][157][157][157][157][157][157][157][157]^ANZAHL( 00^"
302 K1=25:K2=22:GOSUB39:PRINT"_\\\\\\[157][157][157][157][157][157][151]@@@@@@":POKEVC+21,3:T=2
303 POKEVC,PX:POKEVC+1,PY:POKEVC+2,PX:POKEVC+3,PY:POKE35689+T,S(T)+48
310 IFPEEK(J0)=WTHENT=T-1:PX=PX-8
311 IFPEEK(J0)=OTHENT=T+1:PX=PX+8
312 IFPEEK(J0)=NTHENS(T)=S(T)+1
313 IFPEEK(J0)=STHENS(T)=S(T)-1
314 IFPEEK(J0)=FTHENPOKEVC+21,0:GOTO325
315 IFS(T)<0THENS(T)=9
316 IFS(T)>9THENS(T)=0
317 IFT<1THENT=1:PX=48
318 IFT>2THENT=2:PX=56
319 FORI=1TO25:NEXT:GOTO303
325 ME=10*S(1)+S(2)
326 IFME=0THEN250
350 IFC0=2THEN360
351 AF(P)=AF(P)+ME:AU(P)=AU(P)+ME*LP(P):K(P)=K(P)-ME*LP(P):GOTO250
360 IFL(P)-ME<0THEN250
361 TF(P)=TA(P)+TB(P)+TC(P)+TD(P)+TE(P)
362 IFL(P)*1000-ME*1000<TF(P)THEN250
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
364 M(P)=L(P)*1000-TF(P):MK(P)=KW(P)*KN(P)+LW(P)*L(P)
365 IFL(P)=0THENPR(P)=0:T(P)=0:GOTO368
366 IFPR(P)<0THENPR(P)=0:T(P)=0:GOTO368
367 PR(P)=(T(P)*100)/(L(P)*100)
368 IFPR(P)>100THENPR(P)=100:T(P)=100*L(P)
370 GOTO250
399 IFL(P)=0THEN250
400 POKEVC,0:POKEVC+1,0:POKEVC+2,0:POKEVC+3,0:PX=40:PY=221:FORT=1TO2:S(T)=0:NEXT
401 K1=22:K2=20:GOSUB39:PRINT"[\\\\\\\\\\\\\][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]^PROZENT( 00 ,^"
402 K1=22:K2=22:GOSUB39:PRINT"_\\\\\\\\\[157][157][157][157][157][157][157][157][157][151]@@@@@@@@@":POKEVC+21,3:T=2
403 POKEVC,PX:POKEVC+1,PY:POKEVC+2,PX:POKEVC+3,PY:POKE35687+T,S(T)+48
410 IFPEEK(J0)=WTHENT=T-1:PX=PX-8
411 IFPEEK(J0)=OTHENT=T+1:PX=PX+8
412 IFPEEK(J0)=NTHENS(T)=S(T)+1
413 IFPEEK(J0)=STHENS(T)=S(T)-1
414 IFPEEK(J0)=FTHENPOKEVC+21,0:GOTO425
415 IFS(T)<0THENS(T)=9
416 IFS(T)>9THENS(T)=0
417 IFT<1THENT=1:PX=32
418 IFT>2THENT=2:PX=40
419 FORI=1TO25:NEXT:GOTO403
425 ME=S(1)*10+S(2)
426 IFME=0THEN250
427 IFPR(P)+ME=>101THEN250
428 PR(P)=PR(P)+ME:T(P)=T(P)+ME*L(P)
429 AU(P)=AU(P)+ME*BK(P):K(P)=K(P)-ME*BK(P):GOTO250
449 POKEVC,0:POKEVC+1,0:POKEVC+2,0:POKEVC+3,0
450 POKEVC+21,0:SYSSY:SYSSY+60:SYSSY+1824:SYSSY+3349
451 K1=2:K2=2:GOSUB39:PRINTT$(P);N$(P)
452 K1=19:K2=2:GOSUB37:PRINT"KAPITAL(";SPC(SP)K(P):POKE34924,46:POKE55404,1
460 K1=3:K2=7:GOSUB39:PRINT"KNEIPEN    ("KN(P)
461 K1=3:K2=8:GOSUB39:PRINT"ER*FFNUNGEN("ER(P)
462 K1=3:K2=10:GOSUB39:PRINT"WERT     ( "KW(P)
463 K1=3:K2=11:GOSUB39:PRINT"ER*FFNUNG( "KP(P)
464 FORI=1TO2:POKE35190+I*40,46:NEXT
465 K1=3:K2=16:GOSUB39:PRINT"WARE    PREIS"
466 K1=3:K2=18:GOSUB39:PRINT"BIER      "YA(P)
467 K1=3:K2=19:GOSUB39:PRINT"SCHNAPS   "YB(P)
468 K1=3:K2=20:GOSUB39:PRINT"SEKT      "YC(P)
469 K1=3:K2=21:GOSUB39:PRINT"WEIN      "YD(P)
470 K1=3:K2=22:GOSUB39:PRINT"WHISKY    "YE(P)
471 FORI=1TO5:POKE35509+I*40,46:NEXT
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"
480 PX=58:PY=203:C0=1:POKEVC+21,3
481 POKEVC,PX:POKEVC+1,PY:POKEVC+2,PX:POKEVC+3,PY
482 IFPEEK(J0)=NTHENPY=PY-8:C0=C0-1
483 IFPEEK(J0)=STHENPY=PY+8:C0=C0+1
484 IFPEEK(J0)=FTHENGOTO488
485 IFPY<203THENPY=203:C0=1
486 IFPY>219THENPY=219:C0=3
487 FORT=1TO25:NEXTT:GOTO481
488 IFC0<>3THENPOKEVC+21,0:GOTO500
489 POKEVC+21,0:POKEVC,0:POKEVC+1,0:POKEVC+2,0:POKEVC+3,0:GOTO50
500 POKEVC,0:POKEVC+1,0:POKEVC+2,0:POKEVC+3,0:PX=56:PY=221:FORT=1TO2:S(T)=0:NEXT
501 K1=25:K2=20:GOSUB39:PRINT"[\\\\\\\\\\][157][157][157][157][157][157][157][157][157][157][157][157]^ANZAHL( 00^"
502 K1=25:K2=22:GOSUB39:PRINT"_\\\\\\[157][157][157][157][157][157][151]@@@@@@":POKEVC+21,3:T=2
503 POKEVC,PX:POKEVC+1,PY:POKEVC+2,PX:POKEVC+3,PY:POKE35689+T,S(T)+48
510 IFPEEK(J0)=WTHENT=T-1:PX=PX-8
511 IFPEEK(J0)=OTHENT=T+1:PX=PX+8
512 IFPEEK(J0)=NTHENS(T)=S(T)+1
513 IFPEEK(J0)=STHENS(T)=S(T)-1
514 IFPEEK(J0)=FTHENPOKEVC+21,0:GOTO520
515 IFS(T)<0THENS(T)=9
516 IFS(T)>9THENS(T)=0
517 IFT<1THENT=1:PX=48
518 IFT>2THENT=2:PX=56
519 FORI=1TO25:NEXT:GOTO503
520 ME=10*S(1)+S(2)
521 IFME=0THEN449
525 IFC0=2THEN540
530 ER(P)=ER(P)+ME:AU(P)=AU(P)+KP(P)*ME:K(P)=K(P)-KP(P)*ME:GOTO449
540 IFKN(P)-ME<0THEN449
542 LG=600+INT(RND(1)*50):KN(P)=KN(P)-ME:EI(P)=EI(P)+KW(P)*ME
543 K(P)=K(P)+KW(P)*ME:G(P)=G(P)-LG*ME:IFKN(P)=0THENG(P)=0
544 IFG(P)>KN(P)*900THENG(P)=KN(P)*900
545 IFG(P)<KN(P)*100THENG(P)=KN(P)*100
546 MK(P)=KW(P)*KN(P)+LW(P)*L(P)
550 WA(P)=INT(G(P)*1.2):WB(P)=INT(G(P)*0.6):WC(P)=INT(G(P)*0.4)
551 WD(P)=INT(G(P)*0.8):WE(P)=INT(G(P)*0.5)
560 GOTO449
600 POKEVC+21,0:SYSSY:SYSSY+60:SYSSY+2281:SYSSY+1037:SYSSY+3349
601 FORI=0TO3:POKEVC+I,0:NEXTI
610 K1=2:K2=2:GOSUB39:PRINTT$(P);N$(P)
611 K1=19:K2=2:GOSUB37:PRINT"KAPITAL(";SPC(SP)K(P):POKE34924,46:POKE55404,1
612 K1=3:K2=7:GOSUB39:PRINT"WARE      MENGE     PREIS"
613 K1=3:K2=9:GOSUB39:PRINT"BIER     "KA(P)
614 K1=3:K2=10:GOSUB39:PRINT"SCHNAPS  "KB(P)
615 K1=3:K2=11:GOSUB39:PRINT"SEKT     "KC(P)
616 K1=3:K2=12:GOSUB39:PRINT"WEIN     "KD(P)
617 K1=3:K2=13:GOSUB39:PRINT"WHISKY   "KE(P)
618 K1=24:K2=9:GOSUB39:PRINTYA(P):K1=24:K2=10:GOSUB39:PRINTYB(P):K1=24:K2=11:GOSUB39:PRINTYC(P)
621 K1=24:K2=12:GOSUB39:PRINTYD(P)
622 K1=24:K2=13:GOSUB39:PRINTYE(P):FORI=0TO4:POKE35200+I*40,46:NEXTI
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"
624 K1=29:K2=22:GOSUB39:PRINT"WEITER"
650 PX=58:PY=187:C0=1:POKEVC+21,3
651 POKEVC,PX:POKEVC+1,PY:POKEVC+2,PX:POKEVC+3,PY
652 IFPEEK(J0)=NTHENPY=PY-8:C0=C0-1
653 IFPEEK(J0)=STHENPY=PY+8:C0=C0+1
654 IFPEEK(J0)=FTHEN659
655 IFPY<187THENPY=187:C0=1
656 IFPY>227THENPY=227:C0=6
657 FORT=1TO25:NEXTT:GOTO651
659 IFC0<>6THENPOKEVC+21,0:GOTO665
660 POKEVC+21,0:FORI=0TO3:POKEVC+I,0:NEXTI:GOTO50
665 POKEVC,0:POKEVC+1,0:POKEVC+2,0:POKEVC+3,0:PX=56:PY=229:FORT=1TO2:S(T)=0:NEXT
666 K1=25:K2=21:GOSUB39:PRINT"[\\\\\\\\\\][157][157][157][157][157][157][157][157][157][157][157][157]^PREIS( .00^"
667 K1=25:K2=23:GOSUB39:PRINT"_\\\\\\[157][157][157][157][157][157][151]@@@@@@":POKEVC+21,3:T=2
668 POKEVC,PX:POKEVC+1,PY:POKEVC+2,PX:POKEVC+3,PY:POKE35729+T,S(T)+48
670 IFPEEK(J0)=WTHENT=T-1:PX=PX-8
671 IFPEEK(J0)=OTHENT=T+1:PX=PX+8
672 IFPEEK(J0)=NTHENS(T)=S(T)+1
673 IFPEEK(J0)=STHENS(T)=S(T)-1
674 IFPEEK(J0)=FTHENPOKEVC+21,0:GOTO685
675 IFS(T)<0THENS(T)=9
676 IFS(T)>9THENS(T)=0
677 IFT<1THENT=1:PX=48
678 IFT>2THENT=2:PX=56
679 FORI=1TO25:NEXT:GOTO668
685 ME=10*S(1)+S(2)
690 IFME=0THEN600
700 ONC0GOTO701,702,703,704,705
701 YA(P)=ME:GOTO600
702 YB(P)=ME:GOTO600
703 YC(P)=ME:GOTO600
704 YD(P)=ME:GOTO600
705 YE(P)=ME:GOTO600
800 POKEVC+21,0:Z=INT(RND(1)*26)+1
801 IFZ>13THEN990
802 ONZGOTO850,990,870,990,890,990,900,990,910,990,920,990,930
820 SYSSY:SYSSY+60:SYSSY+2458:SYSSY+3349
821 K1=2:K2=2:GOSUB39:PRINTT$(P);N$(P)
822 K1=23:K2=2:GOSUB39:PRINTM$(M);JA
830 K1=30:K2=21:GOSUB39:PRINT"WEITER":RETURN
831 POKEVC+21,3:IFPEEK(J0)=FTHENPOKEVC+21,0:FORI=0TO3:POKEVC+I,0:NEXT:GOTO990
832 GOTO831
850 GOSUB820:G=10000+5000*LE+100*INT(RND(1)*50):EI(P)=EI(P)+G
860 K1=13:K2=11:GOSUB39:PRINT"LOTTERIEGEWINN"
861 K1=17:K2=13:GOSUB39:PRINTG:POKE35353,46:POKE55833,1:K(P)=K(P)+G:GOTO831
870 GOSUB820:V=INT(RND(1)*74)+1:G=100-V
880 K1=12:K2=11:GOSUB39:PRINT"DIEBE PL+NDERTEN"
881 K1=12:K2=13:GOSUB39:PRINT"IHRE LAGERR)UME"
883 BA(P)=INT(BA(P)/100*G):BB(P)=INT(BB(P)/100*G):BC(P)=INT(BC(P)/100*G)
884 BD(P)=INT(BD(P)/100*G):BE(P)=INT(BE(P)/100*G):GOTO831
890 IFAK(P)=1THEN990
891 GOSUB820:G=7500+2500*LE+100*INT(RND(1)*75):AK(P)=1:EI(P)=EI(P)+G
892 K1=12:K2=11:GOSUB39:PRINT"AKTIENDIVIDENDE":AK(P)=1
893 K1=17:K2=13:GOSUB39:PRINTG:POKE35353,46:POKE55833,1:K(P)=K(P)+G:GOTO831
900 GOSUB820:G=7500+2500*LE+100*INT(RND(1)*75):AU(P)=AU(P)+G
901 K1=13:K2=11:GOSUB39:PRINT"AKTIENVERLUST"
902 K1=17:K2=13:GOSUB39:PRINTG:POKE35353,46:POKE55833,1:K(P)=K(P)-G:GOTO831
910 GOSUB820:G=12000+3000*LE+1000*INT(RND(1)*6):EI(P)=EI(P)+G
911 K1=15:K2=11:GOSUB39:PRINT"WETTGEWINN"
912 K1=17:K2=13:GOSUB39:PRINTG:POKE35353,46:POKE55833,1:K(P)=K(P)+G:GOTO831
920 IFKN(P)=0ORKN(P)=1THEN990
921 KN(P)=KN(P)-1:MK(P)=L(P)*LW(P)+KN(P)*KW(P)
922 GOSUB820:K1=11:K2=11:GOSUB39:PRINT"SIE VERLIEREN BEIM"
923 K1=11:K2=13:GOSUB39:PRINT"POKERN EINE KNEIPE":GOTO831
930 ER(P)=ER(P)+1:MK(P)=L(P)*LW(P)+KN(P)*KW(P)
931 GOSUB820:K1=11:K2=11:GOSUB39:PRINT"SIE GEWINNEN BEIM"
932 K1=11:K2=13:GOSUB39:PRINT"POKERN EINE KNEIPE":GOTO831
940 P=0:GOSUB820:K1=15:K2=10:GOSUB39:PRINT"SPIELENDE"
941 K1=12:K2=12:GOSUB39:PRINT"ALLE SPIELER SIND"
942 K1=16:K2=14:GOSUB39:PRINT"BANKROTT":BK=0:GOSUB955
943 IFPEEK(J0)=FTHEN945
944 GOTO943
945 POKE2,8:SYS33232:IFPEEK(2)=0THENPOKEVC+21,0:FORI=0TO3:POKEVC+I,0:NEXT:GOTO947
946 GOTO943
947 POKE2,1:PRINT"[147][144]LOAD"CHR$(34)"05"CHR$(34)","8:PRINT"RUN"
948 FORX=631TO634:POKEX,13:NEXT:POKE198,4:END
950 GOSUB820:K1=16:K2=12:GOSUB39:PRINT"BANKROTT":GOSUB830:GOSUB955:B(P)=1
951 IFPEEK(J0)=FTHENPOKEVC+21,0:FORI=0TO3:POKEVC+I,0:NEXT:GOTO956
952 GOTO951
955 POKEVC+21,3:POKEVC,58:POKEVC+1,219:POKEVC+2,58:POKEVC+3,219:RETURN
956 IFB1=>PLTHEN940
957 IFP=>PLTHEN1162
958 GOTO1090
960 P=0:GOSUB820:K1=16:K2=12:GOSUB39:PRINT"SPIELENDE"
961 POKEVC+21,3:POKEVC,58:POKEVC+1,219:POKEVC+2,58:POKEVC+3,219
962 GOTO943
970 POKEVC+21,0:PRINT"[147]":K1=4:K2=11:GOSUB39:PRINT"BITTE CHICAGO-DISKETTE ";
971 PRINT"EINLEGEN":K1=8:K2=13:GOSUB39:PRINT"UND FEUERKNOPF DR+CKEN"
972 IFPEEK(J0)=FTHEN974
973 GOTO972
974 IFT$(P)=" MR' "THENPOKE38000,0
975 IFT$(P)="MRS' "THENPOKE38000,1
976 FORI=1TO10:POKE38000+I,32:NEXT:N$=N$(P)
977 FORI=1TOLEN(N$):POKE38000+I,ASC(RIGHT$(N$,I)):NEXTI
978 PRINT"[144]LOAD"CHR$(34)"05"CHR$(34)","8:PRINT"RUN"
979 FORX=631TO634:POKEX,13:NEXT:POKE198,4:END
990 IFP>PLTHENP=0:GOTO995
991 J1=J1+1:P=P+1:IFJ1=1THENJ0=56321:N=254:O=247:S=253:W=251:F=239
992 IFJ1=2ANDJ=0THENJ0=56321:N=254:O=247:S=253:W=251:F=239:J1=0
993 IFJ1=2ANDJ=1THENJ0=56320:N=126:O=119:S=125:W=123:F=111:J1=0
994 GOTO43
995 FORI=0TO3:POKEVC+I,0:NEXTI
996 FORP=1TOPL
997 IFB(P)=1THENNEXTP
998 IFP=PL+1THENP=0:J1=0:GOTO1090
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)
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)
1004 M2=INT(900*0.6):M3=INT(900*0.4):M4=INT(900*0.8):M5=INT(900*0.5)
1005 V1(P)=XA(P)^(4/3)/YA(P)*SQR(WA(P))*(KA(P)/100*0.75)*SQR(XA(P))*2.12
1006 V2(P)=XB(P)^(4/3)/YB(P)*SQR(WB(P))*(WB(P)/100*0.75)*SQR(XB(P))*2.12
1007 V3(P)=XC(P)^(4/3)/YC(P)*SQR(WC(P))*(WC(P)/100*0.75)*SQR(XC(P))*2.12
1008 V4(P)=XD(P)^(4/3)/YD(P)*SQR(WD(P))*(WD(P)/100*0.75)*SQR(XD(P))*2.12
1009 V5(P)=XE(P)^(4/3)/YE(P)*SQR(WE(P))*(WE(P)/100*0.75)*SQR(XE(P))*2.12
1010 V1(P)=INT(V1(P)):V2(P)=INT(V2(P)):V3(P)=INT(V3(P)):V4(P)=INT(V4(P))
1011 V5(P)=INT(V5(P))
1012 IFV1(P)>KA(P)THENV1(P)=KA(P)
1013 IFV1(P)>WA(P)THENG(P)=INT(G(P)/100*102)
1014 IFV1(P)>M1*KN(P)THENV1(P)=M1*KN(P)
1015 IFV2(P)>KB(P)THENV2(P)=KB(P)
1016 IFV2(P)>WB(P)THENG(P)=INT(G(P)/100*102)
1017 IFV2(P)>M2*KN(P)THENV2(P)=M2*KN(P)
1018 IFV3(P)>KC(P)THENV3(P)=KC(P)
1019 IFV3(P)>WC(P)THENG(P)=INT(G(P)/100*102)
1020 IFV3(P)>M3*KN(P)THENV3(P)=M3*KN(P)
1021 IFV4(P)>KD(P)THENV4(P)=KD(P)
1022 IFV4(P)>WD(P)THENG(P)=INT(G(P)/100*102)
1023 IFV4(P)>M4*KN(P)THENV4(P)=M4*KN(P)
1024 IFV5(P)>KE(P)THENV5(P)=KE(P)
1025 IFV5(P)>WE(P)THENG(P)=INT(G(P)/100*102)
1026 IFV5(P)>M5*KN(P)THENV5(P)=M5*KN(P)
1027 GW(P)=V1(P)*YA(P)+V2(P)*YB(P)+V3(P)*YC(P)+V4(P)*YD(P)+V5(P)*YE(P)
1028 EI(P)=EI(P)+GW(P):K(P)=K(P)+GW(P)
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)
1031 KE(P)=KE(P)-V5(P)
1032 GL(P)=L(P)*1000-M(P)-1:IFGL(P)=-1THEN1036
1033 GL(P)=INT(GL(P)/1000)
1034 FORI=1TOGL(P)+1:A=24+I:IFA>100THENA=100
1035 T(P)=T(P)-A:NEXTI:PR(P)=(T(P)*100)/(L(P)*100):IFPR(P)<0THENPR(P)=0:T(P)=0
1036 IFK(P)<0THENK(P)=INT(K(P)/100)*105
1037 IFV1(P)<WA(P)THENG(P)=INT(G(P)/100*99)
1038 IFV2(P)<WB(P)THENG(P)=INT(G(P)/100*99)
1039 IFV3(P)<WC(P)THENG(P)=INT(G(P)/100*99)
1040 IFV4(P)<WD(P)THENG(P)=INT(G(P)/100*99)
1041 IFV5(P)<WE(P)THENG(P)=INT(G(P)/100*99)
1042 IFG(P)>KN(P)*900THENG(P)=KN(P)*900
1043 IFG(P)<KN(P)*100THENG(P)=KN(P)*100
1044 IFKN(P)=0THENG(P)=0
1049 NEXTP:P=0:J1=0:GOTO1090
1050 KN(P)=KN(P)+ER(P):G=600+INT(RND(1)*50):G(P)=G(P)+G*ER(P)
1051 L(P)=L(P)+AF(P):PP(P)=100*AF(P):T(P)=T(P)+PP(P):GOSUB1056
1052 EI(P)=0:AU(P)=0:BZ(P)=0:ER(P)=0:AF(P)=0
1053 MK(P)=LW(P)*L(P)+KW(P)*KN(P)
1054 V1(P)=0:V2(P)=0:V3(P)=0:V4(P)=0:V5(P)=0
1056 IFL(P)=0THENPR(P)=0:T(P)=0:RETURN
1057 PR(P)=(T(P)*100)/(L(P)*100):RETURN
1060 RETURN
1062 IFB1=>PLTHEN960
1090 J1=J1+1:P=P+1:IFJ1=1THENJ0=56321:N=254:O=247:S=253:W=251:F=239
1091 IFJ1=2ANDJ=0THENJ0=56321:N=254:O=247:S=253:W=251:F=239:J1=0
1092 IFJ1=2ANDJ=1THENJ0=56320:N=126:O=119:S=125:W=123:F=111:J1=0
1093 IFP>PLTHEN1162
1094 IFB(P)=1THEN1090
1095 IFK(P)<-MK(P)THENB1=B1+1:GOTO950
1096 IFK(P)=>100000000THEN970
1100 POKEVC+21,0:SYSSY:SYSSY+60:SYSSY+2739:SYSSY+3349:FORI=0TO3:POKEVC+I,0:NEXT
1101 K1=2:K2=2:GOSUB39:PRINTT$(P);N$(P)
1102 K1=23:K2=2:GOSUB39:PRINTM$(M);JA
1103 K1=3:K2=7:GOSUB37:PRINT"KAPITAL  ("SPC(SP)K(P):POKE35110,46:POKE55590,1
1104 K1=3:K2=8:GOSUB39:PRINT"G)STE    ("G(P)
1105 K1=3:K2=10:GOSUB39:PRINT"EINNAHMEN( "EI(P):POKE35230,46
1106 K1=3:K2=11:GOSUB39:PRINT"AUSGABEN ( "AU(P):POKE35270,46
1110 K1=3:K2=17:GOSUB39:PRINT"BIER   ("V1(P)
1120 K1=3:K2=18:GOSUB39:PRINT"SCHNAPS("V2(P)
1130 K1=3:K2=19:GOSUB39:PRINT"SEKT   ("V3(P)
1140 K1=3:K2=20:GOSUB39:PRINT"WEIN   ("V4(P)
1141 K1=3:K2=21:GOSUB39:PRINT"WHISKY ("V5(P)
1145 K1=27:K2=20:GOSUB39:PRINT"SPEICHERN[157][157][157][157][157][157][157][157][157]WEITER":GOSUB1050
1150 PX=58:PY=219:C0=2:POKEVC+21,3
1151 POKEVC,PX:POKEVC+1,PY:POKEVC+2,PX:POKEVC+3,PY
1152 IFPEEK(J0)=NTHENPY=PY-8:C0=C0-1
1153 IFPEEK(J0)=STHENPY=PY+8:C0=C0+1
1154 IFPEEK(J0)=FTHENPOKEVC+21,0:SF=1:GOTO1159
1155 IFPY<211THENPY=211:C0=1
1156 IFPY>219THENPY=219:C0=2
1157 FORT=1TO25:NEXTT:GOTO1151
1159 ONC0GOTO1200,1160
1160 IFP=PLTHEN1162
1161 GOTO1090
1162 M=M+1:J1=0:B1=0:PL=PEEK(38001):IFM=6THENFORI=1TOPL:LE(I)=LE(I)+1:NEXTI
1164 IFM=13THENJA=JA+1:FORI=1TOPL:LE(I)=LE(I)+1:M=1:AK(I)=0:NEXTI
1165 IFJA=1933ANDM=12THEN960
1166 P=0:GOTO17
1200 POKEVC+21,0:FORI=0TO3:POKEVC+I,0:NEXTI:POKE35832,52:POKE35833,53
1201 SYSSY:SYSSY+3160:SYSSY+3349:J0=56321:N=254:O=247:S=253:W=251:F=239
1202 FORI=1TO5:K1=5:K2=4+I:GOSUB39:PRINT"SPIELSTAND"I:NEXTI
1203 K1=5:K2=10:GOSUB39:PRINT"WEITER":POKEVC+39,1:POKEVC+40,2
1204 S$(1)="CSG 1":S$(2)="CSG 2":S$(3)="CSG 3":S$(4)="CSG 4":S$(5)="CSG 5"
1205 POKEVC+16,0:PX=162:PY=91:C0=1:POKEVC+21,3
1206 IFSF=1THENK1=5:K2=3:GOSUB39:PRINT"SPEICHERN("
1207 IFSF=2THENK1=5:K2=3:GOSUB39:PRINT"LADEN("
1210 POKEVC,PX:POKEVC+1,PY:POKEVC+2,PX:POKEVC+3,PY
1212 IFPEEK(J0)=NTHENPY=PY-8:C0=C0-1
1213 IFPEEK(J0)=STHENPY=PY+8:C0=C0+1
1214 IFPEEK(J0)=FTHEN1220
1215 IFPY<91THENPY=91:C0=1
1216 IFPY>131THENPY=131:C0=6
1217 FORT=1TO25:NEXTT:GOTO1210
1220 IFC0=6ANDSF=1THENPOKEVC+16,3:POKEVC+21,0:FORI=0TO3:POKEVC+I,0:NEXTI:GOTO1160
1221 IFC0=6ANDSF(1)=1THENPOKEVC+16,3:POKEVC+21,0:FORI=0TO3:POKEVC+I,0:NEXTI:GOTO1500
1222 IFC0=6ANDSF(1)=0THEN1210
1230 IFSF=2THEN1300
1240 POKE2,8:SYS33232:IFPEEK(2)=0THEN1248
1241 GOTO1210
1248 POKEVC+21,0:OPEN1,8,15,"UI:":CLOSE1
1249 OPEN2,8,2,"@:"+S$(C0)+",S,W"
1250 PRINT#2,PL:PRINT#2,J:PRINT#2,M:PRINT#2,JA
1260 FORI=1TOPL:PRINT#2,T$(I):PRINT#2,N$(I):PRINT#2,K(I):PRINT#2,G(I)
1261 PRINT#2,L(I):PRINT#2,T(I):PRINT#2,PR(I):PRINT#2,KN(I):PRINT#2,KA(I)
1262 PRINT#2,KB(I):PRINT#2,KC(I):PRINT#2,KD(I):PRINT#2,KE(I):PRINT#2,B(I)
1263 PRINT#2,BA(I):PRINT#2,BB(I):PRINT#2,BC(I):PRINT#2,BD(I):PRINT#2,BE(I)
1264 PRINT#2,YA(I):PRINT#2,YB(I):PRINT#2,YC(I):PRINT#2,YD(I):PRINT#2,YE(I)
1265 PRINT#2,TF(I):PRINT#2,LE(I):PRINT#2,AF(I):PRINT#2,ER(I):NEXTI
1266 CLOSE2:GOTO1200
1300 POKE2,8:SYS33232:IFPEEK(2)=0THEN1306
1301 POKEVC,PX:POKEVC+1,PY:POKEVC+2,PX:POKEVC+3,PY:GOTO1210
1306 POKEVC+21,0:OPEN1,8,15,"UI:":CLOSE1
1307 OPEN2,8,2,S$(C0)+",S,R":CLOSE2
1308 OPEN15,8,15:INPUT#15,F$,G$,H$,I$:CLOSE15
1309 IFVAL(F$)<>0THEN1200
1310 OPEN2,8,2,S$(C0)+",S,R"
1320 INPUT#2,PL:INPUT#2,J:INPUT#2,M:INPUT#2,JA
1330 FORI=1TOPL:INPUT#2,T$(I):INPUT#2,N$(I):INPUT#2,K(I):INPUT#2,G(I)
1331 INPUT#2,L(I):INPUT#2,T(I):INPUT#2,PR(I):INPUT#2,KN(I):INPUT#2,KA(I)
1332 INPUT#2,KB(I):INPUT#2,KC(I):INPUT#2,KD(I):INPUT#2,KE(I):INPUT#2,B(I)
1333 INPUT#2,BA(I):INPUT#2,BB(I):INPUT#2,BC(I):INPUT#2,BD(I):INPUT#2,BE(I)
1334 INPUT#2,YA(I):INPUT#2,YB(I):INPUT#2,YC(I):INPUT#2,YD(I):INPUT#2,YE(I)
1335 INPUT#2,TF(I):INPUT#2,LE(I):INPUT#2,AF(I):INPUT#2,ER(I):NEXTI
1336 CLOSE2:SF(1)=1:POKE38001,PL
1337 FORI=1TOPL:IFT$(I)="MR' "THENT$(I)=" MR' "
1338 NEXTI
1349 FORP=1TOPL:GOSUB1050:NEXTP:P=0:J1=0:FORI=0TO3:POKEVC+I,0:NEXTI:GOTO1200
1500 M=M+1:J1=0:B1=0:IFM=6THENFORI=1TOPL:LE(I)=LE(I)+1:NEXTI      
1501 IFM=13THENJA=JA+1:FORI=1TOPL:LE(I)=LE(I)+1:M=1:AK(I)=0:NEXTI
1502 IFJA=1933ANDM=12THEN960
1503 GOTO17