%%HP: T(3)A(R)F(.);
@ TRAP, by Bill Wickes  [See IFERR.DOC for details.  -jkh-]
\<< 0 \-> et
  \<< { IFERR 1 50
             FOR j
              "YOUR CLEANUP PROC." 1 DISP 
              "#" j \->STR + " HERE" + 2 DISP
             NEXT 
        THEN et EVAL
        ELSE DONE
        END } OBJ\-> DROP
    'et' STO 
    IFERR 1 1000
      FOR j
        "YOUR MAIN PROC." 1 DISP
        "#" j \->STR " NOW" + + 2 DISP
      NEXT
    THEN et EVAL
    END
  \>>
\>>