uses gdip
Screen 320,240,1
SetCaption "DEVIL GO HOME TEST"

single x,y,z,w,px,py,pz
sys p,pic,dev
pic = LoadImage "bmp/stars.bmp",1
dev = LoadImage "bmp/devil.png",1
x=1:y=60:z=150

while Key(27)=0
ClsColor 55,2,2,2
ZoomImage pic,0,0,320+z,240+z
px= x+z*.4
py= y+z*.2

ZoomImage dev,px,py,z,z
FLip
SetFps 26
z=z-2
x=x+2
y=y-.6
if z <=1 
   z=150
   y=80
   x=1
end if   
wend
Ends