BEGIN {
       BASEDIR="d:\\logfiles\archive\\"
       MM=strftime("%m")
       YY=strftime("%Y")
       if (MM == 1) PM=12;PM=MM-1
       if (PM < 10) PM="0"PM
       while ( (getline SUBDIR < "archdirs.txt") > 0 ){
           FULLPATH=BASEDIR SUBDIR
           TX=sub(/\\/,"\\\\",FULLPATH)
           TBALL="\\" PM YY ".tar "
           OK=system("dir "BASEDIR SUBDIR "\\" PM "??" YY "*")
           if (OK > 0) system("c:\\gnu\\bin\\tar.exe -cf "FULLPATH TBALL FULLPATH"\\*"PM"??"YY"*")
           ZFILE=BASEDIR SUBDIR "\\" PM YY ".tar"
           OK=system("dir "ZFILE)
           If (OK > 0 ) system("gzip -f " ZFILE)
           OK=system("dir "BASEDIR SUBDIR "\\" PM"??"YY".tar.gz")
           if (OK > 0) system("del "BASEDIR SUBDIR "\\*"PM"??"YY"*")
             }
     }