FUNCTION tki_slitpos, newslit
;

;#############################################################################
;#
;# Function name    : TKI_SLITPOS
;#
;# Author           : Dietmar Germerott
;# Language         : IDL
;# Purpose          : Position MC4SLITSelect
;# Creation date    : 17-MAY-1996
;# Update date      : 22-MAY-1996
;# External modules : 
;#
;# Call Sequence    : VAR = tki_slitpos (newslit)
;#
;# Arguments        : newslit - slit number of slit table see OP-G cmd slit
;#
;# Description      : 
;#
;#
;#############################################################################

@tki_common_priv                ;/* INSERT TKI COMMON VARIABLES */

   result = 0

   newslit = FIX(newslit)

   IF ((newslit GT 9) OR (newslit LT 1)) THEN BEGIN

      mess_text = ' % E % PARERR in TKI_SLITPOS wrong Siltnr. '
      tki_message, mess_text, 01b
      RETURN, -5

   ENDIF

   state = tki_get_mcpower (3, 42, result)

   IF (result EQ -17) THEN RETURN, result

   mc4pos = environ(22 + newslit).val
   result = tki_mcmove (3, mc4pos, 1)

;/* SET GLOBAL SLIT ID IF MC4 MOVED CORRECT */

   IF ((result EQ 0) OR (result EQ -30) OR (result EQ -36)) THEN BEGIN

      slit_s = tki_slit (newslit)
      global_s.slit = newslit

   ENDIF

   result = tki_do_pow_cmd ('81'xb, 42, state)

   RETURN, result

END


;---------------------------------------------------------------------------
; End of 'TKI_SLITPOS.PRO'.
;---------------------------------------------------------------------------