sync on
 
`load image "image1.bmp",1,1
`load image "image2.bmp",2,1
 
set image colorkey 255,0,255
 
make2images()
 
color backdrop RGB(0,0,0)
 
current_image=2
hidden_image=1
 
do
   paste image current_image,0,0
   sync
   if spacekey()
      fade(hidden_image,current_image)
 
      temp=current_image
      current_image=hidden_image
      hidden_image=temp
   endif
loop
 
function make2images()
 
autocam off
color backdrop 0
position camera 0,0,0
for image=1 to 2
for n=1 to 500
if image=1 then make object box n,rnd(10)+1,rnd(10)+1,rnd(10)+1
if image=2 then make object sphere n,rnd(7)+1,20,20
color object n,rnd(1000000000)
position object n,rnd(100)-50,rnd(100)-50,rnd(100)+50
next n
sync
get image image,0,0,screen width(),screen height(),1
for a=1 to 500
delete object a
next a
next image
 
endfunction
 
function fade(b1,b2)
sprite 1,0,0,b1
sprite 2,0,0,b2
 
   for a=255 to 0 step -1
      set sprite alpha 2,a
      sync
   next a
endfunction