10 OPEN2,8,2,"DATA,S,W"
15 READA$
20 IFA$=""THENCLOSE2:END
25 PRINT#2,A$
30 GOTO15
40 DATAONE,TWO,THREE
45 DATA""
