26 lines
401 B
Text
26 lines
401 B
Text
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
|