Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
|
|
@ -0,0 +1,23 @@
|
|||
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
|
||||
Loading…
Add table
Add a link
Reference in a new issue