rem
rem   do the slide show while loading up movie frames
rem
      execute a,"assign instruments: fractal_slides:instruments"
      execute a,"run fractal_slides:dplay fractal_slides:2001.smus"
      buff1 = 1
      buff2 = 2
      delay = 00
rem
rem   do the intro
rem
      load buff2,"fractal_slides:intro"
      load buff1,"fractal_slides:intro2"
      display buff2
      x = 20
      for y = 33 to 130 step 16
        pause 2
        blit buff1,x,y,x,y,159,15
        x = x + 14
      next
      pause 10
      blit buff1,115,156,115,156,150,20
      cycle 1
      pause 40
      load buff1,"fractal_slides:intro3"
      dissolve buff1,0,0,0,0,320,200,3000
      cycle 0
      pause 20
rem
rem   start the slide show
rem
      load buff1,"fractal_slides:young-gal.ilbm"
      gosub 10
      loadfast  4,"fractal_movie:frame000"
      load buff1,"fractal_slides:horse-tail3.ilbm"
      gosub 10
      loadfast  5,"fractal_movie:frame001"
      load buff1,"fractal_slides:link.2.ilbm"
      gosub 10
      loadfast  6,"fractal_movie:frame002"
      load buff1,"fractal_slides:pretty-baby1.ilbm"
      gosub 10
      loadfast  7,"fractal_movie:frame003"
      load buff1,"fractal_slides:stinger3d.ilbm"
      gosub 10
      loadfast  8,"fractal_movie:frame004"
      load buff1,"fractal_slides:webbed.ilbm"
      gosub 10
      loadfast  9,"fractal_movie:frame005"
      load buff1,"fractal_slides:baby-stinger3d.ilbm"
      gosub 10
      loadfast 10,"fractal_movie:frame006"
      load buff1,"fractal_slides:horse-net.5.ilbm"
      gosub 10
      loadfast 11,"fractal_movie:frame007"
      load buff1,"fractal_slides:vista.ilbm"
      gosub 10
      loadfast 12,"fractal_movie:frame008"
      load buff1,"fractal_slides:cats-eye2.3.ilbm"
      gosub 10
      loadfast 13,"fractal_movie:frame009"
rem
rem   movie starts here
rem
5     speed   2
      copy    4,buff1
      display buff1
      pause   delay
      buff2 = 3-buff1
      for i=1 to 15
        pause   2
        copy    4,buff1
        display buff1
        pause   2
        copy    5,buff2
        display buff2
        pause   1
        copy    6,buff1
        display buff1
        copy    7,buff2
        display buff2
        copy    8,buff1
        display buff1
        copy    9,buff2
        display buff2
        copy    10,buff1
        display buff1
        copy    11,buff2
        display buff2
        pause   1
        copy    12,buff1
        display buff1
        pause   2
        copy    13,buff2
        display buff2
        pause   2
        copy    12,buff1
        display buff1
        pause   1
        copy    11,buff2
        display buff2
        copy    10,buff1
        display buff1
        copy    9,buff2
        display buff2
        copy    8,buff1
        display buff1
        copy    7,buff2
        display buff2
        copy    6,buff1
        display buff1
        pause   1
        copy    5,buff2
        display buff2
        ifmouse x,y
        if x # -1
          end
        endif
      next
rem
rem   ok do the slide show again
rem
      speed   1
      load buff1,"fractal_slides:young-gal.ilbm"
      gosub 10
      load buff1,"fractal_slides:horse-tail3.ilbm"
      gosub 10
      load buff1,"fractal_slides:link.2.ilbm"
      gosub 10
      load buff1,"fractal_slides:pretty-baby1.ilbm"
      gosub 10
      load buff1,"fractal_slides:stinger3d.ilbm"
      gosub 10
      load buff1,"fractal_slides:webbed.ilbm"
      gosub 10
      load buff1,"fractal_slides:baby-stinger3d.ilbm"
      gosub 10
      load buff1,"fractal_slides:horse-net.5.ilbm"
      gosub 10
      load buff1,"fractal_slides:vista.ilbm"
      gosub 10
      load buff1,"fractal_slides:cats-eye2.3.ilbm"
      goto 5

10    display buff1
      buff1 = 3-buff1
      buff2 = 3-buff1
      ifmouse x,y
      if x # -1
        end
      endif
      pause delay
      return