home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s038 / 1.ddi / SUPP.LIF / ERR.EXT < prev    next >
Encoding:
Text File  |  1992-07-06  |  228 b   |  13 lines
  1. set$exception:    PROCEDURE(except$mode) EXTERNAL;
  2.  
  3.     DECLARE except$mode        BYTE;
  4.  
  5. END set$exception;
  6.  
  7. error$check:    PROCEDURE(number,test$status) EXTERNAL;
  8.  
  9.     DECLARE number            WORD,
  10.             test$status        WORD;
  11.  
  12. END error$check;
  13.