C BLDDIS.FTN C C A SUBROUTINE TO BUILD THE DISPLAY FOR LABELS ALONG WITH THE ADDRESS, C AND WHICH FILES THEY ARE IN C SUBROUTINE BLDDIS(BUF,DAYSAV, NLIST) INTEGER COUN,DAY,DAYSAV INTEGER BITTER BYTE CHAR BYTE BUF(84),TEM(10) EQUIVALENCE (COUN,TEM(7)),(DAY,TEM(5)) CALL SCOPY(BUF,TEM,10,75,1) ! SAVE THE LAST 9 CHARACTERS CALL CUR(5,5) ! CURSOR 5 DOWN, 5 TO RIGHT CALL PUT(BUF,70) ! DISPLAY ADDRESS WRITE(5,10) 10 FORMAT(I5) ! HOPEFULLY THIS PUTS OUT CR C C DISPLAY ZIPCODE CALL CUR(6,16) WRITE(5,110) 110 FORMAT('+ZIP CODE:') CALL CUR(6,30) CALL PUT(BUF(71),5) ! THIS IS ZIPCODE C C PROFESSION CALL CUR(7,15) WRITE(5,115) 115 FORMAT('+PROFESSION') CALL CUR(7,30) I=TEM(3) ! THIS IS PROFESSION CALL BINAS(I,BUF(76),2) CALL PUT(BUF(76),2) ! WRITE PROFESSION TO SCREEN C C ORGANIZATION CALL CUR(8,13) WRITE(5,120) 120 FORMAT('+ORGANIZATION') CALL CUR(8,30) I=TEM(2) CALL BINAS(I,BUF(78),2) ! THIS IS ORGANIZATION CALL PUT(BUF(78),2) C DO 150 I=1,NLIST+1 CALL CUR(8+I,5) CALL TITLE(I, 5, NLIST) CALL CUR(8+I,30) J=BITTER(COUN,I,3) ! = 1 IF IN THIS ORGANIZATION CHAR="116 ! DEFAULT IS CHAR IS NO IF(J.EQ.1)CHAR="131 ! TURN TO Y IF IN THE ORGANIZATION BUF(79+I)=CHAR CALL PUT(CHAR,1) WRITE(5,10) ! NEED A CR AGAIN. 150 CONTINUE CALL CUR(14,12) CALL DATODA(I,J,K,DAY,3) WRITE(5,160)I,J,K 160 FORMAT('+LAST CONTACT ',3I3) DAYSAV=DAY RETURN END