XProfan

Titre de la fenêtre "Beweis, dass  und dir:"
cls
var a&=2
var b$="0"
var c%=1
var d!=3.3
var i%=0
var f&=0

repeat

    whileloop 0,3:i%=&Boucle

        sélectionner Si(i%=0,a&, Si(i%=1,b$, Si(i%=2,c%, d!)))

            caseof "0":f&=rgb(255,0,0)

            caseof 1:f&=rgb(0,255,0)

            caseof 2:f&=rgb(0,0,255)

            caseof 3.3:f&=rgb(255,255,0)

        endselect

        usebrush 1,f&
        rectangle i%*8,(i%*8) - (width(%hwnd)+i%*8-32),height(%hwnd)+i%*8-32
        waitinput 200
        cas %clé=27:end

    endwhile

until 0