'**************************************
'                                     *
'     IntuiExtend.Lib 2.0/@1995-98    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
' Command
'  -Amos Rastport
'  -Wb Bevel Box 
'
Screen Open 0,640,256,16,$8000
Curs Off : Flash Off : Cls 2
Palette $0,555,$AAA,$FFF
'
RPORT=Amos Rastport
'
While Mouse Key=0
   For T=1 To 25
      Wb Bevel Box RPORT To 0,3,T*8,T*5,640-(T*8),256-(T*5)
   Next T
   For T=25 To 1 Step -1
      Wb Bevel Box RPORT To 3,0,T*8,T*5,640-(T*8),256-(T*5)
   Next T
Wend