XProfan

cls
print Gerade_oder_Ungerade(7)
print Gerade_oder_Ungerade(900)
print Gerade_oder_Ungerade(32879237497893)
waitinput

Proc Gerade_oder_Ungerade

    Parameters number%
    Return If(number% MOD 2=0,"Gerade","Ungerade")

Def Gerade_oder_Ungerade(1) If(@%(1) MOD 2=0,"Gerade","Ungerade")
cls
imprimir Gerade_oder_Ungerade(7)
imprimir Gerade_oder_Ungerade(900)
imprimir Gerade_oder_Ungerade(32879237497893)
waitinput

Def NotEven(1) &(1) Mod 2

WhileLoop 20

    Print &Loop,&Loop Mod 2,NotEven(&Loop)

Wend

WaitI

cls
print nValueIsEvenBench()/valueIsEvenBench(),"times faster"
waitinput
end

valueIsEvenBench(){

    long c,tme=getTickCount+1000

    while getTickCount<tme {

        valueIsEven(getTickCount)
        c++

    }

    return c

}

nProc nValueIsEvenBench(){

    long c,tme=getTickCount+1000

    while getTickCount<tme {

        nValueIsEven(getTickCount)
        c++

    }

    return c

}

valueIsEven(long value){return value mod 2}

nProc nValueIsEven(long value){return value mod a>}