10 CODE=7*4096:VARS=5*4096+6*256:QA=(PEEK(1024+23*40+26)-48)*10
14 QA=QA+PEEK(1024+23*40+27)-48:QR=PEEK(VARS+4):IFQR=1ANDQA>3THEN2000
17 IFQR=2ANDQA>6THEN2000
18 IFQR=3ANDQA>9THEN2000
19 IFQR=4ANDQA<10THEN2000
20 SYSCODE,3:PRINT"[160][160][199]RUNDST^CKE[160][160]"
31 PRINT"[193]RCHITEKTURB^RO"
32 PRINT"[160][197]INRICHTUNGEN[160]"
33 PRINT"[160][160][193]RBEITSAMT[160][160][160]"
34 PRINT"[160][160][160][198]AHRZEUGE[160][160][160]"
35 PRINT"[160][160][194]ANK[160][160][194]*RSE[160][160]"
36 PRINT"[160][215]ERBEAGENTUR[160][160]"
37 PRINT"[160][160][160][160][194]AHNHOF[160][160][160][160]":SYSCODE,6,5
45 POKE2,0
50 CL=PEEK(2):IFCL=0THEN50
55 POKE2,0:IFCL=1THENSYSCODE,1,"L.GRUNDST",8
70 IFCL=2THENSYSCODE,1,"L.SEL.ARCHI",8
80 IFCL=3THENSYSCODE,1,"L.SEL.EINR",8
90 IFCL=4THENSYSCODE,1,"L.SEL.ANSTELL",8
100 IFCL=5THENSYSCODE,1,"L.SEL.FAHR",8
110 IFCL=6THENSYSCODE,1,"L.PORTAL",8
120 IFCL=7THENSYSCODE,1,"L.BUDGET",8
130 IFCL=8THENSYSCODE,1,"L.BAHNHOF",8
133 IFCL=96THEN1000
135 IFCL=97THENSYSCODE,25,2:SYSCODE,1,"L.STATIST",8
140 IFCL=98THEN300
150 GOTO50
300 X=0:POKE2,255:SYSCODE,3:POKE1024+24*40+39,96
302 PRINT"[215]OLLEN[160][211]IE[160]DIE[160][210]UNDE[160]WIRKLICH[160]BEENDEN[160]?[160]";
303 PRINT"([202]A/[206]EIN)[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]";
304 SYSCODE,6,5
305 GETB$:IFB$="J"THEN400
307 IFB$="N"THEN310
308 X=X+1:IFX<300THEN305
310 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]";
311 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]";
312 POKE1024+24*40+39,96:SYSCODE,6,5:SYSCODE,15:GOTO45
400 GOSUB5000:SYSCODE,25,2:SYSCODE,1,"L.EVENTS",8
1000 X=0:POKE2,255:SYSCODE,3:POKE1024+24*40+39,96
1002 PRINT"[213]M[160]EINEN[160][211]PIELSTAND[160]ZU[160][204]ADEN/[211]AVEN[160][160][160][160][160][160]";
1003 PRINT"DR^CKEN[160][211]IE[160][204][160]ODER[160][211][160]....[160][198]EUER=ZUR^CK[160]";
1004 SYSCODE,6,5:POKE2,255
1005 GETB$:IFB$="L"THEN1100
1007 IFB$="S"THEN1200
1008 IFPEEK(2)<>255THEN1011
1009 X=X+1:GOTO1005
1011 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]";
1012 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]";
1013 POKE1024+24*40+39,96:SYSCODE,6,5:SYSCODE,15:GOTO45
1100 X=0:POKE2,255:SYSCODE,3:POKE1024+24*40+39,96
1102 PRINT"[204]EGEN[160][211]IE[160][201]HRE[160][211]PIELSTAND[160][196]ISKETTE[160]EIN[160][160]";
1103 PRINT"UND[160]DR^CKEN[160][211]IE[160][198]EUER[160]![160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
1104 SYSCODE,6,5:POKE2,255
1105 GETB$:IFPEEK(2)<>255THEN1150
1109 X=X+1:GOTO1105
1111 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]";
1112 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]";
1113 POKE1024+24*40+39,96:SYSCODE,6,5:SYSCODE,15:GOTO45
1150 SYSCODE,9:SYS5*4096+5*256+3:SYSCODE,3:SYSCODE,10:GOTO1300
1200 X=0:POKE2,255:SYSCODE,3:POKE1024+24*40+39,96
1202 PRINT"[204]EGEN[160][211]IE[160]EINE[160]LEERE[160][196]ISKETTE[160]EIN[160][160][160][160][160][160][160]";
1203 PRINT"UND[160]DR^CKEN[160][211]IE[160][198]EUER[160]![160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
1204 SYSCODE,6,5:POKE2,255
1205 GETB$:IFPEEK(2)<>255THEN1250
1209 X=X+1:GOTO1205
1211 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]";
1212 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]";
1213 POKE1024+24*40+39,96:SYSCODE,6,5:SYSCODE,15:GOTO45
1250 SYSCODE,9:SYS5*4096+5*256:SYSCODE,3:SYSCODE,10
1258 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]";
1259 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]";
1260 POKE1024+24*40+39,96:SYSCODE,6,5:SYSCODE,15
1300 X=0:POKE2,255:SYSCODE,3:POKE1024+24*40+39,96
1302 PRINT"[204]EGEN[160][211]IE[160][201]HRE[160][197]NERGIEMANAGER[160][196]ISK[160]EIN[160][160]";
1303 PRINT"UND[160]DR^CKEN[160][211]IE[160][198]EUER[160]![160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
1304 SYSCODE,6,5:POKE2,255
1305 REM
1308 IFPEEK(2)<>255THEN1350
1309 X=X+1:GOTO1305
1350 Z=PEEK(VARS+2):A$="L.CITY"+STR$(Z):SYSCODE,1,A$,8:GOTO1111
2000 X=0:POKE2,255:SYSCODE,3:POKE1024+24*40+39,96
2002 PRINT"[196]AS[160]AKTUELLE[160][209]UARTAL[160]IST[160]ABGELAUFEN[160]![160][160][160]";
2003 PRINT"[201]HRE[160][210]UNDE[160]WIRD[160]BEENDET[160]![160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
2004 SYSCODE,6,5:POKE2,255
2005 REM
2008 IFPEEK(2)<>255THEN2050
2009 X=X+1:GOTO2005
2050 SYSCODE,25,2:SYSCODE,1,"L.EVENTS",8
5000 CODE=7*4096:GB=PEEK(CODE+3)+PEEK(CODE+4)*256:DB=GB-4*18
5025 DB=DB+(PEEK(VARS+1)-1)*18:POKE(DB+1),48:POKE(DB+2),49:QR=PEEK(VARS+4)
5060 IFQR=1THENPOKE(DB+4),48:POKE(DB+5),48+4
5070 IFQR=2THENPOKE(DB+4),48:POKE(DB+5),48+7
5080 IFQR=3THENPOKE(DB+4),48+1:POKE(DB+5),48
5090 IFQR=4THENPOKE(DB+4),48:POKE(DB+5),49
5100 RETURN