%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) %if;([ !dates order]0 = "ddmmyy"); / / %else; - - %end; %if;("verbose" = "true")[*place]%end; %end; %define;birth(xvar,xx,verbose) [*birth] %apply;small_date("birth","xvarb","xx","verbose") %end; %define;death(xvar,xx,verbose) [*death] %apply;small_date("death","xvard","xx","verbose") %end; %define;parent(xvar,xx)
[*first name/first names]0 [*number]
[*surname/surnames]0
%apply;birth("xvar","xx","true") %apply;death("xvar","xx","true")
%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;

[*him/her]0

%apply;parent("him", "father")

[*him/her]1

%apply;parent("her", "mother")

[*marriage/marriages]0

[*married] [*not married] [*engaged] [*no sexes check]
[*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]0
%end; %define;child(xcnt) %apply;birth("chxcnt", "child", "false") %apply;death("chxcnt", "child", "false")
[*first name/first names]0 [*number]
[*surname/surnames]0
? [M/F]0 [M/F]1
%end;

[*source/sources]0

[*person/persons]1
[*family/families]0
%if;(cvar_origin_file = "on") %end;

...
%copyright; %base_trailer;