home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / MODULAV2GERMAN.DMS / in.adf / Def.zoo / Scan.def < prev    next >
Encoding:
Modula Definition  |  1988-09-14  |  264 b   |  14 lines
  1. (* $N- *)
  2. DEFINITION MODULE Scan;
  3. (* 2.0 / 29.6.87 / ms *)
  4.  
  5. TYPE
  6.  ReadProc=PROCEDURE(VAR CHAR);
  7.  
  8. PROCEDURE ScanString(read: ReadProc;
  9.                      VAR st: ARRAY OF CHAR;
  10.                      VAR len: INTEGER;
  11.                      VAR ch: CHAR);
  12.  
  13. END Scan.
  14.