Add tasks for all the new languages

This commit is contained in:
Tina Müller 2016-12-05 23:44:36 +01:00
parent 9dc3c2bb62
commit bba7bfd280
13208 changed files with 134745 additions and 0 deletions

View file

@ -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