12 lines
311 B
Text
12 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{})
|