printer单元
  printer单元是TURBO PASCAL最小的一个标准单元.它只包括一个类型为text的文件变量lst,用作打印机的逻辑文件名.这种通过设置文件变量来输出打印的方法简化了打印输出文本文件的工作.使用printer单元之后,就可以在write或writeln过程语句中以lst作为输出设备(代表打印机).
   与一般正文文件不同的是,使用文件变量lst时无需用assign和close过程语句来设置和关闭,这种操作已由printer单元自动完成.
例:利用printer单元和crt单元的功能设计一个打印正文文件的程序.
program lister
  uses printer,crt;
  var  
     infile:text;
     filename,oneline:string;
     lines:integer;
     cl,c:char;
  begin
    directvideo:=false;
    writeln('autoexec to change line(y/n)?');
    c:=readkey;
    writeln('input filename:');
    readln(filename);
    if length(filename)=0 then halt;
    assign(inflie,filename);
    reset(infile);
    lines:=0;
    while not eof(infile)do
      begin
        readln(infile,online);
        writeln(lst,online);
        lines:=lines+1;
        if lines mod 50=0 then begin
                                 if not(c in['y','Y'])then
                                   begin
                                     writeln('paper ready,enter anykey!');
                                     cl:=readkey;
                                    end;
                                   write(lst,#12);
                                 end
      end;
     if lines mod 50<>0 then write(lst,#12);
  end.

实在对不起,我在最近可能来不了,所以我也没办法评分。这个帖我就给截了。