在原版FoxPro中实现汉字的特显功能
;PROGRAM NAME:TX.ASM
seg-a segment byte public
assume cs:seg-a,ds:seg-a
org O
tx proc far
start:push ds
push cx
mov ah,oEh
mov bh,oh
Loc-1:mov al,[bx]
cmp al,0
je loc-2
int 10h
int bx
jmp start Loc-1
Loc-2:pop cx
pop ds
retf
tx ends
seg-a ends
end start
以上源程序经编译连接为BIN文件,在FoxPro中用Load命令将其载入,用call命令执行,非常方便,下面是一个实例,目的在屏幕(100,200)座标处显示96×96点阵楷体“汉字”两个大字:
假设以上源程序经编译连接后生成TX.BIN,则在FoxPro环境中:
·Load TX
·Str=CHR(14)+'[{@96,96-100|200=3汉字}]'
·Call TX WITH str
实践证明,在不同的汉字系统中,只要赋给变量str以合法的特显字符串,都能通过以上方法进行特显操作,这一点在程序设计中非常灵活与实用。
(重庆 彭波林)