.K dest
.BRA {
.KET }
;;    PATHS     --  Preserves current path in a re-executable script.

run path >PIPE:s_path
mat >{dest$re-path} P "~(C:|Current directory)" T "path ^O" label "failat 25^Bpath reset" PIPE:s_path label "failat 10"
protect {dest$re-path} +S

;; The output of the PATH command is PIPEd into Mat, which builds the
;; script from the lines it gets.  Note first the use of the match
;; negation character ("~") to discard the current directory and C:.
;; Each line in the main body is simply "path <directory-name>".
;; Preceding the main body are two lines (generated by a single label)
;; "failat 25" and "path reset"; at the end another label generates
;; "failat 10".