SUBROUTINE REW(CHAN,FILE) 
      INTEGER CHAN,FILE(1)  
      REWIND CHAN   
      RETURN
      END   
    
      SUBROUTINE  RDLIN (CHAN, BUFFER, MAX, ERROR)  
      INTEGER     CHAN, BUFFER (1), MAX, ERROR  
      INTEGER     WORDS 
      WORDS = (MAX + 3)/4   
      READ (CHAN, 1000, END = 100) (BUFFER (I), I = 1, WORDS)   
      ERROR = 1 
      RETURN
  100 ERROR = 9 
      RETURN
 1000 FORMAT (20A4) 
      END   
      SUBROUTINE WRLIN(CHAN,BUFFER,CHARS)   
      INTEGER CHAN,BUFFER(1),CHARS  
      INTEGER WORDS,PNTR,FMT(6),BBBB,Z100,Z3030 
      DATA FMT/'(','1X',',',1,'A4',')'/ 
      DATA BBBB/'  '/,Z100/Z100/,Z3030/Z20203030/   
      WORDS=(CHARS+3)/4 
      IT=WORDS+1
      DO 10 IK=1,WORDS  
      PNTR=IT-IK
      IF(BUFFER(PNTR).NE.BBBB)GOTO 20   
   10 CONTINUE  
   20 CONTINUE  
      FMT(4)=(PNTR/10*Z100)+(PNTR-(PNTR/10)*10)+Z3030   
      WRITE(CHAN,FMT)(BUFFER(I),I=1,PNTR)   
      RETURN
      END   
    
      SUBROUTINE  RDSEQ (CHAN, BUFFER, COUNT, ERROR)
      INTEGER     CHAN, COUNT, BUFFER (COUNT), ERROR
      INTEGER     WORDS 
      WORDS = (COUNT + 3)/4 
      READ (CHAN, 1000, END = 100) (BUFFER (I), I = 1, WORDS)   
      ERROR = 1 
      RETURN
  100 ERROR = 9 
      RETURN
 1000 FORMAT (1A4)  
      END   
      SUBROUTINE  WRSEQ (CHAN, BUFFER, COUNT)   
      INTEGER     CHAN, COUNT, BUFFER (COUNT)   
      INTEGER     WORDS 
      WORDS = (COUNT + 3)/4 
      WRITE (CHAN, 1000) (BUFFER (I), I = 1, WORDS) 
      RETURN
 1000 FORMAT (1A4)  
      END