XProfan

 {$cleq}
 {$compiler c:compilerx11rc3}
 {$runtime c:compilerx11rc3}
windowStyle 1024 | 80
window 0,0 - 0,0
setWindowPos hWnd=(maxx*0.5-2),(maxy*0.5-2) - 4,4;-1
messages de l'utilisateur wm_close
setTimer 100

do {

    waitInput

    sélectionner %uMessage

        caseof wm_close

        pause

    EndSelect

    cas wmtimer : cls rnd(16777215)

}

killtimer
end