; ; ------------------------------------------------------------ ; ; SpiderBasic - System example file ; ; (c) Fantaisie Software ; ; ------------------------------------------------------------ ; Global Start = ElapsedMilliseconds() Procedure TimerEvent() Debug "Elapsed time in ms: " + Str(ElapsedMilliseconds()-Start) EndProcedure OpenWindow(0, 10, 10, 100, 100, "Timer", #PB_Window_TitleBar) AddWindowTimer(0, 0, 1000) BindEvent(#PB_Event_Timer, @TimerEvent())