'**************************************
'                                     *
'     IntuiExtend.Lib 2.0/@1995-98    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
' Command
'  -Wb Spline
'
Screen Open 0,320,256,8,0
Flash Off : Curs Off : Cls 0 : Ink 2
Gr Writing 2
'
Do 
For T=0 To 320 Step 5
Wb Spline 100,50 To T,0 To 220,200,12
Wait Vbl 
Wb Spline 100,50 To T,0 To 220,200,12
Next T

For T=0 To 255 Step 5
Wb Spline 100,50 To 320,T To 220,200,12
Wait Vbl 
Wb Spline 100,50 To 320,T To 220,200,12
Next T

For T=320 To 0 Step -5
Wb Spline 100,50 To T,255 To 220,200,12
Wait Vbl 
Wb Spline 100,50 To T,255 To 220,200,12
Next T

For T=255 To 0 Step -5
Wb Spline 100,50 To 0,T To 220,200,12
Wait Vbl 
Wb Spline 100,50 To 0,T To 220,200,12
Next T
Loop