From:	MERC::"uunet!WKUVX1.BITNET!FILESERV-Mgr"  6-MAY-1992 20:45:52.74
To:	galaxy::gleeve
CC:	
Subj:	NOTICE.06_OF_06

-+-+-+-+-+-+-+-+ START OF PART 6 -+-+-+-+-+-+-+-+
X$`09filename = f$parse(file,"","","NAME")
X$`09read/error=Menu_Loop sys$command module-
X`09`09/prompt="Module name <''filename'>: "
X$`09if module .eqs. "" then module = filename
X$`09module = f$edit(module,"UPCASE")
X$`09read/error=Menu_Loop sys$command choice-
X`09`09/prompt="Add file ''file' as module ''module' <Y>? "
X$`09on error then goto menu_loop
X$`09if choice .or. (choice.eqs."") then -
X`09`09'libcmd'/replace 'the_library' 'file'/module='module'
X$`09if choice
X$`09then`09read/error=Menu_Loop sys$command choice-
X`09`09/prompt="Delete temporary file ''file' <Y>? "
X$`09`09if choice.eqs."" then choice = "Y"
X$`09`09if choice then delete 'file'
X$`09endif
X$`09goto menu_loop
X$ Delete_Module:
X$`09read/error=Menu_Loop sys$command module/prompt="Module to delete: "
X$`09if module.eqs."" then goto Delete_Module
X$`09module = f$edit(module,"UPCASE")
X$`09read/error=Menu_Loop sys$command choice-
X`09`09/prompt="Delete module ''module' <Y>? "
X$`09on error then goto menu_loop
X$`09if choice .or. choice.eqs."" then -
X`09`09'libcmd'/DELETE='module' 'the_library'
X$`09goto menu_loop
X$ Edit_Module:
X$`09edit_it = 1
X$`09goto Do_Module_Update
X$ Touch_Module:
X$`09edit_it = 0
X$!$`09goto Do_Module_Update
X$ Do_Module_Update:
X$`09temp_file = "SYS$SCRATCH:NOTICE''f$pid(0)'.TMP"
X$`09if edit_it
X$`09then which_update = "edit"
X$`09else which_update = "touch"
X$`09endif
X$  Do_Module_Update_Prompt:
X$`09read/error=Menu_Loop sys$command module-
X`09`09/prompt="Module to ''which_update': "
X$`09if module.eqs."" then goto Do_Module_Update_Prompt
X$`09module = f$edit(module,"UPCASE")
X$`09read/error=Menu_Loop sys$command choice-
X`09`09/prompt="Really ''which_update' module ''module' <Y>? "
X$`09on error then goto menu_loop
X$`09if choice .or. choice.eqs.""
X$`09then`09'libcmd'/EXTRACT='module'/out='temp_file' 'the_library'
X$`09`09if edit_it
X$`09`09then`09define/user sys$input sys$command
X$`09`09`09edit/tpu 'temp_file'
X$`09`09endif
X$`09`09if f$search(temp_file).nes.""
X$`09`09then  'libcmd'/REPLACE 'the_library' 'temp_file'/MODULE='module'`20
X$`09`09`09delete 'temp_file';*
X$`09`09endif
X$`09`09say "Module ''module' ''which_update'ed"
X$`09else`09say "Module ''module' not ''which_update'ed"
X$`09endif
X$`09goto Menu_Loop
X$ Create_Library:
X$ read/error=Menu_Loop sys$command choice-
X`09`09/prompt="Really create a new library <N>? "
X$ if choice.eqs."" then choice = 0
X$ if choice
X$ then`09read/error=Menu_Loop sys$command libname -
X`09`09/prompt="Filename for new library: "
X$`09if libname .nes. ""
X$`09then`09libname = f$parse(libname,".TLB")
X$`09`09library/text/create/log 'libname'
X$`09`09set file/prot=w:r 'libname'
X$`09`09define/system/exec notice_library 'libname'
X$`09`09say "NOTICE_LIBRARY defined as ''libname'"
X$`09else`09say "No library created"
X$`09endif
X$ else`09say "No library created"
X$ endif
X$ goto Menu_Loop
X$ common_exit:
X$`09exit f$verify(save_verify).or.1
$ CALL UNPACK [.NOTICE]NOTICE_MGR.COM;1 373168589
$ create 'f'
X`09.TITLE`09NOTICE_MSG
X`09.FACILITY`09NOTICE,101/prefix=NOTICE$_
X!
X!  Copyright `A9 1992 by Hunter Goatley.  All rights reserved.  Permission
X!  is given to freely distribute and modify this software for no commercial
X!  gain as long as this copyright notice is retained.
X!
X!++
X!
X!  Facility:`09NOTICE
X!
X!  Module:`09NOTICE_MSG.MSG
X!
X!  Author:`09Hunter Goatley, goathunter@WKUVX1.BITNET
X!`09`09Western Kentucky University
X!
X!  Date:`09May 6, 1992
X!
X!  Modified by:
X!
X!`0901-000`09`09Hunter Goatley`09`09 6-MAY-1992 08:11
X!`09`09Genesis.
X!--
X`09.SEVERITY`09ERROR
XNOSUCHTOPIC`09`09<no such topic in library>
XLBRFNF`09`09`09<NOTICE library file not found>
X
X`09.END
$ CALL UNPACK [.NOTICE]NOTICE_MSG.MSG;1 1768146945
$ create 'f'
X$ save_verify = 'f$verify(0)'
X$!
X$!  Startup file for NOTICE
X$!
X$ notice_exe := WKU$ROOT:`5BEXE`5DNOTICE.EXE`09`09`09!****LOCAL
X$ define/system/exec notice_library WKU$ROOT:`5BHELP`5DNOTICE.TLB`09!****LOC
VAL
X$ if f$search(notice_exe).nes.""
X$ then`09if f$file_attributes(notice_exe,"KNOWN")
X$`09then cmd = "replace"
X$`09else cmd = "add"
X$`09install 'cmd' 'notice_exe'/open/header/share
X$ endif
X$ common_exit:
X$`09exit f$verify(save_verify).or.1
$ CALL UNPACK [.NOTICE]NOTICE_STARTUP.COM;1 125119986
$ v=f$verify(v)
$ EXIT
