S=string(comregmap(52))
   %unless S->T.(".").Y %thenstart
      %unless S->T.(":").Y %then Y=S
   %finish
   %unless Y->S.("g") %or y->S.("G") %then S="source"
   P=Y."p"
    Y=Y."g"
   msetfiles(S,Y)
   I = comregmap(59)
   %if I&1#0 %then Emonon %else Emonoff
   %if I&2#0 %then Mcodeon
   %if I&4#0 %then Mmonon %else Mmonoff