'**************************************
'                                     *
'     IntuiExtend.Lib 2.0/@1995-98    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
' Command
'  -Wb Circle
'
A=Amos Rastport
EE=Execall(-132)
CX=48 : CY=100 : R=50
Ink 0
Timer=0
For T=1 To 221
   Ink T
   Wb Circle T+CX,CY,R
Next T
Print "IntuiExtend:";Timer
Ink 2
Timer=0
For T=1 To 221
   Ink T
   Circle T+CX,CY,R
Next T
Print "       Amos:";Timer
EE=Execall(-138)
End