C TERDIS.FTN C C TEAR DOWN THE DISPLAY OF NAME, ADDRESS, ETC. C I.E. PLACE THE INFORMATION BACK IN THE ARRAY BUF C SUBROUTINE TERDIS(BUF,BDAY) BYTE BUF(84),TEM(10),BCON(2),BDAY(2) INTEGER COUN INTEGER BITTER EQUIVALENCE (COUN,BCON(1)) CALL SCOPY(BUF,TEM,10,75,1) ! SAVE LAST 10 CHARACTERS CALL ASBIN(TEM(2),I,2) ! PROFESSION FROM ASCII TO BIN BUF(77)=I CALL ASBIN(TEM(4),I,2) ! ORG FROM ASCII TO BIN BUF(76)=I DO 150 I=1,5 CALL BITTER(COUN,I,2) ! DEFAULT FOR ORGANI IS NO IF(TEM(I+5).EQ."131)CALL BITTER(COUN,I,1) ! CHANGE IF YES 150 CONTINUE BUF(81)=BCON(1) ! PLACE WORD FOR COUN IN BUF BUF(82)=BCON(2) BUF(79)=BDAY(1) ! PLACE THE DAY BACK IN BUF BUF(80)=BDAY(2) RETURN END