10 OPEN1,8,15
20 GET#1,A$
30 PRINTST;:PRINTA$,
40 IFST<>64THEN20
50 CLOSE1