SetEval lnum VAL (LEN"<Obey$Dir>")
SetEval lnum lnum -4
SetEval Work$ ("<Obey$Dir>" RIGHT lnum)
IF ("<Obey$Dir>" LEFT 4) = "cfs#"  OR  ("<Obey$Dir>" LEFT 4) = "CFS#" THEN SetEval Work$Dir ("<Obey$Dir>" RIGHT lnum) ELSE Set Work$Dir <Obey$Dir>
Dir <Work$Dir>   