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
userMessages wm_close
setTimer 100

do {

    waitInput

    select %uMessage

        caseof wm_close

        break

    endSelect

    case wmtimer : cls rnd(16777215)

}

killtimer
end