Data update

Task/Loops-Do-while/Ballerina/loops-do-while-1.ballerina

@@ -0,0 +1,10 @@
+import ballerina/io;
+
+public function main() {
+    int v = 0;
+    while true {
+        v += 1;
+        io:println(v);
+        if v % 6 == 0 { break; }
+    }
+}

Task/Loops-Do-while/Ballerina/loops-do-while-2.ballerina

@@ -0,0 +1,11 @@
+import ballerina/io;
+
+public function main() {
+    int value = 0;
+    boolean ok = true;
+    while ok {
+        value += 1;
+        io:println(value);
+        ok = value % 6 != 0;
+    }
+}

Task/Loops-Do-while/SETL/loops-do-while.setl

@@ -0,0 +1,7 @@
+program dowhile;
+    value := 0;
+    loop until value mod 6 = 0 do
+        print(value);
+        value +:= 1;
+    end loop;
+end program;

Task/Loops-Do-while/Uxntal/loops-do-while.uxnatl

@@ -0,0 +1,22 @@
+%newline { [ LIT2 0a -Console/write ] DEO }
+%MOD ( a b -- a%b ) { DIVk MUL SUB }
+
+|18 @Console/write
+
+|100
+
+#00
+&do-while
+    INC DUP print-hex/byte newline
+    DUP #06 MOD ?&do-while
+POP
+
+BRK
+
+@print-hex ( short* -- )
+    SWP /byte
+    &byte ( byte -- )
+        DUP #04 SFT /nibble
+    &nibble ( byte -- )
+        #0f AND DUP #09 GTH #27 MUL ADD [ LIT "0 ] ADD #18 DEO
+    JMP2r