'**************************************
'                                     *
'     IntuiExtend.Lib 2.0/@1995-98    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
A$="  amigazette 83  "
A=Amos Rastport
'
While Mouse Key=0
   For T=0 To 10
      Wb Curs A,20,20
      Wb Text Spacing T To A
      Wait Vbl 
      Wb Gfx Text A$,10,10 To A
      Wait 2
   Next T
   For T=9 To 1 Step -1
      Wb Curs A,20,20
      Wb Text Spacing T To A
      Wait Vbl 
      Wb Gfx Text A$,10,10 To A
      Wait 2
   Next T
Wend