100 PROGRAM "FloydT.bas"
110 LET N=14:LET J=1
120 TEXT 80
130 FOR I=1 TO N
140   FOR J=J TO J+I-1
150     PRINT USING " ###":J;
160   NEXT
170   PRINT
180 NEXT