!
! FINDFILE demo by Kenneth Moore 10-12-95
!
FILTER$ = "C:\ZEMAX-EE\SAMPLES\*.ZMX"
!
PRINT "Listing of all ZEMAX files in ", FILTER$
!
FINDFILE TEMPFILE$, FILTER$
LABEL 1
if (SLEN(TEMPFILE$))
	PRINT TEMPFILE$
	FINDFILE TEMPFILE$, FILTER$
	GOTO 1
ENDIF
PRINT "No more files."





