Basic - Pares sin MOD

Necesito un procedimiento que averigue los numeros pares sin usar el mod ni la division, por favor, rapido, es para

---hasta donde sè esa funciòn no la posee ningun QBasic y la utilizacion del MOD es uno de los mètodos mas cortos
---mucha mejor suerte

hay una forma mucha mas rápida

resultado = numero and 1
si da 0 es par, si no es impar
otra forma rapida es

if (numero and 1) then else

ejecuta el then si es impar, ejecuta el "else" si es par

saludos

---hice unas pruebas y el resultado&= nro and uno es mas rapido que el resultado&= nro mod dos en un 0.558327 por ciento
---lo que significa que cuando el
MOD saca 1,000,000 el
AND saca 1,005,583 nrs pares
---saludos