Add examples/objects_classes.claro from Claro v1.17.26 zip

examples/objects_classes.claro

@@ -0,0 +1,31 @@
+SAY "Objects in Claro"
+
+CLASS Player
+    HAS name TEXT
+    HAS score NUMBER
+
+    TEACH show
+        SAY "Player name:"
+        SAY name
+        SAY "Player score:"
+        SAY score
+    END
+
+    TEACH add points
+        SET score score + points
+    END
+END
+
+NEW Player player
+SET player.name "Jon"
+SET player.score 10
+
+DO player.show
+DO player.add 5
+
+SAY "New score:"
+SAY player.score
+
+OBJECT CLASS player AS kind
+SAY "Object class:"
+SAY kind