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$