CLEAR ON ERROR ?? MESSAGE() ? "EXPECTED Y" * CORRECT ? 'Input datatype I : ',VARTYPE(NTOM(CAST(NULL AS I)),.T.) ? 'Input datatype N : ',VARTYPE(NTOM(CAST(NULL AS N)),.T.) ? 'Input datatype Y : ',VARTYPE(NTOM(CAST(NULL AS Y)),.T.) * INCORRECT ? 'Input datatype X : ',VARTYPE(NTOM(NULL),.T.) ? 'Input datatype B : ',VARTYPE(NTOM(CAST(NULL AS B)),.T.) ? "EXPECTED N" * CORRECT ? 'Input datatype I : ',VARTYPE(MTON(CAST(NULL AS I)),.T.) ? 'Input datatype N : ',VARTYPE(MTON(CAST(NULL AS N)),.T.) ? 'Input datatype Y : ',VARTYPE(MTON(CAST(NULL AS Y)),.T.) * INCORRECT ? 'Input datatype X : ',VARTYPE(MTON(NULL),.T.) ? 'Input datatype B : ',VARTYPE(MTON(CAST(NULL AS B)),.T.)