100 CLS
110 DIM A#(13)
120 FOR I = 0 TO UBOUND(A#) : A#(I) = 0 : NEXT I
130 N = 0
140 A#(0) = 1
150 GOSUB 280
160 WHILE N <= 13
170  A#(N) = A#(0)
180  J = N
190  WHILE J >= 1
200   JM1 = J-1
210   A#(JM1) = A#(JM1)+A#(J)
220   J = J-1
230  WEND
240  N = N+1
250  GOSUB 280
260 WEND
270 END
280 REM Display Row
290 PRINT "B(";
300 PRINT RIGHT$(STR$(N),2)") = " A#(0)
310 RETURN