1 CODE=7*4096:VARS=5*4096+6*256:GR=PEEK(CODE+3)+PEEK(CODE+4)*256
3 ACTG=8*4096+15*256+254:SYSCODE,16:POKE53281,11:SYSCODE,12
30 SYSCODE,11,0,1,20,9:SYSCODE,3
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]";:POKE1024+24*40+39,96
56 SYSCODE,4,5,7,20:SYSCODE,21,1:SYSCODE,4,5,7,21:SYSCODE,21,2
58 SYSCODE,4,5,27,20:SYSCODE,21,3:SYSCODE,4,5,27,21:SYSCODE,21,4
60 SYSCODE,6,5:PRINT"[160][152][160]"
61 PRINT"[160][160]":SYSCODE,15
66 GOSUB300:POKE2,0
80 CL=PEEK(2):IFCL=0THEN80
90 POKE2,0:IFCL=99THENZ=PEEK(VARS+2):A$="L.CITY"+STR$(Z):SYSCODE,1,A$,8
110 IFCL>0ANDCL<7THENPOKEACTG,CL:GOTO200
120 GOTO80
200 W=GR+(PEEK(VARS+2)-1)*31*6+(PEEK(ACTG)-1)*31:X=PEEK(W+2)AND240:Z=PEEK(W+2)AND15
230 IFX=PEEK(VARS+1)*16ANDZ=2THEN1000
240 GOTO80
300 X=0:POKE2,255:SYSCODE,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 SYSCODE,6,5
305 CL=PEEK(2):IFCL<>255THEN308
306 X=X+1:IFX<300THEN305
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:SYSCODE,6,5:SYSCODE,15:RETURN
1000 SYSCODE,25,2:SYSCODE,1,"L.FAHRZEUGE*",8