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
mensajes de los usuarios wm_close
setTimer 100

do {

    waitInput

    seleccionar %uMessage

        caseof wm_close

        romper

    EndSelect

    caso wmtimer : cls rnd(16777215)

}

killtimer
end