DECLARE SUB INSERT (X%(), N%)
DEFINT A-Z
CLS
CLS
DIM A(20)
FOR J = 0 TO 19: A(J) = INT(20 * RND): PRINT USING "####"; A(J); : NEXT J
PRINT
INSERT A(), 20
FOR J = 0 TO 19: PRINT USING "####"; A(J); : NEXT J
END

SUB INSERT (X%(), N%)
  DIM A, B, TMP
  FOR A = 1 TO N - 1
    TMP = X(A)
    FOR B = A - 1 TO 0 STEP -1
      IF TMP > X(B) THEN EXIT FOR
      X(B + 1) = X(B)
    NEXT B
    X(B + 1) = TMP
  NEXT A
END SUB