'**************************************
'                                     *
'     IntuiExtend.Lib 2.0/@1995-96    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
' Command
'  -Amos Rastport
'  -Wb Gfx Centre
'
A=Amos Rastport
R=6
While Mouse Key=0
   A$="" : Ink 2
   For T=0 To 30
      A$=A$+"O"
      Add R,6
      Wb Gfx Centre A$,160,R To A
      Wait 2
   Next T
   A$="" : Ink 3
   For T=30 To 0 Step -1
      A$=A$+"O"
      Add R,-6
      Wb Gfx Centre A$,160,R To A
      Wait 2
   Next T
Wend