[CVS ci] call object constructor

[Leopold Toetsch]

This works now:

    newclass P1, "Foo"
    find_global P2, "init"
    store_global "Foo", "__init", P2
    find_type I1, "Foo"
    new P3, I1
    print "ok 2\n"
    end
.pcc_sub init:
    print "ok 1\n"
    invoke P1
Missing is some "call all parents contructors". But above is good enough 
to allocate attributes.
If line 3 is omitted, no constructor is called.

leo