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


        screen.resolution.set (512,384)

        text.display ("Wait untill counter has reached 1. Then, press a key to exit.",CENTER,350)

        text.font.select ("arial")
        text.char.height.select (128)

        @count=event.time.create (counter.manager,0.5,9,%custom)

        keyboard.wait ()

        script.stop ()

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