XProfan

declare testram#
dim testram#,200000
cls
test()
WaitInput
end

proc test

    int b;
    int g;
    int r;
    int n;
    int wert;
    wert=199000;
    for(n = 0; n <= wert; n = n + 1)

    {

        b=byte(testram#+n) & 255;
        g=byte(testram#+n+1) & 255;
        r=byte(testram#+n+2) & 255;

        if ((r==0) & (b==0) & (g==0))

            byte testram#,n+3=0;

        else

            {

                byte testram#,n+3=255;

            }

            byte testram#,n+2=b;
            byte testram#=r;

        }

    ENDPROC

"Dev-Cpping++.exe" -c PrfMain.cpp -o .objPrfMain.o -I"Dev-Cppinclude" -I"Dev-Cppincludec++" -I"Dev-Cppincludec++ackward" -I"Dev-Cppincludec++mingw32" -L"Dev-Cpplib" -B"Dev-Cppin" -fexceptions -s -mwindows -w -O2 -fno-elide-constructors -Wno-deprecated

"Dev-Cpping++.exe" -c cpp-test.cpp -o .objcpp-test.o -I"Dev-Cppinclude" -I"Dev-Cppincludec++" -I"Dev-Cppincludec++ackward" -I"Dev-Cppincludec++mingw32" -L"Dev-Cpplib" -B"Dev-Cppin" -fexceptions -s -mwindows -w -O2 -fno-elide-constructors -Wno-deprecated

cpp-test.cpp: In function `p_variant Proc_test(int, ...):

cpp-test.cpp:56: declaration of `n shadows a parameter

cpp-test.cpp:61: parse error before `<= token

cpp-test.cpp:61: parse error before `) token

cpp-test.cpp:63: non-lvalue en unary `&

cpp-test.cpp:64: non-lvalue en unary `&

cpp-test.cpp:65: non-lvalue en unary `&

cpp-test.cpp:66: parse error before `== token

cpp-test.cpp:66: parse error before `== token

cpp-test.cpp:66: parse error before `== token

cpp-test.cpp:76: parse error before `) token

cpp-test.cpp:185: parse error at end of input

Dev-Cppinmake.exe: *** [".objcpp-test.o"] Error 1

Finished.