home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / PASTUT24.ZIP / PTUTRSRC.ZIP / READFILE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-12-01  |  473 b   |  25 lines
  1.                                 (* Chapter 11 - Program 1 *)
  2. program Read_A_File;
  3.  
  4. var Turkey     : TEXT;
  5.     Big_String : string[80];
  6.  
  7. begin  (* main program *)
  8.    Assign(Turkey,'READFILE.PAS');
  9.    Reset(Turkey);
  10.    while not Eof(Turkey) do begin
  11.       Readln(Turkey,Big_String);
  12.       Writeln(Big_String);
  13.    end;  (* of while loop *)
  14.    Close(Turkey);
  15. end.  (* of program *)
  16.  
  17.  
  18.  
  19.  
  20. { Result of execution
  21.  
  22. (This file is displayed on the monitor)
  23.  
  24. }
  25.