XProfan

Windowtitle "LONG-INVERT       Ende mit ESC"
' (Demoware) 2012-12 by P.Specht; KEINE GEWÄHR!
cls:font 2:randomize:declare wert&,ret$

repeat

    wert&=rnd(2^32-1)
    print translate$(binwert(wert&),"0"," ")
    print translate$( bininv(wert&),"0"," ")
    print
    waitinput 1000

until %key=27

end

proc bininv

    parameters inv&
    return "%"+right$(mkstr$("0",32)+bin$(4294967295-inv&),32)

endproc

proc binwert

    parameters wer&
    return "%"+right$(mkstr$("0",32)+bin$(wer&),32)

ENDPROC