#! /bin/csh -f
#
# BETA KLUGES - MARKED BY '#####" AT START OF LINE
#
if ( ! $?ADM_DIR ) \
	set ADM_DIR = /usr/lib/admin
set path = ($ADM_DIR $ADM_DIR/bin /bin /usr/bin /etc)

set noglob

loop:

repeat 2 echo ""
echo "        (A)      Add New User"
echo ""
#####echo "        (B)      Add New Group"
echo ""
#####echo "        (C)      Delete User"
echo ""
#####echo "        (D)      Delete Group"
echo ""
echo "        (?)      Help"
echo ""
echo "        (Q or X) Exit"
echo ""
echo -n "Please enter letter for desired function: "
set ANS = `get_resp`
switch ( $ANS )
	case [Aa] :
		AddUser
		goto loop
		breaksw
#####	case [Bb] :
#####		AddGroup
		goto loop
#####	case [Cc] :
#####		DeleteUser
		goto loop
#####	case [Dd] :
#####		DeleteGroup
		goto loop
	case _HELP_ :
		adm_help USER_MAINT
		goto loop
	case [QqXx] :
		exit(0)
	default :
		echo "Invalid response..."
		echo "Please enter a single character response..."
		goto loop
endsw
