10 REM UTILITY PROGRAM FOR DATING.BAS DECUS #11-56 BY DAVID CORBISHLEY
20 INPUT"NAME OF DATA FILE(INCLUDING .DAT):"A$
30 INPUT"NUMBER OF RECORDS IN FILE:"A%
40 OPEN A$ FOR OUTPUT AS FILE 1%
50 FOR Z%=1% TO A%
60 INPUT LINE B$
70 PRINT #1%,B$;
80 NEXT Z%
90 CLOSE 1%
100 END
KEY