10 OPEN2,8,1,"TEIL4,P,W"
20 PRINT#2,CHR$(0)CHR$(224);:A=8192
30 PRINT#2,CHR$(PEEK(A));:A=A+1:IFA<>16192THEN30
40 CLOSE2