REM Bell numbers
DIM A&(13)
FOR I = 0 TO 13
  A&(I) = 0
NEXT I
N = 0
A&(0) = 1
GOSUB DisplayRow:
WHILE N <= 13
  A&(N) = A&(0)
  J = N
  WHILE J >= 1
    JM1 = J - 1
    A&(JM1) = A&(JM1) + A&(J)
    J = J - 1
  WEND
  N = N + 1
  GOSUB DisplayRow:
WEND
END

DisplayRow:
  PRINT "B(";
  SN$ = STR$(N)
  SN$ = RIGHT$(SN$, 2)
  PRINT SN$;
  PRINT ") =";
  PRINT A&(0)
RETURN