SUBROUTINE LSTDIR C*********************************************************************** C C Author: Nick Bourgeois Version: 91c21a C 9605 Giddings Ave. NE C Albuquerque, NM 87109 C (505) 828-9566 C C C Description: C C List the directory information on the terminal. C C C Edit Record: C C 20-Mar-91: Original creation started. C 21-Mar-91: Original creation completed. C C C Calling sequence: C C FieldC = C FldIdI = C FldLnI = C CALL LSTDIR C C C Called By: C C GETDIR C C*********************************************************************** INCLUDE 'EXTFLS.DAT' !Common & variables declarations IF (FldIdI .EQ. 42) THEN TYPE *,'File Name: ',FieldC(1:FldLnI) END IF RETURN END !LSTDIR.FOR. !