10 CODE=7*4096:VARS=5*4096+6*256:GR=PEEK(CODE+3)+PEEK(CODE+4)*256
12 AC=PEEK(36862):SYSCODE,3:PRINT"[144]-----"
31 PRINT"[144]-----"
32 PRINT"[144]-----"
33 PRINT"[144]-----"
34 PRINT"[144][197]XTRAS"
36 PRINT"[144][203]OSTEN"
40 SYSCODE,6,5:IFPEEK(36857)=1THEN400
42 IFPEEK(36857)=2THEN300
43 IFPEEK(36857)=3THEN200
44 IFPEEK(36857)=4THEN100
45 POKE2,0
50 CL=PEEK(2):IFCL=0THEN50
55 POKE2,0:W=GR+(AC-1)*31+(PEEK(VARS+2)-1)*31*6:Y=(PEEK(W+3)AND240)/16
60 IFCL=99THENZ=PEEK(VARS+2):A$="L.CITY"+STR$(Z):SYSCODE,1,A$,8
61 IFCL=1ANDY>5THEN100
62 IFCL=2ANDY>3THEN200
63 IFCL=3ANDY>1THEN300
64 IFCL=4THEN400
70 IFCL=5THENSYSCODE,1,"L.EXTRAS",8
80 IFCL=7THENSYSCODE,1,"L.HAUSKOST",8
90 GOTO50
100 SYSCODE,3:PRINT"[212]YP[160][193]"
111 PRINT"[144]-----"
112 PRINT"[144]-----"
113 PRINT"[144]-----"
120 SYSCODE,6,5:POKE(36857),4:GOTO50
200 SYSCODE,3:PRINT"-----"
211 PRINT"[144][212]YP[160][194]"
212 PRINT"[144]-----"
213 PRINT"[144]-----"
220 SYSCODE,6,5:POKE(36857),3:GOTO50
300 SYSCODE,3:PRINT"-----"
311 PRINT"[144]-----"
312 PRINT"[144][212]YP[160][195]"
313 PRINT"[144]-----"
320 SYSCODE,6,5:POKE(36857),2:GOTO50
400 SYSCODE,3:PRINT"-----"
411 PRINT"[144]-----"
412 PRINT"[144]-----"
413 PRINT"[144][212]YP[160][196]"
420 SYSCODE,6,5:POKE(36857),1:GOTO50