//    Instruction Example :      event.freeze (long)


        screen.resolution.set (512,384)

        text.display ("Press any key to freeze.",CENTER,10)

        text.font.select ("arial")


        @count=event.time.create (counter.manager,0.5,100)

        text.display ("Press a key to freeze the event. ",CENTER,10)
        keyboard.wait ()

        event.freeze (TRUE)
        text.display ("Press a key to unfreeze the event.",CENTER,10)
        keyboard.wait ()

        event.freeze (FALSE)

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

        keyboard.wait ()

        script.stop ()

        procedure counter.manager (@event,%status)
          text.char.height.select (128)
          text.display (" "+str(%status)+" ",CENTER,CENTER)
          text.char.height.select (10)
        end procedure