%
% the cutter monitoring is enabled by lower digit & 01 in locker code
%
/*--cutter--*/

twilnum 1 and
{
 empty ofxone
 empty
 {
  "cutter_" locked !wilder nextfile ?
"cutr" log)(
  execing
%
% the text file is finaled within the run assignment
%
%%%finaled
  true ?
 } loop
 filing)
} if
twilnum 2 and
{
%
% the printer monitoring is enabled by lower digit & 02 in locker code
%
/*--printer--*/
 empty ofxone
 empty
 {
  "printer_" locked !wilder nextfile ?
"printer" log)(
  execing
%
% the text file is finaled within the run assignment
%
%%%finaled
  true ?
 } loop
 filing)

%
% the printer rip is enabled by lower digit & 02 in locker code
% take files ready to go out the rip
%
/*--rip--*/
 "c:\tga\VmPrtA\"
 empty
 {
  "*.*" !wilder nextfile ?
"prtr" log)(
  dup extension
  <
  |.psd
  |.jpg
  |.png
  >
  {
%
% allowed extension
%
% the print extension adds to the existing extension
%
   filing &".prt" exists
   {
    false
   }
   {
    *preprips
    true
   } ifelse
  }
  {
%
% extension not allowed
%
   false
  } ifelse
  ?
%
% the file is finaled when the run complete
%
%%% finaled
 } loop
 filing)
} if

%
% the email outflow is enabled by lower digit & 04 in locker code
%
twilnum 4 and
{
 *fuplmakh
} if

twilnum 2 and
{
%
% the prn monitoring is enabled by lower digit & 02 in locker code
%
/*--prn--*/
 empty ofdocs
"docsdir " &2 logs
 empty
 {
  "*.prn" !wilder nextfile ?
"prn" log)(
  dup "gangpage" found)? 
  {
   filing dup quoter exch ".xtx" reextend quoter
   third -8 left 3 left
   <
   |001 "Epson001B"  % b versions print to the printer
   |002 "Epson001B"  % b versions print to the printer
   |003 "Epson001B"  % b versions print to the printer
   > not
   {
    "Epson001B"  % b versions print to the printer
   } if

   ^"coprn.cmd " &" " &3) &" " &2) ofapp
"runcoprn" log)(
   *runsnorm
   
  }
  {
  } ifelse 

%
% the text file is finaled within the run assignment
%
  finaled
  true ?
 } loop
 filing)
} if