1 CODE=7*4096:VARS=5*4096+6*256
2 GR=PEEK(CODE+3)+PEEK(CODE+4)*256
3 ACTG=8*4096+15*256+254
10 SYS CODE,16:REM LOAD ACT. CITYMAP
11 POKE53281,11
20 SYS CODE,12:REM COPY RESTAURANTS
30 SYS CODE,11,0,1,20,9:REM SHOWMAP
40 SYS CODE,3:REM CLR NORM
50 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]";
51 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]";
52 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]";
53 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]";
54 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]";
55 POKE 1024+24*40+39,96:REM SPACE
56 SYS CODE,4,5,7,20:SYS CODE,21,1
57 SYS CODE,4,5,7,21:SYS CODE,21,2
58 SYS CODE,4,5,27,20:SYS CODE,21,3
59 SYS CODE,4,5,27,21:SYS CODE,21,4
60 SYS CODE,6,5:PRINT"[160][152][160]"
61 PRINT"[160][160]"
65 SYS CODE,15
66 GOSUB 300
70 POKE2,0
80 CL=PEEK(2):IF CL=0 THEN 80
90 POKE2,0
100 IF CL=99 THEN Z=PEEK(VARS+2):A$="L.CITY"+STR$(Z):SYS CODE,1,A$,8
110 IF CL>0 AND CL<7 THEN POKE ACTG,CL:GOTO 200
120 GOTO 80
200 W=GR+(PEEK(VARS+2)-1)*31*6+(PEEK(ACTG)-1)*31
210 X=PEEK(W+2) AND 240:REM EIGNER
220 Z=PEEK(W+2) AND 15:REM STATUS
230 IF X=PEEK(VARS+1)*16 AND Z=2 THEN 1000
240 GOTO 80
300 X=0:POKE 2,255
301 SYS CODE,3:POKE1024+24*40+39,96
302 PRINT"[215]@HLEN[160][211]IE[160]BITTE[160]EINES[160][201]HRER[160][160][160][160][160][160][160][160][160][160][160][160]";
303 PRINT"[210]ESTAURANTS[160]AN...[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
304 SYS CODE,6,5
305 CL=PEEK(2):IF CL<>255 THEN 308
306 X=X+1
307 IF X<300 THEN 305
308 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]";
309 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]";
310 POKE1024+24*40+39,96:SYS CODE,6,5:SYS CODE,15:RETURN
1000 SYS CODE,25,2:SYS CODE,1,"L.EINRICHT*",8