home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TURBO.ZIP / TEXTFILE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-04-29  |  765 b   |  32 lines
  1. {$C-,R+}
  2. PROGRAM TextFileDemo;
  3. VAR
  4.   FILVAR:         TEXT;
  5.   LINE,
  6.   EXTRALINE:  STRING[255];
  7.   I:          INTEGER;
  8.   UNDERLINE:  BOOLEAN;
  9.   FILENAME:   STRING[14];
  10. BEGIN
  11.   UNDERLINE:=FALSE;
  12.   WRITE('ENTER NAME OF FILE TO PRINT: ');
  13.   READLN(FILENAME);
  14.   ASSIGN(FilVar, FILENAME);
  15. RESET(FILVAR);
  16.   WHILE NOT EOF(FILVAR) DO
  17.   BEGIN
  18.     READLN(FILVAR,LINE);
  19.     I := 1; EXTRALINE := '';
  20.     FOR I := 1 TO LENGTH(LINE) DO
  21.     BEGIN
  22.       IF LINE[I]<>^S THEN
  23.       BEGIN
  24.         WRITE(LST,LINE[I]);
  25.         IF UNDERLINE THEN EXTRALINE := EXTRALINE+'_'
  26.         ELSE EXTRALINE := EXTRALINE+' ';
  27.         END
  28.         ELSE UNDERLINE := NOT UNDERLINE;
  29.       END;
  30.       WRITE(LST,^M); WRITELN(LST,EXTRALINE);
  31.     END;  (* WHILE NOT EOF *)
  32. END.