'**************************************
'                                     *
'     IntuiExtend.Lib 1.4/@1995-96    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
' Pour quitter la bande-Annonce, Cliquez le bouton gauche, puis le droit et
' tout cela dans la bande... 
'
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 Vbl 
   Wait Vbl 
   Wait Vbl 
   Wait Vbl 
Wend 
'
Wb Wind Close WIND
Amos To Front