Sigh...I totally can't understand it  !!!

反正帖子没人看，自己顶一下：

24*24点阵汉字显示：

UCDOS的24*24点阵字库有几个文件：
HZK24S   24*24宋体。
HZH24H   24*24黑体.
HZK24K   24*24楷体.
HZK24F   24*24仿宋体.

它们文件结构和HZK16有所不同，没了前面的符号点阵数据，即不能显示全角英文，或者符号。但是这几个24*24点阵字库的显示是相同的。

(*   UCDOS 24*24 fonts display demo.
     Need file: HZK24S to run.
     Display Chinese in graphics mode.
     Programmed by j.t.chang.
*)

program chinese;
uses crt,graph;
Label aaa;

var
   gd,gm,q,w,x,y,ErrCode:integer;
   s:string;
   ch:char;

function inttostr(n:integer):string;
var
  s:string;
begin
    s:='';
    repeat
       s:=chr(ord('0')+n mod 10)+s;
       n:=n div 10;
    until n=0;
    inttostr:=s;
end;

procedure putone(x,y:integer;s:string;color:integer);
type
    chinesep=array[1..72] of byte;
var
    a:chinesep;
    f:file of chinesep;
    i,j,x0,y0,t:integer;
    k:byte;
    q,w:longint;
    ch:char;
begin
    q:=ord(s[1]) - 175 ;
    w:=ord(s[2]) - 160;
    q:=(q-1)*94+(w-1);
    assign(f,'HZK24S') ;{same for: HZK24H,HZK24F,HZK24K }
    reset(f);
    if (q<0) or (q>=filesize(f)) then
      begin
         close(f);
         exit;
      end;
    seek(f,q);
    read(f,a);
    close(f);
    x0:=x;
    for i:=1 to 72 do
     begin
       k:=a[i];
       if i mod 3=1 then
         begin
           y0:=7+y;
           x0:=x0+1;
         end
        else
           begin
              t:=i mod 3;
              if t=0 then t:=3;
              t:=8*t-1;
              y0:=t+y;
           end;
       for j:=1 to 8 do
        begin
           if k and 1 =1 then putpixel(x0,y0,color);
            y0:=y0-1;
            k:=k shr 1;
        end;
     end;

end;

procedure outchinese(x,y:integer;s:string;blank:integer; color:integer);
var
   temps:string;
   k:integer;
begin
   k:=1;
   while k<length(s) do
    begin
       temps:=s[k]; k:=k+1;
       temps:=temps+s[k]; k:=k+1;
       putone(x+(k div 2-1)*(24+blank),y,temps,color);
    end;
end;

begin
    gd:=detect;
    initgraph(gd,gm,'');
    ErrCode:=graphresult;
    if  ErrCode<>grOK then
     begin
       Writeln('Graphics error: ', GraphErrorMsg(ErrCode));
       exit;
     end;
    setbkcolor(blue);
    setcolor(RED+8);
    outchinese(200,150,'汉字演示程序',5,RED+8);
    outchinese(120,200,'演示中按任意键继续  按  退出',5,RED+8);
    outtextxy(120+9*29+2,210,',');
    outtextxy(120+11*29+2,210,'ESC');
    outtextxy(220,360,'J.T.CHANG');
    outchinese(300,350,'编程',3,RED+8);
    ch:=readkey;
    cleardevice;

    x:=10; y:=5;
    for q:=16 to 89 do
      for w:=1 to 94 do
        begin
           if w=1 then     setcolor(RED+8)
             else   setcolor(7);
           s:=inttostr(q div 10)+inttostr(q mod 10);
           s:=s+inttostr(w div 10)+inttostr(w mod 10);
           moveto(x,y+6);
           outtext(s);
           s:=chr(q+160)+chr(w+160);
           outchinese(x+40,y,s,0,yellow);
           x:=x+70;
           if x>580 then
            begin
               x:=10;
               y:=y+30;
            end;
           if  y+24>479  then
             begin
                ch:=readkey;
                if ch=#27 then goto aaa;
                x:=10;y:=5;
                cleardevice;
             end;
        end;
     ch:=readkey;
     cleardevice;
     outchinese(180,200,'所有汉字显示完毕！',8,RED+8);
     ch:=readkey;
aaa:
    closegraph;
end.

好！好！好！

其实要说这些也没什么难的
只要掌握了原理，很容易编程写出来的
只不过认真的人少了

实在是太惊人了!!!!1

玩了，我家一运行你那个程序就GAME OVER了，还得重起

谁有以下这些文件？
HZK24S   24*24宋体。
HZH24H   24*24黑体.
HZK24K   24*24楷体.
HZK24F   24*24仿宋体.
把它上传吧，小弟感激不尽！

To 7楼：
我有啊！我程序是我弄的当然先要有这些东东啦！不过在我家电脑里，现在手头没有。这样吧，一天以后到
http://jtchang.ys168.com
我申请的免费网络硬盘里下载。如果我忘了上传，你给我留言。呵呵！

楼主，实在太感谢你了！！！！！！

我把那里面的东东全下了，包括那音乐！！