'**************************************
'                                     *
'     IntuiExtend.Lib 2.0/@1995-98    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
' Command
'  -Wb Wind Open 
'  -Wb Wind Base 
'  -Wb Wind Limit
'  -Str Store
'  -Str Free 
'  -Wb Wind Title
'
Amos To Back 
'
Wb Wind Open 0 To 50,30,300,100,1+2+4+8
W=Wb Wind Base : R=Wb Wind Rastport(W)
A=Str Store("<- Cliqué le CloseGadget...")
B=Str Store("CIERP Philippe presente l'extention Intuition (Shareware) AMOS/AMOSPro")
Wb Wind Title W To A,B
Wb Wind Limit W To 50,50,500,200
'
While Get Msg(W)<>$200 : Wend 
'
Wb Wind Close W
Str Free A
Str Free B
Amos To Front