home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 11 / CDACTUAL11.iso / cdactual / demobin / share / os2 / XCO212P / SAMPLES / SIMPLE / HISDEMO.MOD < prev    next >
Encoding:
Text File  |  1996-03-01  |  217 b   |  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.