C DIRECT.FTN 11-APR-79 MRF C PROGRAM TO LIST DIRECTORY USING FIND OPERATIONS WITH WILDCARDS PROGRAM DIRECT C NAME IS AN ASCII STRING TERMINATED BY A ZERO C NAME MAY CONTAIN WILDCARD OPERATORS C I. E. *.* WILL LIST ALL FILES ON THE SYSTEM DEVICEUNDER CURRENT UIC LOGICAL*1 IN(2),NAME(30) INTEGER*2 IPAR(6) LOGICAL*1 FDBIN(128) COMMON/MYFDB/FDBIN COMMON/VABORT/IABORT 1 WRITE(5,101) 101 FORMAT(' ENTER DIRECTORY NAME') READ(5,102)NC,NAME 102 FORMAT(Q,30A1) NAME(NC+1)="73 !APPEND ;* TO END OF NAME NAME(NC+2)="52 NAME(NC+3)=0 CALL PARSE(FDBIN,NAME,1) !FILE NAME ON UNIT 1 IERR=0 5 CALL FIND(FDBIN,IERR) IF(IERR.LT.0)GO TO 1000 !FILE NOT FOUND DO 10 I=1,30 10 NAME(I)="40 !BLANK NAME CALL FILTOA(FDBIN(73),NAME,II) !CONVERT NAME TO ASCII WRITE(5,105)(NAME(I),I=1,II) 105 FORMAT(1X,30A1) IFST=1 GOTO 5 1000 IF(IFST.EQ.0)WRITE(5,103)NAMES,IERR 103 FORMAT(' FILE ',30A1,' NOT FOUND',I6) GOTO 1 END