在对数据文件进行查询操作中，当不知道某一数据项的全称，只知道其中几个字符时，可以用模糊查询的方法进行探索。试填充下面程序，完成上述功能。该方法中使用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

货物运价率表是一种记载各种运价号在各个里程区段中单位货物的运价金额的表格。