C  FORTRAN RETRIEVAL CODE TO READ AND PRINT THE HCN/D STATION                   
C  HISTORY FILE (FILE 9 ON THE MAGNETIC TAPE)                                   
C                                                                               
      DIMENSION DATA(54)                                                        
1      CONTINUE                                                                 
        READ(5,100,END=99) (DATA(I),I=1,54)                                     
100     FORMAT(54A4)                                                            
        WRITE(6,101) (DATA(I),I=1,54)                                           
101     FORMAT(1X,32A4,/,1X,22A4)                                               
        GO TO 1                                                                 
 99    CONTINUE                                                                 
      STOP                                                                      
      END