BCX Console Demonstration Program S10.bas

 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"