this.WpChan = DDEInitiate('WPWIN90_macros',"commands")
>DO while this.WpChan=-1 .and. i<11 > this.WpChan = DDEInitiate('WPWIN60_macros',"commands") > i=i+1 >ENDDO