#!/bin/csh -f
#+
# focus -- show or set the DEIMOS dewar focus value
#
# Purpose:
#	With no arguments, print the current DEIMOS dewar focus setting.
#	With one numeric argument, set the DEIMOS dewar focus setting,
#
# Usage:
#	focus [x]
# 
# Arguments:
#	x = focus setting to select
# 
# Output:
#	- With no arguments, the focus setting is printed
# 
# Restrictions:
# 
# Exit values:
#	 0 = normal completion
#	 1 = wrong number of arguments
#
# Example:
#
#-
# Modification history:
#	2002-Jun-06	GDW	Original version
#	2003-Jan-23	GDW	Changed keyword from DWFOCVAL to FOCUSVAL
#-----------------------------------------------------------------------

set buf = $0
set cmd = $buf:t
set usage = "Usage: $cmd"

# verify args...
if ( $#argv > 1 ) then
  printf "$usage\n"
  exit 1
endif

if ( $#argv == 0 ) then
	show -s deimot -terse FOCUSVAL
else
	modify -s deimot FOCUSVAL="$1"
	exit $status
endif