'
'IMPLICIT THIS
'=============
'
'has lower precedence if another entity of the
'same name is already visible
'

  int bb=666 'SHOULD BE OVERRIDEN IMPLICIT THIS
  
  class cls
  '
  bb as long
  '
  method info() as string
    bb=42
    return this.bb "  " bb
  end method
  '
  end class
  
  dim cls a
  print a.info
  
