_Xact
 _wilder !holder
 _Cust.Remade
 ^" *****x" &"x***** "
false !found
"Image_" &_SrcXact &"_" textwild
empty oftack
empty
{
 nextfile ?
 filing read fourth eq$
 {
  true !found
 } if
} loop
filing)
pop
_holder !wilder
_found
{
}
{
 dup !Xact

 "Remade_" &_SrcXact text oftack
 dup
 0 !Xhistory
 exec$

 +:Xhistory
 empty
 "Xhistory" sval
 second write
 
 "w.txt" reextend
 _Xhistory 3 prezero
 ^" *****x" &"x***** "
 exch write

 dup !Xact

 _Cust.Remade
 ^" *****x" &"x***** "
 "Image_" &_SrcXact &"_" _Xhistory 3 prezero & text oftack
 write

} ifelse
"endhisr" log)(
 !Xact