XProfan

Declare LongInt1&,LongInt2&,BitCount%
Window 0,0-%MAXX,%MAXY
LET LongInt1&=+(2^31)-1
Print "LongInt-Wert von (2^31)-1=";LongInt1&
Let BitCount%=0

While Bitcount%<32

    Print Bitcount%;"=";@Testbit(LongInt1&,Bitcount%)
    inc Bitcount%

wend

LET LONGINT2&=0
Print ""
Print "Vor dem Setzen des Bits: ";LONGINT2&
LET LongInt2&=@Setbit(LongInt2&,31,1)
PRINT "Letztes Bit gesetzt: ";LongInt2&
Print "Bit 31=";@Testbit(LongInt2&,31)
LET LongInt2&=-(2^31)+1
Locate 0,40
Print "LongInt-Wert von -(2^31)+1=";LongInt2&
Let Bitcount%=0

While Bitcount%<32

    Locate Bitcount%+2,40
    Print Bitcount%;"=";@Testbit(LongInt2&,Bitcount%)
    inc Bitcount%

wend

Waitinput