include "ConsoleWindow"

dim as long     i : i = 1
dim as Str255   s, lineSeven
dim as CFURLRef url

if ( files$( _CFURLRefOpen, "TEXT", "Select text file", @url ) )
  open "I", 2, @url
  while ( not eof(2) )
    line input #2, s
      if ( i == 7 )
        lineSeven = s
      end if
      i++
  wend
  close 2
end if

if ( lineSeven[0] )
  print lineSeven
else
  print "File did not contain seven lines, or line was empty."
end if