pro grab2, infil, strec, enrec, word, frame, v1
;
;
;
if (enrec eq 0) then begin
    find_nrec, infil, enrec
    enrec = enrec - 1
end
;
for irec=strec,enrec do begin
    rdrec, infil, irec, rec1, err
    v = rec1(16+word, frame)
    if (irec eq strec) then v1=v else v1=[v1,v]
end
;
end