%doctype; %let;l_v0;%if;(evar.v != "")%if;(evar.v > max_anc_level)%max_anc_level;%else;%evar.v;%end;%else;1%end;%in; %let;l_v;%if;(bvar.max_anc_level = "")%l_v0;%elseif;(bvar.max_anc_level > l_v0)%l_v0;%else;%bvar.max_anc_level;%end;%in; %let;birth_symbol;%if;(bvar.birth_symbol != "")%bvar.birth_symbol;%else;°%end;%in; %let;death_symbol;%if;(bvar.death_symbol != "")%bvar.death_symbol;%else;†%end;%in; %let;l_up;%if;(evar.i1 != "" or evar.p1 != "")1%end;%in; %nn; %if;(l_up = 1) [*ancestors] … [up to] …%nn; %elseif;(evar.t = "N" and evar.only = "on") [*generation/generations]0 %l_v; %else; %apply;a_of_b2%with; %if;(evar.t = "M")[*missing ancestors]%else;[*ancestors]%end; %and; %if;(public_name != "")%public_name;%else;%first_name;%end; %if;(qualifier != "") %qualifier;%end; %sp;%surname; %and; %if;(public_name != "")%public_name;%else;%first_name_key;%end; %end; %end; %include;css %include;hed %( %) %define;tothegen(xx) [*to the %s generation:::xx]%nn; %end; %define;togen1(xx) %if;(xx = 1)[*specify::generation/generations]0%nn; %elseif;(xx = 2)[*to the parents]%nn; %elseif;(xx = 3)[*to the grandparents]%nn; %elseif;(xx = 4)[*to the great-grandparents]%nn; %else; %apply;tothegen%with; %apply;nth([nth (generation)], xx) %end; %end; %end; %define;togen()

%if;(evar.only != "on") %apply;togen1(l_v) %else; [*generation/generations]0 %l_v; %end;

%end; %( %) %( Main %) %message_to_wizard;

%nn; %apply;a_of_b2%with; %if;(evar.t = "M")[missing ancestors]%else;[ancestors]%end; %and; %if;(not cancel_links)%end; %if;(public_name != "")%public_name;%else;%first_name;%end; %if;(qualifier != "") %qualifier;%end; %sp;%surname; %if;(alias != "") (%alias;)%end; %if;(not cancel_links)%end; %and; %if;(public_name != "")%public_name;%else;%first_name_key;%end; %end; %sp;%dates;

[*not found]: %if;(evar.M2b="b") · %bvar.var_t_BIRTHA;%end; %if;(evar.M2m="m") · %bvar.var_t_MARRIAGEA;%end; %if;(evar.M2d="d") · %bvar.var_t_DEATHA;%end;
[*date/dates]0 != [exact]: %if;(evar.M3b="b") · [*birth]%end; %if;(evar.M3m="m") · [*marriage/marriages]0%end; %if;(evar.M3d="d") · [*death]%end;

%if;(evar.t = "G") %include;ancsosa_tg %elseif;(evar.t = "X" or evar.t = "Y") %include;ancsosa_tdz %elseif;(evar.t = "N" and evar.same != "") %include;ancsosa_same %elseif;(evar.t = "M") %include;ancsosa_miss %elseif;(evar.t = "Z") %include;ancsosa_tab %end; %if;(not cancel_links and evar.t!="Z") %include;tools %apply;tools_ancsosa() %include;trl %include;copyr %end;