INTEGER FUNCTION GCHAR(BUF,INDEX) 
      INTEGER BUF(1),INDEX  
      INTEGER SHIFT(4),MASK(4),IPOS 
      DATA  MASK/ZFF000000,Z00FF0000,Z0000FF00,Z000000FF/   
      DATA SHIFT/      -24,      -16,       -8,        0/   
      I=ISHFT(INDEX+3,-2)   
      IPOS=IAND(INDEX-1,3)+1
      GCHAR=ISHFT(IAND(BUF(I),MASK(IPOS)),SHIFT(IPOS))  
      RETURN
      END