13 lines
311 B
Text
13 lines
311 B
Text
|
INSTALL @lib$+"CLASSLIB"
|
||
|
|
|
||
|
|
DIM Camera{TakePicture}
|
||
|
|
PROC_class(Camera{})
|
||
|
|
|
||
|
|
DIM MobilePhone{MakeCall}
|
||
|
|
PROC_class(MobilePhone{})
|
||
|
|
|
||
|
|
DIM CameraPhone{methods}
|
||
|
|
PROC_inherit(CameraPhone{}, Camera{})
|
||
|
|
PROC_inherit(CameraPhone{}, MobilePhone{})
|
||
|
|
PROC_class(CameraPhone{})
|