各位学长：大家好！我急需解答下面问题，望好心指教：
  用FOXPRO写程序：
  过程文件名：process.prg
  自定义函数名：equit
  型参：a,b,c
  功能：计算 ax*x+bx+c=0的根，并发在全局变量X1，X2中函数返回植，有实根为1，无  实根为0