'**************************************
'                                     *
'     IntuiExtend.Lib 2.0/@1995-98    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
' Command
'  -Amos Rastport
'  -Wb Bevel Box 
'  -Wb Gauge 
'
Screen Open 0,640,256,8,$8000
Curs Off : Flash Off : Cls 0
Palette $AAA,0,$FFF,$F50,$5F
'
RP=Amos Rastport
Wb Bevel Box RP To 2,1,5,5,405,40
Wb Bevel Box RP To 1,2,10,10,400,25
'
Double Buffer : Autoback 0
'
For T=1 To 100
   Wb Gauge T,3,4,11,11 To 399,24
   Ink 1,0 : Text 20,35,"Pourcentage: "+Right$("  "+Str$(T),3)
   Screen Swap 
   Wait 2
   Wait Vbl 
Next T
'
For T=100 To -1 Step -1
   Wb Gauge T,3,4,11,11 To 399,24
   Ink 1,0 : Text 20,35,"Pourcentage: "+Right$("  "+Str$(T),3)
   Screen Swap 
   Wait 2
   Wait Vbl 
Next T
'
Print "Press any key..."
Screen Swap 
Wait Key