程序口令设置一例

Author: 河北王玉柱 Date: 1992-11-20

        程序清单：
        KL=INKEY(600)
        ON ERROR DO ×××
        (执行错误处理程序)
        USE WHC.DAT
        GO 1
        X=1
        AA=”
        DO WHILE X<=7
        AA=AA+CHR(YXQ)
        (YXQ为数据库的数字型字段，用于存放有效期数据)
        X=X+1
        SKIP
        ENDDO
        GO 8
        BB=CHR(YXQ)
        GO 9
        BB=BB+CHR(YXQ)
        IF BB<>"<>"
        DO ×××
        (错误处理程序)
        ENDIF
        GO 10
        IF ASC&AA<>YXQ
        USE
        CLEAR ALL
        RETU
        ENDIF
        USE
        ON ERROR
        *执行主程序
        retu