.KEY NEWN,PATHF,FN
.BRA {
.KET }

failat 21
changetaskpri -1

;make RAM the current directory
CD RAM:

;create the directory {FN} in RAM:, CD there and delete anything that might already exist there
makedir {FN}
cd {FN}/
delete #?
lha -a -m -M -p -x -X x "{PATHF}"

;Incase files are protected
protect #? +rwed all

; Delete unwanted text!
delete ZZ#? #?foo #?displayme lztext BBS.txt

;DELETE ORIGINAL UD FILE!
delete "{PATHF}"

;re-compress file
lha -m -x -a -r -X -y -2 a "{PATHF}" #?
cd TX:

;remove the temporary directory and it's files
delete {FN} ALL

;add our description text if existent
;Another script (or this one) should already have been used to copy the .sdn
;textfile to the same directory that the file {FN} is in.
AddDescript DEV UDBase0: EXT .sdn {NEWN}

;Look for and add FILE_ID.DIZ to the short or long desciption
;MUST BE RUNBACK'd!! -> See AddDescript docs.
runback pfiles:AddDescript DEV UDBase0: DIZ {NEWN}
