%
% pick up the registration request issued after the Uniquify
% new install request was satisfied, the registered info from
% the new user
%
empty ofreg
empty
{
 "Register_" textwild
 nextfile ?
"nextf" log)(
 filing
"filing" log)(
 exec$
%
% the info supplied includes first and last, email, master phone,
% and area code of desired magic number plus a repeat of the
% uniquify installation fields
% create the xml info that will be implanted as Registered.xml
%
% stack: dir new-seed
%
 "<settings>
 <First value="""
 &_Install.First
&""" />
 <Last value="""
 &_Install.Last
&""" />
 <Phone value="""
 &_Install.Phone
&""" />
 <AreaCode value="""
 &_Install.AreaCode
&""" />
 <Connect value="""
 &_Install.Connect
&""" />
 <Email value="""
 &_Install.Email
&""" />
"
&"
 </settings>
"

%
% the .sts file remains as a residue of the registration process
%
 inst$ &".sts" ^4
%
% stack: dir new-seed reg-sts
%
 residue
"rtrer" log)(
%
% stack: dir new-seed yty-file
%
% the .rtr file will be pullinst command pulled by Tell
% in response to a request from the conduit
%
 ".rtr" overext

%
% stack: dir new-seed
%
 _Install.AreaCode 2 left "99" eq$
 {
%
% this is a test mode issuance
%
  *cndatacd
%
% stack: dir new-seed test-number
%
% create the test sms satisfaction for now
%
  any?
  {
   !Install.Sms
empty
"Install.Random" sval
"Install.Stamp" sval
"Install.Sms" sval
"Number_" inst$ & &".yty" oftwil write(
%
% stack: dir new-seed yty-file
%
% directly provide the numbering xml file, bypassing purchase
%
   textover

   *cndawipu

%
% copy in the Priv.txt to be the customer .vrp and .vrq
%
% of form: 1680605988244_80836.vrq
%
   "Priv.txt" ofapp
   inst$
   2 copy
   &".vrp"
   copyfile
   &".vrq"
   copyfile

  }
  {
%
% stack: dir new-seed
%
% not a valid test area code
%
  } ifelse
 }
 {
%
% not a test mode
%
 } ifelse

%
% stack: dir new-seed
%
 finaled
} loop
filing)