home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 1065.dms / 1065.adf / Cross / txt / CPCError.mod < prev    next >
Text File  |  1987-06-04  |  240b  |  15 lines
  1. IMPLEMENTATION MODULE CPCError;
  2.  
  3. FROM Arts IMPORT Error;
  4.  
  5. FROM SYSTEM IMPORT ADDRESS;
  6.  
  7. PROCEDURE myAssert(flag: BOOLEAN; txt1Ptr,txt2Ptr: ADDRESS);
  8.  BEGIN
  9.   IF (NOT flag) THEN
  10.    Error(txt1Ptr,txt2Ptr);
  11.   END;
  12.  END myAssert;
  13.  
  14. END CPCError.
  15.