/*****************************************************************/ /* */ /* LIBNET EXEC */ /* */ /* Written by: James Powell */ /* jpowell@vtvm1.cc.vt.edu */ /* Written on: August 12, 1991 */ /* Revised on: September 4, 1991 */ /* */ /* REXX Internet library menuing program for VM systems. */ /* */ /* ---Developed at Newman Library, Virginia Polytechnic */ /* Institute and State University, Blacksburg, VA. */ /* */ /* Feel free to use or modify this program as long as the */ /* authors are credited. No warranty, either written or */ /* implied is provided. */ /* */ /* libnet exec provides a menu of libraries which may be reached */ /* using telnet on the internet. when a choice is made, the */ /* internet IP address is pushed on the stack, instructions are */ /* provided for logging in, and when the user hits enter to */ /* continue, telnet is executed using the chosen IP address. */ /* written by James Powell, Automation Services, August 8, 1991 */ /* */ /*****************************************************************/ /* Main */ vmfclear call intro call countries vmfclear exit /******************************************************************/ /* Initial menu screen */ intro: procedure say 'Internet Online Public Access Catalogs' say say say ' LLL IIII BBBBBB NNN NN EEEEEE TTTTTTTT' say ' LL II BB BB NNNN NN EE TT' say ' LL II BB BB NN NN NN EE TT' say ' LL II BBBBBB NN NN NN EEEEEE TT' say ' LL II BB BB NN NNNN EE TT' say ' LL II BB BB NN NNN EE TT' say ' LLLLLL IIII BBBBBB NN NN EEEEEE TT' say say 'Developed at ---' say 'Newman Library, Virginia Polytechnic Institute' say say say say '1. Libnet help' say '2. Libnet menus' say say '...or Q to Quit' pull response if response='Q' then exit if response='2' then return call libhelp return /* Help screen */ libhelp: procedure vmfclear say 'Internet Online Public Access Catalogs' say say 'About Libnet . . . ' say say 'Libnet is a menu system for VM to connect to many library online' say 'card catalogs on the Internet. The main menu is by country, and' say 'submenus are provided by state for the US and other subunits for' say 'other countries as appropriate. Instructions are provided for ' say 'systems where additional information is needed in order to connect' say 'to some systems. ' say say 'When using Libnet, please note the telnet keys provided prior ' say 'connection - usually SHIFT-F1 and others. You may escape from ' say 'a remote session at any time by entering a telnet key and responding' say 'with "quit" to the telnet> prompt.' say say 'Avoid chosing VT100 terminal emulation. Select HARDCOPY or TTY' say 'whenever possible to accomodate line mode.' say ' *Report bugs to JPOWELL@VTVM1.CC.VT.EDU' say say 'Press RETURN to continue ... ' pull continue return /* Root menu - selection of countries */ countries: procedure do while select<>'Q' vmfclear say 'Internet Online Public Access Catalogs' say say say ' Choose a country ... ' say say say ' 1. Australia' say ' 2. Canada' say ' 3. Finland' say ' 4. Germany' say ' 5. Israel' say ' 6. Mexico' say ' 7. New Zealand' say ' 8. Sweden' say ' 9. United Kingdom' say ' 10. United States' say say '... or Q to Quit' pull select if select='1' then call ausmenu if select='2' then call canmenu if select='3' then call finmenu if select='4' then call germenu if select='5' then call isrmenu if select='6' then call mexmenu if select='7' then call nzmenu if select='8' then call swmenu if select='9' then call ukmenu if select='10' then call usmenu vmfclear end return /* subroutines to call lists of libraries within a given country */ ausmenu: procedure call facts telnet return canmenu: procedure /* Canada libraries */ call newscr say ' Canada' say say ' Select a number from this menu' say say ' 1. University of Calgary, Alberta' say ' 2. McGill University, Montreal, Quebec' say ' 3. McMaster University' say ' 4. Mount Allison University, New Brunswick' say ' 5. University of New Brunswick' say ' 6. Queens University, Ontario' say pull selection if selection='1' then call ucacan if selection='2' then call mcgucan if selection='3' then call mcmucan if selection='4' then call maucan if selection='5' then call bruncan if selection='6' then call qucan return ucacan: procedure /* Canada: University of Calgary */ call newscr say ' Canada' say say ' University of Calgary' say ' Type LIBRARY at request prompt' say say 'Press RETURN to continue...' pull continue push 136.159.1.70 telnet return mcgucan: procedure /* Canada: McGill University */ call newscr say ' Canada' say say ' McGill University' say ' Choose option 2 at menu.' say say ' To exit, type OFF.' say say 'Press RETURN to continue...' pull continue push mvs.mcgill.ca telnet return mcmucan: procedure /* Canada: McMaster University */ call newscr say ' Canada' say say ' McMaster University' say ' TAB to command prompt and type DIAL VTAM,' say ' Enter logonid SUPER, password SESSION, enter S' say ' at the next screen, then F9 at service selection' say ' screen and finally F3 at next screen.' say say 'Press RETURN to continue...' pull continue push mcmvm1.cis.mcmaster.ca telnet return maucan: procedure /* Canada: Mount Allison University */ call newscr say ' Canada' say say ' Mount Allison University' say say 'Press RETURN to continue...' pull continue push 138.73.1.1 telnet return bruncan: procedure /* Canada: University of New Brunswick */ call newscr say ' Canada' say say ' University of New Brunswick' say ' Choose PHOENIX (8) from the menu.' say say 'Press RETURN to continue...' pull continue push unbmvs1.csd.unb.ca telnet return qucan: procedure /* Canada: Queens University */ call newscr say ' Canada' say say ' Queens University' say say 'Press RETURN to continue...' pull continue push qucdnadm.queensu.ca telnet return finmenu: procedure /* Helsinki University Library */ call newscr say 'Finland' say say ' Helsinki University Library' say say ' At login prompt, enter HELLO YOURNAME,USER.CLAS01' say ' At terminal type, enter 4' say ' At location (Anna kokoelma), enter 100' say ' At message 'Anna uusi', enter /LANG 1 for English' say say ' To exit, type /QUIT.' say say 'Press RETURN to continue...' pull continue push 128.214.4.130 telnet return germenu: procedure call polydos telnet return isrmenu: procedure call aleph telnet return mexmenu: procedure call bibes telnet return nzmenu: procedure call vuw telnet return swmenu: procedure call lund telnet return ukmenu: procedure call janet telnet return facts: procedure /* Australia: Australian Defense Force Academy */ push 131.236.1.13 return vuw: procedure /* New Zealand: Victoria University of Wellington */ push library.vuw.ac.nz return janet: procedure /* United Kingdom: Janet network in the United Kingdom */ vmfclear say 'Internet Online Public Access Catalogs - United Kingdom' say '1. Aberdeen 22. Hull 43. Reading' say '2. Aberystwyth 23. Kent 44. Rutherford Appleton' say '3. Aston 24. Lancaster 45. St. Andrews' say '4. Bangor 25. Leeds 46. Salford' say '5. Bath 26. Leicester Poly 47. Sheffield' say '6. Observatory Belfast 27. Leicester U. 48. South Bank Polytechnic' say '7. Birmingham 28. Liverpool 49. Southampton' say '8. Bristol 29. BLPES 50. Stirling' say '9. Brunel 30. Imperial 51. Strathclyde' say '10. Cambridge 31. Kings 52. Surrey' say '11. City of London Poly 32. QMW 53. Sussex' say '12. City University 33. UCL 54. Swansea' say '13. Cranfield 34. Loughborough 55. Thames Polytechnic' say '14. Dundee University 35. Manchester 56. UMIST' say '15. Dundee Coll Tech 36. Newcastle 57. UWC' say '16. Durham 37. NISSPAC 58. Warwick' say '17. East Anglia 38. Nottingham 59. York' say '18. Edinburgh 39. Open University' say '19. Essex 40. Oxford' say '20. Glasgow 41. Poly Central London' say '21. Heriot-Watt 42. Poly South West' pull selection call newscr say ' United Kingdom' say if selection='1' then do say 'Aberdeen University' say 'hostname: UK.AC.ABDN.LIB ' say 'Login is normally automatic. If a prompt' say 'is issued, type LIBRARY' end if selection='2' then do say 'Aberystwyth University' say 'hostname: UK.AC.ABER.LIB ' say ' Login is normally automatic. If a prompt' say 'is issued, type LIBRARY' end if selection='3' then do say 'Aston University' say 'hostname: UK.AC.ASTON.GEAC ' end if selection='4' then do say 'Bangor University' say 'hostname: UK.AC.BANGOR.LIB ' end if selection='5' then do say 'Bath University' say 'hostname: UK.AC.BATH.LIB ' say 'Login with password OPAC.' end if selection='6' then do say 'Queens University Belfast' say 'hostname: UK.AC.QUB.LIB ' end if selection='7' then do say 'Birmingham University' say 'hostname: UK.AC.BHAM.LIB ' end if selection='8' then do say 'Bristol University' say 'hostname: UK.AC.BRIS.LIB ' end if selection='9' then do say 'Brunel University' say 'hostname: UK.AC.BRUNEL.LIB ' end if selection='10' then do say 'Cambridge University' say 'hostname: UK.AC.CAM.UL ' end if selection='11' then do say 'City of London Polytechnic' say say 'hostname: UK.AC.CLP ' say 'Username: LIBRARY' end if selection='12' then do say 'City University' say say 'hostname: UK.AC.CITY.LIBRARY ' end if selection='13' then do say say 'Cranfield Institute of Technology' say say 'hostname: UK.AC.CRAN.LIB ' end if selection='14' then do say say 'Dundee University' say say 'hostname: UK.AC.DUND.LIBB ' end if selection='15' then do say say 'Dundee College of Technology' say say 'hostname: UK.AC.DCT.LIB ' end if selection='16' then do say say 'Durham University' say say 'hostname: UK.AC.DUR.LIBRARY ' end if selection='17' then do say say 'East Anglia' say say 'hostname: UK.AC.UEA.INFO ' end if selection='18' then do say say 'Edinburgh University' say say 'hostname: UK.AC.ED.GEAC ' end if selection='19' then do say say 'Essex University' say say 'hostname: UK.AC.SX.SERSUN1 ' end if selection='20' then do say say 'Glasgow University' say say 'hostname: UK.AC.GLA.LIB ' end if selection='21' then do say say 'Heriot-Watt University' say say 'hostname: UK.AC.HW.LIB ' end if selection='22' then do say say 'Hull University' say 'hostname: UK.AC.HULL.GEAC ' end if selection='23' then do say say 'Kent University' say 'hostname: UK.AC.UKC.IRIS ' say 'Username: UKCLIB ' say 'Password: UKCLIB ' say 'Username: CATS ' end if selection='24' then do say say 'Lancaster University' say 'hostname: UK.AC.LANCS.LIB ' say ' to wake up the system' end if selection='25' then do say say 'Leeds University' say 'hostname: UK.AC.LEEDS.LIBCAT ' end if selection='26' then do say say 'Leicester Polytechnic' say say 'hostname: UK.AC.LEICP.OPAC ' say 'Service: OPAC' end if selection='27' then do say say 'Leiester University' say say 'hostname: UK.AC.LEICESTER.LIBRARY ' say 'Username: LIBRARY ' end if selection='28' then do say say 'Liverpool University' say say 'hostname: UK.AC.LIVERPOOL.LIBRARY ' end if selection='29' then do say say 'London University--' say 'British Library of Political and Economic Science' say say 'hostname: UK.AC.LSE.BLPES ' say 'Username: LIBRARY ' end if selection='30' then do say say 'London University--' say 'Imperial College of Science, Technology and Medicine' say say 'hostname: UK.AC.IC.LIB ' end if selection='31' then do say say 'London University--Kings College' say say 'hostname: UK.AC.KCL.LIB ' say 'Username: LIBRARY ' end if selection='32' then do say say 'London University--' say 'Queen Mary and Westfield College' say say 'hostname: UK.AC.QMW.LIB ' say 'Username: LIBRARY ' end if selection='33' then do say say 'London University--University College ' say say 'hostname: UK.AC.UCL.LIB ' say 'Username: LIBRARY ' end if selection='34' then do say say 'Loughborough University' say say 'hostname: UK.AC.LUT.LIB ' end if selection='35' then do say say 'Manchester University' say say 'hostname: UK.AC.MAN.CN.XB ' say 'Owens Class: LIBRARY' end if selection='36' then do say say 'Newcastle University' say say 'hostname: UK.AC.DURHAM.GATE ' say 'Which service?: NCL.INFO ' end if selection='37' then do say say 'NISSPAC' say say 'hostname: UK.AC.NISS ' end if selection='38' then do say say 'Nottingham University' say say 'hostname: UK.AC.NOTT.LIB ' say 'Username: LIBRARY ' end if selection='39' then do say say 'Open University' say say 'hostname: UK.AC.OU.ACSVAX ' say 'Username: OULIBRARY ' end if selection='40' then do say say 'Oxford University' say say 'hostname: UK.AC.OX.PACX ' say 'Service :LIBRARY' end if selection='41' then do say say 'Polytechnic of Central London' say say 'hostname: UK.AC.PCL.YAK ' say 'User: LIBRARY' end if selection='42' then do say say 'Polytechnic South West' say say 'hostname: UK.AC.PSW.LIB ' say 'Username: LIBRARY' end if selection='43' then do say say 'Reading University' say say 'hostname: UK.AC.RDG.LINNET ' say 'Press Control-O twice to begin.' say say 'To exit, type Control-C Q.' end if selection='44' then do say say 'The Rufferford Appleton Laboratory' say say say 'hostname: UK.AC.RL.IB ' say 'Logon/logoff: Logon using one of the ids' say 'lib4, lib5, lib7 or lib8' say 'e.g. type LOGON LIB7' say 'Password depends on the season, viz:' say 'Jun - Aug 91 SUMMER91' say 'Sept - Nov 91 AUTUMN91' say 'Dec 91 - Feb 92 WINTER91' end if selection='45' then do say say 'St. Andrews University' say say 'hostname: UK.AC.ST-AND.LIB ' end if selection='46' then do say say 'Salford University' say say 'hostname: UK.AC.SALF.SAISO ' end if selection='47' then do say say 'Sheffield University' say say 'hostname: UK.AC.SHEF.LIB ' end if selection='48' then do say say 'South Bank Polytechnic' say say 'hostname: UK.AC.SBANK.SWITCH ' say 'Logon/logoff: At prompt, enter G' end if selection='49' then do say say 'Southampton University' say say 'hostname: UK.AC.SOTON.USING ' end if selection='50' then do say say 'Stirling' say say 'hostname: UK.AC.STIR.LIB ' say 'Type LIBRARY to logon' end if selection='51' then do say say 'Strathclyde University' say say 'hostname: UK.AC.STRATH.LIB ' end if selection='52' then do say say 'Surrey University' say say 'hostname: UK.AC.SURR.SYSI ' say 'Login: LOGIN MCS999 ' say 'Password: SIS ' say 'To exit, use Control-C Q.' end if selection='53' then do say say 'Sussex University' say say 'hostname: UK.AC.SUSX.LIB ' say 'To exit, use Control-C Q.' end if selection='54' then do say say 'Swansea University' say say 'hostname: UK.AC.SWAN.LIBVAX ' say 'Username: LIBRARY ' say 'To exit, use Control-C Q.' end if selection='55' then do say say 'Thames Polytechnic' say say 'hostname: UK.AC.THAMES.LIB ' say 'THAMES POLYTECHNIC PAD> CALL LIBRARY ' say 'To exit, use Control-C Q.' end if selection='56' then do say say 'University of Manchester Institute' say 'of Science and Technology' say say 'hostname: UK.AC.UMIST.CN.PA ' say 'Password: LIBRARY ' say 'To exit, use Control-C Q.' end if selection='57' then do say say 'University of Wales College of Cardiff' say say 'hostname: UK.AC.CF.LIBY ' say 'To exit, use Control-C Q.' end if selection='58' then do say say 'Warwick University' say say 'hostname: UK.AC.WARWK.OPAC ' say 'Logon: OPAC ' say 'To exit, use Control-C Q.' end if selection='59' then do say say 'York University' say say 'hostname: UK.AC.YORK.LIBRARY ' say 'To exit, use Control-C Q.' end /* Now show generic janet information */ say say 'Enter Janet at the login prompt' say 'Be sure to note your hostname' say say 'Press RETURN to continue...' pull continue push sun.nsf.ac.uk return lund: procedure /* Sweden: Lund University */ push lolita.lu.se return polydos: procedure /* Germany: University of Konstanz */ push 134.34.3.5 return aleph: procedure /* Israel: InterUniversity Computerized Catalog System */ call newscr say ' Israel' say say ' InterUniversity Computerized Catalog System' say ' When prompted for "Username:" enter ALEPH' say ' Choose Terminal selection TTY' say say 'Press RETURN to continue...' pull continue push 132.70.9.36 return bibes: procedure /* Mexico: Instituto Tecnologico Y Estudios Superiores De ... */ push 140.148.1.5 return /* Menu for United States library access - by state */ usmenu: procedure vmfclear say 'Internet Online Public Access Catalogs - United States' say '[AL]Alabama [MD]Maryland [RI]Rhode Island' say '[AK]Alaska [MA]Massachusetts [SC]South Carolina' say '[AZ]Arizona [MI]Michigan [SD]South Dakota' say '[AR]Arkansas [MN]Minnesota [TN]Tennessee' say '[CA]California [MS]Mississippi [TX]Texas' say '[CO]Colorado [MO]Missouri [UT]Utah' say '[CT]Connecticut [MT]Montana [VT]Vermont' say '[DE]Delaware [NE]Nebraska [VA]Virginia' say '[DC]Dist. of Columbia [NV]Nevada [WA]Washington' say '[FL]Florida [NH]New Hampshire [WV]West Virginia' say '[GA]Georgia [NJ]New Jersey [WI]Wisconsin' say '[HI]Hawaii [NM]New Mexico [WY]Wyoming' say '[ID]Idaho [NY]New York' say '[IL]Illinois [NC]North Carolina' say '[IN]Indiana [ND]North Dakota' say '[IA]Iowa [OH]Ohio' say '[KS]Kansas [OK]Oklahoma' say '[KY]Kentucky [OR]Oregon' say '[LA]Louisiana [PA]Pennsylvania' say '[ME]Maine [PR]Puerto Rico [Q]Quit' pull answer if answer='AL' then call almenu if answer='AK' then call akmenu if answer='AZ' then call azmenu if answer='CA' then call camenu if answer='CO' then call comenu if answer='CT' then call ctmenu if answer='DE' then call demenu if answer='DC' then call dcmenu if answer='FL' then call flmenu if answer='GA' then call gamenu if answer='HI' then call himenu if answer='ID' then call idmenu if answer='IL' then call ilmenu if answer='IN' then call inmenu if answer='IA' then call iamenu if answer='KS' then call ksmenu if answer='KY' then call kymenu if answer='LA' then call lamenu if answer='ME' then call memenu if answer='MD' then call mdmenu if answer='MA' then call mamenu if answer='MI' then call mimenu if answer='MN' then call mnmenu if answer='MS' then call msmenu if answer='MO' then call momenu if answer='MT' then call mtmenu if answer='NE' then call nemenu if answer='NV' then call nvmenu if answer='NH' then call nhmenu if answer='NJ' then call njmenu if answer='NM' then call nmmenu if answer='NY' then call nymenu if answer='NC' then call ncmenu if answer='ND' then call ndmenu if answer='OH' then call ohmenu if answer='OK' then call okmenu if answer='OR' then call ormenu if answer='PA' then call pamenu if answer='PR' then call prmenu if answer='RI' then call rimenu if answer='SC' then call scmenu if answer='SD' then call sdmenu if answer='TN' then call tnmenu if answer='TX' then call txmenu if answer='UT' then call utmenu if answer='VT' then call vtmenu if answer='VA' then call vamenu if answer='WA' then call wamenu if answer='WV' then call wvmenu if answer='WI' then call wimenu if answer='WY' then call wymenu if answer='Q' then exit return /****************************************************************/ /* ADDRESS PROCEDURES: United States by state */ /* Each procedure below represents a different library system */ /* on the Internet or on networks connected to the Internet. */ /* When necessary, help should be displayed by the libraries */ /* address procedure prior to the address being pushed onto the */ /* stack. Some states require an intermediate screen showing */ /* multiple libraries available, followed by address procedures.*/ /****************************************************************/ almenu: procedure /* Alabama libraries */ call newscr say ' Alabama' say say ' Auburn University' say ' TAB to the APPLICATION field' say ' Enter 01 and press RETURN twice.' say say ' To exit, press Ctrl C.' say say 'Press RETURN to continue...' pull continue push auducacd.duc.auburn.edu telnet return akmenu: procedure /* Alaska libraries */ call newscr say ' Alaska' say say 'No libraries currently connected.' say say 'Press RETURN to continue...' pull continue return azmenu: procedure /* Arizona libraries */ call newscr say ' Arizona' say say ' Arizona State University' say say say say 'Press RETURN to continue...' pull continue push carl.lib.asu.edu telnet return armenu: procedure /* Arkansas libraries */ call newscr say ' Arkansas' say say ' University of Arkansas' say say say say 'Press RETURN to continue...' pull continue push uafsysb.uark.edu telnet return camenu: procedure /* California libraries */ call newscr say ' California' say say ' Select a number from this menu' say say ' 1. Cal Poly State University, San Luis Obispo' say ' 2. Melvyl, University of California Online Catalog' say ' 3. Gladis, UC Berkeley catalog' say ' 4. California State University, Fresno Agricultural Tech Institute' say ' 5. Cal State University, Long Beach' say ' 6. Occidental College Automated Library System' say pull selection if selection='1' then call calpolyca if selection='2' then call melvylca if selection='3' then call gladisca if selection='4' then call csufresca if selection='5' then call calstateca if selection='6' then call occidentca return calpolyca: procedure /* Cal Poly State University, San Luis Obispo */ call newscr say ' California' say say ' Cal Poly State University, San Luis Obispo' say ' Robert E. Kennedy Library' say ' Enter POLYCAT for the username and follow' say ' the instructions' say say ' To exit, press Ctrl D.' say say 'Press RETURN to continue...' pull continue push library.calpoly.edu telnet return melvylca: procedure /* Melvyl, University of California Online Catalog */ call newscr say ' California' say say ' Melvyl, University of California Online Catalog' say say ' To exit, type END, then LOGOFF' say say 'Press RETURN to continue...' pull continue push melvyl.ucop.edu telnet return gladisca: procedure /* Gladis, UC Berkeley's catalog */ call newscr say ' California' say say ' Gladis, UC Berkeley catalog' say say ' To exit, type LOGOFF' say say 'Press RETURN to continue' pull continue push gopac.berkeley.edu telnet return csufresca: procedure /* California State University, Fresno Agricultural Tech Institute */ call newscr say ' California' say say ' California State University, Fresno Agricultural Tech Institute' say ' Type public at the Username prompt' say say ' Press RETURN to continue' pull continue push caticsuf.csufresno.edu telnet return calstateca: procedure /* Cal State University, Long Beach */ call newscr say ' California' say say ' Cal State University, Long Beach' say ' Enter terminal type and press RETURN 3 times' say say 'Press RETURN to continue...' pull continue push coast.lib.csulb.edu telnet return occidentca: procedure /* Occidental College's Automated Library System */ call newscr say ' California' say say ' Occidental College Automated Library System' say ' Type oasys at resource and login prompts.' say say 'Press RETURN to continue...' pull continue push kitty.oxy.edu telnet return comenu: procedure /* Colorado libraries */ call newscr say ' Colorado' say say ' Select a number from this menu' say say ' 1. CARL (Colorado Alliance of Research Libraries)' say ' 2. University of Denver campus information' say pull selection if selection='1' then call carlco if selection='2' then call univdenco return carlco: procedure /* CARL (Colorado Alliance of Research Libraries */ call newscr say ' Colorado' say say ' CARL (Colorado Alliance of Research Libraries)' say say ' To exit, type //EXIT' say say 'Press RETURN to continue...' pull continue push pac.carl.org telnet return univdenco: procedure /* University of Denver campus information */ call newscr say ' Colorado' say say ' University of Denver campus information' say ' Log in as atdu' say say 'Press RETURN to continue...' pull continue push du.edu telnet return ctmenu: procedure /* Connecticut libraries */ call newscr say ' Connecticut' say say ' Yale University' say ' Press RETURN at the first prompt' say say 'Press RETURN to continue...' pull continue push orbis.yale.edu telnet return demenu: procedure /* Delaware libraries */ call newscr say ' Delaware' say say ' University of Delaware Online Catalog' say ' Press RETURN twice after connecting.' say say ' To exit, type QUIT or EXIT' say say 'Press RETURN to continue...' pull continue push delcat.udel.edu telnet return dcmenu: procedure /* District of Columbia libraries */ call newscr say ' District of Columbia' say say say 'No libraries currently connected.' say say 'Press RETURN to continue...' pull continue return flmenu: procedure /* Florida libraries */ call newscr say ' Florida' say say ' LUIS (Library User Information Service) is the' say ' online catalog of the State University System (SUS)' say ' TAB to the command prompt, then type DIAL VTAM.' say ' Enter nerluis fclskya at the NERDC VTAM IS ACTIVE' say ' prompt.' say say ' To exit, follow instructions given by LUIS system.' say ' You may type undial at the NERDC VTAM IS ACTIVE prompt' say ' to quit NERVM.' say say 'Press RETURN to continue...' pull continue push nervm.nerdc.ufl.edu telnet return gamenu: procedure /* Georgia libraries */ call newscr say ' Georgia' say say ' Select a number from this menu' say say ' 1. Emory University Libraries Online Public Access Catalog)' say ' 2. Georgia State University' say pull selection if selection='1' then call emulibga if selection='2' then call gsulibga return emulibga: procedure /* Emory University Libraries Online Public Access Catalog */ call newscr say ' Georgia' say say ' Emory University Libraries Online Public Access Catalog' say ' TAB to the command prompt, then type DIAL VTAM.' say ' Type LIB at the VTAM screen and then hit PF1 at CICS screen.' say say ' To exit, press Ctrl ] and type send escape or type undial.' say say 'Press RETURN to continue...' pull continue push emuvm1.cc.emory.edu telnet return gsulibga: procedure /* Georgia State University */ call newscr say ' Georgia' say say ' Georgia State University' say say ' to exit, type $$soff and press RETURN' say say 'Press RETURN to continue...' pull continue push library.gsu.edu telnet return himenu: procedure /* Hawaii libraries */ call newscr say ' Hawaii' say say ' University of Hawaii Library Public Access Catalog' say ' Type LIB at the enter class prompt.' say say ' To exit, type //EXIT or BYE.' say say 'Press RETURN to continue...' pull continue push starmaster.uhcc.hawaii.edu telnet return idmenu: procedure /* Idaho libraries */ call newscr say ' Idaho' say say ' Idaho State University' say ' Use CATALYST as your password' say say 'Press RETURN to continue...' pull continue push catalyst.idbsu.edu telnet return ilmenu: procedure /* Illinois libraries */ call newscr say ' Illinois' say say ' Select a number from this menu' say say ' 1. Northwestern University LUIS online catalog' say ' 2. University of Chicago' say ' 3. University of Illinois at Chicago' say ' 4. University of Illinois/Urbana-Champaign' say ' 5. Lafayette University' say pull selection if selection='1' then call nwuluisil if selection='2' then call uchicil if selection='3' then call uillchicil if selection='4' then call uilluchil if selection='5' then call lafayuil return nwuluisil: procedure /* Northwestern University's LUIS online catalog */ call newscr say ' Illinois' say say ' Northwestern University LUIS online catalog' say ' TAB to command prompt and type DIAL VTAM.' say ' Type LUIS to go to the catalog.' say say ' To exit, type STOP, then type EXIT or UNDIAL.' say say 'Press RETURN to continue...' pull continue push nuacvm.acns.nwu.edu telnet return uchicil: procedure /* University of Chicago */ call newscr say ' Illinois' say say ' University of Chicago ' say ' Type LIB48 at the enter class prompt.' say ' Press RETURN when connected appears.' say say ' To exit, type LOGOUT' say say 'Press RETURN to continue...' pull continue push olorin.uchicago.edu telnet return uillchicil: procedure /* University of Illinois at Chicago */ call newscr say ' Illinois' say say ' University of Illionois at Chicago' say ' TAB to command prompt and type DIAL PVM.' say ' Move cursor to NOTIS and press RETURN twice.' say ' To exit, press Ctrl C, and UNDIAL at VM screen.' say say 'Press RETURN to continue...' pull continue push uicvm.uic.edu telnet return uilluchil: procedure /* University of Illinois/Urbana-Champaign */ call newscr say ' Illinois' say say ' University of Illinois/Urbana-Champaign' say say 'Press RETURN to continue...' pull continue push garcon.cso.uiuc.edu telnet return lafayuil: procedure /* Lafayette University */ call newscr say ' Illinois' say say ' Lafayette University' say ' Hit RETURN, then type DIAL MUSIC. ' say ' Use GUEST as userid and password on login screen.' say say 'Press RETURN to continue...' pull continue push lafibm.lafayette.edu telnet return inmenu: procedure /* Indiana libraries */ call newscr say ' Indiana' say say ' Select a number from this menu' say say ' 1. The University of Notre Dame Library' say ' 2. Purdue University' say ' 3. Indiana University' say pull selection if selection='1' then call notrein if selection='2' then call purduein if selection='3' then call iuin return notrein: procedure /* The University of Notre Dame Library */ call newscr say ' Indiana' say say ' The University of Notre Dame Library' say ' At the enter command or help prompt' say ' enter core library.' say say 'Press RETURN to continue...' pull continue push irishmvs.cc.nd.edu telnet return purduein: procedure /* Purdue University */ call newscr say ' Indiana' say say ' Purdue University' say say ' To exit, press Ctrl C.' say say 'Press RETURN to continue...' pull continue push lib.cc.purdue.edu telnet return iuin: procedure /* Indiana University */ call newscr say ' Indiana' say say ' Indiana University' say ' At userid prompt type GUEST, then choose 3.' say say ' To exit, type Q, then K.' say say 'Press RETURN to continue...' pull continue push iuis3270.ucs.indiana.edu telnet return iamenu: procedure /* Iowa libraries */ call newscr say ' Iowa' say say ' Select a number from this menu' say say ' 1. Iowa State University' say ' 2. The University of Iowa Libraries' say pull selection if selection='1' then call iowastuia if selection='2' then call univia return iowastuia: procedure /* Iowa State University */ call newscr say ' Iowa' say say ' Iowa State University' say ' At DIAL prompt type LIB.' say say 'Press RETURN to continue...' pull continue push isn.iastate.edu telnet return univia: procedure /* The University of Iowa Libraries */ call newscr say ' Iowa' say say ' The University of Iowa Libraries' say say ' To exit, display the Welcome to OASIS screen' say ' by typing the letter e and RETURN. Then enter' say ' x and RETURN.' say say 'Press RETURN to continue...' pull continue push oasis.uiowa.edu telnet return ksmenu: procedure /* Kansas libraries */ call newscr say ' Kansas' say say ' Select a number from this menu' say say ' 1. University of Kansas Library' say ' 2. Kansas State University' say pull selection if selection='1' then call univks if selection='2' then call ksuks return univks: procedure /* University of Kansas Library */ call newscr say ' Kansas' say say ' University of Kansas Library' say ' Enter username RELAY, type OCAT at next menu.' say ' Choose terminal type, then enter ESC ESC OCAT at' say ' the banner screen.' say say ' To exit, type logoff, then a q.' say say 'Press RETURN to continue...' pull continue push kuhub.cc.ukans.edu telnet return ksuks: procedure /* Kansas state University */ call newscr say ' Kansas' say say ' Kansas State University' say ' Type LYNX at prompt.' say say 'Press RETURN to continue...' pull continue push ksuvm.ksu.edu telnet return kymenu: procedure /* Kentucky libraries */ call newscr say ' Kentucky' say say 'No libraries currently connected.' say say 'Press RETURN to continue...' pull continue return lamenu: procedure /* Louisiana libraries */ call newscr say ' Louisiana' say say 'No libraries currently connected.' say say 'Press RETURN to continue...' pull continue return memenu: procedure /* Maine libraries */ call newscr say ' Maine ' say say ' University of Maine System Library Catalog' say say 'Press RETURN to continue...' pull continue push ursus.maine.edu telnet return mdmenu: procedure /* Maryland libraries */ call newscr say ' Maryland' say say ' Select a number from this menu' say say ' 1. AIM -Access to Info about Maryland-' say ' 2. Online Catalog UMCAT' say ' 3. Johns Hopkins University Library' say pull selection if selection='1' then call aimmd if selection='2' then call umcatmd if selection='3' then call jhumd return aimmd: procedure /* AIM -Access to Info about Maryland- */ call newscr say ' Maryland' say say 'AIM -Access to Info about Maryland-' say say 'Press RETURN to continue...' pull continue push aim.umd.edu telnet return umcatmd: procedure /* Online Catalog UMCAT */ call newscr say ' Maryland' say say ' Online Catalog UMCAT ' say ' To start, type CAT.' say say ' To exit, type END.' say say 'Press RETURN to continue...' pull continue push umcat.umd.edu telnet return jhumd: procedure /* Johns Hopkins University Library */ call newscr say ' Maryland' say say ' Johns Hopkins University Library' say ' TAB to command prompt and type JANUS.' say say ' To exit, type #### (4 pound signs).' say say 'Press RETURN to continue...' pull continue push jhuvm.hcf.jhu.edu telnet return mamenu: procedure /* Massachuesetts libraries */ call newscr say ' Massachusetts' say say ' Select a number from this menu' say say ' 1. Boston University' say ' 2. Harvard University' say ' 3. MIT TechInfo' say pull selection if selection='1' then call bostma if selection='2' then call harvma if selection='3' then call mitma return bostma: procedure /* Boston University */ call newscr say ' Massachusetts' say say ' Boston University' say say ' To exit, type QUIT.' say say 'Press RETURN to continue...' pull continue push library.bu.edu telnet return harvma: procedure /* Harvard University */ call newscr say ' Massachusetts' say say ' Harvard University' say ' Type HOLLIS to begin.' say say ' To exit, type Ctrl C.' say say 'Press RETURN to continue...' pull continue push hollis.harvard.edu telnet return mitma: procedure /* MIT TechInfo */ call newscr say ' Massachusetts' say say ' MIT TechInfo' say say ' To exit, type QUIT.' say say 'Press RETURN to continue...' pull continue push techninfo.mit.edu telnet return mimenu: procedure /* Michigan libraries */ call newscr say ' Michigan' say say ' Select a number from this menu' say say ' 1. University of Michigan' say ' 2. Michigan State University Libraries' say ' 3. Wayne State University' say pull selection if selection='1' then call univmi if selection='2' then call mstatemi if selection='3' then call waynemi return univmi: procedure /* University of Michigan */ call newscr say ' Michigan' say say ' University of Michigan' say ' Type MIRLYN at the which host prompt.' say say ' to exit, type Ctrl e %quit.' say say 'Press RETURN to continue...' pull continue push cts.merit.edu telnet return mstatemi: procedure /* Michigan State University Libraries */ call newscr say ' Michigan' say say ' Michigan State University Libraries' say ' TAB to command prompt and type DIAL MAGIC.' say say ' To exit, return to VM screen and type UNDIAL.' say say 'Press RETURN to continue...' pull continue push magic.lib.msu.edu telnet return waynemi: procedure /* Wayne State University */ call newscr say ' Michigan' say say ' Wayne State University' say ' TAB to command prompt and type DIAL VTAM.' say ' Enter LUIS at the WSUNET menu.' say say ' To exit, type logout, then UNDIAL.' say say 'Press RETURN to continue...' pull continue push cms.cc.wayne.edu telnet return mnmenu: procedure /* Minnesota libraries */ call newscr say ' Minnesota' say say ' LUMINA, Libraries of the University of Minnesota' say ' Enter LUMINA when prompted, and select it from menu.' say say ' To exit, enter Ctrl C.' say say 'Press RETURN to continue...' pull continue push lumina.lib.umn.edu telnet return msmenu: procedure /* Mississippi libraries */ call newscr say ' Mississippi' say say ' Mississippi State Library' say say 'Press RETURN to continue...' pull continue push 128.205.2.22 telnet return momenu: procedure /* Michigan libraries */ call newscr say ' Missouri' say say ' Select a number from this menu' say say ' 1. University of Missouri' say ' 2. University of Missouri at Rolla' say ' 3. University of Missouri at St. Louis' say pull selection if selection='1' then call univmo if selection='2' then call rollamo if selection='3' then call louismo return univmo: procedure /* University of Missouri */ call newscr say ' Missouri' say say ' University of Missouri' say ' TAB to command prompt and type DIAL VTAM.' say ' Type LUMIN at the next screen.' say say ' To exit, type #LOGOFF and then UNDIAL.' say say 'Press RETURN to continue...' pull continue push umcvmb.missouri.edu telnet return rollamo: procedure /* University of Missouri at Rolla */ call newscr say ' Missouri' say say ' University of Missouri at Rolla' say ' TAB to command prompt and type DIAL VTAM.' say ' Type LUMIN at the next screen.' say say ' To exit, type #LOGOFF and then UNDIAL.' say say 'Press RETURN to continue...' pull continue push umrvmb.umr.edu telnet return louismo: procedure /* University of Missouri at St. Louis */ call newscr say ' Missouri' say say ' University of Missouri at St. Louis' say ' TAB to command prompt and type DIAL VTAM.' say ' Type LIBCICS at the next screen.' say say ' To exit, type #LOGOFF and then UNDIAL.' say say 'Press RETURN to continue...' pull continue push umslvma.umsl.edu telnet return mtmenu: procedure /* Montana libraries */ call newscr say ' Montana' say say 'No libraries currently connected.' say say 'Press RETURN to continue...' pull continue return nemenu: procedure /* Nebraska libraries */ call newscr say ' Nebraska' say say ' University of Nebraska Libraries' say ' Type LIBRARY at the login prompt.' say say 'Press RETURN to continue...' pull continue push unllib.unl.edu telnet return nvmenu: procedure /* Nevada libraries */ call newscr say ' Nevada' say say ' University of Nevada, Las Vegas' say ' Type LIBRARY at the login prompt.' say say ' To exit, type n to return to the main menu' say ' and then select disconnect.' say say 'Press RETURN to continue...' pull continue push library.lv-lib.nevada.edu telnet return nhmenu: procedure /* New Hampshire libraries */ call newscr say ' New Hampshire' say say ' Select a number from this menu' say say ' 1. Dartmouth College Library Online Catalog' say ' 2. Dartmouth Dante Database' say ' 3. University of New Hampshire VideoTex' say pull selection if selection='1' then call dartnh if selection='2' then call dantenh if selection='3' then call univnh return dartnh: procedure /* Dartmouth College Library Online Catalog */ call newscr say ' New Hampshire' say say ' Dartmouth College Library Online Catalog' say say ' To exit, type BYE.' say say 'Press RETURN to continue...' pull continue push lib.dartmouth.edu telnet return dantenh: procedure /* Dartmouth Dante Database */ call newscr say ' New Hampshire' say say ' Dartmouth Dante Database' say ' Log in as ddpdemo.' say say 'Press RETURN to continue...' pull continue push eleazar.dartmouth.edu telnet return univnh: procedure /* University of New Hampshire's VideoTex */ call newscr say ' New Hampshire' say say ' University of New Hampshire VideoTex' say ' Log in as student.' say say ' To exit, enter Ctrl z.' say say 'Press RETURN to continue...' pull continue push unhvtx.unh.edu telnet return njmenu: procedure /* New Jersey libraries */ call newscr say ' New Jersey' say say ' Select a number from this menu' say say ' 1. Princeton University Library' say ' 2. Princeton University Library Online Research Resources' say ' 3. Princeton News Network PNN' say pull selection if selection='1' then call prulibnj if selection='2' then call pronnj if selection='3' then call pnnnj return prulibnj: procedure /* Princeton University Library */ call newscr say ' New Jersey' say say ' Princeton University Library' say say ' To exit, type LOGOFF.' say say 'Press RETURN to continue...' pull continue push pucable.princeton.edu telnet return pronnj: procedure /* Princeton University Library Online Research Resources */ call newscr say ' New Jersey' say say ' Princeton University Library Online Research Resources' say ' Hit RETURN, then type FOLIO.' say say ' To exit, type LOGOFF.' say say 'Press RETURN to continue...' pull continue push pucc.princeton.edu telnet return pnnnj: procedure /* Princeton News Network PNN */ call newscr say ' New Jersey' say say ' Princeton News Network PNN' say say ' Clear the screen with Ctrl Z and type PNN.' say say 'Press RETURN to continue...' pull continue push pucc.princeton.edu telnet return nmmenu: procedure /* New Mexico libraries */ call newscr say ' New Mexico' say say ' Select a number from this menu' say say ' 1. University of New Mexico Libraries and campus information' say ' 2. University of New Mexico General Library, LIBROS system' say ' 3. New Mexico State University Library' say pull selection if selection='1' then call unmlnm if selection='2' then call librosnm if selection='3' then call nmsulnm return unmlnm: procedure /* University of New Mexico Libraries and campus information */ call newscr say ' New Mexico' say say ' University of New Mexico Libraries and campus information' say ' At login prompt, type STUDENTx where x is 1-6.' say say 'Press RETURN to continue...' pull continue push bootes.unm.edu telnet return librosnm: procedure /* University of New Mexico General Library, LIBROS system */ call newscr say ' New Mexico' say say ' University of New Mexico General Library, LIBROS system' say ' Type START to display the LIBROS welcome screen.' say say 'Press RETURN to continue...' pull continue push libros.unm.edu telnet return nmsulnm: procedure /* New Mexico State University Library */ call newscr say ' New Mexico' say say ' New Mexico State University Library VTLS' say ' At the colon prompt, type HELLO.USER.LIBR01' say say ' To exit, type /QUIT.' say say 'Press RETURN to continue...' pull continue push library.nmsu.edu telnet return nymenu: procedure /* New York libraries */ call newscr say ' New York' say say ' Select a number from this menu' say say ' 1. Rensselaer Polytech Institute' say ' 2. New York University Library' say ' 3. Columbia University' say ' 4. Cornell Library' say ' 5. SUNY at Binghamton' say pull selection if selection='1' then call rpiny if selection='2' then call nyulny if selection='3' then call cuny if selection='4' then call cornny if selection='5' then call suny return rpiny: procedure /* Rensselaer Polytech Institute */ call newscr say ' New York' say say ' Rensselaer Polytech Institute' say say ' To exit, type STOP.' say say 'Press RETURN to continue...' pull continue push infotrac.rpi.edu telnet return nyulny: procedure /* New York University Library */ call newscr say ' New York' say say ' New York University Library' say ' Hit RETURN twice to get prompt.' say say ' To exit, type END.' say say 'Press RETURN to continue...' pull continue push bobcat.nyu.edu telnet return cuny: procedure /* Columbia University */ call newscr say ' New York' say say ' Columbia University' say ' Log in as CALENDAR.' say say 'Press RETURN to continue...' pull continue push cal.cc.columbia.edu telnet return cornny: procedure /* Cornell Library */ call newscr say ' New York' say say ' Cornell Library' say ' Enter CORNELLC as hostname, hit RETURN at logon screen' say ' enter LIBRARY at blank screen.' say say ' To exit, type x.' say say 'Press RETURN to continue...' pull continue push cornellc.cit.cornell.edu telnet return suny: procedure /* SUNY at Binghamton */ call newscr say ' New York' say say ' SUNY at Binghamton' say ' TAB to command prompt and type DIAL VTAM' say ' Enter ELIXIR at the VTAM menu.' say say ' To exit, type Ctrl z, then OFF, then UNDIAL.' say say 'Press RETURN to continue...' pull continue push bingvmc.cc.binghamton.edu telnet return ncmenu: procedure /* North Carolina libraries */ call newscr say ' North Carolina' say say ' Select a number from this menu' say say ' 1. Bibliographic Information System (BIS), UNC Chapel Hill' say ' 2. Appalachian State University, campus information system' say ' 3. University of North Carolina at Chapel Hill INFO' say pull selection if selection='1' then call bisnc if selection='2' then call asunc if selection='3' then call uncchnc return bisnc: procedure /* Bibliographic Information System (BIS), UNC Chapel Hill */ call newscr say ' North Carolina' say say ' Bibliographic Information System (BIS), UNC Chapel Hill' say ' Type START to begin.' say say ' To exit, type Ctrl ] and then ESC apostrophe' say say 'Press RETURN to continue...' pull continue push librot1.lib.unc.edu telnet return asunc: procedure /* Appalachian State University, campus information system */ call newscr say ' North Carolina' say say ' Appalachian State University, campus information system' say ' Log in as INFO.' say say 'Press RETURN to continue...' pull continue push conrad.appstate.edu telnet return uncchnc: procedure /* University of North Carolina at Chapel Hill INFO */ call newscr say ' North Carolina' say say ' University of North Carolina at Chapel Hill INFO' say ' Log in as INFO.' say say 'Press RETURN to continue...' pull continue push info.acs.unc.edu telnet return ohmenu: procedure /* Ohio libraries */ call newscr say ' Ohio' say say ' Select a number from this menu' say say ' 1. Cleveland Public Library' say ' 2. University of Toledo' say ' 3. Case Western Reserve University' say ' 4. Kent State University' say ' 5. Ohio State University' say ' 6. University of Dayton' say ' 7. Wright State University' say pull selection if selection='1' then call cploh if selection='2' then call utoh if selection='3' then call cwruoh if selection='4' then call ksuoh if selection='5' then call osuoh if selection='6' then call udoh if selection='7' then call wsuoh return cploh: procedure /* Cleveland Public Library */ call newscr say ' Ohio' say say ' Cleveland Public Library' say say ' To exit, type Ctrl Z.' say say 'Press RETURN to continue...' pull continue push library.cpl.org telnet return utoh: procedure /* University of Toledo */ call newscr say ' Ohio' say say ' University of Toledo' say ' TAB to command prompt and type DIAL MVS.' say ' Then type UTMOST.' say say ' To exit, type DISC, then UNDIAL.' say say 'Press RETURN to continue...' pull continue push uoft01.utoledo.edu telnet return cwruoh: procedure /* Case Western Reserve University */ call newscr say ' Ohio' say say ' Case Western Reserve University' say say 'Press RETURN to continue...' pull continue push euclid.cwru.edu telnet return ksuoh: procedure /* Kent State University */ call newscr say ' Ohio' say ' Kent State University' say say 'Press RETURN to continue...' pull continue push catalyst.kent.edu telnet return usuoh: procedure /* Ohio State University */ call newscr say ' Ohio' say say ' Ohio State University' say say ' To exit, type BYE.' say say 'Press RETURN to continue...' pull continue push lcs.us.ohio-state.edu telnet return udoh: procedure /* University of Dayton */ call newscr say ' Ohio' say say ' University of Dayton' say ' Type LOGIN PUB02, the password is PUBLIC.' say say ' To exit, choose LOGOFF or type Q.' say say 'Press RETURN to continue...' pull continue push udaprl.oca.udayton.edu telnet return wsuoh: procedure /* Wright State University */ call newscr say ' Ohio' say say ' Wright State University' say ' Login as username LIBNET2 with password WRIGHT.' say say 'Press RETURN to continue...' pull continue push desire.wright.edu telnet return ndmenu: procedure /* North Dakota libraries */ call newscr say ' North Dakota' say say 'No libraries currently connected.' say say 'Press RETURN to continue...' pull continue return okmenu: procedure /* Oklahoma libraries */ call newscr say ' Oklahoma' say say ' University of Tulsa' say ' Enter LIAS,TU at prompt.' say say 'Press RETURN to continue...' pull continue push bull.utulsa.edu telnet return ormenu: procedure /* Oregon libraries */ call newscr say ' Oregon' say say ' University of Oregon' say say 'Press RETURN to continue...' pull continue push janus.uoregon.edu telnet return pamenu: procedure /* Pennsylvania libraries */ call newscr say ' Pennsylvania' say say ' Select a number from this menu' say say ' 1. University of Pittsburgh' say ' 2. Carnegie Mellon University' say ' 3. Penn State' say ' 4. Penn State Agricultural, PENpages' say ' 5. Lehigh University' say ' 6. University of Pennsylvania, on-line library catalog' say ' 7. University of Pennsylvania, MEDINFO' say pull selection if selection='1' then call upitpa if selection='2' then call cmupa if selection='3' then call pennstpa if selection='4' then call penpagepa if selection='5' then call lehighpa if selection='6' then call univpa if selection='7' then call medinfopa return upitpa: procedure /* University of Pittsburgh */ call newscr say ' Pennsylvania' say say ' University of Pittsburgh' say say 'Press RETURN to continue...' pull continue push gate.cis.pitt.edu telnet return cmupa: procedure /* Carnegie Mellon University */ call newscr say ' Pennsylvania' say say ' Carnegie Mellon University' say say 'Press RETURN to continue...' pull continue push cmulibrary.andrew.cmu.edu telnet return pennstpa: procedure /* Penn State */ call newscr say ' Pennsylvania' say say ' Penn State' say say ' To exit, type END.' say say 'Press RETURN to continue...' pull continue push lias.psu.edu telnet return penpagepa: procedure /* Penn State Agricultural, PENpages */ call newscr say ' Pennsylvania' say say ' Penn State Agricultural, PENpages' say say 'Press RETURN to continue...' pull continue push psupen.psu.edu telnet return lehighpa: procedure /* Lehigh University */ call newscr say ' Pennsylvania' say say ' Lehigh University' say say 'Press RETURN to continue...' pull continue push asa.lib.lehigh.edu telnet return univpa: procedure /* University of Pennsylvania, on-line library */ call newscr say ' Pennsylvania' say say ' University of Pennsylvania, on-line library' say say 'Press RETURN to continue...' pull continue push pennlib.upenn.edu telnet return medinfopa: procedure /* University of Pennsylvania, MEDINFO */ call newscr say ' Pennsylvania' say say ' University of Pennsylvania, MEDINFO' say ' Log in as PENN_MED.' say say 'Press RETURN to continue...' pull continue push med.upenn.edu telnet return prmenu: procedure /* Puerto Rico libraries */ call newscr say ' Puerto Rico' say say 'No libraries currently connected.' say say 'Press RETURN to continue...' pull continue return rimenu: procedure /* Rhode Island libraries */ call newscr say ' Rhode Island' say say ' Brown University' say ' TAB to command prompt and type DIAL JOSIAH.' say say ' To exit, hit ESC F10, enter LOGOFF then enter UNDIAL.' say say 'Press RETURN to continue...' pull continue push brownvm.brown.edu telnet return scmenu: procedure /* South Carolina libraries */ call newscr say ' South Carolina' say say ' Clemson University' say say 'Press RETURN to continue...' pull continue push clemson.clemson.edu telnet return tnmenu: procedure /* Tennessee libraries */ call newscr say ' Tennessee' say say ' Select a number from this menu' say say ' 1. University of Tennesee, Knoxville' say ' 2. University of Tennesee, Memphis' say ' 3. Vanderbilt University' say pull selection if selection='1' then call knoxtn if selection='2' then call memphtn if selection='3' then call vandertn return knoxtn: procedure /* University of Tennesee, Knoxville */ call newscr say ' Tennessee' say say ' University of Tennesee, Knoxville' say ' Enter LIBRARY at the host name prompt.' say say ' To exit, type END.' say say 'Press RETURN to continue...' pull continue push dca.utk.edu telnet return memphtn: procedure /* University of Tennesee, Memphis */ call newscr say ' Tennessee' say say ' University of Tennesee, Memphis' say ' Log in as HARVEY.' say say 'Press RETURN to continue...' pull continue push utmem1.utmem.edu telnet return vandertn: procedure /* Vanderbilt University */ call newscr say ' Tennessee' say say ' Vanderbilt University' say ' Log in as ACORN.' say say ' To exit, press Ctrl Z.' say say 'Press RETURN to continue...' pull continue push ctrvax.vanderbilt.edu telnet return txmenu: procedure /* Texas libraries */ call newscr say ' Texas' say say ' Select a number from this menu' say say ' 1. Southern Methodist University' say ' 2. Texas A & M' say ' 3. University of Texas at Arlington' say ' 4. University of Texas at Austin' say ' 5. University of Texas at Dallas' say ' 6. Rice University' say pull selection if selection='1' then call smutx if selection='2' then call tamtx if selection='3' then call utartx if selection='4' then call utautx if selection='5' then call utdatx if selection='6' then call ricetx return smutx: procedure /* Southern Methodist University */ call newscr say ' Texas' say say ' Southern Methodist University' say ' Log in as PONI, press Ctrl Z, type LUSM.' say say ' To exit, press Ctrl C.' say say 'Press RETURN to continue...' pull continue push vm.cis.smu.edu telnet return tamtx: procedure /* Texas A&M */ call newscr say ' Texas' say say ' Texas A&M' say ' TAB to command prompt and type DIAL VTAM.' say ' At Texas A&M screen, type NOTIS, then hit RETURN.' say say ' To exit, type UNDIAL.' say say 'Press RETURN to continue...' pull continue push tamvm1.tamu.edu telnet return utartx: procedure /* University of Texas at Arlington */ call newscr say ' Texas' say say ' University of Texas at Arlington' say ' TAB to command prompt and type DIAL VTAM.' say ' Choose NOTIS at the VTAM screen, then hit RETURN,' say ' then enter LUUT.' say say ' To exit, press RETURN and ESC4 and then type LOGOFF twice.' say say 'Press RETURN to continue...' pull continue push admin.uta.edu telnet return utautx: procedure /* University of Texas at Austin */ call newscr say ' Texas' say say ' University of Texas at Austin' say ' Type UTCAT at username prompt.' say say ' To exit, type STOP.' say say 'Press RETURN to continue...' pull continue push utaus.cc.utexas.edu telnet return utdatx: procedure /* University of Texas at Dallas */ call newscr say ' Texas' say say ' University of Texas at Dallas' say ' TAB to command prompt and type LIBRARY.' say say 'Press RETURN to continue...' pull continue push vm.utdallas.edu telnet return ricetx: procedure /* Rice University */ call newscr say ' Texas' say say ' Rice University' say ' TAB to command prompt and type DIAL LIBRIS.' say say ' To exit, type UNDIAL.' say say 'Press RETURN to continue...' pull continue push library.rice.edu telnet return utmenu: procedure /* Utah libraries */ call newscr say ' Utah' say say ' Select a number from this menu' say say ' 1. University of Utah, Marriott' say ' 2. Brigham Young University' say pull selection if selection='1' then call univut if selection='2' then call byuut return univut: procedure /* University of Utah, Marriot */ call newscr say ' Utah' say say ' University of Utah, Marriott' say ' Hit RETURN, then type D UNIS at second screen, then RETURN.' say say ' To exit, press Ctrl C.' say say 'Press RETURN to continue...' pull continue push lib.utah.edu telnet return byuut: procedure /* Brigham Young University */ call newscr say ' Utah' say say ' Brigham Young University' say ' Type BYLINE at the userid prompt, then E on next screen.' say say 'Press RETURN to continue...' pull continue push lib.byu.edu telnet return vtmenu: procedure /* Vermont libraries */ call newscr say ' Vermont' say say ' University of Vermont' say ' TAB to command prompt and type DIAL DOSLIBR.' say say ' To exit, try UNDIAL at VM prompt.' say say 'Press RETURN to continue...' pull continue push uvmvm.uvm.edu telnet return vamenu: procedure /* Virginia libraries */ call newscr say ' Virginia' say say ' Select a number from this menu' say say ' 1. Old Dominion University' say ' 2. University of Virginia Law Library' say ' 3. Virginia Polytechnic Institute and State University VTLS' say ' 4. Virginia Commonwealth University' say pull selection if selection='1' then call oduva if selection='2' then call uva if selection='3' then call vpiva if selection='4' then call vcuva return oduva: procedure /* Old Dominion University */ call newscr say ' Virginia' say say ' Old Dominion University' say say ' To exit, type END or QUIT.' say say 'Press RETURN to continue...' pull continue push geac.lib.odu.edu telnet return uva: procedure /* University of Virginia Law Library */ call newscr say ' Virginia' say say ' University of Virginia Law Library' say ' Press RETURN twice, then type CONNECT LAW' say say ' To exit, press D then type QUIT.' say say 'Press RETURN to continue...' pull continue push ublan.virginia.edu telnet return vpiva: procedure /* Virginia Polytechnic Institute and State University VTLS */ call newscr say ' Virginia' say say ' Virginia Polytechnic Institute and State University VTLS' say ' Type CALL VTLS.' say say 'Press RETURN to continue...' pull continue push vtnet1.cns.vt.edu telnet return vcuva: procedure /* Virginia Commonwealth University */ call newscr say ' Virginia' say say ' Virginia Commonwealth University' say ' TAB to command prompt and type DIAL VTAM.' say ' Press L and RETURN twice.' say say ' To exit, type LOGOFF and then UNDIAL.' say say 'Press RETURN to continue...' pull continue push vcuvm1.vcu.edu telnet return wamenu: procedure /* Washington libraries */ call newscr say ' Washington' say say 'No libraries currently connected.' say say 'Press RETURN to continue...' pull continue return sdmenu: procedure /* South Dakota libraries */ call newscr say ' South Dakota' say say 'No libraries currently connected.' say say 'Press RETURN to continue...' pull continue return wvmenu: procedure /* West Virginia libraries */ call newscr say ' West Virginia' say say 'No libraries currently connected.' say say 'Press RETURN to continue...' pull continue return wymenu: procedure /* Wyoming libraries */ call newscr say ' Wyoming' say say 'No libraries currently connected.' say say 'Press RETURN to continue...' pull continue return wimenu: procedure /* Wisconsin libraries */ call newscr say ' Wisconsin' say say ' Select a number from this menu' say say ' 1. Marquette University Libraries' say ' 2. University of Wisconsin Library Catalogs' say pull selection if selection='1' then call marqwi if selection='2' then call univwi return marqwi: procedure /* Marquette University Libraries */ call newscr say ' Wisconsin' say say ' Marquette University Libraries' say ' Press RETURN until instruction screen appears.' say say 'Press RETURN to continue...' pull continue push libus.csd.mu.edu telnet return univwi: procedure /* University of Wisconsin Library Catalogs */ call newscr say ' Wisconsin' say say ' University of Wisconsin Library Catalogs ' say ' TAB to option and press RETURN.' say say 'Press RETURN to continue...' pull continue push blue.adp.wisc.edu telnet return newscr: procedure vmfclear say 'Internet Online Public Access Catalogs' say return