C S U B T A S K 2 C - - - - - - - - BYTE BUFF(40) INTEGER COUNT EQUIVALENCE (BUFF(1),COUNT) LENGTH=40 CALL RECV(BUFF,LENGTH,ISNDER) IF (ISNDER.NE.-1)GOTO 200 CALL SENTS(BUFF,-1) 100 CALL EXIT 200 WRITE(5,201) 201 FORMAT(' SUBTASK ERROR') GOTO 100 END