C C H A I N C - - - - - BYTE BUFF(80) INTEGER COUNT EQUIVALENCE(BUFF(1),COUNT) LENGTH=80 CALL RECV(BUFF,LENGTH,ISNDER) WRITE(5,1)(BUFF(J),J=3,COUNT+2),ISNDER CALL EXIT 1 FORMAT(' CHAIN MESSAGE RECEIVED ="',50A,'" FROM :',I6) END