      SUBROUTINE change_curs(iopt)
      INCLUDE 'Parametres.f'
c
      icurseur_courant = iopt
      call x11changecurseur(iopt)
      end

