100 DEF ODD(X)=MOD(X,2)
110 INPUT PROMPT "Enter a number: ":X
120 IF ODD(X) THEN
130 PRINT X;"is odd."
140 ELSE
150 PRINT X;"is even."
160 END IF