10 INPUT "How many rows? ";n
 15 IF n<1 THEN GO TO 210
 20 DIM c(n)
 25 DIM d(n)
 30 LET c(1)=1
 35 LET d(1)=1
 40 FOR r=1 TO n
 50 FOR i=1 TO (n-r)
 60 PRINT " ";
 70 NEXT i
 80 FOR i=1 TO r
 90 PRINT c(i);" ";
100 NEXT i
110 PRINT
120 IF r>=n THEN GO TO 140
130 LET d(r+1)=1
140 FOR i=2 TO r
150 LET d(i)=c(i-1)+c(i)
160 NEXT i
165 IF r>=n THEN GO TO 200
170 FOR i=1 TO r+1
180 LET c(i)=d(i)
190 NEXT i
200 NEXT r