PROGRAM GETDIR LOGICAL*1 DEV1(3),DEV2(3),DEV1NM(14),DEV2NAM(14) WRITE(7,1) 1 FORMAT(' PLEASE ENTER THE NAME OF THE FIRST DEVICE TO CHECK') READ(5,2)DEV1 2 FORMAT(3A1) WRITE(7,3) 3 FORMAT(' NAME OF SECOND DEVICE') READ(5,2)DEV2 CALL ASSIGN(1,'GETDIR.COM',0,'NEW','NC',1) REWIND 1 WRITE(1,5)1,DEV1 WRITE(1,5)2,DEV2 5 FORMAT(1X,'DIR/SORT:TYPE/OUTPUT:DEV',I1,'.DIR'1X,3A1,':') CALL CLOSE(1) REWIND 1 STOP END