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
230 IFX=PEEK(VARS+1)*16THEN2000
240 GOTO80
300 X=0:POKE2,255:SYSCODE,3:POKE1024+24*40+39,96
302 PRINT"[215]@HLEN[160][211]IE[160]BITTE[160][201]HR[160][199]RUNDST^CK[160]AN,[160][160][160][160][160]";
303 PRINT"DA\[160][211]IE[160]BEBAUEN[160]M*CHTEN[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 POKE36861,0:POKE36860,0:POKE36859,0:POKE36858,0:POKE36857,1
1100 SYSCODE,1,"L.ARCHITEK*",8
2000 Z=PEEK(W+2)AND15:IFZ=1THEN1000
2020 IFZ=2THEN3000
2030 GOTO80
3000 Z=PEEK(W+6)AND240:POKE36861,0:POKE36860,0:POKE36859,0:POKE36858,0
3010 IF(ZAND128)=128THENPOKE36861,1
3020 IF(ZAND64)=64THENPOKE36860,1
3030 IF(ZAND32)=32THENPOKE36859,1
3040 IF(ZAND16)=16THENPOKE36858,1
3050 SYSCODE,1,"L.MODERN*",8