"This file content.
"
"Bin\test.fil"
"6786379500"

%
% write file to conduit through server
%
% stack: file-data rel-file sms-number
%
% the file is relative to the c:\___Conduit directory
%

`
<Patch>
	<SaWing proc="WriteFile" file="___File___" cont="___Cont___" >
   </SaWing>
</Patch>

`
rot escape "___File___" exch replall
rot escape "___Cont___" exch replall

exch ofsrvc folder &"Ck_" basenow & &".qtq" dup tuck writeb
".ptp" overext

/*
%
% stack: file-cont dest-file 
%
escape ^`<SaWing proc="WriteFile" file="` &`" cont="`
exch escape & &`" ></SaWing>`
patched
exch ofsrvc folder &"Ck_" basenow & &".qtq" dup tuck writeb
".ptp" overext

*/