PRO TEST_WHILE, FILENAME
openr, lun, filename, /get_lun
record = ''
while (eof(lun) ne 1) do begin
  readf, lun, record
  print, record
endwhile
free_lun, lun
END