给定程序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