10 OPEN2,8,2,"DATEI,S,R"
20 GET#2,A$
21 IFA$=CHR$(42)THEN50
25 PRINTA$;
30 GOTO20
50 CLOSE2
60 END