[求助]在下有一个题绞尽脑汁也没做出来，请各位大侠指点一二。拜托！！
给定程序M.PRG的功能是：计算向s4供应商发出订购单的那些仓库的平均面积。改错要求：程序中共有三个错误，请修改"***found***"下面的错误，并调试运行。注意：要求在指定位置修改，不得增加或删减程序行。此程序用到下面的数据库：
1、仓库（仓库号C（4），城市C（8），面积N（4））
2、职工（仓库号C（4），职工号C（4），工资N（4））
3、订购单（职工号C（4），供应商号C（4），订购单号C（4），订购日期D，总金额N（10））
4、供应商（供应商号C（4），供应商名C（16），地址C（10））
****************M.PRG***************
set talk off
set echo off
select 1
use 订购单
select 2
use 职工
select 3
use 仓库
area=0
do while .not. eof()
select 2
****************found***************
seek 仓库号=c->仓库号
do while found()
select 1
locate for 职工号=B->职工号 .and. 供应商号="S4"
if found()
select 3
****************found***************
area=面积
exit
endif
select 2
continue
enddo
select 3
****************found***************
continue
enddo
?area
close database
return
