10 CODE=7*4096:VARS=5*4096+6*256
20 SYS CODE,24,1
45 POKE 2,0
50 CL=PEEK(2):IF CL=0 THEN 50
55 POKE 2,0
60 IF CL=1 THEN SYS CODE,1,"L.WASCHMAS",8
70 IF CL=2 THEN SYS CODE,1,"L.STUEHLE",8
80 IF CL=3 THEN SYS CODE,1,"L.SANITAER",8
90 IF CL=4 THEN SYS CODE,1,"L.KUECHE",8
100 IF CL=5 THEN SYS CODE,1,"L.KUEHLSCHR",8
110 IF CL=99 THEN SYS CODE,25,1:GOTO 200
140 GOTO 50
200 Z=PEEK(VARS+2):A$="L.CITY"+STR$(Z):SYS CODE,1,A$,8