程序举例如下：
Program Replace;
Uses Crt,DOS;
Var
Reg:Register;
Begin
DirectVideo:=False;｛关闭直接显示｝
Reg.ax:= 0006;｛设置640×200｝
Inter( 10,Reg);｛调用10号中断｝
Writeln｛'汉字'｝
｛目的是显示汉字｝
end.