5 INPUT "Enter a new filename to write test to - ",FILE$
10 INPUT "Enter the number of lines for the file (up to 25) - ",L
15 IF L > 25 THEN INPUT "Too many lines.  Enter 1-25 - ",L :GOTO 15 ELSE 17
17 OPEN FILE$ FOR OUTPUT AS 1
20 FOR X = 1 TO L
30 PRINT"Line";X;
40 INPUT "- ",T$
50 PRINT #1,T$
60 NEXT X
70 CLOSE 1