home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / AWK210.ZIP / ENARC.AWK < prev    next >
Encoding:
AWK Script  |  1988-08-16  |  167 b   |  8 lines
  1. BEGIN { arcfile = ARGV[1]; delete ARGV[1] }
  2. FILENAME != filename {
  3.     print ("-ARCHIVE-", FILENAME) >arcfile
  4.     print filename = FILENAME
  5. }
  6. {print >arcfile}
  7.  
  8.