100 REM Bell numbers
110 OPTION BASE 0
120 DIM A(13)
130 LET MaxN = UBOUND(A) + 1
140 FOR I = 0 TO MaxN - 1
150    LET A(I) = 0
160 NEXT I
170 LET N = 0
180 LET A(0) = 1
190 PRINT USING "B(##) = #########": N, A(0)
200 DO WHILE N < MaxN
210    LET A(N) = A(0)
220    FOR J = N TO 1 STEP -1
230       LET A(J - 1) = A(J - 1) + A(J)
240    NEXT J
250    LET N = N + 1
260    PRINT USING "B(##) = #########": N, A(0)
270 LOOP
280 END