1 CODE=7*4096:VARS=5*4096+6*256:SYSCODE,24,39:SYSCODE,24,39
4 SYSCODE,24,39:POKE53265,PEEK(53265)AND(255-16):CODE=7*4096:VARS=5*4096+6*256
8 I=VARS+7+(PEEK(VARS+1)-1)*67+55:POKEI,PEEK(I)+3:UU=90
10 CODE=7*4096:VARS=5*4096+6*256:GR=PEEK(CODE+3)+PEEK(CODE+4)*256
16 AC=PEEK(36848+(PEEK(VARS+1)-1))-1:IN=0:AF=0:ZIEL=PEEK(36852+PEEK(VARS+1)-1)
21 B=VARS+7+2+((PEEK(VARS+1)-1)*67):X=PEEK(B+3)AND128:K=PEEK(B+0)
24 K=K+(PEEK(B+1)*256):K=K+(PEEK(B+2)*65536):K=K+((PEEK(B+3)AND127)*16777216)
27 IFX=128THENK=-K
31 B=VARS+7+4*67+5*16+16*32+7*80+4*50+16+4+((PEEK(VARS+1)-1)*8)
32 X=PEEK(B+3)AND128:VM=PEEK(B+0):VM=VM+(PEEK(B+1)*256):VM=VM+(PEEK(B+2)*65536)
36 VM=VM+((PEEK(B+3)AND127)*16777216)
37 IFX=128THENVM=-VM:PRINT"NEGATIVES VERMOEGEN !!!"VM
41 B=VARS+7+4*67+5*16+16*32+7*80+4*50+16+((PEEK(VARS+1)-1)*8):X=PEEK(B+3)AND128
43 IN=PEEK(B+0):IN=IN+(PEEK(B+1)*256):IN=IN+(PEEK(B+2)*65536)
46 IN=IN+((PEEK(B+3)AND127)*16777216)
47 IFX=128THENIN=-IN:PRINT"NEGATIVE INVESTITIONEN!"IN
49 IFZIEL<1ORZIEL>3THENZIEL=1
50 IFZIEL=1THEN1000
60 IFZIEL=2THEN3000
70 IFZIEL=3THEN6000
80 PRINT"ERROR !!!":END
100 PRINT"ZIEL..:"ZIEL:PRINT"KONTO.:"K:PRINT"VERMOE:"VM:PRINT"INVEST:"IN:PRINT"PREIS.:"PR
120 PRINT"QM....:"QM:PRINT"CITY..:"CITY:PRINT"PLACE.:"AC+1:PRINT"BEN.ITEMS:"BN:RETURN
1000 EF=1:Q=0
1005 CITY=INT(RND(1)*9)+1:POKEVARS+7+(PEEK(VARS+1)-1)*67,CITY:POKEVARS+2,CITY
1020 PL=INT(RND(1)*6)+1:POKE36848+PEEK(VARS+1)-1,PL:AC=PL-1
1040 W=GR+AC*31+(PEEK(VARS+2)-1)*31*6:X=PEEK(W+2)AND15:IFX=0THEN1100
1070 Q=Q+1:IFQ=6THENEF=0:PRINT"KEIN GRUNDSTUECK GEFUNDEN !":GOTO10000
1080 GOTO1005
1100 X=(PEEK(W+3)AND240)/16:IFX=1THENQM=250
1120 IFX=2THENQM=500
1130 IFX=3THENQM=500
1140 IFX=4THENQM=750
1150 IFX=5THENQM=750
1160 IFX=6THENQM=1000
1170 IFX=7THENQM=1250
1180 IFX=8THENQM=1250
1190 IFX<1ORX>8THENGOSUB100:PRINT"QM ERROR !!!!":GOTO1005
1200 PR=PEEK(W+5)*10*QM:IFPR>KTHENEF=0:GOSUB2000:GOTO10000
1250 K=K-PR:IN=IN+PR:POKE(W+2),PEEK(VARS+1)*16+1:POKE(W+3),PEEK(W+3)AND240:POKE(W+6),0
1290 FORX=0TO9:POKE(W+7),0:NEXT:FORX=0TO9:POKE(W+17),255:NEXT:GOSUB100
1340 PRINT"GRUNDSTUECK GEKAUFT !!!":GOTO10000
1996 END
2000 PRINT"NICHT GENUG GELD ! AKTIEN VERKAUFEN!!!":IFAF=1THENRETURN
2020 AF=1:PZ=INT(RND(1)*3)+4
2040 PB=VARS+7+67*4+16*5+16*32+7*80+4*50+(PEEK(VARS+1)-1)*4+(PEEK(VARS+1)-1)
2050 IF(PEEK(PB)-PZ)<51THENRETURN
2060 POKEPB,PEEK(PB)-PZ:K=K+PZ*VM/100:VM=VM+PZ*VM/100:GOSUB100:PRINT"AKTIEN VERKAUFT"
2090 RETURN
3000 EF=1:W=GR+AC*31+(PEEK(VARS+2)-1)*31*6:CITY=PEEK(VARS+2)
3020 X=(PEEK(W+3)AND240)/16:IFX=1THENTYP=1
3040 IFX=2THENTYP=2
3050 IFX=3THENTYP=2
3060 IFX=4THENTYP=3
3070 IFX=5THENTYP=3
3080 IFX=6THENTYP=4
3090 IFX=7THENTYP=4
3100 IFX=8THENTYP=4
3110 IFX<1ORX>8THENPRINT"[147]TYP ERROR !!!!":END
3115 IFTYP=0THENEF=0:GOSUB2000:GOTO10000
3120 IFTYP=1THENPR=500000:QM=250
3130 IFTYP=2THENPR=900000:QM=500
3140 IFTYP=3THENPR=1300000:QM=750
3150 IFTYP=4THENPR=1600000:QM=1000
3160 IFK<PRTHENTYP=TYP-1:GOTO3115
3170 K=K-PR:IN=IN+PR:POKE(W+2),PEEK(W+2)AND240OR2:POKE(W+3),PEEK(W+3)AND240ORTYP
3210 POKE(W+6),PEEK(W+6)AND15OR112:GOSUB100:PRINT"RESTAURANT GEKAUFT !":GOTO10000
6000 EF=1:W=GR+AC*31+(PEEK(VARS+2)-1)*31*6:CITY=PEEK(VARS+2)
6020 RT=PEEK(VARS+7+1+(PEEK(VARS+1)-1)*67):RB=VARS+7+4*67+RT*16+6:X=0
6060 IFPEEK(W+12+X)=PEEK(RB+X)THEN6180
6080 BN=(PEEK(RB+X)):IFX=0THENPR=20000*BN
6110 IFX=1THENPR=1250*BN
6120 IFX=2THENPR=15000*BN
6130 IFX=3THENPR=60000*BN
6140 IFX=4THENPR=10000*BN
6150 IFK<PRTHENEF=0:GOSUB100:PRINT"ZU WENIG GELD F.EINRICHTUNG":GOTO10000
6160 K=K-PR:IN=IN+PR:POKE(W+12+X),BN:POKE(W+7),7:POKE(W+8),2:POKE(W+9),1
6178 POKE(W+10),6:POKE(W+11),8
6180 X=X+1:IFX<5THEN6060
6195 GOSUB100:PRINT"ALLE BENOETIGTEN ITEMS GEKAUFT !":X=0:Q=0
6310 BN=PEEK(RB+5+X):IFBN=0THEN6350
6330 POKE(W+17+Q),X:BN=BN-1:Q=Q+1
6350 IFBN>0THEN6330
6360 X=X+1:IFX<5THEN6310
6390 PRINT"BENOETIGTE ARBEITER EINGESTELLT !":IF(PEEK(W+6)AND15)=4THEN6420
6405 K=K-35000:POKE(W+6),PEEK(W+6)AND240OR4
6420 REM
6430 PRINT"AUTO IST VORHANDEN !!!
10000 [139]EF[178]1[167]ZIEL[178]ZIEL[170]1:[151]36852[170][194](VARS[170]1)[171]1,ZIEL
10010 [141]11000:[141]10100:[137]20000
10100 QK[178]K:B[178]VARS[170]7[170]2[170](([194](VARS[170]1)[171]1)[172]67):X[178]0:[139]K[179]0[167]K[178]K[171]K[171]K:X[178]128
10130 [151](B[170]3),[181](K[173]16777216):K[178]K[171]([181](K[173]16777216)[172]16777216):[151](B[170]2),[181](K[173]65536)
10160 K[178]K[171]([181](K[173]65536)[172]65536):[151](B[170]1),[181](K[173]256):K[178]K[171]([181](K[173]256)[172]256):[151](B[170]0),K
10200 [151](B[170]3),[194](B[170]3)[176]X:K[178]QK
10300 QK[178]VM:B[178]VARS[170]7[170]4[172]67[170]5[172]16[170]16[172]32[170]7[172]80[170]4[172]50[170]16[170]4[170](([194](VARS[170]1)[171]1)[172]8)
10320 X[178]0:[139]VM[179]0[167]VM[178]VM[171]VM[171]VM:X[178]128
10330 [151](B[170]3),[181](VM[173]16777216):VM[178]VM[171]([181](VM[173]16777216)[172]16777216)
10350 [151](B[170]2),[181](VM[173]65536):VM[178]VM[171]([181](VM[173]65536)[172]65536):[151](B[170]1),[181](VM[173]256)
10380 VM[178]VM[171]([181](VM[173]256)[172]256):[151](B[170]0),VM:[151](B[170]3),[194](B[170]3)[176]X:VM[178]QK
10500 QK[178]IN:B[178]VARS[170]7[170]4[172]67[170]5[172]16[170]16[172]32[170]7[172]80[170]4[172]50[170]16[170](([194](VARS[170]1)[171]1)[172]8)
10520 X[178]0:[139]IN[179]0[167]IN[178]IN[171]IN[171]IN:X[178]128
10530 [151](B[170]3),[181](IN[173]16777216):IN[178]IN[171]([181](IN[173]16777216)[172]16777216)
10550 [151](B[170]2),[181](IN[173]65536):IN[178]IN[171]([181](IN[173]65536)[172]65536):[151](B[170]1),[181](IN[173]256)
10580 IN[178]IN[171]([181](IN[173]256)[172]256):[151](B[170]0),IN:[151](B[170]3),[194](B[170]3)[176]X:IN[178]QK
10700 [153]"VARS STORED !!!!!!!":[142]
11000 [139]K[179]1500000[167][142]
11010 [139][181]([187](1)[172]2)[178]0[167][142]
11020 OP[178][181]([187](1)[172]4)[170]1:PZ[178]4:[139]OP[178][194](VARS[170]1)[167]PZ[178]8
11040 PB[178]VARS[170]7[170]67[172]4[170]16[172]5[170]16[172]32[170]7[172]80[170]4[172]50
11050 EH[178]100[171]([194](PB[170]OP[171]1)[170][194](PB[170]OP[171]1[170]4)[170][194](PB[170]OP[171]1[170]8)[170][194](PB[170]OP[171]1[170]12))
11060 [139]EH[179]PZ[167]PZ[178]EH
11080 B[178]VARS[170]7[170]4[172]67[170]5[172]16[170]16[172]32[170]7[172]80[170]4[172]50[170]16[170]4[170]((OP[171]1)[172]8):X[178][194](B[170]3)[175]128
11083 VO[178][194](B[170]0):VO[178]VO[170]([194](B[170]1)[172]256):VO[178]VO[170]([194](B[170]2)[172]65536)
11086 VO[178]VO[170](([194](B[170]3)[175]127)[172]16777216)
11087 [139]X[178]128[167]VO[178][171]VO:[153]"NEGATIVES OPFER VERMOEGEN !!!"VO
11090 [139]K[179]PZ[172]VO[173]100[167][142]
11100 [139]([194](PB[170](OP[171]1)[172]4[170]OP[171]1)[171]PZ)[179]51[167][142]
11140 PP[178]PB[170]([194](VARS[170]1)[171]1)[172]4[170]OP[171]1:[151]PP,[194](PP)[170]PZ:K[178]K[171]PZ[172]VO[173]100
11170 VM[178]VM[171]PZ[172]VO[173]100:[153]"AKTIEN GEKAUFT !!!"PZ"%":[153]"VON OPFER:"OP
11210 [153]"OP. VERM.:"VO:[153]"OWN VERM.:"VM:[153]"OWN KONTO:"K:[142]
20000 CH[178][181]([187](1)[172]100):[139]UU[178]90[175]CH[179][178]UU[175]CH[177][178]0[167]UU[178]50:[153]"AGAIN !!! UU:"UU:[137]10
20020 [139]UU[178]50[175]CH[179][178]UU[175]CH[177][178]0[167]UU[178]00:[153]"AGAIN !!! UU:"UU:[137]10
21000 [153]"ENDE +EXIT  !!!!!!!!!!":[158]CODE,1,"L.ABRECH",8