'**************************************
'                                     *
'     IntuiExtend.Lib 2.0/@1995-98    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
' Command
'  -Wb Current Window
'  -Wb Get Menu Adr
'  
'Adresse de la fenetre 
W=Wb Current Window
Print "Window Adr:";Hex$(W)
'
'Adresse du menu de la fenetre 
A=Wb Get Menu Adr(W)
Print "Menu Adr  :";Hex$(A)