Data update

Task/Permutations/FutureBasic/permutations-1.basic

@@ -0,0 +1,17 @@
+void local fn perm( k as Short)
+static Short w( 4 ), i = -1
+  Short j
+  i ++ : w( k ) = i
+  if i = 4
+    for j = 1 to 4 : print w( j ),
+    next : print
+  else
+    for j = 1 to 4 : if w( j ) = 0 then fn perm( j )
+    next
+  end if
+  i -- : w( k ) = 0
+end fn
+
+fn perm(0)
+
+handleevents