home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / MODULAV2GERMAN.DMS / in.adf / Def.zoo / InOut.def < prev    next >
Encoding:
Modula Definition  |  1988-09-13  |  904 b   |  37 lines
  1. (* $N- *)
  2. DEFINITION MODULE InOut; (* jr/28mai87, cn/25juli87 *)
  3. FROM SYSTEM IMPORT
  4.  BYTE;
  5. IMPORT ASCII;
  6.  
  7. CONST
  8.  eol = ASCII.eol;
  9. VAR
  10.  done: BOOLEAN;
  11.  termCh: CHAR;
  12.  
  13. PROCEDURE OpenInput(defExt: ARRAY OF CHAR);
  14. PROCEDURE OpenOutput(defExt: ARRAY OF CHAR);
  15.  
  16. PROCEDURE CloseInput;
  17. PROCEDURE CloseOutput;
  18.  
  19. PROCEDURE Write(ch: CHAR);
  20. PROCEDURE WriteLn;
  21. PROCEDURE WriteString(str: ARRAY OF CHAR);
  22. PROCEDURE WriteInt(x: LONGINT; n: INTEGER);
  23. PROCEDURE WriteCard(x: LONGCARD; n: INTEGER);
  24. PROCEDURE WriteOct(x: LONGINT; n: INTEGER);
  25. PROCEDURE WriteHex(x: LONGINT; n: INTEGER);
  26. PROCEDURE WriteBytes(VAR blk: ARRAY OF BYTE);
  27.  
  28. PROCEDURE Read(VAR ch: CHAR);
  29. PROCEDURE ReadString(VAR str: ARRAY OF CHAR);
  30. PROCEDURE ReadInt(VAR x: INTEGER);
  31. PROCEDURE ReadLongInt(VAR x: LONGINT);
  32. PROCEDURE ReadCard(VAR x: CARDINAL);
  33. PROCEDURE ReadLongCard(VAR x: LONGCARD);
  34. PROCEDURE ReadBytes(VAR blk:ARRAY OF BYTE);
  35.  
  36. END InOut.def
  37.