.key volume/A,file/A

; $VER: make_sourcedic 1.0 (15.01.97)

list <volume> lformat "%n:%f%s (%l)" all >T:tmp_flm.txt
list2flm T:tmp_flm.txt <file>
delete T:tmp_flm.txt
