home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TURBO.ZIP / PRINT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-09-23  |  885 b   |  33 lines
  1. {$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); WRITELN('MAKE SURE THE PRINTER IS ON LINE.');
  14.   write(lst,char(15),char(27),char(65),char(9),char(27),char(77),char(15));
  15.   ASSIGN(FilVar, FILENAME);
  16. RESET(FILVAR);
  17.   WHILE NOT EOF(FILVAR) DO
  18.   BEGIN
  19.     READLN(FILVAR,LINE);
  20.     I := 1; EXTRALINE := '';
  21.     FOR I := 1 TO LENGTH(LINE) DO
  22.     BEGIN
  23.       IF LINE[I]<>^S THEN
  24.       BEGIN
  25.         WRITE(LST,LINE[I]);
  26.         IF UNDERLINE THEN EXTRALINE := EXTRALINE+'_'
  27.         ELSE EXTRALINE := EXTRALINE+' ';
  28.         END
  29.         ELSE UNDERLINE := NOT UNDERLINE;
  30.       END;
  31.       WRITE(LST,^M); WRITELN(LST,EXTRALINE);
  32.     END;  (* WHILE NOT EOF *)
  33. END.