CLS
PRINT "Enter file name:";
INPUT File$
File$ = File$ + ".DAT"
OPEN File$ FOR INPUT AS #1
OPEN "O" + File$ FOR OUTPUT AS #2
INPUT #1, N
Print N
DIM X(N)
FOR I = 1 TO N
        INPUT #1, X(I)
NEXT I
FOR J = 2 TO N
        a = X(J)
        I = J - 1
        WHILE I > 0 AND X(I) > a
                X(I + 1) = X(I)
                I = I - 1
        WEND
        X(I + 1) = a
NEXT J
PRINT #2, N
FOR I = 1 TO N
        Print X(I)
        PRINT #2, X(I)
NEXT I
CLOSE #1
CLOSE #2
END