%
% check for baby photography keys
%
0 !lval 
_nval
<
|0
%
% starting phone key
%
 length 10 eq
 {
  dup numeric
  {
%
% is 10 digit phone number
%
% set the msg pointer to dest phone tracker
% and insure current subject tack
%
%
   !Shooter.Mother
   empty
   "Shooter.Mother" sval
   "msg" text ofyone write

   pop _Shooter.Mother ^"#" &" " &_nval &" 0"
   true !Shooter.Baby

  }
  {
   pop2nd
   "msg" text ofyone del
  } ifelse
 }
 {
  pop2nd
  "msg" text ofyone del
 } ifelse

|1
 *babynval
|2
 *babynval
|3
 *babynval
|4
 *babynval
|5
 *babynval

|8
%
% summary request
%
 pop2nd
*babymoth
{
 dup "sum" *babyxmsg
}
{
} ifelse
%
% check the entries and return the status info
% about completing baby information
%
 true !Shooter.Baby

|9
%
% ending phone key
%
 pop2nd
*babymoth
{
%
% check the entries and return the status info
% about completing baby information
%
 dup "make" *babyxmsg
}
{
} ifelse
 true !Shooter.Baby
 
> not
{
 pop2nd *twiltemc
} if