Turbo Pascal汉字显示简单方法

昆明  滕春芳  耿杰
1992-05-15

        程序举例如下：
        Program Replace;
        Uses Crt,DOS;
        Var
        Reg:Register;
        Begin
        DirectVideo:=False;｛关闭直接显示｝
        Reg.ax:= 0006;｛设置640×200｝
        Inter(  10,Reg);｛调用10号中断｝
        Writeln｛'汉字'｝
        ｛目的是显示汉字｝
        end.
 
 