.key Dir/A,Destination,Pat/K
.bra {
.ket }
.def Pat="#?"

Set CurrentDir `CD`
IF "{Destination}" EQ ""
	Set Dest $CurrentDir
Else
	Set Dest {Destination}
EndIf

CD "{Dir}"
CD /
Set ArcDir `BaseName "{Dir}"`
Set ArcPathName "`TackOn "$Dest" "$ArcDir"`"

Lha -a -r -x a "$ArcPathName" "$ArcDir/{Pat}"
IF $RC GT 0
	Echo "Error during compression of {Dir}."
	Ask "Press RETURN..."
EndIf
CD $CurrentDir
UnSet Dest
UnSet ArcDir
UnSet ArcPathName
UnSet CurrentDir