#!/bin/csh -f
#+
# barcodes -- print the barcodes for all loaded slitmasks
#
# Purpose:
#	Print out a list of barcodes for all currently loaded slitmasks
#
# Usage:
#	barcodes
# 
# Arguments:
#	none
# 
# Output:
#	to STDOUT
# 
# Restrictions:
#	none
# 
# Exit values:
#	 0 = normal completion
#	 1 = wrong number of arguments
#
# Example:
#	1) Print out a list of all currently loaded barcodes:
#	[69] deimos@polo> barcodes
#                       MSKBAR2 = 1966 
#                       MSKBAR3 = 242 
#                       MSKBAR4 = 1891 
#                       MSKBAR5 = 255 
#                       MSKBAR6 = 256 
#                       MSKBAR7 = 246 
#                       MSKBAR8 = 247 
#                       MSKBAR9 = 248 
#                       MSKBAR10 = 250 
#                       MSKBAR11 = 253 
#                       MSKBAR12 = 251 
#-
# Modification history:
#	2002-Sep-06	GDW	Original version
#-----------------------------------------------------------------------

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

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

@ i_min = 2
@ i_max = 12
@ i=$i_min
while ( $i <= $i_max )
    set keyword = MSKBAR$i
    show -s deimot $keyword
    @ i++
end