%let;evarv;%if;(evar.v!="")%evar.v;%else;5%end;%in; %let;evarscl;%if;(evar.scale!="")%evar.scale;%else;100%end;%in; %let;evarfs;%if;(evar.fs!="")%evar.fs;%else;17%end;%in; %let;maxlev;%if;(evar.cpl = "on")13%else;12%end;%nn;%in; %(evarv;, %evarhi;, %evarim;, %evarso;, %evarma;
%) %(minv %minv; < evarv %evarv; < maxv %maxv; (maxlev %maxlev;)%)

%if;not cancel_links;

%if;(evarv>=4) − %end; %evarv; gen %if;(evarv+ %end;

%if;(evar.hi!="H")H%else;I%end;

%nn;

%if;(evarscl>0) − %end; Scl: %evarscl;% %if;(evarscl<200) + %end;

%if;(evarfs>5) − %end; Fs: %evarfs; %if;(evarfs<20) + %end;

%end;