10 dim a$[132]v
20 open #3, "BASTOC.BAS/RO/LN:132"
30 OPEN #4, "BASTOC.WRT/WR/LN:132"
40 if end #3 then 100
50 input line #3, a$
60 print #4, a$
70 goto 50
100 close