#! /bin/sh
# Based on list by Art St.George STGEORGE@UNMB.BITNET 
# whacked into program by dmahone@hal.unm.edu
# Whacked further by Tom Snee tsnee@samba.oit.unc.edu
# Whacked internationally by T.L. Mancour mancour@samba.oit.unc.edu
# This version REQUIRES tn3270. This allows full access to all the libraries
# many of which will only accept tn3270 connections (not regular telnet).
# This version REQUIRES that the host on which it is resident be running
# BIND or be able to resolve host.domain.edu style addresses in a standard
# Internet manner. Another choice is to add all the addresses to your /etc/hosts
# file which we don't recommend. PMJ July 2, 1991
#  Version 1.2

clear
echo "    Internet Accessible Libraries and Information Systems
----------------------------------------------------------------
(AL)Alabama		(KY)Kentucky		(ND)North Dakota
(AK)Alaska		(LA)Louisana		(OH)Ohio
(AR)Arkansas		(ME)Maine		(OK)Oklahoma
(AZ)Arizona		(MD)Maryland		(OR)Oregon
(CA)California		(MA)Massachusetts	(PA)Pennsylvania
(CO)Colorado		(MI)Michigan		(RI)Rhode Island
(CT)Connecticut		(MN)Minnesota		(SC)South Carolina
(DE)Delaware		(MS)Mississippi		(SD)South Dakota
(DC)Washington		(MO)Missouri		(TN)Tennessee
(FL)Florida		(MT)Montana		(TX)Texas
(GA)Georgia		(NE)Nebraska		(UT)Utah
(HI)Hawaii		(NV)Nevada		(VT)Vermont
(ID)Idaho		(NH)New Hampshire	(VA)Virginia
(IL)Illinois		(NJ)New Jersey		(WA)Washington
(IN)Indiana		(NM)New Mexico		(WV)West Virginia
(IA)Iowa		(NY)New York		(WI)Wisconsin
(KS)Kansas		(NC)North Carolina	(WY)Wyoming
(MISC)Miscellaneous American servicesi   (BBS)Other Bulletin Boards
(FOR)Foreign services"
echo -n "Where would you like to go? [RETURN to exit] "
read destination
case $destination in
[Aa][Ll])
	clear
	echo
	echo "	Alabama
	

		Auburn University
			Push TAB until cursor is in the APPLICATION field
			Type 01 and press RETURN.  Press RETURN at the next
			screen.
	
			To exit, press Ctrl C."
	echo
	echo
	echo -n "Connect? [y] "
	read answer
		case $answer in
		""| y* | Y*) tn3270 AUDUCACD.DUC.AUBURN.EDU;;
		*) clear;;
		esac
	clear;;
[Aa][Kk])
        echo
	clear        
	echo "	Alaska has nothing to offer right now."
	echo
	echo "Hit <return> to continue "        
	read answer
	clear;;
[Aa][Zz])
 	clear 
        echo
        echo "	Arizona
        

		Arizona State University

		1. PEGASUS - PErsonal Guide to ASU Stuff

		2. On-line library catalog"
	echo
	echo
	echo -n "Pick a number [RETURN exits] "
	read answer
		case $answer in
		1) clear
		echo "PEGASUS - PErsonal Guide to ASU Stuff 
		 
		ASEDD - Arizona State Economic Development
Database
		Log in as helloasu"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 asuvm.inre.asu.edu;; 
                        *) clear;;
                        esac;; 
		2) tn3270 carl.lib.asu.edu;;
		*) clear;;
		esac
	clear;;
[Aa][Rr])
 	clear
        echo
        echo "	Arkansas
        
	
		University of Arkansas campus information"
	echo
	echo
	echo -n "Connect? [y] "
	read answer
		case $answer in
		""| y* | Y*) tn3270 uafsysb.uark.edu;;
		*) clear;;
		esac
	clear;;
[Cc][Aa])
	clear
	echo 
	echo "	California
	

		1. Cal Poly State University, San Luis Obispo
	
		2. Melvyl, University of California Online Catalog
	
		3. Gladis, UC Berkeley's catalog
	
		4. California State University,
		   Fresno Agricultural Technology Institute
	
		5. Cal State University, Long Beach
	
		6. Occidental College's Automated Library System"
	echo
	echo
	echo -n "Which number? [RETURN to exit] "
	read answer1
		case $answer1 in
		1) clear
		echo
		echo "   Cal Poly State University, San Luis Obispo
		
		Robert E. Kennedy Library
		Type POLYCAT for the username and follow
		the instructions.  Type Ctrl D to quit."
		echo
		echo -n "Connect?  [y] "
		read answer
		        case $answer in
""| y* | Y*) tn3270 library.calpoly.edu;;
        	        *) clear;;
 			esac;;
		2) clear
		echo
		echo "Melvyl, University of California Online Catalog
		
		          To leave Melvyl - type END
		          Then you will type LOGOFF"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 MELVYL.UCOP.EDU;;
			*) clear;;
			esac;; 
 		3) clear
		echo
		echo "Gladis, UC Berkeley's catalog
		
		          To leave Gladis type LOGOFF"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 GopAC.BERKELEY.EDU;;
			*) clear;;
 			esac;;
		4) clear
		echo
		echo " California State University,
		 Fresno Agricultural Technology Institute
		
		        Type  public  at the Username: prompt."
		echo
		echo -n "Connect?  [y] "
		read answer
			case $answer in
""| y* | Y*) tn3270 CATICSUF.CSUFRESNO.EDU;;
			*) clear;;
			esac;;
		5) clear
		echo
		echo " Cal State University, Long Beach
		
		After entering your terminal type, press RETURN
		     a few times."
		echo
 		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 COAST.LIB.CSULB.EDU;;
			*) clear;;
 			esac;;
		6) clear
		echo
		echo "Occidental College's Automated Library System
		
		 Type oasys at both the resource and login prompts.
		 Oasys only supports VT100 and Wyse50 terminals."
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 kitty.oxy.edu;;
			*) clear;;
			esac;;
		*) clear;;
		esac
	clear;; 
[Cc][Oo])
	clear
	echo
	echo "	Colorado
	

		1. CARL (Colorado Alliance of Research Libraries)
	
		2. University of Denver campus information"
	echo
	echo -n "Pick a number [RETURN exits] "
	read answer2
		case $answer2 in
		1) clear
		echo
		echo " CARL (Colorado Alliance of Research Libraries)
		
		       To exit, type //EXIT
		       This may need to be done more than once."
		echo
 		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 pac.carl.org;;
			*) clear;;
			esac;;
		2) clear
		echo 
		echo "University of Denver campus information"
		echo
		echo "         Log in as atdu"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 du.edu;;
			*) clear;;
                        esac;;
		*) clear;;
		esac
	clear;;
[Cc][Tt])
	clear
	echo
	echo "	Connecticut"
	echo
	echo
	echo "	Yale University"
	echo "		Press RETURN at the first prompt."
	echo
	echo
	echo -n "Connect? [y] "
	read answer
		case $answer in
		"" | Y* | y*) tn3270 ORBIS.YALE.EDU;;
		*) clear;;
		esac
	clear;;
[Dd][Ee])
	clear
	echo
	echo "	Delaware
	

		The University of Delaware Online Catalog.
			Once you are connected, press RETURN once or twice.
			To logoff type QUIT or EXIT."
	echo
	echo
	echo -n "Connect? [y] "
	read answer3
		case $answer3 in
		"" | y* | Y*) tn3270 DELCAT.UDEL.EDU;;
		*) clear;;
		esac
	clear;;
[Dd][Cc])
	echo
	echo "	Washington, D.C. has nothing to offer right now."
	echo;;
[Ff][Ll])
	clear
	echo 
	echo "	Florida
	
	
		LUIS (Library User Information Service) is the
		online catalog of the State University System (SUS)
			Press TAB to goe to the COMMAND prompt, then type
			DIAL VTAM.  When prompted with NERDC VTAM IS ACTIVE,
			type  nerluis fclskya
			You will be told how to quit.  If you find yourself
			at the NERDC VTAM IS ACTIVE prompt, type undial."
	echo
	echo
	echo -n "Connect? [y]"
	read answer4
		case $answer4 in
		"" | y* | Y*) tn3270 nervm.nerdc.ufl.edu;;
		*) clear;;
		esac
	clear;;

[Gg][Aa])
	clear
	echo    
	echo " Georgia
	

		1. Emory University Libraries Online Public Access Catalog
	
		2. Georgia State University"
	echo
	echo
	echo -n "Which number? [RETURN exits] "
	read answer5
		case $answer5 in
		1) clear
		echo
		echo "Emory University Libraries Online Public Access
Catalog
		
		After the VM screen is displayed, press RETURN to
		get a CP READ.  Type DIAL VTAM and press ENTER.
		At the VTAM screen, type LIB and press ENTER.
		When the CICS screen appears, press the PF1 key (ESC
1).
		To exit, press Ctrl ] and type  send escape."
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 emuvm1.cc.emory.edu;;
			*) clear;;
                        esac;; 
		2) clear
		echo
		echo "Georgia State University"
		echo
		echo "    To exit, type  $$soff  and press RETURN."
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 LIBRARY.GSU.EDU;;
			*) clear;;
                        esac;;
		*) clear;;
		esac
	clear;;
[Hh][Ii])
	clear
	echo
	echo "Hawaii
	

		University of Hawaii Library Public Access Catalog
			At the "enter class" prompt, type LIB
			To exit, type //EXIT or BYE."
	echo
	echo
	echo -n "Connect? [y] "
	read answer
		case $answer in
		"" | Y* | y*)
			tn3270 starmaster.uhcc.hawaii.edu;;
		*) clear;;
		esac
	clear;;
[Ii][Dd])
	clear
	echo "Idaho State University

		Use <catalyst> as your password"
	echo -n "Connect? [y] "
        read answer
                case $answer in
                "" | Y* | y*)
                        tn3270 catalyst.idbsu.edu;; 
                *) clear;;
                esac
	clear;;
[Ii][Ll])
	clear
	echo 
	echo "	Illinois
	

		1. Northwestern University's LUIS online catalog.
	
		2. University of Chicago
	
		3. University of Illinois at Chicago
	
		4. University of Illinois/Urbana-Champaign
	
		5. Lafayette University"
	echo
	echo
	echo -n "Which number? [RETURN to exit] "
	read answer6
		case $answer6 in
		1) clear
		echo
		echo "Northwestern University's LUIS online catalog.
		
		Once connected, press TAB until the cursor comes to the
		COMMAND prompt.  Type DIAL VTAM.  At the next screen,
		type LUIS to go to the catalog.
		To sign off, type STOP, then type EXIT"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 NUACVM.ACNS.NWU.EDU;;
			*) clear;;
                        esac;;
		2) clear
		echo
		echo "University of Chicago
		
		At the ENTER CLASS prompt, enter LIB48
		When CONNECTED appears, press RETURN
		To exit the system, type LOGOUT"
		echo
		read answer
                        case $answer in
""| y* | Y*) tn3270 OLORIN.UCHICAGO.EDU;;
			*) clear;;
                        esac;;
		3) clear
		echo
		echo "University of Illinois at Chicago
		
		You will see an introductory screen
		     Type:           Enter key
		     Response:       Logon screen
        	     Type:           DIAL PVM
       		     Response:       PVM (Passthru) screen
		     Type:           Move cursor to NOTIS and press Enter
        	     Response:       One line message about port in use
        	     Type:           Enter key 
		     Response:       LUIS introductory screen
        	          To leave, press Ctrl C"
        	echo	
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 UICVM.UIC.EDU;;
			*) clear;;
			esac;;
		4) clear
		echo
		echo "University of Illinois/Urbana-Champaign"
		echo
		echo -n "Connect?  [y] "
		read answer
                        case $answer in
""| y* | Y*) tn3270 GARCON.CSO.UIUC.EDU;;
			*) clear;;
                        esac;;
		5) clear
		echo
		echo "Lafayette University
	
		When you see the LINC logo, ignore the ALT-L advice
		and clear the logo by pressing RETURN.  On next screen
		type DIAL MUSIC.  On login screen, use GUEST as ID
		and GUEST as password."
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 lafibm.lafayette.edu;;
			*) clear;;
			esac;;
		esac
	clear;;
[Ii][Nn])
	clear
	echo 
	echo "   Indiana
	
		1. The University of Notre Dame Library.
	
		2. Purdue University"
	echo 
	echo -n "Enter a number [RETURN to exit] "
	read answer7
		case $answer7 in
		1) clear
		echo
		echo "The University of Notre Dame Library.
		
		At the ENTER COMMAND OR 'HELP': prompt enter
		core
	       'library' and press the enter key."
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 IRISHMVS.CC.ND.EDU;;
			*) clear;;
			esac;;
		2) clear
		echo " Purdue University"
		echo
		echo "  Press Ctrl C to quit."
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 lib.cc.purdue.edu;; 
                        *) clear;;
                        esac;;
		*) clear;;
		esac
	clear;;
[Ii][Aa])
	clear
	echo
	echo "	Iowa           
	
	1. Iowa State University
	
	2. The University of Iowa Libraries"
	echo 
	echo -n "Enter a number [RETURN to exit] "
        read answer7
                case $answer7 in
                1) clear
		echo
		echo "Iowa State University
		
		At DIAL prompt, type LIB.  VT100."
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 ISN.IASTATE.EDU;; 
                        *) clear;;
                        esac;;
		2) clear
		echo
		echo "The University of Iowa Libraries
		
		To disconnect, display the Welcome to OASIS screen
		by typing the letter e  and pressing <RETURN>.
		At the Welcome to OASIS screen, type the letter
		x and press <RETURN>."
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 OASIS.UIOWA.EDU;; 
                        *) clear;;
                        esac;; 
		*) clear
	esac
	clear;;
 [Kk][Ss])
	clear
	echo 
	echo "	Kansas
	
	
		University of Kansas Libary
 	
			When prompted for Username, type relay
			Then type ocat when you see the menu.
			When prompted for terminal type   vt100k 
			At the banner-- type ESC ESC OCAT 
			TO LEAVE-  type logoff and then a q
	
			It is easy to get stuck in this library.
			Make sure you follow the directions."
	echo 
	echo 
	echo -n "Connect? [y] "
	read answer8
		case $answer8 in
		"" | Y* | y*) tn3270 KUHUB.CC.UKANS.EDU;;
		*) clear;;
		esac
	clear;;
[Kk][Yy])
	clear
	echo
	echo "	Kentucky has nothing to offer right now."
	echo
	echo "Hit <return> to continue "
        read answer
	clear;;
[Mm][Uu][Dd])
	clear
	echo
	echo -n "Connect? "
 	read answer8
                case $answer8 in
         "" | Y* | y*) tn3270 130.37.128.4 8888;; 
                *) clear;;
                esac
        clear;;
[Ll][Aa])
	clear
	echo
	echo "	Louisana has nothing to offer tight now."
	echo
        echo "Hit <return> to continue "
        read answer
        clear;;
[Mm][Ee])
	clear
	echo
	echo "	Maine
	
	
		University of Maine System Library Catalog
 	
			letters at the login prompt, and press RETURN to see a
			list of valid terminal types: VT100, Wyse, or emulator.
			Specify your terminal type, confirm your choice, and
			begin searching."
	echo
	echo
	echo -n "Connect? [y] "
	read answer
		case $answer in
		"" | Y* | y*) tn3270 URSUS.MAINE.EDU;;
		*) clear;;
		esac
	clear;;
[Mm][Dd])
	clear
	echo
	echo "	Maryland
	
	
		1. AIM -Access to Info about Maryland-
	
		2. Online Catalog UMCAT
	
		3. Johns Hopkins University Library"
	echo
	echo -n "Pick a number [RETURN to exit] "
	read answer9
		case $answer9 in
		1) clear
		echo "AIM -Access to Info about Maryland-"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 AIM.UMD.EDU;; 
                        *) clear;;
                        esac;;
		2) clear
		echo
		echo "Online Catalog UMCAT
		
		If a blank screen appears type CAT
		To  END  just type  END"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 UMCAT.UMD.EDU;; 
                        *) clear;;
                        esac;;	
		3) clear
		echo
		echo "Johns Hopkins University Library
		
		At command prompt type Dial Janus <cr>
		to logoff type four pound signs (####)"	
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 jhuvm.hcf.jhu.edu;;
                        *) clear;;
                        esac;;
 	*) clear;;
	esac
	clear;;
[Mm][Aa])
	clear
	echo
	echo "	Massachusetts
	
	
		1. Boston University
	
		2. Harvard University
	
		3. MIT TechInfo"
	echo
	echo -n "Pick a number [RETURN exits] "
	read answer10
		case $answer10 in
		1) clear
		echo
		echo "Boston University"
		echo
		echo "     Type QUIT to QUIT"
		echo 
		 echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 LIBRARY.BU.EDU;; 
                        *) clear;;
                        esac;;
		2) clear
		echo
		echo "Harvard University"
		echo 
		echo "Type hollis to begin.  Press Ctrl C to quit."
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 hollis.harvard.edu;; 
                        *) clear;;
                        esac;;
		3) clear
		echo
		echo "MIT TechInfo"
		echo
		echo "   Type QUIT to quit."
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 techinfo.mit.edu;; 
                        *) clear;;
                        esac;;
 
		*) clear;;
		esac
	clear;;

[Mm][Ii])
	clear
	echo
	echo "	Michigan
	
	
		1. University of Michigan
	
		2. Michigan State University Libraries
	
	
                3. Wayne State University"
	echo
	echo
	echo -n "Pick a number [RETURN to exit] "
	read answer11
		case $answer11 in
		1) clear
		echo
		echo "University of Michigan
		
	 	Type MIRLYN at the Which host? prompt
		To exit, type ctrl-e%quit"
		echo echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 CTS.MERIT.EDU;;
			*) clear;;
                        esac;;
		2) clear
		echo
		echo "Michigan State University Libraries"
		echo
		echo "At the VM3270 screen, type: dial magic "
		echo
		echo echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 magic.lib.msu.edu;;
			*) clear;;
                        esac;;
		3) clear
		echo
		echo "Wayne State University"
		echo
		echo "Use TAB to move to the COMMAND line then type DIAL
VTAM"
		echo "At the WSUNET menu, type LUIS"
		echo "To exit the system, type LOGOUT"
		echo
		echo echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 CMS.CC.WAYNE.EDU;;
			*) clear;;
                        esac;;
		*) clear;;
		esac
	clear;;
[Mm][Nn])
	clear
	echo
	echo "	Minnesota
	
		LUMINA, Libraries of the University of Minnesota
		Integrated Network Access
			When prompted for terminal enter  0 for vt100
			then you type lumina
			At the menu enter an  a  for Lumina
			TO EXIT HIT  CONTROL C"
	echo
	echo
	echo -n "Connect? [y] "
	read answer12
		case $answer12 in
		"" | y* | Y*) tn3270 LUMINA.LIB.UMN.EDU;;
		*) clear;;
		esac
	clear;;
[Mm][Ss])
	clear
	echo
	echo "	Mississippi
	

		Mississippi State Library"
	echo
	echo
	echo -n "Connect? [y] "
	read answer
		case $answer in
		"" | y* | Y*) tn3270 128.205.2.22;; 
		*) clear;;
		esac
	clear;;
[Mm][Oo])
	clear
	echo
	echo "	Missouri
	

		University of Missouri
	
		1. Columbia Campus
	
		2. Rolla Campus
	
		3. St. Louis campus"
	echo
	echo
	echo -n "Pick a number [RETURN exits] "
	read answer
		case $answer in	
		1) clear
		echo
		echo "Columbia Campus
		
		Press TAB to get to the COMMAND prompt and type
		DIAL VTAM.  At the next prompt, type LUMIN
		To quit, type #LOGOFF and then UNDIAL."
		echo -n "Connect?  [y] "
       		read answer
                        case $answer in
""| y* | Y*) tn3270 UMCVMB.MISSOURI.EDU;;
 			*) clear;;
                        esac;;
		2) clear
		echo 
		echo "Rolla Campus 
		
		Press TAB to get to the COMMAND prompt and type
		DIAL VTAM.  At the next prompt, type LUMIN
		To quit, type #LOGOFF and then press Ctrl C."
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 UMRVMB.UMR.EDU;; 
                        *) clear;;
                        esac;;
		3) clear
		echo
		echo "St. Louis campus
		
		Press TAB to get to the COMMAND prompt and type
		DIAL VTAM.  At the next prompt, type LUMIN
		To quit, type #LOGOFF and then UNDIAL."
		echo
		read answer
                        case $answer in
""| y* | Y*) tn3270 UMSLVMA.UMSL.EDU;; 
                        *) clear;;
                        esac;;
		*) clear;;
		esac
	clear;;
[Mm][Tt])
	echo
	clear
	echo
	echo "	Montana has nothing to offer right now."
   	echo
        echo "Hit <return> to continue "
        read answer
        clear;;	
[Nn][Ee])
	echo
	echo "	Nebraska
	

		University of Nebraska Libraries
			At the login prompt, type library"
	echo
	echo
	echo -n "Connect? [y]"
	read answer24
		case $answer24 in
		"" | Y* | y*) tn3270 unllib.unl.edu;;
		*) clear;;
		esac
	clear;;
[Nn][Vv])
	clear
	echo
	echo "	Nevada
	
	
		University of Nevada, Las Vegas
			Type library at the login prompt.
			To quit, type n to return to the main menu, then
			elect disconnect to exit the system."
	echo
	echo
	echo -n "Connect? [y] "
	read answer
	case $answer in
		"" | Y* | y*)
			tn3270 library.lv-lib.nevada.edu;;
		*) clear;;
		esac
	clear;;
[Nn][Hh])
	clear	
	echo 
	echo "	New Hampshire
	
	
		1. Dartmouth College Library Online Catalog
	
		2. Dartmouth Dante Database
	
		3. University of New Hampshire's VideoTex"
	echo
	echo
	echo -n "Pick a number [RETURN exits] "
	read answer13
		case $answer13 in
		1) clear
		echo 
		echo "Dartmouth College Library Online Catalog"
		echo	
		echo "Enter  bye  to exit."
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 LIB.DARTMOUTH.EDU;; 
                        *) clear;;
                        esac;;	
		2) clear
		echo
		echo "Dartmouth Dante Database"
		echo
		echo "Log in as ddpdemo."
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 eleazar.dartmouth.edu;; 
                        *) clear;;
                        esac;;
		3) clear
		echo
		echo "University of New Hampshire's VideoTex
		
		USERNAME:  student (no password required)
		Control-z to log off"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 unhvtx.unh.edu;; 
                        *) clear;;
                        esac;;
		*) clear;;
		esac
	clear;;
[Nn][Jj])
	clear
	echo
	echo "	New Jersey
	
	
		1. Princeton University Library
	
		2. Princeton University Library Online Research Resources
	
		3. Princeton News Network PNN"
	echo
	echo
	echo -n "Pick a number [RETURN exits] "
	read answer14
		case $answer14 in
  		1) clear
		echo
		echo "Princeton University Library
		
		You'll need to hit RETURN a few times, but when you see
		the online research resources.
		To exit, type LOGOFF"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 pucable.princeton.edu;; 
                        *) clear;;
                        esac;;
		2) clear
		echo
		echo "Princeton University Library Online Research
Resources
		 
		Press RETURN at the first screen.  Type folio to go to
		the online research resources.
		To exit, type LOGOFF"
		echo
		echo -n "Connect?  [y] "
		read answer
                        case $answer in
""| y* | Y*) tn3270 PUCC.PRINCETON.EDU;; 
                        *) clear;;
                        esac;;
		3) clear
		echo
		echo "Princeton News Network PNN
		
		When you see the VM 370 logo, press Ctrl Z (CLEAR)
		and instead of logging on, type pnn
		Press Ctrl Z (CLEAR) once more."
		echo
                echo -n "Connect?  [y] "
                read answer	
                        case $answer in
""| y* | Y*) tn3270 PUCC.PRINCETON.EDU;;
                        *) clear;;
                        esac;;
		*) clear;;
		esac
	clear;;
[Nn][Mm])
        clear
	echo "New Mexico

	1. University of New Mexico Libraries and campus information
	
	2. University of New Mexico General Library, LIBROS system
	
	3. University of New Mexico Medical Center Library
	
	4. New Mexico State University Library

	5. New Mexico State University NMSU/INFO"
	echo
	echo
	echo -n "Pick a number [RETURN exits] "
	read answer15
		case $answer15 in
		1) clear
		echo
		echo "University of New Mexico Libraries and campus
information"
		echo  
		echo "At login prompt, enter STUDENTx, where x is a
number"
		echo "from 1 to 6"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 bootes.unm.edu;; 
                        *) clear;;
                        esac;; 
		2) clear
		echo
		echo "University of New Mexico Medical Center Library"
		echo
		echo "Type start to display the LIBROS welcome screen."
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 libros.unm.edu;; 
                        *) clear;;
                        esac;;
		3) clear
		echo
		echo "University of New Mexico Medical Center Library"
		echo
		echo "At the username prompt, enter UNM_INFO"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 bootes.unm.edu;; 
                        *) clear;;
                        esac;;
		4) clear 
		echo
		echo "New Mexico State University Library"
		echo 
		echo "At the : prompt enter  hello user.libr01"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 library.nmsu.edu;; 
                        *) clear;;
                        esac;;
		5) clear
		echo
		echo "New Mexico State University NMSU/INFO"
		echo
		echo "Campus information system"
		echo 
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 info.nmsu.edu;; 
                        *) clear;;
                        esac;;
		*) clear;;
		esac
	clear;;
[Nn][Yy])
	clear
	echo
	echo "	New York
	
	
		1. Rensselaer Polytech Institute
	
		2. New York University Library
 	
		3. New York University Campus information system
	
		4. Columbia University
 	
		5. Cornell Library
 	
		6. Cornell campus information system
	
		7. SUNY at Binghamton"
	echo
	echo
	echo -n "Pick a number [RETURN exits] "
	read answer16
		case $answer16 in
		1) clear
		echo
		echo "Rensselaer Polytech Institute"
		echo 
		echo "Press ? for a list of possible terminal types."
		echo "To exit, type stop"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 INFOTRAC.RPI.EDU;; 
                        *) clear;;
                        esac;;
		2) clear
		echo
		echo "New York University Library"
		echo
		echo "Hit RETURN once or twice to get a prompt."
		echo "Type END to quit."
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 BOBCAT.NYU.EDU;; 
                        *) clear;;
                        esac;;
		3) clear
		echo
		echo "New York University Campus information system"
		echo
		echo 
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 info.nyu.edu;; 
                        *) clear;;
                        esac;;
		4) clear
		echo
		echo "Columbia University"
		echo
		echo "Log in as calendar"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 cal.cc.columbia.edu;; 
                        *) clear;;
                        esac;;
		5) clear
		echo
		echo "Cornell Library
		
		At host name enter cornellc
		At logon hit RETURN
		At blank screen enter library
		TO EXIT enter x"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 CORNELLC.CIT.CORNELL.EDU;; 
                        *) clear;;
                        esac;;
		6) clear
		echo
		echo "Cornell campus information system"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 cuinfo.cornell.edu 300;; 
                        *) clear;;
                        esac;;
		7) clear
		echo
		echo "SUNY at Binghamton
		
		At prompt enter dial vtam
		At the VTAM menu enter elixir
		TO EXIT  CONTROL Z then OFF then UNDIAL"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 BINGVMC.CC.BINGHAMTON.EDU;; 
                        *) clear;;
                        esac;;
		*) clear;;
		esac
	clear;;
[Nn][Cc])
	clear
	echo
	echo "	North Carolina
	

	1. BIS, the Triangle Research Libraries Network Bibliographic
	Information System.  University of North Carolina at Chapel
	Hill.
	
	2. Appalachian State University, campus information system

	3. North Carolina State University Happenings
	
	4. University of North Carolina at Chapel Hill INFO"
	echo
	echo
	echo -n "Pick a number [RETURN exits] "
	read answer26
		case $answer26 in
		1) clear
		echo
		echo "BIS, the Triangle Research Libraries Network
Bibliographic
		Information System.  Duke University, North Carolina State
		University, and the University of North Carolina at Chapel
		Hill
		
		Once you are connected, type start.  To quit
press
		Ctrl ] and type send escape"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 librot1.lib.unc.edu;; 
                        *) clear;;
                        esac;;
		2) clear
		echo
		echo "Appalachian State University, campus information
system"
		echo
		echo "Log in as info."
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 conrad.appstate.edu;; 
                        *) clear;;
                        esac;;
		3) clear
		echo
		echo "North Carolina State University Happenings"
		echo
		echo "Campus information system.  Log in as info"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 ccvax1.cc.ncsu.edu;; 
                        *) clear;;
                        esac;;
		4) clear
		echo
		echo "University of North Carolina at Chapel Hill INFO"
		echo  
		echo "Log in as INFO"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 info.acs.unc.edu;; 
                        *) clear;;
                        esac;;
		*) clear;;
	esac
	clear;;
[Nn][Dd]) clear
	echo
	echo "	North Dakota has nothing to offer right now."
	echo
        echo "Hit <return> to continue "
        read answer
	clear;;
[Oo][Hh])
	clear
	echo
	echo "	Ohio
	
		1. Cleveland Public Library
	
		2. University of Toledo
	
		3. Case Western Reserve University
	
		4. Kent State University
	
		5. Ohio State University
	
		6. University of Dayton
	
		7. Wright State University"
	echo
	echo
	echo -n "Pick a number [RETURN exits] "
	read answer17
		case $answer17 in
		1) clear
		echo
		echo "Cleveland Public Library"
		echo 
		echo "TO EXIT type CTRL-Z"
		echo "There is a short survey to answer"
		echo 
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 LIBRARY.CPL.ORG;; 
                        *) clear;;
                        esac;; 
		2) clear
		echo
		echo "University of Toledo
		
		Press RETURN on UT logo screen.
		When <enter one of the following commands...>
		appears, enter DIAL MVS
		When <dialed to mvs xxxx> appears, type UTMOST
		To quit, type DISC"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 UOFT01.UTOLEDO.EDU;; 
                        *) clear;;
                        esac;;		
		3) clear
		echo
		echo "Case Western Reserve University"
		echo 
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 EUCLID.CWRU.EDU;; 
                        *) clear;;
                        esac;;
		4) clear
		echo
		echo "Kent State University"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 CATALYST.KENT.EDU;; 
                        *) clear;;
                        esac;;
		5) clear
		echo
		echo "Ohio State University"
		echo
		echo "To exit, type bye."
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 LCS.US.OHIO-STATE.EDU;; 
                        *) clear;;
                        esac;;
		6) clear
		echo
		echo "University of Dayton
		
		At a blank screen type LOGIN PUB02.  The password is
		PUBLIC.
		To exit, choose LOGOFF from the main menu or type Q."
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 UDAPRL.OCA.UDAYTON.EDU;; 
                        *) clear;;
                        esac;;
		7) clear
		echo
		echo "Wright State University"
		echo
		echo "The Username is LIBNET2, and the password is
WRIGHT."
		echo  
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 DESIRE.WRIGHT.EDU;; 
                        *) clear;;
                        esac;;
		*) clear;;
 		esac
	clear;; 
[Oo][Kk])
	clear
	echo
	echo "	Oklahoma
	
	
		University of Tulsa
		      At the first prompt, type LIAS,TU"
	echo
	echo
	echo -n " Connect? [y] "
	read answer
        	case $answer in
		"" | Y* | y*) tn3270 BULL.UTULSA.EDU;;
		*) clear;;
		esac
	clear;;
[Oo][Rr])
	clear
	echo
	echo "	Oregon
	

		University of Oregon
	
			Only VT100, Wyse, and TVI925 terminals work here.
			Hit 3 returns when you get there"
	echo 
	echo 
	echo 
	echo -n "Connect? "
        read answer
        case $answer in
                "" | Y* | y*) tn3270 JANUS.UOREGON.EDU;;
                *) clear;;
                esac
        clear;;
[Pp][Aa])
	clear
	echo 
	echo "	Pennsylvania
	
	
		1. University of Pittsburgh
	
		2. Carnegie Mellon University
	
		3. Penn State
	
		4. Penn State Agricultural, PENpages
	
	 	5. Lehigh University 
	
		6. University of Pennsylvania, on-line library catalog
	
	 	7. University of Pennsylvania, MEDINFO"
	echo 
	echo 
	echo -n "Pick a number [RETURN exits] "
	read answer19
		case $answer19 in
		1) clear
		echo
		echo "University of Pittsburgh"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 GATE.CIS.PITT.EDU;; 
                        *) clear;;
                        esac;;
		2) clear
		echo
		echo "Carnegie Mellon University"
		echo 
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 cmulibrary.andrew.cmu.edu;; 
                        *) clear;;
                        esac;;
		3) clear
		echo
		echo "Penn State"
		echo
		echo "To quit, type END"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 lias.psu.edu;; 
                        *) clear;;
                        esac;; 
		4) clear
		echo "Penn State Agricultural, PENpages"
		echo
		 echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 psupen.psu.edu;; 
                        *) clear;;
			esac;;		
		5) clear
		echo
		echo "Lehigh University"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 asa.lib.lehigh.edu;; 
                        *) clear;;
                        esac;;
		6) clear
		echo
		echo " University of Pennsylvania, on-line library
catalog"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 pennlib.upenn.edu;; 
                        *) clear;;
                        esac;;
		7) clear
		echo
		echo "University of Pennsylvania, MEDINFO"
		echo 
		echo "Log in as penn_med"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 med.upenn.edu;; 
                        *) clear;;
                        esac;;
		*) clear;;
		esac
	clear;;
[Rr][Ii])
	clear
	echo
	echo "	Rhode Island
	
	
		Brown University
			TAB to "COMMAND" and type DIAL JOSIAH
			The passthru menu should display. TAB to any of the
			Josiah choices on the screen and press RETURN.
			To quit, press ESC - <PF10> and choose the Logoff
			option.  Press ESC 3 <PF3> and Ctrl C."
	echo
	echo
	echo -n " Connect? [RETURN exits] "
	read answer20
		case $answer20 in
		"" | Y* | y*) tn3270 brownvm.brown.edu;;
		*) clear;;
		esac
	clear;;
[Ss][Cc])
	clear
	echo
	echo "	South Carolina
	
	
		Clemson University

		1. Library
			Press B and RETURN

		2. Campus information system
			Log in as public"
	echo
	echo
	echo -n "Pick a number [RETURN exits]"
	read answer21
		case $answer21 in
		1) tn3270 clemson.clemson.edu;;
		2) tn3270 eureka.clemson.edu;;
		*) clear;;
		esac
	clear;;
[Ss][Dd]) clear
	echo
	echo "	South Dakota has nothing to offer right now."
	echo
        echo "Hit <return> to continue "
        read answer
        clear;;	
[Tt][Nn])
	clear
	echo
	echo "	Tennesee
	

		1. University of Tennesee, Knoxville
	
		2. University of Tennesee, Memphis
	
		3. Vanderbilt University"
	echo
	echo
	echo -n "Pick a number [RETURN exits] "
	read answer21
		case $answer21 in
		1) clear
		echo
		echo "University of Tennesee, Knoxville
		
		Enter LIBRARY at the "Enter Host Name or Help" prompt.
		To quit, type END"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 dca.utk.edu;; 
                        *) clear;;
                        esac;;
		2) clear
		echo
		echo "University of Tennesee, Memphis"
		echo
		echo "Health Science Center"
		echo " Log in as HARVEY"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 UTMEM1.UTMEM.EDU;; 
                        *) clear;;
			esac;;
		3) clear
		echo
		echo "Vanderbilt University"
		echo  
		echo "Log in as ACORN.  To quit, press Ctrl Z"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 CTRVAX.VANDERBILT.EDU;; 
                        *) clear;;
                        esac;;
		*) clear;;
		esac
	clear;;
[Tt][Xx])
	clear
	echo
	echo "	Texas
	

		1. Southern Methodist University
	
		2. Texas A & M

		3. University of Texas at Arlington
	
		4. University of Texas at Austin
	
		5. University of Texas at Dallas"
	echo
	echo
	echo -n "Choose a number [<return> to end] " 
	read answer22
		case $answer22 in
		1) clear
		echo  
		echo "Southern Methodist University"
		echo
		echo "Log in as PONI.  Press Ctrl Z.  Type LUSM."
		echo "To quit, press Ctrl C."
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 VM.CIS.SMU.EDU;; 
                        *) clear;;
                        esac;;
		2) clear
		echo
		echo "Texas A & M"
		echo
          	echo "TAB down to Command prompt"
		echo "Type DIAL VTAM"
		echo "At the Texas A&M Statewide Network screen, type
NOTIS"
		echo "At the CICS screen, hit RETURN"
 		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 TAMVM1.TAMU.EDU;; 
                        *) clear;;
                        esac;; 
		3) clear
		echo
		echo "University of Texas at Arlington
		
		As soon as you are connected, hit RETURN
		Enter your terminal type.  At the VTAM selection menu,
		type NOTIS.  At the CICS Logo Screen, press RETURN
		On the next screen, type LUUT
		To quit. Press RETURN and ESC 4 [PF4].  Type
		LOGOFF twice." 
		echo
                echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 ADMIN.UTA.EDU;; 
                        *) clear;;
                        esac;;
		4) clear
		echo
		echo "University of Texas at Austin"
		echo
		echo "At username type utcat.  To quit, type STOP."
		echo 
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 UTAUS.CC.UTEXAS.EDU;; 
                        *) clear;;
                        esac;;
		5) clear
		echo
		echo "University of Texas at Dallas"
		echo
		echo "Press TAB until the cursor reaches the COMMAND
prompt."
		echo "Type LIBRARY."
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 vm.utdallas.edu;; 
                        *) clear;;
                        esac;;
		*) clear;;
		esac
	clear;;
[Uu][Tt])
	clear
	echo
	echo "	Utah
	

		University of Utah, Marriott
		Press RETURN at the first screen.  Type D UNIS at the
		second screen.  Press RETURN to get the catalog screen.
		To quit, press Ctrl C."
	echo
	echo
	echo -n "Connect? [y] "
	read answer
		case $answer in
		"" | Y* | y*) tn3270 Lib.Utah.Edu;;
		*) clear;;
		esac
	clear;;
[Vv][Tt])
	clear
	echo
	echo "	Vermont
	
	
		University of Vermont
			TAB to the COMMAND prompt and type D DOSLIBR
			When DIALED TO DOSLIBR 252 appears, press Ctrl Z
			CLEAR or RETURN ENTER.
		1. IBM 3270-style terminals.
		2. All other terminals."
	echo
	echo
	echo -n "Pick a number [RETURN exits] "
	read answer
		case $answer in
		1) tn3270 luis.uvm.edu;;
		2) tn3270 uvmvm.uvm.edu;;
		*) clear;;
		esac
	clear;;
[Vv][Aa])
	clear
	echo
	echo "	Virginia
	

		1. Old Dominion University
	
		2. University of Virginia Law Library
	
		3. Virginia Polytechnic Institute and State University
	
		4. Virginia Commonwealth University"
	echo
	echo
	echo -n "Pick a number [RETURN exits] "
	read answer23
		case $answer23 in

		1) clear
		echo
		echo "Old Dominion University"
		echo
		echo "Press RETURN once.  To quit, type END or QUIT."
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 geac.lib.odu.edu;; 
                        *) clear;;
                        esac;;
		2) clear
		echo
		echo "University of Virginia Law Library
		
		Press RETURN once or twice to get a network prompt.
		Type CONNECT LAW.  To quit, press D and then type
		QUIT"
		echo
                echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 UBLAN.VIRGINIA.EDU;; 
                        *) clear;;
                        esac;;
		3) clear
		echo
		echo "Virginia Polytechnic Institute and State
University"
		echo
		echo "Type CALL VTLS"
		echo
		 echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 vtnet1.cns.vt.edu;; 
                        *) clear;;
                        esac;;
		4) clear
		echo 
		echo "Virginia Commonwealth University
		
		Press RETURN.  Type DIAL VTAM.  Press L and
		RETURN twice.  To quit, press Ctrl Z a few times, or
		until the screen is blank.  Type LOGOFF.  Type UNDIAL."
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 VCUVM1.VCU.EDU;; 
                        *) clear;;
                        esac;;	
		*)clear;;
		esac
	clear;;
[Ww][Aa]) clear
	echo
	echo "	Washington has nothing to offer right now."
	echo
	echo "Hit <return> to continue "
        read answer
        clear;;	
[Ww][Vv]) clear
	echo
	echo "	West Virginia has nothing to offer right now."
	echo
	echo "Hit <return> to continue "
        read answer
        clear;;	
[Ww][Ii])
	clear
	echo
	echo "	Wisconsin
	
	
		1. Marquette University Libraries
	
		2. University of Wisconsin Library Catalogs"
	echo
	echo
	echo -n "Pick a number [RETURN exits] "
	read answer
		case $answer in
		1) clear
		echo 
		echo "Marquette University Libraries"
		echo 
		echo "Press RETURN until you get an instruction screen."
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 LIBUS.CSD.MU.EDU;; 
                        *) clear;;
                        esac;; 
		2) clear
		echo
		echo "University of Wisconsin Library Catalogs
		
		Madison and Milwaukee campuses
		Press TAB to move the cursor to the option you want
		and press RETURN" 
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 blue.adp.wisc.edu;; 
                        *) clear;;
                        esac;;
		*) clear;;
		esac
	clear;;
[Ww][Yy]) clear
	echo
	echo
	echo "	Wyoming has nothing to offer right now."
	echo
	echo "Hit <return> to continue "
        read answer
        clear;;	
[Mm][Ii][Ss][Cc])
	clear
	echo
	echo "	Miscellaneous Services
	
		1. Data Research Associates
			Library of Congress catalog
	
		2. Ham Radio Call Book
	
		3. National Science Foundation
			Log in as public
	 
		4. Geographical Server
	
		5. Weather Server"	
	echo
	echo -n "Pick a number [RETURN exits] "
	read answer25
		case $answer25 in
		1) tn3270 DRA.COM;;
		2) tn3270 ham.njit.edu 2000;;
		3) tn3270 stis.nsf.gov;;
		4) tn3270 141.212.100.9 3000;;
		5) tn3270 141.212.196.79 3000;;		
		*) clear;;
		esac
	clear;;
[Ff][Oo][Rr])
	clear
	echo
	echo
	echo
	echo "			Foreign Libraries
	
	 			(AU) Australia
				(CA) Canada
	 			(UK) United Kingdom
	 			(DE) Germany
	 			(IL) Israel
	 			(MX) Mexico
	 			(NZ) New Zealand"
	echo
	echo -n "            Where would you like to go? [RETURN to exit] "
	read destination2
	case $destination2 in
[Aa][Uu])
	clear
	echo "	Australia
	
	
		1. Australian Defence Force Academy
	
		2. Australian National University's Library catalog
	
	  	3. Deakin University Library, Victoria"
	echo
	echo -n "Pick a Number [RETURN exits]"
	read answer
		case $answer in
		1) clear
		echo
		echo "Australian Defence Force Academy
		
		When prompted for a destination, enter LIBRARY
		When asked to login, type E"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 LIBRARY.ADFA.OZ.AU;; 
                        *) clear;;
                        esac;;
		2) clear
		echo
		echo "Australian National University's Library catalog"
		echo
		echo "Log in as library"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 library.anu.edu.au;; 
                        *) clear;;
                        esac;;
		3) clear
		echo
		echo "Deakin University Library, Victoria"
		echo
		echo "When asked to login, type alice"
		echo "To exit, type ~. (i.e. tilde, dot) Press:
[RETURN]"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 LIBRARY.DEAKIN.OZ.AU;; 
                        *) clear;;
                        esac;; 
		*) clear;;
		esac
	clear;;
[Cc][Aa])
	clear 
	echo "	Canada
	
		1. University of New Brunswick, Canada, INFO
	
 	  	2. University of Calgary, Canada
	
	  	3. Queen's University Libraries, Kingston, Ontaro
	
	  	4. University of Saskatchewan Libraries--
	
	  	5. University of Saskatchewan Libraries--
				(InfoAccess)" 
	echo 	
	echo "	6. University of Toronto"
	echo
	echo -n "Pick a number [RETURN exits] "
	read answer
		case $answer in
		1) clear
		echo
		echo "University of New Brunswick, Canada, INFO"
		echo
		echo "Log in with application id INFO.  There is no"
		echo "password"
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 unbmvs1.csd.unb.ca;; 
                        *) clear;;
                        esac;;
		2) clear
		echo
		echo "University of Calgary, Canada"
		echo
		echo "When requested type library"
		echo "Control C G to end"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 develnet.ucalgary.ca;; 
                        *) clear;;
                        esac;;
		3) clear
		echo
		echo "Queen's University Libraries, Kingston, Ontaro"
		echo
		echo 
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 QUCDNADM.QUEENSU.CA;; 
                        *) clear;;
                        esac;;
		4) clear
		echo
		echo "University of Saskatchewan Libraries--"
		echo
		echo " Main Collection (Geac OPAC)"
		echo "At Request prompt type LIB"
		echo  
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 128.233.20.1;; 
                        *) clear;;
                        esac;;
		5) clear
		echo
		echo "University of Saskatchewan Libraries--"
		echo
		echo "Local bibliographic databases (InfoAcess)" 
		echo "Main Collection (Geac OPAC)"
		echo "At Request prompt type LIB"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 128.233.20.1;; 
                        *) clear;;
                        esac;;
		6) clear
		echo
		echo "University of Toronto"
		echo
		echo "At SERVICE? prompt type FELIX (caps manditory)"
		echo
		echo -n "Connect?  [y] "
                read answer
                        case $answer in
""| y* | Y*) tn3270 128.100.100.31;;
                        *) clear;;
                        esac;; 
		*) clear;; 
		esac
	clear;;
[Dd][Ee])
	clear
	echo "Germany"
	echo
	echo "	1. University of Konstanz"
	echo "  	(in German)"
	echo -n "Connect?  <return> exits "	
	read answer
		case $answer in
		[Yy]) tn3270 polydos.uni-konstanz.de;;
		*) clear;; 
		esac
	clear;;
[Ii][Ll])
	clear
	echo "Israel
	
		1. Interuniversity Computerized Catalog System (ALEPH)
	          At Userid prompt type ALEPH
	          (English, Hebrew, and Arabic)
	          Change Languages with ? key"
	echo
	echo
 	echo -n "Pick a number (RETURN exits)"
 	read answer
		case $answer in
		1) tn3270 ALEPH.BIU.AC.IL;;
		*) clear;;
		esac
	clear;;
[Mm][Xx])
	clear
	echo " Mexico
	
		1. Instituto Technologico Y Estudios Superiores
	           de Monterrey
		   (Spanish)
	
		2. Universidad de las Americas, Puebla"
	echo
	echo -n "Pick a number (RETURN exits)"
	read answer
		case $answer in
		1) clear
		echo
		echo "Instituto Technologico Y Estudios Superioresi
      		      de Monterrey
		
		At login type mtycat with no password
		At presentation screen type r
		    (Spanish)" 
		echo
		echo -n "Connect?"
 		read answer
                        case $answer in
""| y* | Y*) tn3270 mtecv2.mty.itesm.mx;; 
                        *) clear;;
                        esac;;
		2) clear
		echo
		echo "Universidad de las Americas, Puebla"
		echo
		echo "At Username type LIBRARY"
		echo 
		echo -n "Connect?"
                read answer
                        case $answer in
""| y* | Y*) tn3270 bibes.pue.udlap.mx;; 
                        *) clear;;
                        esac;;
		*) clear;;
		esac
	clear;;
[Nn][Zz])
	clear
	echo " New Zealand
	
	  1.  Victoria University of Wellington
			At SERVICE prompt type LIB
			When asked to Logon type PUB 
			To logoff type LATER
			(English)"
	echo
	echo -n "Pick a number (RETURN exits)"
	read answer
		case $answer in
		1) tn3270 library.vuw.ac.nz;;
		*) clear;;
		esac
	clear;;
[Uu][Kk])
	clear
	echo "United Kingdom--
        
        1.  Aberdeen              2.  Aberystwyth
        3.  Aston                 4.  Bangor   
        5.  Bath                  6.  Observatory Belfast 
        7.  Birmingham            8.  Bristol 
        9.  Brunel                10. Cambridge
	11. City of London Poly   12. City University
        13. Cranfield             14. Dundee University
        15. Dundee Coll Tech      16. Durham 
	17. East Anglia           18. Edinburgh
        19. Essex                 20. Glasgow 
	21. Heriot-Watt           22. Hull
        23. Kent                  24. Lancaster
        25. Leeds                 26. Leicester Poly
	27. Leicester U.          28. Liverpool
        29. BLPES                 30. Imperial"
        echo
        echo -n "Enter number or type N to continue listing "
	read answer
		case $answer in
		1) clear
		echo "Aberdeen University
		
		Once you are connected:
		Login: janet <return> (this must be in lower case)
		hostname: UK.AC.ABDN.LIB <return>
		Login is normally automatic. If a <Logon please> prompt
		is issued, type  LIBRARY
		If asked for a terminal type, select VT100
		Use END <return> to quit at any time"
		echo
		echo -n "Connect? [Y] "
		read answer
			case $answer in
			[Nn]*) clear;;
			*) tn3270 sun.nsf.ac.uk;;
			esac
		clear;;
		2) clear
		echo "Aberystwyth University

		Once you are connected:
                Login: janet <return> (this must be in lower case)
                hostname: UK.AC.ABER.LIB <return>
                Login is normally automatic. If a <Logon please> prompt
                is issued, type  LIBRARY
                If asked for a terminal type, select VT100
        	Use END <return> to quit at any time"
                echo
                echo -n "Connect? [Y] "
                read answer
                        case $answer in
                        [Nn]*) clear;;
                        *) tn3270 sun.nsf.ac.uk;; 
			esac
		clear;;	
		3) clear
		echo "Aston University

		Once you are connected:
                Login: janet <return> (this must be in lower case)
                hostname: UK.AC.ASTON.GEAC <return>
             	If asked for a terminal type, select VT100
                Use END <return> to quit at any time"
                echo
                echo -n "Connect? [Y] "
                read answer
                        case $answer in
                        [Nn]*) clear;;
                        *) tn3270 sun.nsf.ac.uk;;
                        esac
                clear;;	
		4) clear
		echo "Bangor University

		Once you are connected:
                Login: janet <return> (this must be in lower case)
                hostname: UK.AC.BANGOR.LIB <return>
                If asked for a terminal type, select VT100
		Use END <return> to quit at any time"
                echo
                echo -n "Connect? [Y] "
                read answer
                        case $answer in
                        [Nn]*) clear;;
                        *) tn3270 sun.nsf.ac.uk;;
                        esac
                clear;;
		5) clear
		echo "Bath University

		Once you are connected:
                Login: janet <return> (this must be in lower case)
                hostname: UK.AC.BATH.LIB <return>
		Login with password OPAC.
                If asked for a terminal type, select VT100
                Use END <return> to quit at any time"
                echo
		echo -n "Connect? [Y] "
                read answer
                        case $answer in
                        [Nn]*) clear;;
                        *) tn3270 sun.nsf.ac.uk;;
                        esac
                clear;;
		6) clear
		echo " Queens University Belfast

		Once you are connected:
                Login: janet <return> (this must be in lower case)
                hostname: UK.AC.QUB.LIB <return>
		If asked for a terminal type, select VT100
                Use Control C Q <return> to quit at any time"
                echo
                echo -n "Connect? [Y] "
                read answer
                        case $answer in
                        [Nn]*) clear;;
                        *) tn3270 sun.nsf.ac.uk;;
			esac
                clear;;
   		7) clear
		echo "Birmingham University

		Once you are connected:
                Login: janet <return> (this must be in lower case)
                hostname: UK.AC.BHAM.LIB <return>
                If asked for a terminal type, select VT100
                Use Control C Q <return> to quit at any time"
		echo
                echo -n "Connect? [Y] "
                read answer
                        case $answer in
                        [Nn]*) clear;;
                        *) tn3270 sun.nsf.ac.uk;;
                        esac
                clear;;
		8) clear
		echo "Bristol University

		Once you are connected:
                Login: janet <return> (this must be in lower case)
                hostname: UK.AC.BRIS.LIB <return>
		Logon/logoff: Login information given on introductory
		message.  EXIT at menu to logout.
                If asked for a terminal type, select VT100
                Use Control C Q <return> to quit at any time" 
 		echo
                echo -n "Connect? [Y] "
                read answer
          		case $answer in
                        [Nn]*) clear;;
                        *) tn3270 sun.nsf.ac.uk;;
                        esac
                clear;; 
		9) clear
		echo "Brunel University
		
 		Once you are connected:
                Login: janet <return> (this must be in lower case)
                hostname: UK.AC.BRUNEL.LIB <return>
              	If asked for a terminal type, select VT100
                Use Control C Q <return> to quit at any time"
		echo
                echo -n "Connect? [Y] "
                read answer
                        case $answer in
                        [Nn]*) clear;;
                        *) tn3270 sun.nsf.ac.uk;;
                        esac
                 clear;;
		10) clear
		echo "Cambridge University
		
		Once you are connected:
                Login: janet <return> (this must be in lower case)
                hostname: UK.AC.CAM.UL <return>
                If asked for a terminal type, select VT100
                Use Control C Q <return> to quit at any time"
		echo
		echo -n "Connect? [Y] "
                read answer
                        case $answer in
                        [Nn]*) clear;;
                        *) tn3270 sun.nsf.ac.uk;;
                        esac
                 clear;;
		11) clear
		echo "City of London Polytechnic"
		echo
		echo "Once you are connected:"
                echo "Login: janet <return> (this must be in lower case)"
		echo "hostname: UK.AC.CLP   <return>"
		echo "Username: LIBRARY"
		echo "If asked for a terminal type, select VT100"
                echo "Use Control C Q <return> to quit at any time"
                echo -n "Connect? [Y] "
                read answer
                        case $answer in
                        [Nn]*) clear;;
                        *) tn3270 sun.nsf.ac.uk;;
                        esac
                 clear;;
		12) clear
		echo "City University"
		echo
		echo "Once you are connected:"
		echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.CITY.LIBRARY   <return>"
		echo "If asked for a terminal type, select VT100"
                echo "Use Control C Q <return> to quit at any time"
                echo -n "Connect? [Y] "
                read answer
                       case $answer in
		       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		13) clear
		echo
		echo "Cranfield Institute of Technology"
		echo
		echo "Once you are connected:"
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.CRAN.LIB   <return>"
		echo "logoff: Type EXIT to logoff"
		echo "If asked for a terminal type, select VT100"
		echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		14) clear
		echo
		echo "Dundee University"
		echo  
		echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.DUND.LIBB   <return>"
		echo "If asked for a terminal type, select VT100"
		echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		15) clear
		echo
		echo "Dundee College of Technology"
		echo
		echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.DCT.LIB   <return>"
                echo "If asked for a terminal type, select VT100"
                echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		16) clear
		echo
		echo "Durham University"
		echo
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.DUR.LIBRARY   <return>"
                echo "If asked for a terminal type, select VT100"
                echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		17) clear
		echo
		echo "East Anglia"
		echo
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.UEA.INFO  <return>"
		echo "Username: INFO <return>"
                echo "If asked for a terminal type, select VT100"
                echo -n "Connect? [Y] "
                read answer
                       case $answer in
		       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		18) clear
		echo
		echo "Edinburgh University"
		echo
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.ED.GEAC  <return>"
                echo "If asked for a terminal type, select VT100"
                echo -n "Connect? [Y] "
                read answer             
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		19) clear
		echo
		echo "Essex University"
		echo
		echo
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.SX.SERSUN1  <return>"
		echo "Login: library <return>"
                echo "If asked for a terminal type, select VT100"
                echo -n "Connect? [Y] "
                read answer
		       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		20) clear
		echo
		echo "Glasgow University"
		echo
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.GLA.LIB  <return>"
              	echo "If asked for a terminal type, select VT100"
                echo -n "Connect? [Y] "
		read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		21) clear
		echo
		echo "Heriot-Watt University"
		echo
		echo"Once you are connected:"
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.HW.LIB  <return>"
                echo "If asked for a terminal type, select VT100"
		echo "Use Control-C Q <return> to quit at any time"
                echo -n "Connect? [Y] "
		read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		22) clear
		echo
		echo "Hull University"
		echo "Once you are connected:"
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.HULL.GEAC  <return>"
                echo "If asked for a terminal type, select VT100"
                echo "Use Control-C Q <return> to quit at any time"
                echo -n "Connect? [Y] " 
		read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		23) clear
                echo
                echo "Kent University"
                echo "Once you are connected:"
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.UKC.IRIS  <return>"
		echo "Username:  UKCLIB <return>"
		echo "Password:  UKCLIB <return>"
		echo "Username:  CATS <return>"
		echo
                echo "If asked for a terminal type, select VT100"
                echo "Use Control-C Q <return> to quit at any time"
                echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
		       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;	
		24) clear
                echo
                echo "Lancaster University"
                echo "Once you are connected:"
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.LANCS.LIB <return>"
		echo "<return> to wake up the system"
		echo
                echo "If asked for a terminal type, select VT100"
                echo "Use Control-C Q <return> to quit at any time"
                echo -n "Connect? [Y] "
		read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		25) clear
                echo
                echo "Leeds University

                Once you are connected:
                Login: janet <return> (this must be in lower case)
                hostname: UK.AC.LEEDS.LIBCAT <return>
		Use END <return> or Control-C Q <return> to quit at any time"
		echo
		echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		26) clear
		echo
		echo "Leicester Polytechnic"
		echo
		echo "Once you are connected:"
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.LEICP.OPAC <return>"
		echo "Service: OPAC"
		echo "Use Control-C Q <return> to quit at any time"
		echo "If asked for a terminal type, select VT100"
		echo -n "Connect? [Y] "
                read answer
		       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		27) clear
		echo
		echo "Leiester University"
		echo
                echo "Once you are connected:"
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.LEICESTER.LIBRARY <return>"
		echo "Username:  LIBRARY <return>"
		echo "Use Control-C Q <return> to quit at any time"
                echo "If asked for a terminal type, select VT100"
                echo -n "Connect? [Y] "
		read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		28) clear
		echo
		echo "Liverpool University"
		echo
		echo "Once you are connected:"
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.LIVERPOOL.LIBRARY <return>"
		echo "Use Control-C Q <return> to quit at any time"
                echo "If asked for a terminal type, select VT100"
                echo -n "Connect? [Y] "
		read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		29) clear
		echo
		echo "London University--"
		echo "British Library of Political and Economic Science"
		echo
		echo "Once you are connected:"
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.LSE.BLPES <return>"
		echo "Username:   LIBRARY <return>"
		echo echo "Use Control-C Q <return> to quit at any time"
                echo "If asked for a terminal type, select VT100"
                echo -n "Connect? [Y] "
		read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		30) clear
		echo
		echo "London University--"
		echo "Imperial College of Science, Technology and Medicine"
		echo
		echo "Once you are connected:"
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.IC.LIB <return>"
		echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
	[Nn])	clear
		echo "United Kingdom--
	        31. Kings                 32. QMW 
       		33. UCL                   34. Loughborough
        	35. Manchester            36. Newcastle
		37. NISSPAC               38. Nottingham
		39. Open University       40. Oxford
        	41. Poly Central London   42. Poly South West
		43. Reading               44. Royal Greenwich
        	45. Rutherford Appleton   46. St Andrews
       		47. Salford               48. Sheffield	
		49. South Bank Polytechnic50. Southampton
        	51. Stirling              52. Strathclyde
        	53. Surrey                54. Sussex
        	55. Swansea               56. Thames Polytechnic
        	57. UMIST                 58. UWC
		59. Warwick               60. York"
		echo -n "Enter number or press <return> to end "
		read answer
                	case $answer in
		31) clear
		echo
		echo "London University--Kings College"
		echo
		echo "Once you are connected:"
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.KCL.LIB <return>"
		echo "Username:   LIBRARY <return>"
		echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		32) clear
		echo
		echo "London University--"
		echo "Queen Mary and Westfield College"
		echo
		echo "Once you are connected:"
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.QMW.LIB <return>"
		echo "Username:   LIBRARY <return>"
                echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		33) clear
		echo
		echo "London University--University College "
		echo  
		echo "Once you are connected:"
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.UCL.LIB <return>"
		echo "Username:   LIBRARY <return>"
                echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		34) clear
		echo
		echo "Loughborough University"
		echo
		echo "Once you are connected:"
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.LUT.LIB <return>"
		echo "If asked for a terminal type, select VT100"
		echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		35) clear
		echo
		echo "Manchester University"
		echo
		echo "Once you are connected:"
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.MAN.CN.XB <return>"
		echo "Owens Class: LIBRARY"
		echo "If asked for a terminal type, select VT100"
                echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
		       esac
                clear;;
		36) clear
		echo
		echo "Newcastle University"
		echo
		echo "Once you are connected:"
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.DURHAM.GATE <return>"
		echo "Which service?: NCL.INFO <return>"
		echo "If asked for a terminal type, select VT100"
                echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		37) clear
                echo
		echo "NISSPAC"
		echo
                echo "Once you are connected:"
                echo "Login: janet <return> (this must be in lower
case)"
                echo "hostname: UK.AC.NISS  "
	   	echo "If asked for a terminal type, select VT100"
                echo -n "Connect? [Y] "
                read answer
		       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;	
		38) clear
		echo
		echo "Nottingham University"
		echo
		echo "Once you are connected:"
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.NOTT.LIB <return>"
		echo "Username: LIBRARY <return>" 
		echo "If asked for a terminal type, select VT100"
                echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		39) clear
		echo
		echo "Open University"
		echo
		echo "Once you are connected:"
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.OU.ACSVAX <return>"
		echo "Username: OULIBRARY <return>"
		echo "If asked for a terminal type, select VT100"
                echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		40) clear
		echo
		echo "Oxford University"
		echo
		echo "Once you are connected:"
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.OX.PACX <return>"
		echo "Service :LIBRARY"
		echo "If asked for a terminal type, select VT100"
                echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
		       esac
                clear;;
		41) clear
		echo
		echo "Polytechnic of Central London"
		echo
		echo "Once you are connected:"
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.PCL.YAK <return>"
		echo "User: LIBRARY"
		echo "If asked for a terminal type, select VT100"
                echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		42) clear
		echo
		echo "Polytechnic South West"
		echo
		echo "Once you are connected:"
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.PSW.LIB <return>"
		echo "Username: LIBRARY"
                echo "If asked for a terminal type, select VT100"
                echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
		       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		43) clear
		echo
		echo "Reading University"
		echo
		echo "Once you are connected:"
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.RDG.LINNET <return>"
		echo "Press Control-O twice to begin."
		echo "If asked for a terminal type, select VT100"
		echo "Use Control-C Q <return> to quit at any time"
		echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		44) clear
                echo
		echo "Royal Greenwich"
                echo
                echo "The Greenwich Observatory catalog is not available
on line."
		echo "For information on using the database"
		echo "please send email to: library@rgo.ac.uk"
		echo -n "Hit <return> to continue"
                read answer
                       case $answer in
		       *) clear;; 
                       esac
                clear;;		
		45) clear
		echo
		echo "The Rufferford Appleton Laboratory"
		echo
		echoecho "Once you are connected:"
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.RL.IB <return>"
		echo "Logon/logoff: Logon using one of the ids"
		echo "lib4, lib5, lib7 or lib8"
		echo "e.g. type     LOGON LIB7"
		echo "Password depends on the season, viz:"
		echo "Jun - Aug 91    SUMMER91"
		echo "Sept - Nov 91   AUTUMN91"
		echo "Dec 91 - Feb 92 WINTER91"
		echo "If asked for a terminal type, select VT100"
		echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		46) clear
		echo
		echo "St. Andrews University"
		echo
		echo "Once you are connected:"
		echo  
		echo "Login: janet <return> (this must be in lower case)"
		echo "hostname: UK.AC.ST-AND.LIB <return>"
		echo "If asked for a terminal type, select VT100"
                echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		47) clear
		echo
		echo "Salford University"
		echo
		echo "Once you are connected:"
                echo
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.SALF.SAISO <return>"
		echo "If asked for a terminal type, select VT100"
                echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		48) clear
		echo
		echo "Sheffield University"
		echo
		echo "Once you are connected:"
                echo
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.SHEF.LIB <return>"
		echo "If asked for a terminal type, select VT100"
                echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		49) clear
		echo
		echo "South Bank Polytechnic"
		echo
		echo "Once you are connected:"
                echo
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.SBANK.SWITCH <return>"
		echo "Logon/logoff: At prompt, enter G"
		echo "If asked for a terminal type, select VT100"
                echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		50) clear
		echo
		echo "Southampton University"
		echo
		echo "Once you are connected:"
                echo
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.SOTON.USING <return>"
		echo "If asked for a terminal type, select VT100"
                echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		51) clear
		echo
		echo "Stirling"
		echo 
		echo "Once you are connected:"
                echo
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.STIR.LIB <return>"
		echo "Type LIBRARY to logon"
		echo "If asked for a terminal type, select VT100"
                echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac

                clear;;
		52) clear
		echo
		echo "Strathclyde University"
		echo
		echo "Once you are connected:"
                echo
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.STRATH.LIB <return>"
		echo "If asked for a terminal type, select VT100"
                echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		53) clear
		echo
		echo "Surrey University"
		echo
		echo "Once you are connected:"
                echo
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.SURR.SYSI <return>"
		echo "Login: LOGIN MCS999 <return>"
		echo "Password: SIS <return>"
		echo "If asked for a terminal type, select VT100"
		echo "Use Control-C Q <return> to quit at any time"
		echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		54) clear
		echo
		echo "Sussex University"
	    	echo
		echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.SUSX.LIB <return>"
	 	echo "If asked for a terminal type, select VT100" 
		echo "Use Control-C Q <return> to quit at any time"
                echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		55) clear
		echo
		echo "Swansea University"
		echo
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.SWAN.LIBVAX <return>"
		echo "Username: LIBRARY <return>"
		echo "If asked for a terminal type, select VT100"
                echo "Use Control-C Q <return> to quit at any time"
                echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
		clear;;
		56) clear
		echo
		echo "Thames Polytechnic"
		echo
		echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.THAMES.LIB <return>"
		echo "THAMES POLYTECHNIC PAD> CALL LIBRARY <return>"
		echo "If asked for a terminal type, select VT100"
                echo "Use Control-C Q <return> to quit at any time"
                echo -n "Connect? [Y] "
                read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
    		clear;;
		57) clear
		echo
		echo "University of Manchester Institute"
		echo "of Science and Technology"
		echo
		echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.UMIST.CN.PA <return>"
		echo "Password: LIBRARY <return>"
		echo "If asked for a terminal type, select VT100"
                echo "Use Control-C Q <return> to quit at any time"
                echo -n "Connect? [Y] "
		read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		58) clear
		echo
		echo "University of Wales College of Cardiff"
		echo
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.CF.LIBY <return>"
		echo "If asked for a terminal type, select VT100"
                echo "Use Control-C Q <return> to quit at any time"
                echo -n "Connect? [Y] "
		read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		59) clear
		echo
		echo "Warwick University"
		echo
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.WARWK.OPAC <return>"
	 	echo "Logon: OPAC <return>"
		echo "If asked for a terminal type, select VT100"
                echo "Use Control-C Q <return> to quit at any time"
                echo -n "Connect? [Y] "
		read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;
		60) clear
		echo
		echo "York University"
		echo
                echo "Login: janet <return> (this must be in lower case)"
                echo "hostname: UK.AC.YORK.LIBRARY <RETURN>"
		echo "If asked for a terminal type, select VT100"
                echo "Use Control-C Q <return> to quit at any time"
                echo -n "Connect? [Y] " 
		read answer
                       case $answer in
                       [Nn]*) clear;;
                       *) tn3270 sun.nsf.ac.uk;;
                       esac
                clear;;

	*) clear;;
	esac
# esac for answer string (UK section) below   
  	esac 
	clear;;
# esac for destination2 string (foreign section) below 
esac	
clear;;
[Bb][Bb][Ss])
	clear
	echo
	echo "            Other Bulletin Boards
			
			1.  Cleveland Free-net
			2.  Endless Forest
			3.  Mars Hotel
			4.  Nyx BBS
			5.  Youngstown Freenet
			6.  Quartz BBS"
	echo
	echo -n "Where would you like to go? [RETURN to exit] "
	read destination
	case $destination in
	1) clear
	echo " Cleveland Free-net:

		Freenet is a BBS system for the City of Cleveland and is
		run by Case Western Reserve University.  Freenet contains
	        message bases and Internet mail among its services.  
						
		The first time you are on, log in as a visitor.  Then apply	
		for an account.  You will later receive your account in the
		mail."
	echo
	echo -n "Connect? [y] "
	read answer
	case $answer in
		""| y* | Y*) tn3270 FREENET-IN-A.CWRU.EDU;;
		*) clear;;
	esac
	clear;;
	2) clear
	echo "Endless Forest

	Login as iscabbs
		
	"	
	echo
	read answer
        case $answer in
                ""| y* | Y*) tn3270 isca.icaen.uiowa.edu;;
	*) clear;;
        esac
	clear;;
	3) clear
	echo " Mars Hotel:

		The Mars Hotel is a BBS system at Mississippi State
		University.  It has a nice user interface, message
		base, chat facility, mail, and file transfers.
		"
	echo
	echo -n "Connect? [y] "
	read answer
	case $answer in
	""| y* | Y*) tn3270 MARS.EE.MSSTATE.EDU;;
	*) clear;;
                esac
        clear;;
 	4) clear 
	echo "Nyx BBS
 	"
	echo
        echo -n "Connect? [y] "
        read answer
        case $answer in
        ""| y* | Y*) tn3270 isis.cs.du.edu;;
        *) clear;;
                esac
        clear;;
	5) clear
	echo
	echo "Youngstown Freenet

	Login as visitor
	"
	echo
        echo -n "Connect? [y] "
        read answer
        case $answer in
        ""| y* | Y*) tn3270 yfn.ysu.edu;;
	*) clear;;
                esac
        clear;;
	6) clear
	echo
	echo "Quartz BBS

  	Quartz is not available right now.
	Press [return] to continue
	"
	read answer
	clear;;		
esac
# esac for bbs string above 
clear;;
# esac for destination string above
*) exit;;
esac
