'**************************************
'                                     *
'     IntuiExtend.Lib 2.0/@1995-98    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
' Command
'  -Wb Wind Open 
'  -Wb Wind Base 
'  -Wb Wind Rastport 
'  -Wb Gfx Ink   
'  -Wb Gfx Centre
'  -Wb Date
'  -Get Msg
'  -Wb Wind Close
'
Wb Wind Open 0 To 0,0,100,22,2+4+8
W=Wb Wind Base : R=Wb Wind Rastport(W)
'
Amos To Back 
'
Wb Gfx Ink R To 2,0
Wb Gfx Centre Wb Date,50,18 To R
While Get Msg(W)<>$200 : Wend 
Amos To Front 
Wb Wind Close W
End