! @(#)irspec.ctx	17.1.1.1 (ES0-DMD) 01/25/02 17:52:48
!===========================================================================
! Copyright (C) 1995 European Southern Observatory (ESO)
!
! This program is free software; you can redistribute it and/or 
! modify it under the terms of the GNU General Public License as 
! published by the Free Software Foundation; either version 2 of 
! the License, or (at your option) any later version.
!
! This program is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
! GNU General Public License for more details.
!
! You should have received a copy of the GNU General Public 
! License along with this program; if not, write to the Free 
! Software Foundation, Inc., 675 Massachusetss Ave, Cambridge, 
! MA 02139, USA.
!
! Corresponding concerning ESO-MIDAS should be addressed as follows:
!	Internet e-mail: midas@eso.org
!	Postal address: European Southern Observatory
!			Data Management Division 
!			Karl-Schwarzschild-Strasse 2
!			D 85748 Garching bei Muenchen 
!			GERMANY
!===========================================================================
!
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
! 
! Procedure IRSPEC.CTX       E. Oliva  01-SEP-1992
!
! Purpose  : 
!            SET/CONTEXT IRSPEC
!            Define IRSPEC commands
!
!  901212, 940712  KB
! 
! -------------------------------------------------------------- 
! indicate origin of context
!HELP = stdred
! 
DEFINE/LOCAL LERR/I/1/1 'ERROR(2)'		!save current user level
SET/MIDAS USER=EXPERT
!
create/comm BADPIX/IRSPEC    @s irsbadpix
create/comm CALIBRATE/IRSPEC @s irswlcalib
create/comm DEFINEBAD/IRSPEC @s irsdefbad
create/comm FLAT/IRSPEC      @s irsflat
create/comm FLUX/IRSPEC      @s irsfluxcal
create/comm MERGE/IRSPEC     @s irsconnect
create/comm RECTIFY/IRSPEC   @s irstilt
create/comm RESPONSE/IRSPEC  @s irsrespons
create/comm SHOW/IRSPEC      @s irshow
create/comm SKYSUB/IRSPEC    @s irskysub
create/comm STANDARD/IRSPEC  @s irstarflux
create/comm SUBTRACT/IRSPEC  @s irscontsub
create/comm VERIFY/IRSPEC    @s irsverify
create/comm TUTORIAL/IRSPEC  @s irsdemo
create/comm TUTORIAL/SKYSUB  @s irstutsky
create/comm TUTORIAL/CALIBR  @s irstutwlc
!
create/comm INITIALIZE/IRSPEC @s irsinit
create/comm SET/IRSPEC        @a keyset
create/comm HELP/IRSPEC       @a keyhelp
!
WRITE/OUT  "----------------------------------------------------------------"
WRITE/OUT  " Context IRSPEC. version 2.0 -  1 SEPT 1992"
WRITE/OUT  " Initialize IRSPEC commands"
WRITE/OUT  "----------------------------------------------------------------"
!
AUX_MODE(4) = 1            ! Copy all descriptors
ERROR(2) = LERR
!
INIT/IRSPEC
! 
! 
entry clear
! 
@s irsdelkey