.key filebasepath,config
.bra {
.ket }

;
; This scripts adds all directories in a given path
; as DIRECTORY statements to ffrs.cfg
;
; usage: BuildAreas <path> <config>
;
; example: BuildAreas UDBase0: MAIL:FFRS.cfg
;

echo "Working, please wait....*n"

list {filebasepath} ALL DIRS LFORMAT "DIRECTORY %s%s" >>{config}

;
; that's all. 
; A little AmigaDOS magic that saves a lot of work...
;

echo "Finished! Calling editor...."

ed {config}