Função do Clipper

[Nádia Nara]

Amigos,

Estou precisando de uma função que me mostre se um determinado
número é par ou ímpar. Pensei em um cálculo de divisão que se a resposta for um inteiro é par, caso contrário é impar. Porém, como fazer ?

Aguardo uma resposta.

Um abraço !

[MARINI]

Um simples exemplo:


FOR i:=1 TO 10
@ i,5 SAY STR(i)+"="+IF(PARIMPAR(i),"PAR","IMPAR")
NEXT


FUNCTION PARIMPAR(f1)
RETURN(f1%2=0) // retorna .T.=PAR e .F.=IMPAR