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 falso

ENDPROC

proc event id data

    caso id==event.backkey : end

    if id==event.button

        cls
        imprimir id
        imprimir data

    endif

ENDPROC