home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / awk / awk320.zip / ENARC.AWK < prev    next >
Text File  |  1991-05-22  |  212b  |  15 lines
  1. # generate text archive
  2.  
  3. BEGIN {
  4.     arcfile = ARGV[1]
  5.     delete ARGV[1]
  6. }
  7. FILENAME != filename {
  8.     print ("-ARCHIVE-", FILENAME) >arcfile
  9.     print filename = FILENAME
  10. }
  11. {
  12.     print >arcfile
  13. }
  14.  
  15.