home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / modula2 / compiler / fst_mod / source / varyfile.mod < prev    next >
Text File  |  1987-02-08  |  899b  |  28 lines
  1.                                          (* Chapter 8 - Program 4 *)
  2. MODULE VaryFile;
  3.  
  4. FROM FileSystem IMPORT Lookup, Close, File, Response, ReadChar;
  5. FROM InOut      IMPORT Write, WriteString, ReadString, WriteLn;
  6.  
  7. VAR  NameOfFile : ARRAY[1..15] OF CHAR;
  8.      InFile     : File;
  9.      Character  : CHAR;
  10.  
  11. BEGIN
  12.    REPEAT                  (* repeat until a good filename is found *)
  13.       WriteLn;
  14.       WriteString("Enter name of file to display ---> ");
  15.       ReadString(NameOfFile);
  16.       Lookup(InFile,NameOfFile,FALSE);
  17.    UNTIL InFile.res = done;                  (* good filename found *)
  18.  
  19.    REPEAT       (* character read/display loop - quit at InFile.eof *)
  20.       ReadChar(InFile,Character);
  21.       IF NOT InFile.eof THEN
  22.          Write(Character);
  23.       END;
  24.    UNTIL InFile.eof;                      (* quit when eof is found *)
  25.    Close(InFile);
  26.  
  27. END VaryFile.
  28.