home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / xc212os2.zip / SAMPLES / SIMPLE / hisdemo.mod < prev    next >
Text File  |  1996-03-01  |  217b  |  18 lines
  1. <*+ GENHISTORY *>
  2. MODULE hisdemo;
  3.  
  4. PROCEDURE Div(a,b: INTEGER): INTEGER;
  5. BEGIN
  6.   RETURN a DIV b
  7. END Div;
  8.  
  9. PROCEDURE Try;
  10.   VAR res: INTEGER;
  11. BEGIN
  12.   res:=Div(1,0);
  13. END Try;
  14.  
  15. BEGIN
  16.   Try;
  17. END hisdemo.
  18.