SUBROUTINE  REW (CHAN, FILE) 
      INTEGER     CHAN, FILE (15) 
      REWIND CHAN 
      RETURN 
      END 
 
      SUBROUTINE  RDLIN (CHAN, BUFFER, MAX, ERROR) 
      INTEGER     CHAN, BUFFER (40), MAX, ERROR 
      INTEGER     WORDS 
      WORDS = (MAX + 1)/2 
      READ (CHAN, 1000, END = 100) (BUFFER (I), I = 1, WORDS) 
      ERROR = 1 
      RETURN 
  100 ERROR = 9 
      RETURN 
 1000 FORMAT (40A2) 
      END 
      SUBROUTINE  WRLIN (CHAN, BUFFER, CHARS) 
      INTEGER     CHAN, BUFFER (66), CHARS 
      INTEGER     WORDS 
      WORDS = (CHARS + 1)/2 
      WRITE (CHAN, 1000) (BUFFER (I), I = 1, WORDS) 
      RETURN 
 1000 FORMAT (1X, 66A2) 
      END 
 
      SUBROUTINE  RDSEQ (CHAN, BUFFER, COUNT, ERROR) 
      INTEGER     CHAN, COUNT, BUFFER (COUNT), ERROR 
      INTEGER     WORDS 
      WORDS = (COUNT + 1)/2 
      READ (CHAN, 1000, END = 100) (BUFFER (I), I = 1, WORDS) 
      ERROR = 1 
      RETURN 
  100 ERROR = 9 
      RETURN 
 1000 FORMAT (1A2) 
      END 
      SUBROUTINE  WRSEQ (CHAN, BUFFER, COUNT) 
      INTEGER     CHAN, COUNT, BUFFER (COUNT) 
      INTEGER     WORDS 
      WORDS = (COUNT + 1)/2 
      WRITE (CHAN, 1000) (BUFFER (I), I = 1, WORDS) 
      RETURN 
 1000 FORMAT (1A2) 
      END