	PROGRAM DIRECTORY

C	An example of how to call subroutine SHODIR

	CHARACTER*5 FILENAME
        INTEGER*4   FLAGS

	FILENAME = '*.*;*'
	FLAGS = '0'X		!Bit 0 clear, bit 1 clear = /NOSIZE /NODATE
C	FLAGS = '1'X		!Bit 0 set,   bit 1 clear = /SIZE   /NODATE
C	FLAGS = '2'X		!Bit 0 clear, bit 1 set   = /NOSIZE /DATE
C	FLAGS = '3'X		!Bit 0 set,   bit 2 set   = /SIZE   /DATE

	CALL SHODIR(FILENAME,FLAGS)

	END
