在对数据文件进行查询操作中，当不知道某一数据项的全称，只知道其中几个字符时，可以用模糊查询的方法进行探索。试填充下面程序，完成上述功能。该方法中使用AT()函数，内存变量DBNAME存放数据库文件名(长度<=8)，趴存放字段名(长度<=10)，B2存待查内容(长度<=10)。
*模糊查询程序
SET TALK OFF
CLEAR
STORE SPACE(8)T0 DBNAME
STORE SPACE(10)T0 B1，日2，
92，4 SAY“请输入数据库名:” [7]
93，5 SAY “请输入字段名:” [8]
94，5 SAY“请输入要查询的内容:” [9]
READ
B3=TRIM(B1)
B4=TRIM(B2)
USE [10]
D0 WHILE [11]
B5= [12]
IF B5<>0
DISPLAY
T=""
Wait”是否打印查询内容” to T
IF UPPER(T)；”Y”
DISPLAY T0 PRINT
ENDIF
ENDIF
[13]
ENDDO
USE
RETURN