'**************************************
'                                     *
'     IntuiExtend.Lib 2.0/@1995-98    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
Screen Open 0,320,256,4,LORES
Flash Off : Curs Off : Hide : Cls 0
Double Buffer : Autoback 0
X0=Rnd(250)+50
Y0=Rnd(150)+50
X1=Rnd(250)+50
Y1=Rnd(150)+50
X2=Rnd(250)+50
Y2=Rnd(150)+50
X3=Rnd(250)+50
Y3=Rnd(150)+50
X4=Rnd(250)+50
Y4=Rnd(150)+50
AX=2
AY=3
BX=1
BY=2
CX=4
CY=2
DX=1
DY=2
EX=6
EY=4
Ink 2
While Mouse Key<>2
   If X0>=300 or X0<=50 Then AX=-AX
   X0=X0+AX
   If Y0>=200 or Y0<=50 Then AY=-AY
   Y0=Y0+AY
   If X1>=300 or X1<=50 Then BX=-BX
   X1=X1+BX
   If Y1>=200 or Y1<=50 Then BY=-BY
   Y1=Y1+BY
   If X2>=300 or X2<=50 Then CX=-CX
   X2=X2+CX
   If Y2>=200 or Y2<=50 Then CY=-CY
   Y2=Y2+CY
   If X3>=300 or X3<=50 Then DX=-DX
   X3=X3+DX
   If Y3>=310 or Y3<=50 Then DY=-DY
   Y3=Y3+DY
   If X4>=300 or X4<=50 Then EX=-EX
   X4=X4+EX
   If Y4>=310 or Y4<=50 Then EY=-EY
   Y4=Y4+EY
   Wb Spline X0,Y0 To X1,Y1 To X2,Y2,12
   Wb Spline X0,Y0 To X3,Y3 To X2,Y2,12
   Wb Spline X0,Y0 To X4,Y4 To X2,Y2,12
   Screen Swap 
   Wait Vbl 
   Cls 0
Wend