' *** FILENAME.LST *** 2nd GFA-Manual, page 11-25 ' *** Return filename (without path), e.g. "CHESS.GFA" DEFFN file_name$(file$)=RIGHT$(file$,LEN(file$)-RINSTR(file$,"\")) ' *** '