PRO TEST_CONTINUE, FILENAME

openr, lun, filename, /get_lun
record = ''
while (eof(lun) ne 1) do begin
  readf, lun, record, format='(a)'
  record = strcompress(record)
  if (strmid(record, 0, 1) eq ';') or $
     (strmid(record, 1, 1) eq ';') then continue
  print, strupcase(record)
endwhile
free_lun, lun

END