fntreset.pas

化学方程配平软件

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