5 OPEN "OUTPUT.TXT" FOR OUTPUT AS 1
6 ON ERROR GOTO 1000
10 DIM A$(10000)
20 FOR I=1 TO 2000
25   PRINT#1, I, FRE(0)
30   A$(I) = STR$(I) + STR$(I) + "FILLERSTRING"
40 NEXT
1000 PRINT#1, "err", ERR, ERL
1010 CLOSE
1020 END

