local handle, lnSize, lnCols, lnRows, ix, jx lnCols = 258 handle = fopen('myexternalfile.ext') lnSize = fseek(handle,0,2) && Get size =fseek(handle,0,0) && Rewind lnRows = int(lnSize/(lnCols*4)) local array arrData[lnRows,lnCols] for ix=1 to lnRows for jx=1 to lnCols arrData[ix,jx] = Char2Num(fread(handle,4),4) endfor endfor =fclose(handle) function Char2Num Lparameters tcStr, tnSize tnSize = Iif(Empty(tnSize),1,tnSize) Local lnNum,ix tcStr = Padr(tcStr,tnSize,Chr(0)) lnNum=0 For ix=1 To tnSize lnNum = lnNum + Asc(Substr(tcStr,ix,1))*(256^(ix-1)) Endfor Return lnNum EndprocCetin