10 DIM Q$(80)
20 PRINT\PRINT "Output Filename ";\INPUT F$
25 FILEV#1:F$
30 PRINT "Number of Records ";\ INPUT N
40 PRINT "Enter Data: "\ INPUT Q$
50 FOR I=1 TO N
60 PRINT#1:Q$
70 NEXT I
100 PRINT\PRINT "... Done ..."\ PRINT
990 CLOSE#1
999 END