A little BDE program