For example:

CREATE CURSOR Test (Field1 I NULL)
FOR lnCount = 1 TO 20
INSERT INTO Test VALUES (lnCount)
ENDFOR
INSERT INTO Test VALUES (NULL)

COUNT FOR Field1=10 AND IsEven(Field1)

FUNCTION IsEven(tnNumber)
? "Number is: " + TRANSFORM(tnNumber)
RETURN (MOD(tnNumber, 2) = 0)
ENDFUNC

Fabio