Data commit

Task/Repeat/FutureBasic/repeat.basic

@@ -0,0 +1,18 @@
+include "NSLog.incl"
+
+void local fn Example( value as long )
+  NSLog(@"Example %ld",value)
+end fn
+
+void local fn DoIt( fnAddress as ptr, count as long )
+  def fn Repeat( j as long ) using fnAddress
+
+  long i
+  for i = 1 to count
+    fn Repeat( i )
+  next
+end fn
+
+fn DoIt( @fn Example, 3 )
+
+HandleEvents