Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DMSLIB.ZIP
Filename : ARRAYS.PRG

**||ARRAYS.PRG updated on- Wednesday, October 14, 1987 at- 11:56 am
**||(c)1987, D M Sampson Consulting
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)

function scatter
parameter array,fqty,rqty
private currec,fldname

currec = recno()

do while .not. eof() .and. rqty >= 1
for i = 1 to fqty
fldname = field(i)
&array[r2(rqty,i,fqty)] = &fldname
next
rqty = rqty -1
skip
enddo

goto currec

return .t.




**||End of File-> ARRAYS.PRG