window 1

long     i = 1
Str255   s, lineSeven
CFURLRef url

url = openpanel 1, @"Select text file"
if ( url )
  open "I", 2, url
  while ( not eof(2) )
    line input #2, s
    if ( i == 7 )
      lineSeven = s : break
    end if
    i++
  wend
  close 2

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

HandleEvents