在原版FoxPro中实现汉字的特显功能

Author: 重庆 彭波林 Date: 1995-02-24

        源程序:
        ;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以合法的特显字符串,都能通过以上方法进行特显操作,这一点在程序设计中非常灵活与实用。
        (重庆  彭波林)