count!=0     :rem  *********************************
x!=0         :rem  *                               *
y!=0         :rem  *  ANIMATE -Graphics animation  *
xxx!=0       :rem  *        using CLIPPIC command  *
yyy!=0       :rem  *                               *
wait!=0      :rem  *   by Dennis Moore 23/Aug/87   *
bgcolor(0)   :rem  *                               *
fgcolor(1)   :rem  *********************************
mode(1)
on_error errors!
rem  ---  LOAD PICTURE AND COPY TO LEFT OF SCREEN ---
pic!=showpic("Extras:cat")
clippic(pic,75,10,pic,0,10,150,189,192)
clippic(pic,150,10,pic,150,10,170,190,0)
rem  ---  EXPAND ALONG X-AXIS ---
x=0
do_while((x=x+2)<300)
    clippic(pic,x,10,pic,1+x,10,148-x/2,190,192)
enddo
rem  ---  COMPRESS ALONG Y-AXIS ---
y=0
do_while((y=y+1)<100)
    clippic(pic,0,10+y,pic,0,9+y,300,190-y,192)
enddo
rem  ---  CREATE GARBAGE THEN RESTORE GARFIELD ---
y=10
do_while((y=y+1)<108)
    clippic(pic,0,y,pic,0,y+1,298,90,150)
enddo
y=10
do_while((y=y+1)<108)
    clippic(pic,0,y,pic,0,y+1,298,90,150)
enddo
rem  ---  MOVE TO BOTTOM OF SCREEN ---
y=10
do_while((y=y+1)<108)
    clippic(pic,0,y,pic,0,y+1,298,90,192)
enddo
rem  ---  COPY INTO TWO HALVES ---
x=-1
do_while((x=x+1)<150)
    clippic(pic,x,100,pic,150+x,100,1,100,192)
    clippic(pic,151+x,100,pic,x,100,1,100,192)
enddo
clippic(pic,0,100,pic,300,100,1,100,192)
clippic(pic,0,10,pic,0,100,1,100,192)
rem  ---  COMPRESS TWICE ALONG X-AXIS ---
x=-1
clippic(pic,0,100,pic,0,100,1,100,0)
do_while((x=x+1)<150)
    clippic(pic,x,100,pic,1+x,100,300-2*x,100,192)
enddo
x=-1
do_while((x=x+1)<75)
    clippic(pic,x,100,pic,1+x,100,300-2*x,100,192)
enddo
rem  ---  COPY TWO HALVES BACK ---
x=-1
do_while((x=x+1)<38)
    clippic(pic,x+225,100,pic,262+x,100,1,100,192)
    clippic(pic,263+x,100,pic,x+225,100,1,100,192)
enddo
rem  ---  COPY TO RANDOM POSITIONS ---
xxx=226
yyy=107
do_while((count=count+1)<150)
x=xxx
y=yyy
xxx=rand/134
yyy=rand/290
clippic(pic,x,y,pic,xxx,yyy,73,86,192)
enddo
do_while((wait=wait+1)<700)
enddo
closepic(pic)
end
label errors!
closepic(pic)
end
   