NatObjects.borg

NatObjects.borg


{
Clone()::
    {
    makepoint(x,y)::
        {
        getx()::x;
        gety()::y;
        setx(NX)::x:=NX;
        sety(NY)::y:=NY;
        clone()
        };
    t:makepoint(10,20);
    u:makepoint(30,40);
    if((t.getx())=10,
    if((t.gety())=20,
    if((u.getx())=30,
    if((u.gety())=40,
        {
        t.setx(50);
        u.setx(60);
        if((t.getx())=50,
        if((t.gety())=20,
        if((u.getx())=60,
        if((u.gety())=40, true,
        false),false),false),false)},
    false),false),false),false)
    };

ITEM("clone",Clone,1)
}