des pictures qui se déplacent

dim i% ,x%

label zoom,turn,evac,reap,quit

caption 0,"Mon effet Zoom"
height 0,430:width 0,410


picture 1:top 1,10:left 1,10:stretch_on 1

gosub zoom
gosub turn
gosub evac
gosub reap
gosub quit
end

zoom:
for i% = 1 to 290
height 1,i%
width 1,i%
file_load 1,"img.jpg"
wait 5
next i%
return

turn:
for i%=10 to 90
left 1,i%
wait 5
next i%

for i%=10 to 90
top 1,i%
wait 5
next i%

for i%=90 to 10 step -1
left 1,i%
wait 5
next i%

for i%=90 to 10 step -1
top 1,i%
wait 5
next i%
return

evac:
for i% = 290 to 1 step -1
height 1,i%
width 1,i%
wait 5
next i%
return

reap:
for i%=1 to 290
x%=200-(i%/2)
top 1,x%
left 1,x%
height 1,i%
width 1,i%
file_load 1,"img.jpg"
wait 5
next i%

message "THE END"
return


quit:
terminate