%
% stack: 
%

"Purch" ofconn folder
empty
{
 "EvOut_" textwild
 nextfile ?
"evout" log)(
 reading trim

 *webrespn

dup !MsgOut
"EvOut-" basenow & &"_" _MsgOut 30 left asc2hex & &".log"
"log" connect
write

finaled

true ?

} loop
filing)