XProfan

declare e&
windowtitle "Sowas?"
windowstyle ( 1 | 2 | 8 | 16 | 512 )
window 100,100 - 640,480
e&=createedit(%hwnd,"Text",10,10,200,23)
setfocus(e&)

whilenot (%key=2)

    waitinput

    if (%key=13)

        entertaste

    endif

wend

destroywindow(e&)
end

proc entertaste

    messagebox "Juhu?","Windows "+$winver,0
    setfocus(e&)

endproc