Data update

Task/Enumerations/M2000-Interpreter/enumerations.m2000

@@ -1,7 +1,29 @@
 Module Checkit {
-      \\ need revision 15, version 9.4
-      Enum Fruit  {apple, banana, cherry}
-      Enum Fruit2  {apple2=10, banana2=20, cherry2=30}
+      Enum Fruit  {
+      apple, banana, cherry
+      }
+      Enum Fruit2  {
+          apple2=10,
+          banana2=20.5,
+          cherry2=30
+      }
+      Enum StrType {
+          alfa="Άλφα",
+          beta="Βήτα",
+          gamma="Γάμμα",
+          delta="Δέλτα"
+      }
+      Print alfa, beta
+      z=alfa
+      z++
+      Print z=beta, eval$(z)="beta", z="Βήτα"
+      z="Γάμμα"   ' change to 3rd by searching value from the list
+      CheckByReference2(&z)
+      z1=Each(StrType, -1, 1)  ' from last to first
+      while z1
+          CheckByValue2(z1)
+       end while
+
       Print apple, banana, cherry
       Print apple2, banana2, cherry2
       Print Len(apple)=0
@@ -47,10 +69,16 @@ Module Checkit {
       Sub CheckByValue(z as Fruit2)
             Print Eval$(z), z
       End Sub
-
+      Sub CheckByValue2(z as StrType)
+            Print Eval$(z), z
+      End Sub
       Sub CheckByReference(&z as Fruit2)
             z++
             Print Eval$(z), z
       End Sub
+      Sub CheckByReference2(&z as StrType)
+            z++
+            Print Eval$(z), z
+      End Sub
 }
 Checkit