
FUNCTION SCATTER
parameter aname,fqty,rqty
private currec,fldname
currec = recno()
do while .not. eof() .and. rqty >= 1
     for i = 1 to fqty
          fldname = field(i)
          aname[r2(rqty,i,fqty)] = &fldname
     next
     rqty = rqty -1
     skip
enddo
goto currec
return .t.




FUNCTION R2
parameter x,y,ye
return (((x-1) * ye) + y)




FUNCTION R3
parameter x,y,z,ye,ze
return (((x-1) * ye * ze) + ((y-1) * ze) + z)




FUNCTION R4
parameter w,x,y,z,xe,ye,ze
return (((w-1) * xe * ye * ze) + ((x-1) * ye * ze) + ((y-1) * ze) + z)

