23 lines
433 B
Text
23 lines
433 B
Text
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
|