100 PROGRAM "PascalTr.bas"
110 TEXT 80
120 LET ROW=12
130 FOR I=0 TO ROW
140   LET C=1
150   PRINT TAB(37-I*3);
160   FOR K=0 TO I
170     PRINT USING " #### ":C;
180     LET C=C*(I-K)/(K+1)
190   NEXT
200   PRINT
210 NEXT