SUBROUTINE TREC(IN,OUT) C C This subroutine takes a 512-byte binary string and converts it C to printable ASCII characters. C C Subroutines called: C ASC4 C BYTE IN(513),OUT(684) ! IPT=1 !Points to 3 bytes to convert. OPT=1 !Points to 4 converted bytes. DO 10 I=1,171 !Scan through the 512 bytes. CALL ASC4(IN(IPT),OUT(OPT)) !Convert them 3 at a time. IPT=IPT+3 !Point to next OPT=OPT+4 !section to do. 10 CONTINUE ! RETURN ! END