home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / xc212os2.zip / DEF / inout.def < prev    next >
Text File  |  1994-12-22  |  724b  |  29 lines
  1. (* Original module: N. Wirth, PIM-3,  1985 *)
  2. DEFINITION MODULE InOut;
  3.  
  4. CONST EOL = 12C;
  5.  
  6. VAR
  7.   Done   : BOOLEAN;
  8.   termCH : CHAR;
  9.  
  10. PROCEDURE OpenInput(defext: ARRAY OF CHAR);
  11. PROCEDURE OpenOutput(defext: ARRAY OF CHAR);
  12. PROCEDURE CloseInput;
  13. PROCEDURE CloseOutput;
  14.  
  15. PROCEDURE Read(VAR v: CHAR);
  16. PROCEDURE ReadString(VAR v: ARRAY OF CHAR);
  17. PROCEDURE ReadCard(VAR v: CARDINAL);
  18. PROCEDURE ReadInt(VAR v: INTEGER);
  19.  
  20. PROCEDURE Write(v: CHAR);
  21. PROCEDURE WriteLn;
  22. PROCEDURE WriteString(v: ARRAY OF CHAR);
  23. PROCEDURE WriteCard(v: CARDINAL; w: CARDINAL);
  24. PROCEDURE WriteInt(v: INTEGER;  w: CARDINAL);
  25. PROCEDURE WriteOct(v: CARDINAL; w: CARDINAL);
  26. PROCEDURE WriteHex(v: CARDINAL; w: CARDINAL);
  27.  
  28. END InOut.
  29.