RosettaCodeData/Task/Read-a-specific-line-from-a-file/Run-BASIC/read-a-specific-line-from-a-file.basic
2023-07-01 13:44:08 -04:00

10 lines
176 B
Text

fileName$ = "f:\sample.txt"
requiredLine = 7
open fileName$ for input as #f
for i = 1 to requiredLine
if not(eof(#f)) then line input #f, a$
next i
close #f
print a$
end