C PROGRAM: TOWED-STD-CV 
C DATE: 08/96    BY: K. LEVINSON
C THIS PROGRAM WAS RUN AGAINST TAPES: D00897, D00905 AND D00934.
C THIS PROGRAM CONVERTS THE BINARY DATA TO ASCII CHARACTERS.
C   THE DATA COMES FROM AN HP 16-BIT COMPUTER.  
      DIMENSION IO(2)   
      INTEGER*4 ARRAY(362)  
      CHARACTER*14 CARRAY(362)  
C INPUT AND OUTPUT FILES
      DEFINE FILE 15(ANSI,U,1448,1448)  
      DEFINE FILE 16(SDF,,1267) 
C READ AN INPUT BINARY RECORD   
C ADD TO INPUT RECORD COUNTER   
100   READ(15,END=999,IOSTAT=ITEST) (ARRAY(I),I=1, 362) 
      IO(1)=IO(1)+1 
C PROCESS EACH INPUT BINARY WORD
      DO 200 I=1, 362   
C PROCESS EACH hp WORD AS HALF-WORDS FROM UNISYS
      I1=BITS(ARRAY(I),2,17)
      I2=BITS(ARRAY(I),20,17)   
C CONVERT TO ASCII CHARACTERS   
      WRITE(CARRAY(I)(1:14),'(2I7)') I1,I2  
200   CONTINUE  
C WRITE EACH CONVERTED OUTPUT RECORD
C ADD TO OUTPUT COUNTER 
      WRITE(16,'(362A14)') (CARRAY(I),I=1, 362) 
      IO(2)=IO(2)+1 
C RETURN TO READ OF NEXT INPUT BINARY RECORD
      GO TO 100 
C PRINT COUNTERS
999   PRINT *,'INPUT RECORD COUNT ',IO(1)   
      PRINT *,'OUTPUT RECORD COUNT ',IO(2)  
      END