FTN,L,T,B 
      PROGRAM V3485 
      DIMENSION DATA(10)
      IDRT=7
      WRITE(1,1000) 
      DO 20 IFIL=0,1
      WRITE(1,2000) 
C     READ CHANNELS 1 TO 10 IN RANDOM MODE
      DO 10 I=1,10
   10 CALL R3485(IDRT,DATA(I),1,I,21B+IFIL*64)
C     PRINT THE DATA
      WRITE(1,6000)(I,DATA(I),I=1,10)   
      WRITE(1,3000) 
C     READ CHANNELS ONE TO FIVE IN SEQUENTIAL MODE
      CALL R3485(IDRT,DATA(1),5,1,20B+IFIL*64)
C     READ CHANNELS SIX TO TEN IN SEQUENTIAL MODE 
      CALL R3485(IDRT,DATA(6),5,6,20B+IFIL*64)
C     PRINT THE DATA
      WRITE(1,6000)(I,DATA(I),I=1,10)   
      WRITE(1,4000) 
C     READ CHANNEL SEVEN "TEN TIMES" IN DIGITIZE MODE 
      CALL R3485(IDRT,DATA,10,7,22B+IFIL*64)
C     PRINT THE DATA
      WRITE(1,6000)(7,DATA(I),I=1,10)   
      IF(IFIL)20,15,20
   15 WRITE(1,7000) 
   20 CONTINUE
      WRITE(1,5000) 
 1000 FORMAT(3/,15X,"3485 VERIFICATION TEST",3/)
 2000 FORMAT(2/,"RANDOM MODE:") 
 3000 FORMAT(2/,"SEQUENTIAL BLOCK MODE:") 
 4000 FORMAT(2/,"DIGITIZE MODE:") 
 5000 FORMAT("END OF TEST") 
 6000 FORMAT(5X,"CHANNEL # ",I2," = ",E11.5)  
 7000 FORMAT(4/,"WITH FILTER ENABLED,") 
    1 CONTINUE
      END 
      END$
                                                                                  