#!/bin/csh -f
set DIR = /mit/mitlibs/libforms/
#
while(1)
clear
cat << EOF

                    Electronic Library Forms

This program will start up an editor window (emacs) to send off a
message to the library staff member responsible for the request.  You
must know how to use the editor in order to send this mail!

Just type the number of the form you'd like to send in, or type "q" to quit:

 1   Borrow Materials from a non-MIT Library

 2   Get photocopy of article, etc. from non-MIT Library
 
 3   Request an online search of remote databases

 4   Suggested purchase of materials or subjects for MIT Libraries

 5   Request delivery of MIT materials from remote storage

 6   Request a copy of materials in the MIT Libraries

 q   Quit

EOF

	echo -n "Enter a choice and press RETURN: "
	setenv COMMAND $<
	switch ($COMMAND)
	case 1:
		clear
		comp -form {$DIR}illform.txt
	breaksw
	case 2:
#		cat copyrite.txt
#		echo -n "Hit a key after you have read this message."
#		setenv key $<
#		comp -form {$DIR}
		echo " "
		echo " Sorry, this option is not yet available."
		echo " Hit the return key to continue."
		echo " "
		setenv key $<
	breaksw
	case 3:
		comp -form {$DIR}clssform.txt
	breaksw
	case 4:
		comp -form {$DIR}request_form
	breaksw
	case 5:
		comp -form {$DIR}rscform.txt
	breaksw
	case 6:
		cat copyrite.txt
		echo -n "Hit a key after you have read this message."
		setenv key $<
		comp -form {$DIR}mrlform.txt
	breaksw
        case q:
        case Q:
        case Quit:
        case quit:
        case exit:
		clear
		exit 0
	default:
	endsw
end