'**************************************
'                                     *
'     IntuiExtend.Lib 2.0/@1995-98    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
' Command
'  -Wb Wind Open 
'  -Wb Current Screen  
'  -Wb Wind Base 
'  -Wb Wind Title
'  -Wb Wind Close
'  -Hard Mouse Key 
'
Global B,A,C
'
Wb Wind Open Wb Current Screen To 0,0,640,11,$202
WIND=Wb Wind Base
'
B$=String$(" ",80)
D$=" Salut le peuple..."+String$(" ",10)
D$=D$+"Voici un exemple de bande-annonce installé dans le Workbench, pour avoir une personnalisation au maximum..."+String$(" ",10)
D$=D$+"Mémoire graphique (Chip):"+Str$(Chip Free)+", Mémoires autres (Fast):"+Str$(Fast Free)+String$(" ",10)
D$=D$+"Sélectionnez la fenêtre, et cliquez le bouton de droite..."+String$(" ",40)
'
Amos To Back 
'
While Hard Mouse Key<>2
   R$=Mid$(D$,UI,1)
   Add UI,1,1 To Len(D$)
   TY$=Right$(B$+TY$+R$,80)
   Multi Wait 
   Wb Wind Title WIND To Varptr(TY$),0
   Wait 5
   Wait Vbl 
Wend 
'
Wb Wind Close WIND
Amos To Front