%!
% executive.ps
% Doug Wyatt, May 29, 1987 11:46:49 am PDT
%

/executive { 
  execdict begin 
  clearinterrupt disableinterrupt 
  /execdepth execdepth 1 add def 
  (\nCedar PostScript(tm) Version ) print version print 
  (\nCopyright (c) 1985 Adobe Systems Incorporated.) print 
  (\nCopyright (c) 1987 Xerox Corporation.\n) print 
  { % loop
    /quitflag false def 
    $error /newerror false put 
    /prompt load stopped 
    { % if
      handleerror (Error during prompt execution\n) print exit 
      } if 
    { % stopped
      mark idleproc clearinterrupt 
      /stmtfile (%statementedit) (r) file def 
      disableinterrupt 
      } stopped 
    { % if....
      disableinterrupt cleartomark 
      $error /newerror get 
      { % if
        $error /errorname get 
        /undefinedfilename ne { handleerror } if 
        $error /newerror false put 
        exit 
        } if 
      } 
    { % ..else
      pop stmtfile 
      end 
      { clearinterrupt cvx exec disableinterrupt } stopped 
      execdict begin 
      { disableinterrupt handleerror stmtfile closefile } if 
      } ifelse 
    checkquit 
    } loop 
  /quitflag false def 
  /execdepth execdepth 1 sub def 
  end 
  $error /doclose false put 
  interrupt 
  } bind def