10 A=6*4096:IFPEEK(A)<>222THENPRINT"ZUERST 'MASKE' LADEN !!!":END
20 OPEN2,8,2,"ZEITSCHRIFT,S,W"
30 PRINT#2,CHR$(PEEK(A));:A=A+1:IFA<=27361THEN30
40 CLOSE2