C CHOI      SOURCE    CHAT      05/01/12    22:00:47     5004           
C  positionnement d'un ensemble de flags
C
      SUBROUTINE CHOI
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO
-INC SMLMOTS
      external long
      dimension iob(22)
      logical vale(22)
      character*8 choix(22)
      character*11 choi2(23)
      character*3 oui,non
      character*72 messag
      oui='(X)'
      non='( )'
      call lircha(messag,1,iretou)
      if (iretou.eq.0) messag='Dans choi'
      llong=7
      choi2(1)='Ok'
*  d'abord recuperer les noms a proposer
      do 10 i=1,22
        call lirlog(vale(i),0,iretou)
        if (iretou.eq.0) goto 11
        call quenom(choix(i))
        llong=max(long(choix(i)),llong)
  10  continue
  11  continue
      if (ierr.ne.0) return
      nbr=i-1
      ncou=16
      CALL TRINIT(25,DIOCAD,DIOCAD,TITREE,0.15,.TRUE.,ncou)
  30  continue
      do 20 i=1,nbr
        if (vale(i)) then
          choi2(i+1)=oui//choix(i)
        else
          choi2(i+1)=non//choix(i)
        endif
  20  continue
      CALL MENU(choi2,nbr+1,11)
      call trmess(messag(1:long(messag)))
      CALL TRaff(ICLE)
      irep=icle+1
      if (irep.eq.1) goto 50
      vale(irep-1)=.not.vale(irep-1)
      goto 30
  50  continue
      do 60 i=nbr,1,-1
       call ecrlog(vale(i))
  60  continue
      end