SUBROUTINE SDBLK8(BLOCK, COUNT) C THIS ROUTINE TAKES THE BLOCK AS BUFFERED C IN GETBLK AND TRANSMITS IT TO THE GT40 IMPLICIT INTEGER (A - Z) INTEGER BLOCK(500) WORD = 1 BYTEP = 0 DO 10 I = 1, COUNT + 1 BYTEP = BYTEP + 1 BYTE = GFIELD(BLOCK(WORD), (BYTEP - 1) * 8 + 4, 8) CALL SNDCHR(BYTE) IF(BYTEP .LT. 4) GO TO 10 WORD = WORD + 1 BYTEP = 0 10 CONTINUE RETURN END