Пример сценария архивирования

//
// Пример сценария архивации
// -------------------------
variables:
NUM = 1;
rights:
everyday (time = '12:00')
   {
   if (CWEEKDAY() =="Sun") /* Новый архив создавать в воскресенье */
      {
      move (FILENAME + TOSTR(NUM) + ".lhb" , "c:\arc");
      NUM = NUM + 1;
      backup ("s -u " + NAME + "/" + PASSWORD + "
      -f "+ FILENAME + TOSTR(NUM) + ".lhb -startinc");
      }
   else { /* В остальные дни ведется нарастающее архивирование */
   backup ("s -u " + NAME + "/" + PASSWORD + "
   -f " + FILENAME + TOSTR(NUM) + ".lhb -inc");
   } /* end of 'if' */
   exception: /* Обработка ошибок оператора 'everyday' */
print ("Error=" + TOSTR(CERROR) +
      ",LinError=" + TOSTR(LINERROR) +
      ",SysError=" + TOSTR(SYSERROR));
stop;
   }

special:
before /* just after the start */
   {
   print ("Start backup system");
backup ("s -u " + NAME + "/" + PASSWORD + "
-f " + FILENAME + TOSTR(NUM) + ".lhb -startinc");
}
after /* after 'stop' or Ctrl-C */
   {
   print ("Stop backup system");
   if (ERROR != 0)
      logprint ("Error present:" + TOSTR(CERROR));
}
iferr /* global */
{
print ("Error=" + TOSTR(CERROR) +
      ",LinError=" + TOSTR(LINERROR) +
      ",SysError=" + TOSTR(SYSERROR));
stop;
}