%
% invoke the new user warning
%
% stack: %%%                sms-number
%

_Install.AreaCode 2 left "99" ne$    %%%  and
%%% pop
%%% false
 {
_Cond.Sms
"condsms warn" log)(
ofsrvc folder &"CK" Time.Now Time.FullOrder &
`
<Patch>
	<SaWing proc="OverU">
   </SaWing>
</Patch>
`
exch
&".qtq" write( ".ptp" overext

  empty !Install.AreaCode
  "Register_" ".xtx" ext*reg
/*
"6787867816" !Install.Phone
 "4a616d6573" !Install.First
 "4261636f6e" !Install.Last
 "808" !Install.AreaCode
 "6261636f6e6a696240676d61696c2e636f6d" !Install.Email
68827 !Install.Random
1661703045794 !Install.Stamp
*/
%
% check valid reg record
%
  _Install.AreaCode
 "areacode" log)(
  any)?
  {
%
% valid registration info
%
% send a text from their sms number to them about needing
% to resubscribe
%
_Cond.Indep
{
   "2702009855" !Cond.Sms
} if
   _Cond.WarnText _Install.Phone *cndaxmit

  }
  {

  } ifelse
} if