Data update

Task/Catalan-numbers-Pascals-triangle/XBasic/catalan-numbers-pascals-triangle.basic

@@ -0,0 +1,26 @@
+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