home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Peter Lewis / Talk 1.0.6 / My Libraries / MyAssertions.unit < prev    next >
Encoding:
Text File  |  1992-04-20  |  268 b   |  18 lines  |  [TEXT/PJMM]
  1. unit MyAssertions;
  2.  
  3. { This program was written by Peter N Lewis, Mar 1992 in THINK Pascal 4.0.1 }
  4.  
  5. interface
  6.  
  7.     procedure Assert (b: boolean);
  8.  
  9. implementation
  10.  
  11.     procedure Assert (b: boolean);
  12.     begin
  13.         if not b then begin
  14.             DebugStr('Assert Failed');
  15.         end;
  16.     end;
  17.  
  18. end.