标题短小精悍的VGA屏幕打印程序

　　本程序用TURBO PASCAL 5.5编写在AST 386SX/20，超想汉字系统下运行通过，打印机为EPSON LQ1600K。
　　unit lq1600;
　　interface
　　uses graph，printer;
　　const
　　esc=#$1B;
　　procedure printgraph;
　　implementation
　　const
　　mode=39；　{可修改打印模式为32，33，38，39，40}
　　procedure printgraph;
　　var
　　i，j，kh，m，msb，1sb，maxx，maxy:integer;
　　Begin
　　maxx:=getmaxx;
　　maxy:=getmaxy;
　　setviewport(0，0，maxx，maxy，false);
　　write(lst，ESC，'A'，#$07);
　　LSB:=(maxx div 256);
　　msb:=(maxx mod 256)+1;
　　for j:=0 to maxy div 24 do
　　Begin
　　write(lst，ESC，'*'，char(mode)，char(msb)，char(lst));
　　for i:=0 to maxx do
　　Begin
　　for h:=0to 2 do
　　Begin
　　m:=0;
　　for k:=0 to 7 do
　　Begin
　　m:=m shl 1;
　　if getpixel(i，j*24+h*8+k) <> 0
　　then inc(m);
　　end;
　　write(1st，char(m));
　　end;
　　end;
　　write(lst，#$0D，#$0A);
　　end;
　　end;{procedure lq1600}
　　end.