3,5d2
< ; Modifications:
< ;  2002/11/15, nbr - Add 'fts' to extension list
< ;
13,14c10
< ;get file extensions - we only want '.dat', '.img' and '.raw' and
< ;			.fit, .fits, .fts in good_f
---
> ;get file extensions - we only want '.dat', '.img' and '.raw' in good_f
21c17
<     	    	    	    	or ext eq 'fit' or ext eq 'fits' or ext eq 'fts'))
---
>     	    	    	    	or ext eq 'fit' or ext eq 'fits'))
24c20
<     	    	    	    	or ext eq 'fit' or ext eq 'fits' or ext eq 'fts'))
---
>     	    	    	    	or ext eq 'fit' or ext eq 'fits'))