Infinity-Profan

ui.grid=gui.grid gui.hwnd [3,3]
ui.img=gui.image [ui.grid,2,2] "../res/appicon.png"
dev.thread.settimer 1000 @p1 true
dev.thread.settimer 500 @p2

proc p1

    global ui
    gui.show [ui.grid,2,2] 1// or true

endproc

proc p2

    global ui
    dev.thread.settimer 1000 @p2
    gui.show [ui.grid,2,2] 0// or false

endproc

proc event id data

    case id==event.backkey : end

    if id==event.button

        cls
        print id
        print data

    endif

endproc