home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol243 / getname.pro < prev    next >
Text File  |  1986-02-12  |  597b  |  18 lines
  1. { PROGRAM AUTHOR: Mark Aldon Weiss  PROGRAM RELEASED TO PUBLIC DOMAIN }
  2. { THIS IS ONLY AN INCLUDE FILE FOR MOVIES.PAS }
  3.  
  4. PROCEDURE  GetFileName( var DummyFile: Text);
  5.  
  6. Var      FileName: String[14];   OK: Boolean;
  7.  
  8. Begin {PROCEDURE}
  9. REPEAT
  10.   Writeln;  Write(' What is the name of the file?  ');  Readln(FileName);
  11.   Writeln;
  12.   ASSIGN(DummyFile, FileName);
  13.   {$I-}    RESET(DummyFile);   {$I+}     { See p. 114 }
  14.   OK := (IOResult = 0);        { OK gets the value of the boolean expression }
  15.   IF NOT OK THEN Writeln(#7' There is no such file ',FileName,' try another.')
  16. UNTIL OK
  17. End;  {PROCEDURE}
  18.