100 REMark Open the directory
110  OPEN_DDIR #3;FLP2_
115  SORDKEY #3;12
120 REMark Put it in ascending alphabetical order
130  ORDER #3;"NAME$",1
140 REMark Remove all blank entries
150  EXCLUDE #3;"NAME$","=",""
160 REMark Print out all remaining entries
170  PRINT
180  FOR F=0 TO COUNT(#3)-1
190   RPOSAB #3;F
200   PRINT FETCH(#3;"NAME$")
210  END FOR F
220  CLOSE_DATA #3
