10 CO=7*4096:POKE2,0
20 POKE37887,1:POKE 37886,0
21 SYS CODE,3
22 PRINT"[205]ODERNISIEREN"TAB(29)"[193]BREI\EN"
23 SYS CODE,6,5
30 A=PEEK(2):IFA=0THEN 30
31 POKE 2,0
40 IF A=1THEN SYSCO,1,"L.EXTRAS*",8
50 IF A=2THEN POKE 37886,128:SYSCO,1,"L.HAUSKO*",8
55 IF=A 99 THEN Z=PEEK(VARS+2):A$="L.CITY"+STR$(Z):SYS CODE,1,A$,8
60 GOTO 30