home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
xco212p.zip
/
SAMPLES
/
WATCOM
/
m2test.mod
< prev
next >
Wrap
Text File
|
1995-12-04
|
387b
|
17 lines
IMPLEMENTATION MODULE m2test;
IMPORT STextIO, SWholeIO, stdio;
PROCEDURE ["C"] m2func(a,b: INTEGER): INTEGER;
BEGIN
STextIO.WriteString("m2func(");
SWholeIO.WriteInt(a,0); STextIO.WriteChar(',');
SWholeIO.WriteInt(b,0); STextIO.WriteChar(')');
STextIO.WriteLn;
stdio.printf ("And now calling 'printf' from Modula-2\n");
RETURN a+b
END m2func;
END m2test.