home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / dirs / cross_464.lzh / Cross / txt / CPCError.mod < prev    next >
Text File  |  1991-03-09  |  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.