home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / turbopas / t_ref.arc / PRINTDOC.PAS < prev    next >
Pascal/Delphi Source File  |  1987-01-15  |  397b  |  17 lines
  1. program print_documentation;
  2.  
  3.   {$i printdoc.lib }
  4.  
  5.   begin
  6.     for i:=1 to 8 do begin
  7.       assign (print_file, 'b:'+file_name[i]);
  8.       reset  (print_file);
  9.       writeln('Printing file: ',file_name[i]);
  10.       while not eof (print_file) do begin
  11.         readln (print_file, out_line);
  12.         writeln(lst,        out_line);
  13.       end;
  14.       close  (print_file);
  15.     end;
  16.   end.
  17.