标题程序口令设置一例

　　程序清单：
　　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