BASCOM kennt den Befehl MOD.

Mit Var2 = Var1 MOD 2
bekommst Du in Var2 den Wert 1 für Ungerade und 0 für Geraden Inhalt von Var1

Viele Grüße
Josef