/*--- XMKLOWER - MS/PCDOS/DOSBOX/Unix/Linux - 2005 Mark McDonald -----*/
/* XMKLOWER Returns Lower Case String                                 */
/*--------------------------------------------------------------------*/
  XMKLOWER: PROCEDURE
   ARG X
    XR = TRANSLATE(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
  RETURN XR