*COMDECK ALALFANUM
      LOGICAL FUNCTION ALFANUM(CHAR)
C 
C 
C     THIS ROUTINE INSPECTS THE CHARACTER PASSED IN CHAR (1R1), 
C     AND RETURNS A .TRUE. VALUE IF IT IS ALPHA, NUMERIC OR $.
C 
*CALL ALCOMMON
C     INITIALIZE TO NON-ALPHANUMERIC
C 
      ALFANUM=.FALSE. 
C 
C     LETRDIG (LETTER-DIGIT) DISCRIMINATES BETWEEN ALFABETICS 
C     AND NUMBERS, EITHER OCTAL OR DECIMAL. 
C 
      LETRDIG = 0 
C 
C     SET TO ALPHA-NUMERIC IF A-Z, 0-9 OR $.
C 
      IF (CHAR.GE.A .AND. CHAR.LE.Z) GO TO 10 
      IF (CHAR.GE.ZERO .AND. CHAR.LE.NINE) GO TO 20 
      IF (CHAR.EQ.DOLLAR) GO TO 20
      RETURN
  10  ALFANUM = .TRUE.
      LETRDIG = 1 
      RETURN
  20  ALFANUM = .TRUE.
      LETRDIG = 2 
      RETURN
      END 
C 
C 
