DefFnleaf$(a$)
rem When passed a filename, this function returns the leafname
local b$,i%
b$=""
i%=len(a$)
while mid$(a$,i%,1)<>"."
    b$=mid$(a$,i%,1)+b$
    i%-=1
endwhile
=b$





