DIM a$
DIM z

a$ = "Test"

OPEN a$ FOR OUTPUT AS fp1

? "Creating test file ..."

FOR z = 1 TO 1000
  FPRINT fp1, "This is line no.", STR$(z)
NEXT z

CLOSE fp1

OPEN a$ FOR INPUT AS fp1

WHILE NOT EOF ( fp1)
  LINE INPUT fp1, a$
  ? a$
WEND

CLOSE fp1

CLS

? "Removing Test file"

KILL "test"