\embed{definition}{&nbsp;}
<pre class="cc">
<div class="variable">
\title{Marquer les articles}
\text{cnt_record = \wims(\recordcnt datamark)}
\text{H = \randint(\\cnt_record)}
\text{texte = \randrow(\wims(\record 0 of datamark))}
\text{texte = \wims(\embraced randitem \\texte)}
\text{test = \wims(\char 1 <tt class="w">to</tt> 2 of \wims(\replace \internal ?? \by || <tt class="w">in</tt> \\texte))}
\text{u = \\test \issametext || ? 1: 0}
\matrix{texte = \slib(text/cutchoices \\texte)}
\text{cntrow = \rows(\\texte)}
\text{TEXTE = }
\text{rep = }
\text{cnt = 0}
\text{texte = \wims(\replace \internal , \by XXX <tt class="w">in</tt> \\texte)}
<tt class="comm">\\for</tt>{i = 1 <tt class="w">to</tt> \\cntrow}{
  \text{H = \\texte[\\i;]}
  \text{cnt_w=\wims(wordcnt \\H)}
  \text{j = \\i%2}
  \text{rep = \\j = \\u ? \\rep, \wims(\values \\cnt + x <tt class="w">for</tt> x = 1 <tt class="w">to</tt> \\cnt_w)}
  \integer{cnt = \\cnt+\\cnt_w}
  \text{TEXTE = \\TEXTE, \wims(\words2items \\H)}
}
</div>
</pre>
<div class="aide">Ce qui précède remplace les mots du texte par des item, et calcule la
position des mots qu'il sera demandé de sélectionner, c'est-à-dire des mots se 
trouvant entre les points d'interrogation
</div>
<pre class="cc">
<div class="variable">
\text{TEXTE = \wims(\nonempty <tt class="w">items</tt> \\TEXTE)}
\text{TEXTE1 = \wims(\replace \internal XXX \by  <tt class="w">in</tt> \\TEXTE)} 
\text{rep = \wims(\nonempty <tt class="w">items</tt> \\rep)}
</div>
<div class="statement">
\statement{
&lt;p style="background-color : #AAFFFF;
padding : 1%;
margin : 5% 15%;"> 
<tt class="comm">\\for</tt>{k = 1 <tt class="w">to</tt> \\cnt}{
   <tt class="comm">\\if</tt>{XXX isin \\TEXTE[\\k]}{
       <tt class="comm">\\embed</tt>{<tt class="reply">reply1</tt>,\\k},
       }{<tt class="comm">\\embed</tt>{<tt class="reply">reply1</tt>,\\k}
       }
   }
}
</div>
<div class="variable">
\answer{}{\\rep;\\TEXTE1}{<tt class="type">type=mark</tt>}{<tt class="type">option=split</tt>}
</div>
</pre>
