val2=!randint 1, 4
val3=!randint 1, 4
val4=!randint 1, 4
val5=!randint 1, 4
val6=!randint 1, 3
val7=!randint 1, 3
val8=!randint 1, 3
!if $val2=$val3 
   val2=1
   val3=4
!endif
!if $val4=$val5 
   val4=2
   val5=3
!endif
!if $val6=$val7 
   val6=!randitem 2,3
   val7=1
!endif
!if $val2<3 and $val3<3 and $val4<3 and $val5<3 
   val3=3
   val5=4
!endif
!if $val2>2 and $val3>2 and $val4>2 and $val5>2 
   val3=1
   val5=2
!endif

val1=!word 1 of $wims_read_parm
val11=!word 2 of $wims_read_parm

!read convention.ini $val11
convent=convention.phtml noquant
chronodirect=oui

val9=A,non(A),B,non(B)
val10=$connect

val29=!item $val2 of $val9
val30=!item $val6 of $val10
val31=!item $val3 of $val9
val32=!item $val7 of $val10
val33=!item $val4 of $val9
val34=!item $val8 of $val10
val35=!item $val5 of $val9

val12=vrai,Mal dfini,Faux

val13=0,0,0,1,1,1,2,2,2\
2,2,2,1,1,1,0,0,0\
0,1,2,0,1,2,0,1,2\
2,1,0,2,1,0,2,1,0

val14=!lines $val2 of $val13
val15=!lines $val3 of $val13
val16=!lines $val4 of $val13
val17=!lines $val5 of $val13

val18=$tab_et
val19=$tab_ou
val20=$tab_imp

val21=$empty
!for j=1 to 9
   tmp1=!item $j of $val14
   tmp2=!item $j of $val15
   tmp3=!lines $[$(tmp1)+1] of $(val$[17+$val6])
   tmp3=!item $[$(tmp2)+1] of $tmp3 
   val21=$val21,$tmp3
!next
   val21=!nonempty items $val21
!if $val1=3
   val22=$empty
   !for j=1 to 9
      tmp1=!item $j of $val16
      tmp2=!item $j of $val17
      tmp3=!lines $[$tmp1+1] of $(val$[17+$val8])
      tmp3=!item $[$tmp2+1] of $tmp3 
      val22=$val22,$tmp3
   !next
   val22=!nonempty items $val22
   enonce=($(val29)\quad $(val30) \quad $(val31))\quad $(val32)\quad ($(val33)\quad $(val34)\quad $(val35))
!else
   val22=$(val16)
   val23=!randint 1,2
   !if $val23=1
      enonce=($(val29)\quad $(val30) \quad $(val31))\quad $(val32)\quad $(val33)
   !else
      enonce=$(val33)\quad $(val32) \quad ($(val29)\quad $(val30) \quad $(val31))
      !exchange $val21 and $val22
   !endif
!endif
goodrep=$empty
!for j=1 to 9
   tmp1=!item $j of $val22
   tmp2=!item $j of $val21
   tmp3=!lines $[$tmp2+1] of $(val$[17+$val7])
   tmp3=!item $[$tmp1+1] of $tmp3 
   goodrep=$goodrep,$tmp3
!next
   goodrep=!nonempty items $goodrep
badrep1=$val12
badrep2=$empty
