!set title=Directions with swac
!if $wims_read_parm!=$empty
 !goto $wims_read_parm
!endif
oef2wims_version=3.22
author=Csilla Ducrocq
email=csilla.ducrocq@u-psud.fr
language=fr
computeanswer=no

ansorder=r,r,r,r,r,r,r,r,r,r,r,r,r,r,r,r,r,r,r,r,r,r,r,r,r,r,r,r,r,r,r,r,r,r,r,r,r,r,r,r
varcnt=188
prevarcnt=181
postvarcnt=6
replycnt=40
choicecnt=0
conditioncnt=0
feedbackcnt=1
format=html

val1=$imagedir
val2=$confparm1
val3=$confparm2
val4=$confparm3
val5=$confparm4

!if $testcondition=yes
 !goto test
!endif
!if $status=waiting
 !exit
!endif

val6=directions
!readproc slib/utilities/notepad Notepad,small 
tmp0=$slib_out
val7=$(tmp0)
tmp0=!nosubst Fill in the gaps with the help of the picture. You'll have to try 2 times before getting a correction. In the second step, the audio recording of the word can help you find it.

val8=$(tmp0)
tmp0=!nosubst 

val9=$(tmp0)
val10=
val11=
val12=no
val13=no
val14=directions.gif
val15=no
val16=yes
val17=12
val18=split
val19=1
val20=aucune de ces possibilités
val21=case
val22=0
val23=3
val24=
val25=
val26=
val27=background-color:#FFFFCC;margin:2% 2%;padding:1%;\
val28=background-color: #FFCC99; color:black;margin: 2% 2%;padding: 0%;
val29=
val30=ol li {list-style: upper-alpha; }
val31=no
val32=inside
val33=yes
val34=1
val35=yes
val36=2
val37=eng
val38=hbs_mp3_player
val39=
tmp=!nonempty items $val6

tmp0=!randitem $tmp
val40=$(tmp0)
tmp0=!recordcnt $val40

val41=$[rint($(tmp0))]
val42=1
val43=1
val44=3

!ifval $val21 iswordof case 
val45= autocomplete=off
!endif
tmp0=!replace internal - by in $val38

val38=$(tmp0)
val46=$val22,$val23,$val24

!ifval $val25 = 
val25=++>
!endif

!ifval $val34 notwordof 0 
val34=$[rint( 1)]
!endif

!ifval $val26!=yes 
val47= noreaccent
!else
val47=
!endif

!ifval $val31 issametext no 
!readproc slib/utilities/nopaste  
tmp0=$slib_out
val48= $(tmp0)
!endif

!ifval $val8 issametext 
tmp0=!getdef instruction in $val40

val8= $(tmp0)
!endif

!ifval $val9 issametext 
tmp0=!getdef instruction2 in $val40

val9= $(tmp0)
!endif

!ifval $val17 issametext 
tmp0=!getdef size in $val40

val17= $(tmp0)
!endif

!ifval $val13 issametext 
tmp0=!getdef reading_file in $val40

val13= $(tmp0)
!endif
tmp0=!record 0 of $val13

val49=$(tmp0)

!ifval $val12 issametext 
tmp0=!getdef audio_file in $val40

val12= $(tmp0)
!endif

!ifval $val12 notsametext  and  $val12 notsametext no
!readproc slib/media/audio $val1/$val12,player=$val38 
tmp0=$slib_out
val50= 	<p align="center">$(tmp0)</p>
!endif

!ifval $val14 issametext 
tmp0=!getdef image_file in $val40

val14= $(tmp0)
!endif

!ifval $val14 notsametext  and  $val14 notsametext no
tmp0=!makelist <img src=$val1/x> for x in $val14

val51= 	$(tmp0)
!endif

!ifval $val15 issametext 
tmp0=!getdef video_file in $val40

val15= $(tmp0)
!endif
!if $val15 notsametext  and  $val15 notsametext no 

!ifval http notin $val15 
val15= $val1/$val15
!endif

!ifval $val15 notsametext 
val52= <a wims_target=external href="$val15">[video] </a></p>
!endif
!endif

!ifval $val10 issametext 
tmp0=!getdef choice in $val40

val53= $(tmp0)
!else
val53=$val10
!endif
val54=<style type="text/css">	 .question {$val27}	 .reponse {$val28}	 .oefstatement{$val29}	 $val30	 </style>	 

!ifval $val36 notwordof 1 2 3 4 5 6 7 8 9 10 
val36= 1
!endif

!ifval $val21 iswordof dragfill clickfill 
val17= $val17 x 1
!endif
val43=$[rint(min($val41,$val43))]
val42=$[rint(min($val43*$val42,$val41))]

!ifval $val16 issametext yes 
tmp0=!shuffle $val41

val55= $(tmp0) 
!else
tmp1=!makelist x for x = 1 to $val41

val55=	$(tmp1)
!endif
tmp0=!itemcnt $val6

val56=$(tmp0)
val57=
!for val58  = 2 to $val56 
tmp0=!recordcnt $(val6[$val58])

val59=$[rint($(tmp0))]
tmp0=!shuffle $val59

val60=$(tmp0)
tmp=!trim $val55	   $(val60[1..$val43])
val55=!translate internal $	\
$ to ;; in $tmp
!next
!for val58  = 1 to $val43 
!if $val16=no 
tmp0=!record $val58 of $val40

val61=$(tmp0)
!else
tmp0=!record $(val55[$val58]) of $val40

val61=$(tmp0)
!endif
val62=$val61
tmp=!translate internal $	$ to ; in $val62

tmp=!row 1 of $tmp
tmp0=!translate internal $\
$ to ; in $tmp
val62=$(tmp0)
tmp0=!getopt audio in $val62

val63=$(tmp0)
tmp0=!getopt image in $val62

val64=$(tmp0)
tmp0=!getopt title in $val62

val65=$(tmp0)
tmp0=!getopt intro in $val62

val66=$(tmp0)

!ifval $val63$val64$val65$val66  notsametext 
val67=$[rint( 1 )]
!else
val67=$[rint( 0)]
!endif
val68=

!ifval $val65 notsametext 
val68=$val68<p align="center">$val65</p>
!endif

!ifval $val66 notsametext 
val68=$val68 $val66
!endif

!ifval $val64 notsametext 
val68= $val68 <p align="center"><img src=$val1/$val64></p>
!endif
!if $val63 notsametext  

!ifval . isin $val63 or $val37= 
!readproc slib/media/audio $val1/$val63,$val39,player=$val38 
tmp0=$slib_out
val69= 	       $(tmp0)
!else
!readproc slib/lang/swac $val63,$val37,player=$val38,$val39 
tmp1=$slib_out
val69=$(tmp1)
!endif
val68=$val68 <p align="center">$(val69[1;1])</p>
!endif
!if $val67=1 
val57=$val57 $val68
tmp0=!line 2 to -1 of $val61

val61=$(tmp0)
!endif
val57=$val57 <p> $val61 </p>
!next
tmp0=!embraced randitem $val57

val57=$(tmp0)
!readproc slib/text/cutchoice2 $val57 
tmp0=$slib_out
val57=$(tmp0)
tmp0=!replace internal || by | in $val57

val57=$(tmp0)
tmp=!translate internal $	$ to ; in $val57

tmp0=!rowcnt $tmp
val70=$(tmp0)
val71=$[rint(($val70-$val70%2)/2)]
tmp=!trim 
val72=!translate internal $	\
$ to ;; in $tmp
tmp=!trim 
val73=!translate internal $	\
$ to ;; in $tmp
val74=
tmp=!trim 
val75=!translate internal $	\
$ to ;; in $tmp
tmp=!trim 
val22=!translate internal $	\
$ to ;; in $tmp
tmp=!trim 
val23=!translate internal $	\
$ to ;; in $tmp
tmp=!trim 
val24=!translate internal $	\
$ to ;; in $tmp
!for val58  = 1 to $val71 
val76=$(val57[2*$val58;])
tmp0=!itemcnt $val76

val59=$[rint($(tmp0))]
tmp=!trim $val72	  $(val76[1])
val72=!translate internal $	\
$ to ;; in $tmp
val77=$(val76[1])
tmp0=!replace internal | by , in $val77

val78=$(tmp0)
val79=$(val78[1])
tmp0=!words2items $(val78[1])

val78=$(tmp0)
tmp0=!itemcnt $val78

val80=$(tmp0)
val81=
val82=
val83=
!if 1 isitemof $val46 or 2 isitemof $val46 
!for val84  = 1 to $val80 
val85=$(val78[$val84])
tmp0=!charcnt $val85

val86=$(tmp0)
tmp0=!makelist - for x = 1 to $val86

val87=$(tmp0)
tmp0=!items2words $val87

tmp1=!nospace $(tmp0)

val88=$(tmp1)
val89=$[rint(min($val86/2,3))]
tmp0=!shuffle $val86

val90=$(tmp0)
val91=$val87
!for val92  =1 to $val89 
val60=$[rint($(val90[$val92]))]
tmp0=!char $val60 of $val85

tmp1=!replace item number  $val60  by $(tmp0) in $val91

val91=$(tmp1)
!next
tmp0=!items2words $val91

tmp1=!nospace $(tmp0)

val91=$(tmp1)
val81=$val81 $val88
val82=$val82 $val91
!next
!endif
!if 3 isitemof $val46 
!readproc slib/lang/swac $val79,$val37,player=$val38 
tmp0=$slib_out
val93=$(tmp0)
val83=$val83 $(val93[1;1])
!endif
tmp=!trim $val22,$val81
val22=!translate internal $	\
$ to ;; in $tmp
tmp=!trim $val23,$val82
val23=!translate internal $	\
$ to ;; in $tmp
tmp=!trim $val24,$val83
val24=!translate internal $	\
$ to ;; in $tmp
tmp0=!singlespace $val76,$val53

tmp1=!listuniq $(tmp0)

val76=$(tmp1)
!if $val21 notwordof mark menu 
tmp=!trim $val73	  $val76
val73=!translate internal $	\
$ to ;; in $tmp
tmp=!trim $val75	  $val77
val75=!translate internal $	\
$ to ;; in $tmp
!else
tmp0=!replace internal | by , in $val77

val94=$(tmp0)

!ifval $val21 iswordof menu 
val95= $(val94[1]),$(val76[2..-1]) 
!else
tmp0=!replace internal | by , in $val76

tmp1=!listuniq $(tmp0)

val95= $(tmp1)
!endif
tmp0=!itemcnt $val95

val59=$[rint($(tmp0))]
tmp=!trim $val73	 $val95
val73=!translate internal $	\
$ to ;; in $tmp
val96=
tmp0=!itemcnt $val94

val97=$[rint($(tmp0))]
!for val60 =1 to $val97 
tmp0=!positionof item $(val94[$val60]) in $val95

val96=$val96, $(tmp0)
!next
tmp0=!nonempty items $val96

tmp=!trim $val75	  $(tmp0)
val75=!translate internal $	\
$ to ;; in $tmp
!endif
val74=$val74,$val59
!next
!if $val21 iswordof menu mark  

!ifval $val11 issametext yes 
tmp0=!rows2lines $val73

tmp1=!lines2items $(tmp0)

val53= $val53,$(tmp1)
!endif
tmp0=!listuniq $val53

val53=$(tmp0)
val74=
tmp=!trim 
val98=!translate internal $	\
$ to ;; in $tmp
tmp=!trim 
val99=!translate internal $	\
$ to ;; in $tmp
!for val100  = 1 to $val71 
tmp0=!listuniq $(val73[$val100;]),$val53

val101=$(tmp0)
tmp0=!shuffle $val101

val101=$(tmp0)
tmp=!trim $val98	      $val101
val98=!translate internal $	\
$ to ;; in $tmp
val96=
tmp0=!itemcnt $(val73[$val100;])

val97=$[rint($(tmp0))]
!for val102 =1 to $val97 
tmp0=!positionof item $(val73[$val100;$(val75[$val100;$val102])]) in $val101

val96=$val96,$(tmp0)
!next
tmp0=!nonempty items $val96

tmp=!trim $val99	     $(tmp0)
val99=!translate internal $	\
$ to ;; in $tmp
tmp0=!itemcnt $(val98[$val100;])

val59=$(tmp0)
val74=$val74,$val59
!next
tmp=!trim $val98
val73=!translate internal $	\
$ to ;; in $tmp
tmp=!trim $val99
val75=!translate internal $	\
$ to ;; in $tmp
!endif
tmp0=!nonempty items $val74

val74=$(tmp0)
tmp0=!nonempty items $val22

val22=$(tmp0)&nbsp;
tmp0=!nonempty items $val23

val23=$(tmp0)&nbsp;
tmp0=!nonempty items $val24

val24=$(tmp0)&nbsp;
tmp=!trim $val22	$val23	$val24
val103=!translate internal $	\
$ to ;; in $tmp

!ifval $val21 iswordof clickfill dragfill raw case 
tmp=!trim  $val72
val75=!translate internal $	\
$ to ;; in $tmp
!endif

!ifval $val21 iswordof case raw
tmp0=!replace internal &#44; by , in $val75

tmp=!trim  $(tmp0)
val75=!translate internal $	\
$ to ;; in $tmp
!endif

!ifval $val53 notsametext 
tmp0=!replace internal ; by , in $val72

tmp1=!append item $(tmp0) to $val53

val53= $(tmp1)
!endif
tmp0=!replace internal | by , in $val53

val53=$(tmp0)
tmp0=!listuniq $val53

val53=$(tmp0)
tmp=!translate internal $	$ to ; in $val75

tmp0=!rowcnt $tmp
val71=$[rint($(tmp0))]
tmp0=!makelist r x for x=1 to $val71

val104=$(tmp0)
val105=$val104
val106=
val107=
tmp0=!replace internal | by , in $val75

tmp=!trim $(tmp0)
val99=!translate internal $	\
$ to ;; in $tmp

!ifval $val21 iswordof case raw
val73= 
!endif
dynsteps=yes
oefsteps=$val105 
nextstep=!nosubst $val105 
!readproc oef/steps.proc
replytype1=$val21

replyoption1=shuffle $val47 nonstop 
replyname1=
replygood1=$(val75[1;]);$(val73[1;])
replytype2=$val21

replyoption2=shuffle $val47 nonstop 
replyname2=
replygood2=$(val75[2;]);$(val73[2;])
replytype3=$val21

replyoption3=shuffle $val47 nonstop 
replyname3=
replygood3=$(val75[3;]);$(val73[3;])
replytype4=$val21

replyoption4=shuffle $val47 nonstop 
replyname4=
replygood4=$(val75[4;]);$(val73[4;])
replytype5=$val21

replyoption5=shuffle $val47 nonstop 
replyname5=
replygood5=$(val75[5;]);$(val73[5;])
replytype6=$val21

replyoption6=shuffle $val47 nonstop 
replyname6=
replygood6=$(val75[6;]);$(val73[6;])
replytype7=$val21

replyoption7=shuffle $val47 nonstop 
replyname7=
replygood7=$(val75[7;]);$(val73[7;])
replytype8=$val21

replyoption8=shuffle $val47 nonstop 
replyname8=
replygood8=$(val75[8;]);$(val73[8;])
replytype9=$val21

replyoption9=shuffle $val47 nonstop 
replyname9=
replygood9=$(val75[9;]);$(val73[9;])
replytype10=$val21

replyoption10=shuffle $val47 nonstop 
replyname10=
replygood10=$(val75[10;]);$(val73[10;])
replytype11=$val21

replyoption11=shuffle $val47 nonstop 
replyname11=
replygood11=$(val75[11;]);$(val73[11;])
replytype12=$val21

replyoption12=shuffle $val47 nonstop 
replyname12=
replygood12=$(val75[12;]);$(val73[12;])
replytype13=$val21

replyoption13=shuffle $val47 nonstop 
replyname13=
replygood13=$(val75[13;]);$(val73[13;])
replytype14=$val21

replyoption14=shuffle $val47 nonstop 
replyname14=
replygood14=$(val75[14;]);$(val73[14;])
replytype15=$val21

replyoption15=shuffle $val47 nonstop 
replyname15=
replygood15=$(val75[15;]);$(val73[15;])
replytype16=$val21

replyoption16=shuffle $val47 nonstop 
replyname16=
replygood16=$(val75[16;]);$(val73[16;])
replytype17=$val21

replyoption17=shuffle $val47 nonstop 
replyname17=
replygood17=$(val75[17;]);$(val73[17;])
replytype18=$val21

replyoption18=shuffle $val47 nonstop 
replyname18=
replygood18=$(val75[18;]);$(val73[18;])
replytype19=$val21

replyoption19=shuffle $val47 nonstop 
replyname19=
replygood19=$(val75[19;]);$(val73[19;])
replytype20=$val21

replyoption20=shuffle $val47 nonstop 
replyname20=
replygood20=$(val75[20;]);$(val73[20;])
replytype21=$val21

replyoption21=shuffle $val47 nonstop 
replyname21=
replygood21=$(val75[21;]);$(val73[21;])
replytype22=$val21

replyoption22=shuffle $val47 nonstop 
replyname22=
replygood22=$(val75[22;]);$(val73[22;])
replytype23=$val21

replyoption23=shuffle $val47 nonstop 
replyname23=
replygood23=$(val75[23;]);$(val73[23;])
replytype24=$val21

replyoption24=shuffle $val47 nonstop 
replyname24=
replygood24=$(val75[24;]);$(val73[24;])
replytype25=$val21

replyoption25=shuffle $val47 nonstop 
replyname25=
replygood25=$(val75[25;]);$(val73[25;])
replytype26=$val21

replyoption26=shuffle $val47 nonstop 
replyname26=
replygood26=$(val75[26;]);$(val73[26;])
replytype27=$val21

replyoption27=shuffle $val47 nonstop 
replyname27=
replygood27=$(val75[27;]);$(val73[27;])
replytype28=$val21

replyoption28=shuffle $val47 nonstop 
replyname28=
replygood28=$(val75[28;]);$(val73[28;])
replytype29=$val21

replyoption29=shuffle $val47 nonstop 
replyname29=
replygood29=$(val75[29;]);$(val73[29;])
replytype30=$val21

replyoption30=shuffle $val47 nonstop 
replyname30=
replygood30=$(val75[30;]);$(val73[30;])
replytype31=$val21

replyoption31=shuffle $val47 nonstop 
replyname31=
replygood31=$(val75[31;]);$(val73[31;])
replytype32=$val21

replyoption32=shuffle $val47 nonstop 
replyname32=
replygood32=$(val75[32;]);$(val73[32;])
replytype33=$val21

replyoption33=shuffle $val47 nonstop 
replyname33=
replygood33=$(val75[33;]);$(val73[33;])
replytype34=$val21

replyoption34=shuffle $val47 nonstop 
replyname34=
replygood34=$(val75[34;]);$(val73[34;])
replytype35=$val21

replyoption35=shuffle $val47 nonstop 
replyname35=
replygood35=$(val75[35;]);$(val73[35;])
replytype36=$val21

replyoption36=shuffle $val47 nonstop 
replyname36=
replygood36=$(val75[36;]);$(val73[36;])
replytype37=$val21

replyoption37=shuffle $val47 nonstop 
replyname37=
replygood37=$(val75[37;]);$(val73[37;])
replytype38=$val21

replyoption38=shuffle $val47 nonstop 
replyname38=
replygood38=$(val75[38;]);$(val73[38;])
replytype39=$val21

replyoption39=shuffle $val47 nonstop 
replyname39=
replygood39=$(val75[39;]);$(val73[39;])
replytype40=$val21

replyoption40=shuffle $val47 nonstop 
replyname40=
replygood40=$(val75[40;]);$(val73[40;])
question=__EXECUTED_1692754_EXERCISE__
help=__EXECUTED_1692754_EXERCISE__

!goto stat

!exit

:question
$()$val48 $val54 $val8	   
!if $val49 notsametext  
$() 
!read oef/special.phtml help reading,[à lire] 
$() 
!endif
$()	   
!if $val51 notsametext  
$() 
!read oef/special.phtml help image,[Picture] 
$() 
!endif
$()	  $val50$val52	  <div class="question">	 
!if $val21 iswordof case raw dragfill clickfill 
$()	    
!for m_k = 1 to $val71 
$()	    $(val57[2*$m_k-1;])   
!if r $m_k isitemof $val105 
$() 
!read oef/embed.phtml $(val104[$m_k]),$val17	    $val45 
$()	      
!if $(val46[$m_step]) iswordof 1 2 
$()	        
!read oef/special.phtml tooltip <font color=brown>[$val25]</font>,,$(val103[$(val46[$m_step]);$m_k]) 
$() 
!endif
$()	      
!if $(val46[$m_step])=3 
$()	       $(val103[3;$m_k]) 
!endif
$()	        
!else
$() 	        
!if $(val106[$m_k])=1 
$()<font color=green><b>$(val107[$m_k;])</b></font> 
!else
$()	             
!if $val35=yes 
$()<font color=green><b>$(val99[$m_k;1])</b></font> 
!endif
$()	             <font color=red><b><strike>$(val107[$m_k;])</strike></b></font>	           
!endif
$()	       
!endif
$()	    
!next
$()	  $(val57[2*$val71+1;])	   
!endif
$()	   
!if $val21 iswordof menu 
$()	     
!for m_k = 1 to $val71 
$()	      $(val57[2*$m_k-1;])	       
!if r $m_k isitemof $val105 
$() 
!read oef/embed.phtml $(val104[$m_k]) 
$() 
!else
$() 	        
!if $(val106[$m_k])=1 
$()<font color=green><b>$(val107[$m_k;])</b></font> 
!else
$()	            
!if $val35=yes 
$()<font color=green><b>$(val73[$m_k;$(val75[$m_k;1])])</b></font> 
!endif
$()	                <font color=red><b><strike>$(val107[$m_k;])</strike></b></font>	          
!endif
$()	       
!endif
$()	     
!next
$()	  $(val57[2*$val71+1;])	  
!endif
$()	 
!if $val21 iswordof mark 
$()	   
!for m_k = 1 to $val71 
$()	    $(val57[2*$m_k-1;])   
!if r $m_k isitemof $val105 
$()/	       
!for m_K = 1 to $(val74[$m_k]) 
$()  
!read oef/embed.phtml $(val104[$m_k]),\K 
$()/ 
!next
$()	    
!else
$() 	        
!if $(val106[$m_k])=1 
$()<font color=green><b>$(val107[$m_k;])</b></font> 
!else
$()	    	    
!if $val35=yes 
$()<font color=green><b>$(val73[$m_k;$(val75[$m_k;1])])</b></font> 
!endif
$()	   <font color=red><b><strike>$(val107[$m_k;])</strike></b></font> 
!endif
$()	    
!endif
$()	   
!next
$()	  $(val57[2*$val71+1;])	 
!endif
$()	  </div>	  	 
!if $val53 notsametext and $val21=case 
$()	<div class="reponse">$val53</div>	 
!endif
$()	
$()
!exit

:hint
$()
$()
!exit

:help
$()$val48 
!if $m_help_subject issametext reading or	$m_help_subject issametext image	or  $m_help_subject issametext  
$()	$val49		$val51 
!endif
$()	
$()
!exit

:solution
$()
$()
!exit

:latex
$()
$()
!exit

:postdef
val106=$m_sc_reply1,$m_sc_reply2,$m_sc_reply3,$m_sc_reply4,$m_sc_reply5,$m_sc_reply6,$m_sc_reply7,$m_sc_reply8,$m_sc_reply9,	$m_sc_reply10,$m_sc_reply11,$m_sc_reply12,$m_sc_reply13,$m_sc_reply14,$m_sc_reply15,$m_sc_reply16,$m_sc_reply17,$m_sc_reply18,$m_sc_reply19,	$m_sc_reply20,$m_sc_reply21,$m_sc_reply22,$m_sc_reply23,$m_sc_reply24,$m_sc_reply25,$m_sc_reply26,$m_sc_reply27,$m_sc_reply28,$m_sc_reply29,	$m_sc_reply30,$m_sc_reply31,$m_sc_reply32,$m_sc_reply33,$m_sc_reply34,$m_sc_reply35,$m_sc_reply36,$m_sc_reply37,$m_sc_reply38,$m_sc_reply39,	$m_sc_reply40
tmp=!trim $m_reply1	$m_reply2	$m_reply3	$m_reply4	$m_reply5	$m_reply6	$m_reply7	$m_reply8	$m_reply9	$m_reply10	$m_reply11	$m_reply12	$m_reply13	$m_reply14	$m_reply15	$m_reply16	$m_reply17	$m_reply18	$m_reply19	$m_reply20	$m_reply21	$m_reply22	$m_reply23	$m_reply24	$m_reply25	$m_reply26	$m_reply27	$m_reply28	$m_reply29	$m_reply30	$m_reply31	$m_reply32	$m_reply33	$m_reply34	$m_reply35	$m_reply36	$m_reply37	$m_reply38	$m_reply39	$m_reply40	
val107=!translate internal $	\
$ to ;; in $tmp
val105=
!if $m_step<=$val36 
!for val58 =1 to $val71 

!ifval $(val106[$val58])!=1 
val105= $val105,r $val58
!endif
!next
!endif
val108=$[rint($m_step-1)]

!exit

:feedback
!ifval 1=1
 <p> 
!if $val36 > 1 
$()Vous avez eu besoin de $val108	   
!if $val108=1 
$()essai. 
!else
$() essais. 
!endif
$() 
!endif
$()	
$()
!endif

!exit

:test

!exit

:stat
vsavelist=8,17,21,25,35,36,45,46,48,49,50,51,52,53,54,57,58,71,73,74,75,99,103,104,105,106,107
embedcnt=6
