PROGRAM  "Pascal's triangle"
VERSION "0.0000"


DECLARE FUNCTION  Entry ()


FUNCTION  Entry ()
  N = 15
  DIM T[N+2]
  T[1] = 1

  PRINT "The first 15 Catalan numbers are: "; CHR$(10)
  FOR I = 1 TO N
    FOR J = I TO 1 STEP -1
      T[J] = T[J] + T[J-1]
    NEXT J
    T[I+1] = T[I]
  FOR J = I+1 TO 1 STEP -1
    T[J] = T[J] + T[J-1]
  NEXT J
  PRINT FORMAT$("###",I); ": "; FORMAT$("#########",(T[I+1] - T[I]))
  NEXT I

END FUNCTION
END PROGRAM