//    Instruction Example :      track.key.transparency.level.set (long)


        screen.resolution.set (512,384)

        @track1=track.create (TRACK_LOOP)
          track.transparency.level.interpolation.set (INTERP_LINEAR)
          init ()
        track.end ()

        @track2=track.create (TRACK_LOOP)
          track.transparency.level.interpolation.set (INTERP_FRONT)
          init ()
        track.end ()

        @spr1=sprite.load ("avo\dinosaur.spr")
        sprite.display (@spr1,200,CENTER)

        @spr2=sprite.load ("avo\dinosaur.spr")
        sprite.display (@spr2,300,CENTER)

        @sequence1=sequence.play (@track1,@spr1,TRACK_KEEPALL)
        @sequence2=sequence.play (@track2,@spr2,TRACK_KEEPALL)

        text.display ("Press a key to exit.",CENTER,350)

        keyboard.wait ()

        script.stop ()

        procedure init ()
          track.key.set(0)
          track.key.transparency.level.set(255)
          track.key.set(1)
          track.key.transparency.level.set(128)
          track.key.set(2)
          track.key.transparency.level.set(64)
          track.key.set(3)
          track.key.transparency.level.set(0)
        end procedure