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 displayrow()
160 while n <= ubound(a)
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  displayrow()
260 wend
270 end
280 sub displayrow()
290  print "B(";
300  print right$(str$(n),2)") = " a(0)
310 return