class A
  private:
    var k : integer;
  public:
    proc get_A() : integer    
      begin
      return self.k;
      end
    proc set( k : integer )
      begin
      self.k = k;
      end
    proc init()               
      begin
      self.set(0);
      end
end
 
 
class B subclassOf A
  private:
    var k : integer;
  public:
    proc get_B() : integer    
      begin
      return self.k;
      end
    proc init()
      begin
      super.init();
      self.k = 2;
      end
end
 
class C subclassOf A
  public:
     proc get_A() : integer
       begin
       return 0;
       end
end
 
class Program
  public:
    proc run()
        var
          a : A;
          b : B;
          c : C;
      begin
      b = B.new();
      write( b.get_B() ); 
      a = b;
      write( a.get_A() ); 
      write( b.get_A() );  // vai para método get_A da classe A
      a = c;
      write( a.get_A() );  // vai para o método get_A da classe A
      c = C.new();
      write( c.get_A() );  // vai para método get_A da classe C
      end
end