home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 11 / CDACTUAL11.iso / cdactual / demobin / share / os2 / XCO212P / SAMPLES / WATCOM / M2TEST.MOD < prev    next >
Encoding:
Modula Implementation  |  1995-12-04  |  387 b   |  17 lines
  1. IMPLEMENTATION MODULE m2test;
  2.  
  3. IMPORT STextIO, SWholeIO, stdio;
  4.  
  5. PROCEDURE ["C"] m2func(a,b: INTEGER): INTEGER;
  6. BEGIN
  7.   STextIO.WriteString("m2func(");
  8.   SWholeIO.WriteInt(a,0); STextIO.WriteChar(',');
  9.   SWholeIO.WriteInt(b,0); STextIO.WriteChar(')');
  10.   STextIO.WriteLn;
  11.   stdio.printf ("And now calling 'printf' from Modula-2\n");
  12.   RETURN a+b
  13. END m2func;
  14.  
  15. END m2test.
  16.  
  17.