Data commit

Task/Repeat/XBasic/repeat.basic

@@ -0,0 +1,23 @@
+PROGRAM	"Repeat"
+VERSION	"0.0000"
+
+DECLARE FUNCTION  Entry ()
+DECLARE FUNCTION  Proc ()
+DECLARE FUNCTION  Repe (func$, c)
+
+FUNCTION  Entry ()
+    Repe ("proc", 5)
+PRINT "Loop Ended"
+
+END FUNCTION
+
+FUNCTION Proc ()
+    PRINT " Inside loop"
+END FUNCTION
+
+FUNCTION  Repe (func$, c)
+    FOR i = 1 TO c
+        Proc ()
+    NEXT i
+END FUNCTION
+END PROGRAM