*COMDECK ALNUM
      LOGICAL FUNCTION NUM (CHAR) 
C 
C 
C 
C        THIS ROUTINE RETURNS A LOGICAL TRUE VALUE IF CHAR
C        IS A VALID NUMERIC DIGIT (0-9, A-F, OR $)
C 
C 
*CALL ALCOMMON
C 
C        INITIALLY SET THE FUNCTION FALSE.
C 
      NUM = .FALSE. 
C 
C        SET IT TRUE IF CHAR HAPPENS TO BE IN RANGE.
C 
      IF (CHAR.GE.ZERO .AND. CHAR.LE.NINE) NUM = .TRUE. 
      IF (CHAR.GE.A .AND. CHAR.LE.F) NUM = .TRUE. 
      IF (CHAR.EQ.DOLLAR) NUM = .TRUE.
      RETURN
      END 
C 
C 
