%
% get the cphone Numbers file info
%
empty !Cond.Sms
_numfile
exec$

_Cond.Sms any)?
{
%
% cphone Numbers file exists
%
 " *Exists* "
 inst$ ofinst &".qtq"
 dup exists
 {
  read ^"
|" &

  inst$ ofreg &".sts"
  dup exists
  {
   read

   dup '<Connect value="' right$ '"' left$ hex2asc !Install.Connect

/*
<Connect value="70686f73656e64" />
*/

   ^"
|" &

   inst$ oftwil &".utu"
   dup exists
   {
    read ^"
|" &
    &"|
"
    &'FirstN = hex2asc("' _Install.First asc2hex & &'");
'
    &'LastN = hex2asc("' _Install.Last asc2hex & &'");
'
    &'EmailN = hex2asc("' _Install.Email asc2hex & &'");
'
    &'PhocnctN = hex2asc("' _Install.Connect asc2hex & &'");
'
    &'Tack = "' _Install.Stamp & &'";
'
    &'Xact = "' _Install.Random & &'";
'
    &"|
"

/*

Inst\stamp_rand.qtq
Twil\stamp_rand.utu
Reg\stamp_rand.sts

		Subject = AllParams.phone;
		FirstN = hex2asc(AllParams.first);
		LastN = hex2asc(AllParams.last);
		EmailN = hex2asc(AllParams.email);
		PhoneN = AllParams.phone;
		SmsN = "2702009855"; // AllParams.sms;
		Tack = getReq("stamp");
		Xact = getReq("rand");
		ArcodeN = AllParams.acode;
		PhocnctN = hex2asc(AllParams.phoconn);


 "6783103796" !Cond.Sms
"month" !Cond.Plan
"1000" !Cond.Fill
".015" !Cond.Psms
".0375" !Cond.Pmms
"number" !Cond.Over
"8/24/23" !Cond.Subscribed
"9/24/2023" !Cond.NextSub
"76" !Cond.SmsIn
"103" !Cond.SmsOut
"2" !Cond.MmsIn
"3" !Cond.MmsOut
"0.00" !Cond.Amount
"7" !Cond.TillSub
"0.0" !Cond.PerFill
 "34766" !Install.Random
 "1692885394655" !Install.Stamp
"678" !Install.AreaCode
"6783103796" !Install.Phone
"Damon" !Install.First
"Cottrell" !Install.Last
"dlc4067@gmail.com" !Install.Email
*/

   }
   {
    pop2 "*Open*"
    _numfile del

   } ifelse

  }
  {
   pop2 "*Open*"
   _numfile del

  } ifelse

 }
 {
  pop2 "*Open*"
  _numfile del
 } ifelse

}
{
 " *Open* "
} ifelse
catcr