10 OPEN2,2,2,CHR$(6)+CHR$(16)
20 GET#2,A$:GETB$:PRINTA$;B$;
30 IFB$<>""THENPRINT#2,B$;
40 GOTO20