100 :
 110  REM  FLOYD'S TRIANGLE
 120 :
 130  DEF  FN Q(A) =  INT ( LOG (A) /  LOG (10)) + 1
 140 N = 14
 150  DIM P(N): P(0) =  - 1: FOR J = 1 TO N: I = (N * N - N) / 2 + J
 160 P(J) = P(J - 1) + FN Q(I) + 1: NEXT J
 200  FOR R = 1 TO N: FOR C = 1 TO R
 210 NR = NR + 1:COL = P(C) - ( FN Q(NR) - 1)
 220  HTAB COL: PRINT NR;: NEXT C
 230  PRINT : NEXT R