XProfan

WindowTitle "Beweis, dass  es geht:"
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%=&Loop

        select If(i%=0,a&, If(i%=1,b$, If(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
        case %key=27:end

    endwhile

until 0