10 CODE=7*4096:VARS=5*4096+6*256
20 SYS CODE,3:REM CLEARNORM SCN
30 PRINT"[144][204]ETZTER[160][203]ONTOAUSZUG:"
31 PRINT"[203]ONTOSTAND[160][160]:[160][160][160][160][160][160][160][160][160][160][196][205]"
32 PRINT"[203]REDITRAHMEN:[160][160][160][160][160][160][160][160][160][160][196][205]"
33 PRINT"[218]INSEN[160][160][160][160][160][160]:[160][160][160][160][160][160][160][160][160][160][196][205]"
34 IF PEEK(VARS+1)=1 THEN PRINT"[211]PIELER[160]1"
35 IF PEEK(VARS+1)=2 THEN PRINT"[211]PIELER[160]2"
36 IF PEEK(VARS+1)=3 THEN PRINT"[211]PIELER[160]3"
37 IF PEEK(VARS+1)=4 THEN PRINT"[211]PIELER[160]4"
40 SYS CODE,6,5
41 B=VARS+7+2+((PEEK(VARS+1)-1)*67)
42 X=PEEK(B+3) AND 128
43 K=PEEK(B+0)
44 K=K+(PEEK(B+1)*256)
45 K=K+(PEEK(B+2)*65536)
46 K=K+((PEEK(B+3) AND 127)*16777216)
47 IF X=128 THEN K=-K
48 SYS CODE,3:PRINT"[203]ONTOSTAND[160][160]:";K:SYS CODE,6,5
49 SYS CODE,3:PRINT"[218]INSEN[160][160][160][160][160][160]:";INT(K/100*5):SYS CODE,6,5
51 B=VARS+7+6+((PEEK(VARS+1)-1)*67)
52 X=PEEK(B+3) AND 128
53 K=PEEK(B+0)
54 K=K+(PEEK(B+1)*256)
55 K=K+(PEEK(B+2)*65536)
56 K=K+((PEEK(B+3) AND 127)*16777216)
57 IF X=128 THEN K=-K
58 SYS CODE,3:PRINT"[203]REDITRAHMEN:";K:SYS CODE,6,5
69 POKE 2,255
70 CL=PEEK(2):IF CL=255 THEN 70
75 POKE 2,0
80 Z=PEEK(VARS+2):A$="L.CITY"+STR$(Z):SYS CODE,1,A$,8