256色汉字显示程序

/*
    CC256.C -- 256色汉字显示程序
*/
#include "dos.h"
#include "stdio.h"
#include "conio.h"

FILE *fp;

void OpenLIB(void);
void CC256(int, int, int, char *Str);
void ErrMsg();
void InitScr();
void RstScr();
void PutPoint(int x, int y, int Color);
void Quit();

int main(void)
{
    char *Str = "谢谢您使用本书";
    OpenLIB();
    InitScr();
    CC256(70, 80, 2, Str);
    getch();
    Quit();
    return 0;
}

void InitScr()
{
    union REGS In;
    In.x.ax = 0x13;                 /*进入13H模式  */
    int86(0x10, &In, &In);
}

void RstScr()
{
    union REGS In;
    In.x.ax = 0x03;             /* 退出13H模式 */
    int86(0x10, &In, &In);
}

void OpenLIB(void)    /* 打开24点阵宋体字库 */
{
    if ((fp = fopen("c:\\ucdos\\clib24s", "rb")) == NULL) ErrMsg();
}

void CC256(int x, int y, int Wid, char *Str)
{
   unsigned  Zcode, Bcode;                    /* 区码, 位码 */
   int  i, j, k, Rec, Color;
   long Len;
   char Buf[72];
   while (*Str)                               /* 直到字串显示完 */
   {
      if ((*Str & 0x80) && (*(Str+1) &0x80))  /* 是汉字 */
      {
  Zcode = (*Str-0xa1) & 0x07f;          /* 区码 */
  Bcode = (*(Str+1)-0xa1) & 0x07f;      /* 位码 */
  Rec = Zcode*94+Bcode;                 /* 记录号 */
  Len = Rec*72L;                        /* 在字库中位置 */
  fseek(fp, Len, SEEK_SET);
  fread (Buf, 1, 72, fp);               /* 72字节 */
  for (i = 0; i < 24; i++)
     for (j = 0; j < 3; j++)
        for (k = 0; k < 8; k++)
    if (Buf[i*3+j] >> (7-k) & 1)
    {
       Color = y+j*8+k-46;
       PutPoint(x+i, y+j*8+k, Color);
    }
  x = x+24+Wid;
  Str += 2;
      }
   }
   return;
 }

/* 直接写视频缓冲区 */
void PutPoint(int x, int y, int Color)   /* 画点函数 */
{
   char far *p;
   p = (char far *) (0x0a0000000L);
   * (x+y*320+p) = Color;
}

void Quit()
{
    RstScr();
    fcloseall();
}

void ErrMsg()
{
    printf("Open LIB File Error!");
    getch();
    Quit();
}