%
% gather all info from install and rand code
%
!Install.Random
!Install.Stamp

 inst$ &".qtq" ofinst
 dup !Cond.InstFile
 exists
 {
/*
<settings>
 <InstRand value="46436" />
 <InstStamp value="1675671910619" />
 </settings>
*/
/*
NewInst_1675671910619_46436.xtx originates the install
46436 !Install.Random
1675671910619 !Install.Stamp
*/
"NewInst_" inst$ & &".xtx" ofinst !Cond.NewFile
empty !Install.AreaCode
"Register_" ".xtx" ext*reg
dup !Cond.RegFile
 exec$
/*
"6787867816" !Install.Phone
 "4a616d6573" !Install.First
 "4261636f6e" !Install.Last
 "678" !Install.AreaCode
 "6261636f6e6a696240676d61696c2e636f6d" !Install.Email
*/
_Install.AreaCode any)?
{
%
% proper registration info
%

inst$ &".sts"
dup !Cond.RegFile
/*
1675671910619_46436.sts
<settings>
 <First value="4a616d6573" />
 <Last value="4261636f6e" />
 <Phone value="6787867816" />
 <AreaCode value="999" />
 <Connect value="70686f6465736b" />
 <Email value="6261636f6e6a696240676d61696c2e636f6d" />

 </settings>
*/
/*
Register_1675671910619_46436.xtx
"6787867816" !Install.Phone
 "4a616d6573" !Install.First
 "4261636f6e" !Install.Last
 "999" !Install.AreaCode
 "6261636f6e6a696240676d61696c2e636f6d" !Install.Email
 "70686f6465736b" !Install.Connect
46436 !Install.Random
1675671910619 !Install.Stamp

*/


empty ofsrvc
empty
{
 "Conf_confput_" textwild
 nextfile ?
"nextf" log)(
 execing

"confirmed" log)(

 false !Test.Purch

 "XC_" textwild
 empty ofpurch
 empty
 {
  nextfile ?
"nextfp" log)(
  reading
%
% get the possible purchasers phone number
%
  second term2 !Install.Subject

  dup `"redirect_url": "https://` right$ "/Tell?" left$
  !Cond.Website
  *purchcnd
  _Test.Purch ?
 } loop
 filing)

_Test.Purch
{

/*
Conf_confput_63797289603817.txt

"200"           !Order.Amount
"6787867816"    !Order.Subject
"68827"         !Order.Xact
"1661703045794" !Order.Tack
"1661703045794" !Order.Ref
"CBASEFHrnyiPgBg9HWzEj3vAsHU" !Order.Chk
"" !Order.Id
"fCTbQIeF46eQt2cRA3ST37N4SvZZY" !Order.Trans
"63797289603817" !Order.Stamp
*/

/*
1675671910619_46436.utu
<settings>
 <SmsNumber value="6789318285" />
</settings>
*/

/*
was Number_1661704083785_64973.xtx

in Recyc it is 6789905641.txt

"64973" !Install.Random
"1661704083785" !Install.Stamp
"0" !Install.ProvTry
"https://textmyphotos.com/Twid/Twid" !Install.SmsUri
"https://textmylogos.com/Twid/Twid" !Install.SmsFbUri
"6789905641" !Install.Sms
"PNdc40bd147229d834edbdd2b3f2a8c333" !Install.SmsSid
*/


}
{
%
% no matching purchase
%

"Install.ProvTry" empty exch !
"Install.SmsUri" empty exch !
"Install.SmsFbUri" empty exch !
"Install.Sms" empty exch !
"Install.SmsSid" empty exch !

 "Order.Amount" empty exch !
 "Order.Subject" empty exch !
 "Order.Ref" empty exch !
 "Order.Chk" empty exch !
 "Order.Id" empty exch !
 "Order.Trans" empty exch !
 "Order.Stamp" empty exch !

} ifelse


 empty
 "Install.Stamp" sval
 "Install.Random" sval
 "Install.First" sval
 "Install.Last" sval
 "Install.AreaCode" sval
 "Install.Email" sval
 "Cond.RegFile" sval
 "Cond.InstFile" sval
 "Cond.NewFile" sval
 "Install.Phone" sval
 "Install.Connect" sval
 "Order.Amount" sval
 "Order.Subject" sval
 "Order.Ref" sval
 "Order.Chk" sval
 "Order.Id" sval
 "Order.Trans" sval
 "Order.Stamp" sval
"Install.ProvTry" sval
"Install.SmsUri" sval
"Install.SmsFbUri" sval
"Install.Sms" sval
"Install.SmsSid" sval
}
{
%
% improper reg info
%
} ifelse

 }
 {
%
% no install file
%
 } ifelse