langs a-z

Task/Inheritance-Single/PureBasic/inheritance-single-1.purebasic

@@ -0,0 +1,21 @@
+Interface Animal
+  Eat()
+  Sleep()
+EndInterface
+
+Interface Cat Extends Animal
+  ChaseMouse()
+EndInterface
+
+Interface Dog Extends Animal
+  Bark()
+  WagTail()
+EndInterface
+
+Interface Lab Extends Dog
+  Swim()
+EndInterface
+
+Interface Collie Extends Dog
+  HeardSheep()
+EndInterface

Task/Inheritance-Single/PureBasic/inheritance-single-2.purebasic

@@ -0,0 +1,27 @@
+Class Animal
+EndClass
+
+Class Dog Extends Animal
+  Public Method Bark()
+  EndMethod
+EndClass
+
+Class Cat Extends Animal
+  Public Method Sleep()
+  EndMethod
+EndClass
+
+Class Lab Extends Dog
+  Public Method Swim()
+  EndMethod
+EndClass
+
+Class Collie Extends Dog
+  Public Method Fetch()
+  EndMethod
+EndClass
+
+;- test the code
+*Lassie.Collie = NewObject.Collie
+*Lassie\Bark()
+*Lassie\Fetch()