      SUBROUTINE SET_CURSEUR(FORME)
      INCLUDE 'Parametres.f'
      END
