Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Conditional-structures/M2000-Interpreter/conditional-structures-6.m2000
+++ b/Task/Conditional-structures/M2000-Interpreter/conditional-structures-6.m2000
@ -0,0 +1,29 @@
+Module CheckIt {
+      For i=1 to 10 {
+            x=Random(1,2)
+            {
+                  On x Goto alfa, beta
+                  alfa:
+                        Print "ok1"
+                        Exit
+                  beta:
+                        Print "ok2"
+                        Exit
+            }
+            Print "End One"
+
+            x=Random(1,2)
+            {
+                  On x Gosub alfa1, beta1
+                  Exit
+                  alfa1:
+                        Print "ok1"
+                        Return
+                  beta1:
+                        Print "ok2"
+                        Return
+            }
+            Print "End"
+      }
+}
+CheckIt