5 INPUT "File name (no extension)?",NAM$ 7 PRINT "Output file will be ";NAM$;".new" 10 OPEN NAM$+".lbr" AS #1 LEN=128 20 FIELD #1,128 AS L$ 30 GET #1 40 OPEN NAM$+".new" FOR OUTPUT AS #2 50 WHILE NOT EOF(1) 60 GET #1 70 A$=L$ 80 PRINT #2,A$; 90 WEND 100 CLOSE: END