TheEndOfTheFile = reccount() dimension nFoo(TheEndOfTheFile) For RecordCount = 1 To TheEndOfTheFile Goto RecordCount NumericValue = Datafile.n1 nFOO(RecordCount) = NumericValue && <<<< Next RecordCount * but this would be better dimension nFoo(reccount()) lcOrder = tag() set order to scan nFOO(RecordCount) = Datafile.n1 endscan set order &lcTag>About thirty years ago I was doing something such as this with DOS Basic.
>For RecordCount = 1 To TheEndOfTheFile >Goto RecordCount >NumericValue = Datafile.n1 >nFOO(RecordCount) = NumericValue && <<<< >Next RecordCount >