home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / com / tools / phoneatt / os2io.mod < prev    next >
Encoding:
Modula Implementation  |  1991-09-06  |  280 b   |  20 lines

  1. IMPLEMENTATION MODULE OS2IO;
  2.  
  3.  
  4. IMPORT SYSTEM;
  5.  
  6.  
  7. PROCEDURE Out(Port : CARDINAL;
  8.               Ch   : SHORTCARD);
  9.   BEGIN
  10.     SYSTEM.Out(Port, Ch);
  11.   END Out;
  12.  
  13.  
  14. PROCEDURE In(Port : CARDINAL) : SHORTCARD;
  15.   BEGIN
  16.     RETURN SYSTEM.In(Port);
  17.   END In;
  18.  
  19.  
  20. END OS2IO.