      nrows% = 10

      colwidth% = 4
      @% = colwidth% : REM Set column width
      FOR row% = 1 TO nrows%
        PRINT SPC(colwidth%*(nrows% - row%)/2);
        acc% = 1
        FOR element% = 1 TO row%
          PRINT acc%;
          acc% = acc% * (row% - element%) / element% + 0.5
        NEXT
        PRINT
      NEXT row%
