$DEBUG PAGELENGTH(55)

/****************/
/*  A L P H A   */
/****************/

M$ALPHA: DO;

$NOLIST
$INCLUDE ( COMMON.DCL )
$LIST

/****************************************************/
/*                                                  */
/*  PROCEDURE NAME - ALPHA                          */
/*                                                  */
/*  FUNCTION - CHECKS IF A CHARACTER IS ALPHA-      */
/*              NUMERIC, I.E. FROM 'A' TO 'Z',      */
/*              '0' TO '9', AND OPTIONALLY '*'      */
/*              OR '?'.                             */
/*                                                  */
/*  INPUT - CHAR :     BYTE, THE CHARACTER TO BE    */
/*                     CHECKED.                     */
/*          WILDCARD : BOOLEAN, CAUSES '*' AND      */
/*                     '?' TO BE RECOGNIZED AS      */
/*                     ALPHA-NUMERIC.               */
/*                                                  */
/*  OUTPUT - BOOLEAN, RETURNS TRUE IF CHAR IS       */
/*            ALPHA-NUMERIC.                        */
/*                                                  */
/*  LAST UPDATED - 12.4.82 DROR                      */
/*                                                  */
/****************************************************/

ALPHA: PROCEDURE (CHAR,WILDCARD) BOOLEAN PUBLIC;
   DECLARE
      CHAR BYTE,
      WILDCARD BOOLEAN;

   IF WILDCARD AND ((CHAR='?') OR (CHAR='*'))
      THEN RETURN TRUE;
      ELSE RETURN (
         ((CHAR>='A') AND (CHAR<='Z')) OR
         ((CHAR>='a') AND (CHAR<='z')) OR
         ((CHAR>='0') AND (CHAR<='9'))
         );
END ALPHA;

END M$ALPHA;