5 DIMLL(5,4,5):CODE=7*4096:VARS=5*4096+6*256:SYSCODE,24,2
11 GR=PEEK(CODE+3)+PEEK(CODE+4)*256:AC=PEEK(36862)-1:GOSUB1100:GOSUB1200:SYSCODE,3
21 PRINT"[155][211]IE[160]HABEN":PRINT"FOLGENDES"
23 PRINT"[208]ERSONAL[160]EIN-":PRINT"GESTELLT:"
25 PRINT"";AY;"[203]OCH/[203]*CHE":PRINT"";BY;"[199]EHILFE/N"
27 PRINT"";CY;"[203]ELLNER":PRINT"";DY;"[208]UTZFRAU/EN"
29 PRINT"";EY;"[193]USFAHRER":PRINT""TAB(24)"[155][211]IE[160]SOLLTEN"
31 PRINT""TAB(24)"FOLGENDES":PRINT""TAB(24)"[208]ERSONAL[160]EIN-"
33 PRINT""TAB(24)"STELLEN:"
34 PRINT"";AX;"[203]OCH/[203]*CHE"
35 PRINT"";BX;"[199]EHILFE/N"
36 PRINT"";CX;"[203]ELLNER"
37 PRINT"";DX;"[208]UTZFRAU/EN"
38 PRINT"";EX;"[193]USFAHRER"
39 PRINT"[197]NTLASSENWEITER":SYSCODE,6,3
45 POKE2,0
50 CL=PEEK(2):IFCL=0THEN50
55 POKE2,0:IFCL=9THENSYSCODE,1,"L.WEN.ENTL",8
70 IFCL=10THENSYSCODE,1,"L.AAMT",8
110 IFCL=99THENSYSCODE,25,1:GOTO40000
140 GOTO50
1100 REM
1110 RT=PEEK(VARS+7+1+(PEEK(VARS+1)-1)*67):RB=VARS+7+67*4+11+RT*16:AX=PEEK(RB+0)
1150 BX=PEEK(RB+1):CX=PEEK(RB+2):DX=PEEK(RB+3):EX=PEEK(RB+4):GOTO50000
1200 REM
1210 W=GR+17+AC*31+(PEEK(VARS+2)-1)*31*6:AZ=PEEK(W+0):BZ=PEEK(W+1):CZ=PEEK(W+2)
1250 DZ=PEEK(W+3):EZ=PEEK(W+4):FZ=PEEK(W+5):GZ=PEEK(W+6):HZ=PEEK(W+7):IZ=PEEK(W+8)
1310 JZ=PEEK(W+9):BB=VARS+7+4*67+5*16+32*16:AY=0:BY=0:CY=0:DY=0:EY=0
1330 FORX=0TO9:IFPEEK(W+X)=255THEN1372
1332 IFPEEK(BB+PEEK(W+X)*7)=1THENAY=AY+1
1341 IFPEEK(BB+PEEK(W+X)*7)=2THENBY=BY+1
1351 IFPEEK(BB+PEEK(W+X)*7)=3THENCY=CY+1
1361 IFPEEK(BB+PEEK(W+X)*7)=4THENDY=DY+1
1371 IFPEEK(BB+PEEK(W+X)*7)=5THENEY=EY+1
1372 NEXTX:RETURN
40000 Z=PEEK(VARS+2):A$="L.CITY"+STR$(Z):SYSCODE,1,A$,8
50000 RESTORE:FORLT=0TO4:FORLR=0TO3:FORLA=0TO4:READLL(LA,LR,LT):NEXTLA,LR,LT
50060 WK=GR+3+AC*31+(PEEK(VARS+2)-1)*31*6:LR=(PEEK(WK)AND15)-1
50080 LT=PEEK(VARS+7+1+(PEEK(VARS+1)-1)*67):AX=LL(0,LR,LT):BX=LL(1,LR,LT)
50110 CX=LL(2,LR,LT):DX=LL(3,LR,LT):EX=LL(4,LR,LT):RETURN:DATA 0,2,0,1,1 
60002 DATA 0,3,0,1,1:DATA 0,4,0,2,1:DATA 0,5,0,2,1:DATA 1,1,1,1,1 :DATA 1,2,1,2,1
60013 DATA 1,3,2,2,1:DATA 1,4,2,2,1:DATA 1,1,1,1,1 :DATA 1,1,1,2,1:DATA 1,2,2,2,1
60024 DATA 2,2,2,3,1:DATA 1,1,1,1,1 :DATA 1,2,1,2,1:DATA 2,2,1,2,1:DATA 3,2,2,2,1
60041 DATA 1,1,1,1,1 :DATA 1,1,2,1,1:DATA 2,1,3,2,1:DATA 2,1,4,2,1