//    Instruction Example :     objectid event.collision.create (label,objectid,long,long)


        screen.resolution.set (512,384)

        screen.set (BACK)
          pattern.display ("avo\bubble.gif")
        screen.end ()

        @spr1=sprite.load ("avo\dinosaur.spr")
        @spr2=sprite.clone (@spr1)

        @col1=event.collision.create (collision.manager,@spr1,1,%custom)
        @col2=event.collision.create (collision.manager,@spr2,2,%custom)

        sprite.play (@spr1)
        sprite.play (@spr2)

        @sequence=track.create (TRACK_LOOP|TRACK_PINGPONG)
          track.key.set (0)
            track.key.position.set (128,CENTER)
            track.key.action.set (1)
          track.key.set (2)
            track.key.position.set (512-27-128,CENTER)
            track.key.action.set (2)
        track.end ()

        @animation1=sequence.play (@sequence,@spr1,TRACK_KEEPALL)
        sequence.time.seek (@animation1,2)
        @animation2=sequence.play (@sequence,@spr2,TRACK_KEEPALL)

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

        keyboard.wait ()

        script.stop ()

        procedure collision.manager ()
          sound.play ("Error.wav",CHANNEL_1,SOUND_ONE_SHOT)
          if (sprite.action.get (@spr1)==1)
            sprite.action.set (@spr1,3)
            time.wait (0.2)
            sprite.action.set (@spr1,1)
          else ()
            sprite.action.set (@spr2,3)
            time.wait (0.2)
            sprite.action.set (@spr2,1)
          endif ()
        end procedure