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-4.m2000
+++ b/Task/Conditional-structures/M2000-Interpreter/conditional-structures-4.m2000
@ -0,0 +1,40 @@
+Module CheckIt {
+      Read a
+      Select Case a
+      Case >1
+            {
+                  Print "Top"
+                  \\ need block if we have more than one line of code
+            }
+      Case >=-4
+            Print "Middle"
+      Else
+            Print "Bottom"
+      End Select
+}
+CheckIt 100
+CheckIt 0
+CheckIt -100
+
+Module CheckIt {
+      Read a
+      if a>-500 then
+            Select Case a
+            Case >1
+                  {
+                        Print "Top"
+                        \\ need block if we have more than one line of code
+                  }
+            Case >=-4
+                  Print "Middle"
+            Else  Case    \\ need ELSE CASE if Select Case is inside a IF END IF (WITHOUT BLOCK)
+                  Print "Bottom"
+            End Select
+      Else
+            Print "Out of range"
+    End if
+}
+CheckIt 100
+CheckIt 0
+CheckIt -100
+CheckIt -500