%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;

%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)

[*first name/first names]0 |  | [*number] |
[*surname/surnames]0 |
%apply;birth("chxcnt", "child", "false", " onFocus=checkCreate(chxcnt_p,chxcnt_fn)")
? [M/F]0 [M/F]1 %apply;death("chxcnt", "child", "false", " onFocus=checkCreate(chxcnt_p,chxcnt_fn)")

%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;

%copyright; %base_trailer;