10 CODE=7*4096:VARS=5*4096+6*256:DIMCI(9)
20 SYS CODE,3:REM CLEARNORM SCN
30 GOSUB 5000:GOSUB 1000
40 SYS CODE,6,3
45 POKE2,0
50 CL=PEEK(2):IF CL=0 THEN 50
55 POKE2,0
60 IF CL>0 AND CL<10 THEN A$="L.CITY"+STR$(CL):POKE VARS+2,CL:SYS CODE,1,A$,8
70 GOTO 50
1000 PRINT"[211]IE BEFINDEN"
1001 PRINT"SICH IN:"
1002 PRINT"[193]NZAHL DER"
1003 PRINT"[198]ILIALEN:"
1004 PRINT"[194]ERLIN:";CI(0)
1005 PRINT"[205]^NCHEN:";CI(1)
1006 PRINT"[198]RANKFURT:";CI(2)
1007 PRINT"[200]AMBURG:";CI(3)
1008 PRINT"[204]EIPZIG:";CI(4)
1009 PRINT"[194]ONN:";CI(5)
1010 PRINT"[196]^SSELDORF:";CI(6)
1011 PRINT"[196]RESDEN:";CI(7)
1012 PRINT"[210]EUTLINGEN:";CI(8)
1013 PRINT"[211]UCHEN [211]IE"
1014 PRINT"SICH [201]HR"
1015 PRINT"[198]AHRZIEL"
1016 PRINT"AUS !"
1020 N=PEEK(VARS+2):REM ACT. CITY
1030 IF N=1 THEN PRINT"[194]ERLIN"
1040 IF N=2 THEN PRINT"[205]^NCHEN"
1050 IF N=3 THEN PRINT"[198]RANKFURT"
1060 IF N=4 THEN PRINT"[200]AMBURG"
1070 IF N=5 THEN PRINT"[204]EIPZIG"
1080 IF N=6 THEN PRINT"[194]ONN"
1090 IF N=7 THEN PRINT"[196]^SSELDORF"
1100 IF N=8 THEN PRINT"[196]RESDEN"
1110 IF N=9 THEN PRINT"[210]EUTLINGEN"
1120 IF N<1 OR N>9 THEN PRINT"[197][210][210][207][210] !!!!"
1200 RETURN
5000 AP=PEEK(VARS+1)
5010 FORI=0TO8
5020 FORZ=0TO5:GB=PEEK(CO+3)+(PEEK(CO+4)*256)+I*31*6+Z*31+2
5030 IF (PEEK(GB)AND240)=(AP*16) AND (PEEK(GB)AND 15)=2 THEN CI(I)=CI(I)+1
5040 NEXTZ,I:RETURN