sub toDBase {local($To,$nom,$IN) = @_; 
&wsFile("begin"); Fin: { 
 local $Out = $$IN; 
 if ($Out ne "") {$Out =~ s/^\s*//};
 if ($Out eq '') {return 0};
 &setDate(\$Out);
 local $x = $Out; local($k); 
 local $Out1 = ''; 
while(true) {
 if ($x ne "") {$x =~ s/^\s*//};
 if ($x eq '') {last}; $k = index($x,"/#T)");
 if ($k==-1) {return 1}; $k = $k+4; $Out1 = substr($x,0,$k); $x = substr($x,$k);
 if ($Out1!~/^\(#T\((\w+)\)new:/) {return 2};
 if ($1 eq "Resume") {$Out1 .= "\n"; &wsFile("buffer",$To,$nom,"Res",\$Out1)};
}; &wsFile("buffer",$To,$nom,"",\$Out);
#(wsPart) if (To=="User") {if (Out[0].match(/\/#T\(gloEtat\):1\/#T/)) {wsFile("buffer",To,nom,"Tmp",Out)}};
}; return &wsFile("end");
}

function toDBase(To,nom,IN) { 
wsFile("begin"); Fin: { 
 var Out = Array(IN[0]); 
 if (Out[0]!="") {Out[0] = Out[0].replace(/^\s*/,"")};
 if (Out[0]=='') {return 0};
 setDate(Out);
with(window.open().document) {open(); write(To+"<br><small>"+Out[0]+"</small>"); close()} 
 var x = Out[0]; var k; 
 var Out1 = Array(''); 
while(true) {
 if (x!="") {x = x.replace(/^\s*/,"")};
 if (x=='') {break}; k = x.indexOf("/#T)");
 if (k==-1) {return 1}; k = k+4; Out1[0] = x.substr(0,k); x = x.substr(k);
 if (!Out1[0].match(/^\(#T\((\w+)\)new:/)) {return 2};
 if (RegExp.$1=="Resume") {Out1[0] += "\n"; wsFile("buffer",To,nom,"Res",Out1)};
}; wsFile("buffer",To,nom,"",Out);
//(wsPart) if (To=="User") {if (Out[0].match(/\/#T\(gloEtat\):1\/#T/)) {wsFile("buffer",To,nom,"Tmp",Out)}};
}; return wsFile("end");
}