5 CODE=7*4096:VARS=5*4096+6*256
10 SYS CODE,24,1
11 GR=PEEK(CODE+3)+PEEK(CODE+4)*256
12 AG=PEEK(36862):REM 8FFE ACT.GROUND
20 SYS CODE,3:REM CLEARNORM SCN
21 B=VARS+7+2+((PEEK(VARS+1)-1)*67)
22 X=PEEK(B+3) AND 128
23 K=PEEK(B+0)
24 K=K+(PEEK(B+1)*256)
25 K=K+(PEEK(B+2)*65536)
26 K=K+((PEEK(B+3) AND 127)*16777216)
27 IF X=128 THEN K=-K
28 GOSUB 4000
30 PRINT"[144][214]ERKAUFEN[203]AUFEN[201]NFO"
31 SYS CODE,6,5
40 GOSUB 500
45 POKE2,0
50 CL=PEEK(2):IF CL=0 THEN 50
55 POKE2,0
60 IF CL=99 THEN 3000
70 IF CL=1 THEN GOSUB 100
71 IF CL=2 THEN GOSUB 200
72 IF CL=3 THEN GOSUB 300
73 IF CL=4 THEN GOSUB 400
74 IF CL=6 THEN GOSUB 500
75 IF CL=5 THEN GOSUB 700
76 IF CL=7 THEN GOSUB 800
99 GOTO 50
100 SYS CODE,3
101 PRINT"[155][208]REIS:[160][160][160][160]50000[160][160][160]"
102 PRINT"[196]IESES[160][193]UTO[160]IST[160][160][160]"
103 PRINT"DER[160][215]UNSCHTRAUM[160][160][160]"
104 PRINT"JEDES[160][193]UTOFAHRERS,"
105 PRINT"DENN[160]WER[160]SCHNELL[160][160]"
106 PRINT"F@HRT,[160]KANN[160]MEHR[160][160]"
107 PRINT"LIEFERN...[160][160][160][160][160][160][160][160]"
108 PRINT"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
109 PRINT"[155][199]UTHABEN:";K
110 PRINT"[155][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
111 F=1:SYS CODE,6,3:RETURN
200 SYS CODE,3
201 PRINT"[155][208]REIS:[160][160][160][160]30000[160][160][160]"
202 PRINT"[196]IE[160]PREISWERTE[160][160][160][160]"
203 PRINT"[193]LTERNATIVE[160]ZUM[160][160][160]"
204 PRINT"[208]ORSCHE[160]UND[160]ZUDEM[160]"
205 PRINT"ETWAS[160]UMWELT-[160][160][160][160][160]"
206 PRINT"FREUNDLICHER...[160][160][160]"
207 PRINT"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
208 PRINT"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
209 PRINT"[155][199]UTHABEN:";K
210 PRINT"[155][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
211 F=2:SYS CODE,6,3:RETURN
300 SYS CODE,3
301 PRINT"[155][208]REIS:[160][160][160][160]35000[160][160][160]"
302 PRINT"[196]ER[160][213]MWELTFREUND[160][160]"
303 PRINT"IST[160]NUN[160]NICHT[160]MEHR"
304 PRINT"DEM[160][215]ETTER[160]AUSGE-[160]"
305 PRINT"LIEFERT![160][213]ND[160]DAS[160][160]"
306 PRINT"BEI[160]EINER[160][210]EICH-[160][160]"
307 PRINT"WEITE[160]VON[160]400[160][203]M[160]!"
308 PRINT"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
309 PRINT"[155][199]UTHABEN:";K
310 PRINT"[155][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
311 F=4:SYS CODE,6,3:RETURN
400 SYS CODE,3
401 PRINT"[155][208]REIS:[160][160][160][160]2000[160][160][160][160]"
402 PRINT"[215]ENN[160]ALLE[160]IM [211]TAU[160]"
403 PRINT"STEHEN,[160]WERDEN[160][160][160][160]"
404 PRINT"[201]HRE[160][193]USFAHRER[160][160][160][160]"
405 PRINT"DURCH[160]DIE[160][211]TADT[160][160][160]"
406 PRINT"FLITZEN[160]![160][213]ND[160][160][160][160][160]"
407 PRINT"DAS[160]V*LLIG[160]OHNE[160][160][160]"
408 PRINT"[211]PRITVERBRAUCH...[160]"
409 PRINT"[155][199]UTHABEN:";K
410 PRINT"[155][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
411 F=8:SYS CODE,6,3:RETURN
500 SYS CODE,3
501 PRINT"[155][211]IE[160]HABEN[160][160][160][160][160][160][160][160][160]"
502 PRINT"[155][160][160][193]USFAHRER[160][160][160][160][160][160][160]"
503 PRINT"[155]EINGESTELLT[160]UND[160][160][160]"
504 PRINT"[155]BESITZEN[160][160][160][160][160][160][160][160][160][160]"
505 PRINT"[155][160][160][208]ORSCHE[160][160][160][160][160][160][160][160][160]"
506 PRINT"[155][160][160][203]OMBI[160][160][160][160][160][160][160][160][160][160][160]"
507 PRINT"[155][160][160][197]LEKTROAUTO/S[160][160][160]"
508 PRINT"[155][160][160][198]AHRRAD/-R@DER[160][160]"
509 PRINT"[155][211]IE[160]BEN*TIGEN[160]MAX."
510 PRINT"[155]1[160][198]AHRZEUG/E...[160][160][160]"
511 GOSUB 600
512 PRINT"";AF
513 PRINT"";FA AND 1
514 PRINT"";(FA AND 2)-(FA AND 2)/2
515 PRINT"";(FA AND 4)-INT((FA AND 4)/1.2)
516 PRINT"";(FA AND 8)-INT((FA AND 8)/1.1)
520 SYS CODE,6,3:RETURN
600 B=GR+(AG-1)*31+(PEEK(VARS+2)-1)*31*6
610 FA=PEEK(B+6) AND 15:REM FAHRZ NIBBLE
620 AF=0:REM KEIN AUSFAHRER EINGEST.
630 FOR X=17 TO 26
640 Z=PEEK(B+X):IF Z=255 THEN 660
650 IF PEEK(VARS+Z*7+867)=5 THEN AF=1
660 NEXT
670 RETURN
700 B=GR+(AG-1)*31+(PEEK(VARS+2)-1)*31*6
701 Q=PEEK(B+6) AND 15:IF Q>0 THEN 1000
710 POKE(B+6),PEEK(B+6) OR F
720 IF F=1 THEN K=K-50000:IV=IV+50000
730 IF F=2 THEN K=K-30000:IV=IV+30000
740 IF F=4 THEN K=K-35000:IV=IV+35000
750 IF F=8 THEN K=K-2000:IV=IV+2000
760 SYS CODE,24,2
798 GOSUB 500
799 RETURN
800 B=GR+(AG-1)*31+(PEEK(VARS+2)-1)*31*6
801 Q=PEEK(B+6) AND F:IF Q=0 THEN 2000
810 POKE(B+6),PEEK(B+6) AND (255-F)
820 IF F=1 THEN K=K+50000:IV=IV-50000
830 IF F=2 THEN K=K+30000:IV=IV-30000
840 IF F=4 THEN K=K+35000:IV=IV-35000
850 IF F=8 THEN K=K+2000:IV=IV-2000
860 SYS CODE,24,2
898 GOSUB 500
899 RETURN
1000 X=0:POKE 2,255
1001 SYS CODE,3:POKE1024+24*40+39,96
1002 PRINT"[211]IE[160]BESITZEN[160]BEREITS[160]GEN^GEND[160][198]AHRZEUGE!";
1003 PRINT"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
1004 SYS CODE,6,5
1005 CL=PEEK(2):IF CL<>255 THEN 1008
1006 X=X+1
1007 IF X<300 THEN 1005
1008 PRINT"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
1009 PRINT"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
1010 POKE1024+24*40+39,96:SYS CODE,6,5:SYS CODE,15:RETURN
2000 X=0:POKE 2,255
2001 SYS CODE,3:POKE1024+24*40+39,96
2002 PRINT"[211]IE[160]BESITZEN[160]KEIN[160]SOLCHES[160][198]AHRZEUG[160]![160][160][160][160]";
2003 PRINT"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
2004 SYS CODE,6,5
2005 CL=PEEK(2):IF CL<>255 THEN 2008
2006 X=X+1
2007 IF X<300 THEN 2005
2008 PRINT"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
2009 PRINT"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
2010 POKE1024+24*40+39,96:SYS CODE,6,5:SYS CODE,15:RETURN
3000 B=VARS+7+2+((PEEK(VARS+1)-1)*67)
3020 X=0:IF K<0 THEN K=K-K-K:X=128
3030 POKE(B+3),INT(K/16777216)
3040 K=K-(INT(K/16777216)*16777216)
3050 POKE(B+2),INT(K/65536)
3060 K=K-(INT(K/65536)*65536)
3070 POKE(B+1),INT(K/256)
3080 K=K-(INT(K/256)*256)
3090 POKE(B+0),K
3100 POKE(B+3),PEEK(B+3) OR X
3110 REM *********************
3120 GOSUB 5000
3190 Z=PEEK(VARS+2):A$="L.CITY"+STR$(Z):SYS CODE,25,1:SYS CODE,1,A$,8
4000 REM GET INVEST
4001 B=VARS+1643+((PEEK(VARS+1)-1)*8)
4002 X=PEEK(B+3) AND 128
4003 IV=PEEK(B+0)
4004 IV=IV+(PEEK(B+1)*256)
4005 IV=IV+(PEEK(B+2)*65536)
4006 IV=IV+((PEEK(B+3) AND 127)*16777216)
4007 IF X=128 THEN IV=-IV
4010 RETURN
5000 B=VARS+1643+((PEEK(VARS+1)-1)*8)
5020 X=0:IF IV<0 THEN IV=IV-IV-IV:X=128
5030 POKE(B+3),INT(IV/16777216)
5040 IV=IV-(INT(IV/16777216)*16777216)
5050 POKE(B+2),INT(IV/65536)
5060 IV=IV-(INT(IV/65536)*65536)
5070 POKE(B+1),INT(IV/256)
5080 IV=IV-(INT(IV/256)*256)
5090 POKE(B+0),IV
5100 POKE(B+3),PEEK(B+3) OR X
5120 RETURN