10 CODE=7*4096:VARS=5*4096+6*256
15 SYS CODE,24,1
20 SYS CODE,3:REM CLEARNORM SCN
30 PRINT"[215]ERBEBUDGET[160][160][160]"
31 POKE 1024+4*40+20,29
32 POKE 1024+4*40+25,27
33 A=(PEEK(VARS+7+46+((PEEK(VARS+1)-1)*67))*1)
34 A=A+(PEEK(VARS+7+47+((PEEK(VARS+1)-1)*67))*256)
35 A=A+(PEEK(VARS+7+48+((PEEK(VARS+1)-1)*67))*65536)
36 A=A+(PEEK(VARS+7+49+((PEEK(VARS+1)-1)*67))*16777216)
37 PRINT"[160][160][160][160][160][160][160][160][160]"
38 PRINT""A
39 PRINT"[215]EITER"
40 SYS CODE,6,5
45 POKE 2,0
50 CL=PEEK(2):IF CL=0 THEN 50
55 POKE 2,0
60 IF CL=1 THEN 200
70 IF CL=2 THEN 300
80 IF CL=3 THEN GOSUB 1000 :SYS CODE,1,"L.WERBAGNT",8
90 IF CL=99 THEN GOSUB 1000:Z=PEEK(VARS+2):A$="L.CITY"+STR$(Z):SYS CODE,1,A$,8
100 GOTO 50
200 A=A+5000
210 PRINT"[160][160][160][160][160][160][160][160][160]"
220 PRINT""A
230 SYS CODE,6,5
240 GOTO 50
300 IF A<5000 THEN 50
305 A=A-5000
310 PRINT"[160][160][160][160][160][160][160][160][160]"
320 PRINT""A
330 SYS CODE,6,5
340 GOTO 50
1000 POKE(VARS+7+49+((PEEK(VARS+1)-1)*67)),INT(A/16777216)
1001 A=A-(INT(A/16777216)*16777216)
1002 POKE(VARS+7+48+((PEEK(VARS+1)-1)*67)),INT(A/65536)
1003 A=A-(INT(A/65536)*65536)
1004 POKE(VARS+7+47+((PEEK(VARS+1)-1)*67)),INT(A/256)
1005 A=A-(INT(A/256)*256)
1006 POKE(VARS+7+46+((PEEK(VARS+1)-1)*67)),A
1100 RETURN