%base_header; %message_to_wizard; %define;date(xlab,xvar,xdate)

xlab

%if;([ !dates order]0 = "ddmmyy"); [year/month/day]2 [year/month/day]1 [year/month/day]0 %else; [year/month/day]0 [year/month/day]1 [year/month/day]2 %end;

...[or]0 [text]0

[*calendar/calendars]0

[*precision]0

%end; %define;source(xvar,xx)

[*source/sources]0

%end; %define;small_date(kind,xvar,xx,verbose,xp) %if;([ !dates order]0 = "ddmmyy"); / / %else; - - %end; %if;("verbose" = "true")[*place]%end; %end; %define;birth(xvar,xx,verbose,xp) [*birth] %apply;small_date("birth","xvarb","xx","verbose","xp") %end; %define;death(xvar,xx,verbose,xp) [*death] %apply;small_date("death","xvard","xx","verbose","xp") %end; %define;parent(xcnt,xx)

[*first name/first names]0		[*number]
[*surname/surnames]0

%apply;birth("paxcnt","xx","true", " onFocus=checkCreate(paxcnt_p,paxcnt_fn)") %apply;death("paxcnt","xx","true", " onFocus=checkCreate(paxcnt_p,paxcnt_fn)")

%end; %define;insert_parent(xcnt)

[*insert::| | parents]

%end;

%nn; %if;(evar_m = "ADD_FAM" or evar_m = "ADD_FAM_OK") [add::family/families]0 %elseif;(evar_m = "ADD_PAR") [add::family/families]0 %elseif;(evar_m = "MOD_FAM" or evar_m = "MOD_FAM_OK") [modify::family/families]0 # %evar_i; %elseif;(evar_m = "MRG_FAM" or evar_m = "MRG_FAM_OK" or evar_m = "MRG_MOD_FAM_OK") [merge::family/families]1 # %evar_i; %end;

%hidden; %if;(evar_ip != "")%nl;%end; %if;(evar_i != "")%nl;%end; %if;(evar_m = "ADD_FAM" or evar_m = "ADD_FAM_OK") %nl; %elseif;(evar_m = "ADD_PAR") %nl; %elseif;(evar_m = "MOD_FAM" or evar_m = "MOD_FAM_OK") %nl; %elseif;(evar_m = "MRG_FAM" or evar_m = "MRG_FAM_OK" or evar_m = "MRG_MOD_FAM_OK") %if;(evar_ini1 != "" and evar_ini2 != "") %end; %nl; %end; %foreach;parent; %if;(cvar_multi_parents != "yes");

%parent.himher;

%end; %apply;parent(cnt, "parent") %if;(cvar_multi_parents = "yes");%apply;insert_parent(cnt)%end; %end;

[*marriage/marriages]0

[*married] [*not married] [*engaged] [*no sexes check]
[*no mention]

[*place]

%apply;date([*date]0, "marr", "marriage") %apply;source("marr", "marriage")

[*witness/witnesses]1

[*insert::witness/witnesses]0

%foreach;witness;

[*first name/first names]0		[*number]
[*surname/surnames]0				? [M/F]0 [M/F]1

[*insert::witness/witnesses]0

%end;

[*divorce]

[*not divorced] [*divorced] [*separated] %apply;date([*date]0, "div", "divorce")

[*comment]

[*child/children]1

%define;insert_child(xcnt)

[*insert::| | child/children]

%end; %define;child(xcnt) %apply;birth("chxcnt", "child", "false", " onFocus=checkCreate(chxcnt_p,chxcnt_fn)") %apply;death("chxcnt", "child", "false", " onFocus=checkCreate(chxcnt_p,chxcnt_fn)")

[*first name/first names]0			[*number]
[*surname/surnames]0

? [M/F]0 [M/F]1

%end;

%apply;insert_child("0") %foreach;child;
%apply;child(cnt)
%apply;insert_child(cnt) %end;

[*source/sources]0

[*person/persons]1
[*family/families]0

%if;(cvar_origin_file = "on") %end;