function readform, file

;+ Performs formatted reading 
; of the string-type array from a file
;-

;if n_elements(file) le 0 then $
;file = pickfile(/read)
if file eq '' then return, ''

widget_control, /hour

   openr, lun, file, /get

st = fstat(lun)
data = bytarr(st.size)
readu, lun, data

point_lun, lun, 0

iii = where(data eq '0A'xB, N)

data = strarr(N)

readf, lun, data

st = fstat(lun)

   if (st.cur_ptr + 1) lt st.size then begin
tmp = ''
readf, lun, tmp
data = [data, tmp]
   endif

   free_lun, lun

return, data

   end