home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 07_08 / tricks / info.mod < prev    next >
Text File  |  1991-02-25  |  973b  |  35 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     INFO.MOD                           *)
  3. (* ------------------------------------------------------ *)
  4. IMPLEMENTATION MODULE Info;
  5.  
  6. FROM FileSystem  IMPORT Lookup,Close,ReadChar,File,Response;
  7. FROM InOut       IMPORT Write, Read;
  8. FROM ASCII       IMPORT EOF;
  9. FROM Windows     IMPORT OpenWindow, CloseWindow, Window;
  10.  
  11.  
  12.   PROCEDURE Information(string : ARRAY OF CHAR);
  13.   VAR
  14.     txt  : Window;
  15.     Doc  : File;
  16.     Zeic : CHAR;
  17.   BEGIN
  18.     OpenWindow(txt, 4, 0, 24, 79, TRUE,('[ Information ]'));
  19.     Lookup(Doc, string, FALSE);
  20.     IF Doc.res = done THEN
  21.       WHILE NOT(Doc.eof) DO
  22.         ReadChar(Doc, Zeic);
  23.         Write(Zeic);
  24.       END;
  25.     END;
  26.     Close(Doc);
  27.     Read(Zeic);
  28.     CloseWindow(txt);
  29.   END Information;
  30.  
  31. END Info.
  32. (* ------------------------------------------------------ *)
  33. (*                Ende von INFO.MOD                       *)
  34.  
  35.