Data commit

Task/Loops-Do-while/QB64/loops-do-while-1.qb64

@@ -0,0 +1,4 @@
+DO
+    PRINT n
+    n = n + 1
+LOOP WHILE n MOD 6 <> 0

Task/Loops-Do-while/QB64/loops-do-while-2.qb64

@@ -0,0 +1,17 @@
+'Another demo of DO loops
+Dim As Integer Counter
+Print "First loop DO..LOOP UNTIL"
+Counter = 0
+Do
+    Print Counter
+    Counter = Counter + 1
+Loop Until Counter Mod 6 = 0
+Print "Counter Mod 6 = "; Counter Mod 6
+Print "First loop DO WHILE..LOOP"
+Counter = 1
+Do While Counter Mod 6 <> 0
+    Print Counter
+    Counter = Counter + 1
+Loop
+Print "Counter Mod 6 = "; Counter Mod 6
+End