INTEGER FUNCTION GCHAR (BUF, INDEX)   
      INTEGER  BUF (66), I, INDEX   
      I = ISHFT (INDEX+1, -1)   
      IF (.NOT. (IAND (INDEX, 1) .NE. 0))GO TO 13000
    
      GCHAR = ISHFT (BUF (I), -8)   
      GO TO 13001   
13000 CONTINUE  
    
      GCHAR = IAND (BUF (I), 255)   
13001 CONTINUE  
    
      RETURN
      END