//    Instruction Example :      sprite.action.set (objectid,long)


        screen.resolution.set (512,384)

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

        text.display ("Press a key to bring forward frames and actions.",CENTER,50)
        @spr=sprite.load ("avo\dinosaur.spr")
        if (@spr!=0)
          %action_number=sprite.action.number.get (@spr)
          for (%action=1 to %action_number)
            sprite.action.set (@spr,%action)
            %frame_number = sprite.frame.number.get (@spr)
            for (%frame=1 to %frame_number)
              sprite.frame.display (@spr,CENTER,CENTER,%frame)
              text.display ("Action(s):"+str(%action)+"/"+str(%action_number),CENTER,10)
              text.display ("Frame(s) :"+str(%frame)+"/"+str(%frame_number),CENTER,30)
              keyboard.wait ()
            next ()
          next ()
        endif ()

        sprite.free (@spr)

        script.stop ()