XProfan

' classes.inc
class ?_parent = ?_parent@

proc ?_parent.?_parent

    imprimir "parent"

ENDPROC

class ?_child = ?_parent, ?_child@

proc ?_child.?_child

    .?_parent()
    imprimir "child"

ENDPROC

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