10 POKE808,225
11 SYS57812"ASS",8,1
12 POKE808,225:POKE780,0:SYS65493
13 SYS49152
14 NAME$="L1BS"
15 ANFANG=32769
16 _PRGLDNNAME$,8,0,ANFANG
17 OPEN1,8,15:INPUT# 1,A:CLOSE 1
18 IFA>1ANDA<>73THEN:_OLDPRGANFANG:NEW
19 _OLDPRGANFANG
20 SYS42291
21 RUN