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