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