程序口令设置一例
程序清单：
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