include include # UIGL2? -- get a data line from an apparently 2-d file procedure uigl2$t (im, linenum, buffer, istat) pointer im # pointer to the image header file int linenum # line number to get from image PIXEL buffer[ARB] # user's buffer to be filled by this routine int istat # return status code pointer ip, imgl2$t() begin istat = ER_OK # call imio to read the data into an imio buffer area iferr (ip = imgl2$t(im, linenum)) { istat = ER_IMREAD return } # load the user's array from imio buffer call amov$t (Mem$t[ip], buffer, IM_LEN(im,1)) end