/*REXX*/
/*--- ISODD ------MS/PCDOS/WIN/NIX ---------- 2019 - Mark McDonald ---*/
/*  Deterime If a number is odd                                       */
/*--------------------------------------------------------------------*/
NUMERIC DIGITS 50                          ;/*Important TOO small bad */
DO C=1 FOR 100
   T = CHAROUT('',C'*'ISODD(C)' ')         ;/*Call Funcion/Display    */
END
PULL Z                                     ;/*Press ENTER             */
EXIT
/*--- ISODD(N) -------------------------------------------------------*/
ISODD: PROCEDURE
 ARG X
 IF (DATATYPE(X,"W") = 1) & (POS(RIGHT(X,1),"13579") > 0) THEN RETURN 1
RETURN 0