XProfan

' classes.inc
class ?_parent = ?_parent@

proc ?_parent.?_parent

    imprimer "parent"

endproc

class ?_child = ?_parent, ?_child@

proc ?_child.?_child

    .?_parent()
    imprimer "child"

endproc

' main.prf
 $I classes.inc = classes.
cls
var mem object = new(classes.child)
dispose object
waitinput
end