n = 14
      num = 1
      last = (n^2 - n + 2) DIV 2
      FOR row = 1 TO n
        col = last
        FOR num = num TO num + row - 1
          @% = LEN(STR$(col)) + 1 : REM set column width
          PRINT num ;
          col += 1
        NEXT
        PRINT
      NEXT row