CLS
PRINT "ENTER FILE NAME, EX. MYDATA";
INPUT FILE$
FILE$ = FILE$ + ".DAT"
PRINT "ENTER NUMBER OF MEASUREMENTS IN THE FILE";
INPUT N
DIM DAT(N)
PRINT "ENTER DATA, ONE MEASUREMENT AT A TIME"
FOR I = 1 TO N
PRINT I;
        INPUT DAT(I)
NEXT I
OPEN FILE$ FOR OUTPUT AS #1
PRINT #1, N
FOR I = 1 TO N
        PRINT #1, DAT(I)
NEXT I
CLOSE #1
END