home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / p / textutil.lbr / READTEXT.PZS / READTEXT.PAS
Encoding:
Pascal/Delphi Source File  |  1993-10-25  |  512 b   |  23 lines
  1. PROGRAM READTEXT;
  2. VAR
  3.   FILENAME:STRING(.14.);
  4.   FILEVAR:TEXT;
  5.   ONELINE:STRING(.80.);
  6.  
  7. BEGIN
  8.   CLRSCR;
  9.   WRITELN('READ TEXT');
  10.   WRITE('FILE NAME? ');
  11.   READLN(FILENAME);
  12.   FILENAME:=FILENAME+'.TXT';
  13.   ASSIGN(FILEVAR,FILENAME);
  14.   RESET(FILEVAR);
  15.   WHILE NOT EOF(FILEVAR) DO
  16.   BEGIN
  17.     READLN(FILEVAR, ONELINE);
  18.     WRITELN(ONELINE);
  19.   END;
  20.   CLOSE(FILEVAR);
  21. END.
  22.  
  23.