100 PRINT"THE FILE NAME";\INPUT A$
 110 PRINT "HOW MANY DATA VALUES";\INPUT N
 120 OPEN A$ FOR OUTPUT
 125 PRINT #,N
 130 FOR I=1 TO N
 140 PRI"DATA";I;\INPUT A
 150 PRINT #,A
 160 NEXT I
 165 CHAIN "CHAIN"
 170 END