CLS
INPUT n
DIM a$(n * 2 - 1, n * 2 - 1)
FOR k = 1 TO n
  FOR i = k TO n * 2 - k
    FOR j = k TO 2 * n - k: a$(i, j) = CHR$(64 + n - k + 1): NEXT j
  NEXT i
NEXT k
FOR i = 1 TO n * 2 - 1
  FOR j = 1 TO 2 * n - 1: PRINT a$(i, j); : NEXT j
  PRINT
NEXT i
END