SUBROUTINE PCHAR (BUF, INDEX, CHAR)   
      INTEGER  BUF (66), INDEX, CHAR
      INTEGER  I
      I = ISHFT (INDEX+1, -1)   
      IF (.NOT. (IAND (INDEX, 1) .NE. 0))GO TO 13002
    
      BUF (I) = IAND (BUF (I), 255) + ISHFT (CHAR, 8)   
      GO TO 13003   
13002 CONTINUE  
    
      BUF (I) = IAND (BUF (I), -256) + IAND (CHAR, 255) 
13003 CONTINUE  
    
      RETURN
      END