11 lines
265 B
Text
11 lines
265 B
Text
fileName$ ="F:\sample.txt"
|
|
requiredLine =7
|
|
|
|
open fileName$ for input as #i
|
|
f$ =input$( #i, lof( #i))
|
|
close #i
|
|
|
|
line7$ =word$( f$, 7, chr$( 13))
|
|
if line7$ =chr$( 13) +chr$( 10) or line7$ ="" then notice "Empty line! ( or file has fewer lines)."
|
|
|
|
print line7$
|