.key SOURCEDIR/A,TARGETDIR/A,FLGDIR/A,LISTDIR/A,LISTNAME/A
.bra {
.ket }

SET FLGDIR      {FLGDIR}

C:FailAt 99

C:Echo "Scanning dirs..."
C:List {TARGETDIR} ALL DIRS LFORMAT "C:Attach F=%P%N/Files.bbs T={LISTDIR}{LISTNAME}.LST" TO T:FLG{$$}
C:Sort T:FLG{$$} T:FLG{$$}

C:Copy {FLGDIR}FLG.Header {LISTDIR}{LISTNAME}.LST

C:Execute T:FLG{$$}
C:Delete T:FLG{$$}

C:Echo >>{LISTDIR}{LISTNAME}.LST "*NCreated by Filelist-Generator V0.2   Peter Stegemann*N"

C:Lha r {LISTDIR}{LISTNAME}.lha {LISTDIR}{LISTNAME}
