先发个图，吃完饭再回来贴

实时追踪：快给程序和具体做法！
不给程序就捣蛋

HZK16下载地址：[无效] http://pan.baidu.com/s/1dDu4ohz
感兴趣的小伙伴，可以自己从字库读点阵玩
想用现成的可以引用A1GHZ.ppu
procedure InitHZK(Path:string); //初始化汉字库，参数为HZK16的全文件名（带路径）
procedure PutHZ(x,y:word;sText:string;DuiQi:byte;tColor:word); //GRAPH模式下显示字符串（支持中英文混杂，如例图）x,y坐标位置，sText内容，DuiQi对齐模式，tColor显示的颜色
对齐模式有
GCT_TOP=上对齐
GCT_CENTER=中对齐
GCT_BOTTOM=下对齐
procedure CloseHZk; //关闭字库，程序结束前要使用哦

目测小问题

给一下开头图的程序呗
有个范例才好写程序

.o文件补上了，还是在原来那个传送门里面
使用方法：

好顶赞

求改正！
var s:string;aa,bb,c:longint;t:text;i,j:longint;b:char;
begin
assign(t,'HZK16');reset(t);
s:='中';
aa:=ord(s[1])-$A1;
bb:=ord(s[2])-$A1;
c:=(aa*94+bb)*32;
for i:=1 to c do read(t,b);
for i:=1 to 32 do
begin
read(t,b);
c:=ord(b);
aa:=256;
while true do
begin
if aa=1 then break;
aa:=aa div 2;
if c>aa then begin write(#219);c:=c-aa;end
else write(' ');
end;
if i mod 2=0 then writeln;
end;
close(t);
end.