Data commit

Task/Pascals-triangle/XBasic/pascals-triangle.basic

@@ -0,0 +1,17 @@
+PROGRAM "pascal"
+VERSION "0.0001"
+
+DECLARE FUNCTION Entry()
+
+FUNCTION Entry()
+  r@@ = UBYTE(INLINE$("Number of rows? "))
+  FOR i@@ = 0 TO r@@ - 1
+    c%% = 1
+    FOR k@@ = 0 TO i@@
+      PRINT FORMAT$("####", c%%);
+      c%% = c%% * (i@@ - k@@) / (k@@ + 1)
+    NEXT k@@
+    PRINT
+  NEXT i@@
+END FUNCTION
+END PROGRAM