setfont.pas

来自「化学方程配平软件」· PAS 代码 · 共 30 行

procedure SetFont;
const numberfont:array[1..160]of byte=
                 (0,0,0,0,0,0,0,0,0,60,102,102,102,102,102,60,
                  0,0,0,0,0,0,0,0,0,24,56,24,24,24,24,126,
                  0,0,0,0,0,0,0,0,0,56,108,12,24,48,100,124,
                  0,0,0,0,0,0,0,0,0,60,102,6,24,6,102,60,
                  0,0,0,0,0,0,0,0,0,12,28,44,76,126,12,30,
                  0,0,0,0,0,0,0,0,0,124,96,96,124,6,70,60,
                  0,0,0,0,0,0,0,0,0,60,96,96,124,102,102,60,
                  0,0,0,0,0,0,0,0,0,126,6,6,12,24,24,24,
                  0,0,0,0,0,0,0,0,0,60,102,102,60,102,102,60,
                  0,0,0,0,0,0,0,0,0,60,102,102,60,12,24,48);
var r:registers;
begin
    r.ah:=$11;
    r.al:=0;
    r.bh:=16;{bytes per character}
    r.bl:=3;
    r.cx:=10;{number of characters}
    r.dx:=48;
    r.es:=Seg(numberfont);
    r.bp:=Ofs(numberfont);
    intr($10,r);
    r.ah:=$11;
    r.al:=3;
    r.bl:=3;
    intr($10,r);
end;