Data update

Task/Inheritance-Multiple/M2000-Interpreter/inheritance-multiple.m2000

@@ -43,3 +43,55 @@ Module CheckIt {
       CP=>PrintAll
 }
 CheckIt
+
+
+' like c++
+Module CheckIt {
+      Class Camera {
+      Property  cameratype$ {
+              value,
+              set {
+                  read value$
+                  if value$="" then Error "Null value not accepted"
+              }
+      }
+          Class:
+            module Camera (.cameratype$){
+            }
+      }
+      \\ INHERITANCE AT CODE LEVEL
+      Class MobilePhone {
+	Property model$ {
+              value,
+              set {
+                  read value$
+                  if value$="" then Error "Null value not accepted"
+                  }
+              }
+       Class:
+            module  MobilePhone (.model$) {
+            }
+      }
+      Class CameraPhone  {
+              {
+                  ' these are local variables, not object's variables
+                  Read  model$, cameratype$
+              }
+              ' we use these variable$ here:
+              Camera Gadget(model$)
+              MobilePhone Device(cameratype$)
+
+      }
+      ' you can't pass null
+      CP1=CameraPhone("X-15", "OBSCURE")
+      Print CP1 is type CameraPhone = true
+      Print CP1 is type Camera = false
+      Print CP1 is type MobilePhone = false
+      Print CP1.Device.model$;" "; CP1.Gadget.cameratype$
+      Try ok  {
+          ' we get error
+          CP2=CameraPhone("X-15", "")
+      }
+      If Error Then Print Error$
+}
+CheckIt