16 lines
418 B
Text
16 lines
418 B
Text
LET filename$ = "input.txt"
|
|
OPEN #1: NAME filename$, ORG TEXT, ACCESS INPUT, CREATE OLD
|
|
|
|
LET lineapedida = 7
|
|
LET cont = 0
|
|
DO
|
|
LINE INPUT #1: linea$
|
|
LET cont = cont + 1
|
|
IF cont = lineapedida THEN
|
|
IF TRIM$(linea$) = "" THEN PRINT "The 7th line is empty" ELSE PRINT linea$
|
|
EXIT DO
|
|
END IF
|
|
LOOP UNTIL END #1
|
|
IF cont < lineapedida THEN PRINT "There are only "; cont; " lines in the file"
|
|
CLOSE #1
|
|
END
|