Bit und Byte Operation

[chr-mt]

Dim a as byte

a=&B00100111

If a.5= 0 then
gosub mach_was
else
gosub mach_was_anderes
endif


Siehe auch Bascom Hilfe zu "IF-THEN-ELSE-END IF"

Gruß
Christopher