home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / awk / awk320.zip / DEARC.AWK < prev    next >
Text File  |  1990-02-08  |  162b  |  13 lines
  1. # extract files from a text archive
  2.  
  3. $1=="-ARCHIVE-" {
  4.     if (file)
  5.         close(file)
  6.     file = $2
  7.     print file
  8.     next
  9. }
  10. {
  11.     print > file
  12. }
  13.