fntreset.pas

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

procedure FontReset;
var r:registers;
begin
    r.ah:=$11;
    r.al:=4;
    r.bl:=3;
    intr($10,r);
end;