From:	MERC::"uunet!WKUVX1.BITNET!FILESERV-Mgr"  6-MAY-1992 20:46:06.83
To:	galaxy::gleeve
CC:	
Subj:	NOTICE.05_OF_06

-+-+-+-+-+-+-+-+ START OF PART 5 -+-+-+-+-+-+-+-+
XU.20:`09.BLKB   4
XU.32:`09.WORD   0
X`09.BYTE   14, 2
X`09.LONG   0
XU.33:`09.WORD   0
X`09.BYTE   14, 2
X`09.LONG   0
X`09.PSECT  $PLIT$,NOWRT,NOEXE,2
XP.AAB:`09.ASCII  \NOTICE_LIBRARY\<0><0>
XP.AAA:`09.LONG   17694734
X`09.ADDRESS P.AAB
XP.AAD:`09.BLKB   0
XP.AAC:`09.LONG   17694720
X`09.ADDRESS P.AAD
XP.AAF:`09.ASCII  \$\<0><0><0>
XP.AAE:`09.LONG   17694721
X`09.ADDRESS P.AAF
XP.AAG:`09.LONG   1
XP.AAI:`09.ASCII  <7>\NOTICE topics.  Type NOTICE <topic-name> for more infor
Vmati\
X`09.ASCII  \on.\<0>
XP.AAH:`09.LONG   17694783
X`09.ADDRESS P.AAI
XP.AAK:`09.ASCII  \NOTICE topics.  Type NOTICE <topic-name> for more informat
Vion\-
X`09`09\.\<0>
X`09.ASCII  <0>
XP.AAJ:`09.LONG   17694782
X`09.ADDRESS P.AAK
XP.AAM:`09.ASCII  \Topic      Date         Description\<0>
XP.AAL:`09.LONG   17694755
X`09.ADDRESS P.AAM
XP.AAO:`09.ASCII  \---------  -----------  -----------\<0>
XP.AAN:`09.LONG   17694755
X`09.ADDRESS P.AAO
XP.AAQ:`09.ASCII  \LIST\
XP.AAP:`09.LONG   17694724
X`09.ADDRESS P.AAQ
XP.AAS:`09.ASCII  \MODULE\<0><0>
XP.AAR:`09.LONG   17694726
X`09.ADDRESS P.AAS
XP.AAU:`09.ASCII  \NOTICE \<0>
XP.AAT:`09.LONG   17694727
X`09.ADDRESS P.AAU
XP.AAV:`09.LONG   1
XP.AAW:`09.LONG   4
XP.AAY:`09.ASCII  \*\<0><0><0>
XP.AAX:`09.LONG   17694721
X`09.ADDRESS P.AAY
XU.21=`09`09    P.AAA
XU.22=`09`09    P.AAC
XU.23=`09`09    P.AAE
XU.24=`09`09    P.AAG
XU.25=`09`09    P.AAH
XU.26=`09`09    P.AAJ
XU.27=`09`09    P.AAL
XU.28=`09`09    P.AAN
XU.29=`09`09    P.AAP
XU.30=`09`09    P.AAR
XU.31=`09`09    P.AAT
X`09.EXTRN  HG$PUT_OUTPUT, CLI$DCL_PARSE, CLI$GET_VALUE, CLI$PRESENT, LIB$GET
V_FOREIGN, LIB$GET_INPUT
X`09.EXTRN  LIB$GET_VM, LIB$INSERT_TREE, LIB$PUT_OUTPUT, LIB$SUB_TIMES, LIB$T
VRAVERSE_TREE, LBR$CLOSE
X`09.EXTRN  LBR$FIND, LBR$GET_INDEX, LBR$GET_RECORD, LBR$INI_CONTROL, LBR$LOO
VKUP_KEY, LBR$OPEN
X`09.EXTRN  LBR$SET_MODULE, LBR$SET_MOVE, STR$CONCAT, NOTICE_TABLES, NOTICE$_
VNOSUCHTOPIC, NOTICE$_LBRFNF
X`09.EXTRN  CLI$_PRESENT, LBR$_KEYNOTFND
X`09.PSECT  $CODE$,NOWRT,2
XU.1:`09.WORD   `5EM<R2,R3,R4,R5>
X`09MOVAB   G`5ECLI$PRESENT, R5
X`09MOVAB   W`5EU.30, R4
X`09MOVAB   W`5EU.32, R3
X`09PUSHL   R3
X`09CALLS   #1, G`5ELIB$GET_FOREIGN
X`09MOVL    R0, R2
X`09BLBC    R2, 1$
X`09PUSHL   R3
X`09PUSHAB  16(R4)
X`09PUSHAB  8(R3)
X`09CALLS   #3, G`5ESTR$CONCAT
X`09PUSHAB  G`5ENOTICE_TABLES
X`09PUSHAB  8(R3)
X`09CALLS   #2, G`5ECLI$DCL_PARSE
X`09MOVL    R0, R2
X`09BLBC    R2, 1$
X`09PUSHAB  28(R4)
X`09PUSHAB  24(R4)
X`09PUSHAB  -4(R3)
X`09CALLS   #3, G`5ELBR$INI_CONTROL
X`09MOVL    R0, R2
X`09BLBC    R2, 1$
X`09PUSHAB  -284(R4)
X`09PUSHAB  -4(R3)
X`09CALLS   #2, G`5ELBR$OPEN
X`09MOVL    R0, R2
X`09BLBS    R2, 3$
X`09CMPL    R2, #98962
X`09BEQL    2$
X1$:`09BRW     12$
X2$:`09MOVAB   G`5ENOTICE$_LBRFNF, R0
X`09RET
X3$:`09PUSHL   R4
X`09CALLS   #1, (R5)
X`09BLBC    R0, 4$
X`09PUSHL   R3
X`09PUSHL   R4
X`09CALLS   #2, G`5ECLI$GET_VALUE
X`09MOVL    R0, R2
X`09BRB     5$
X4$:`09CLRW    (R3)
X5$:`09PUSHAB  -16(R4)
X`09CALLS   #1, (R5)
X`09MOVAB   G`5ECLI$_PRESENT, R1
X`09CMPL    R0, R1
X`09BNEQ    8$
X`09TSTW    (R3)
X`09BNEQ    6$
X`09MOVAB   36(R4), R0
X`09BRB     7$
X6$:`09MOVAB   (R3), R0
X7$:`09PUSHL   R0
X`09PUSHAB  -4(R3)
X`09CALLS   #2, W`5EU.3
X`09MOVL    R0, R2
X`09BRB     11$
X8$:`09TSTW    (R3)
X`09BNEQ    9$
X`09CLRL    -(SP)
X`09PUSHAB  -4(R3)
X`09CALLS   #2, W`5EU.2
X`09BRB     10$
X9$:`09PUSHL   R3
X`09PUSHAB  -4(R3)
X`09CALLS   #2, W`5EU.5
X10$:`09MOVL    R0, R2
X`09MOVAB   G`5ELBR$_KEYNOTFND, R0
X`09CMPL    R2, R0
X`09BNEQ    11$
X`09MOVAB   G`5ENOTICE$_NOSUCHTOPIC, R2
X11$:`09PUSHAB  -4(R3)
X`09CALLS   #1, G`5ELBR$CLOSE
X12$:`09MOVL    R2, R0
X`09RET
X`09.EXTRN  SYS$GETJPIW
XU.2:`09.WORD   `5EM<R2,R3,R4,R5>
X`09MOVAB   W`5EU.17, R5
X`09MOVAB   W`5EU.22, R4
X`09MOVAB   G`5ELIB$PUT_OUTPUT, R3
X`09SUBL2   #24, SP
X`09MOVL    8(AP), R1
X`09BNEQ    1$
X`09MOVAB   8(SP), R0
X`09MOVL    #34799624, (R0)+
X`09MOVAB   (R5), (R0)+
X`09CLRQ    (R0)+
X`09CLRQ    -(SP)
X`09PUSHAB  8(SP)
X`09PUSHAB  20(SP)
X`09CLRQ    -(SP)
X`09CLRL    -(SP)
X`09CALLS   #7, G`5ESYS$GETJPIW
X`09MOVL    R0, R2
X`09BLBS    R2, 2$
X`09MOVL    R2, R0
X`09RET
X1$:`09MOVQ    (R1), (R5)
X2$:`09CLRL    8(R5)
X`09PUSHAB  W`5EU.4
X`09PUSHAB  20(R4)
X`09PUSHL   4(AP)
X`09CALLS   #3, G`5ELBR$GET_INDEX
X`09MOVL    R0, R2
X`09TSTL    8(R5)
X`09BEQL    3$
X`09PUSHL   R4
X`09CALLS   #1, (R3)
X`09PUSHAB  88(R4)
X`09CALLS   #1, (R3)
X`09PUSHL   R4
X`09CALLS   #1, (R3)
X`09PUSHAB  204(R4)
X`09CALLS   #1, (R3)
X`09PUSHAB  248(R4)
X`09CALLS   #1, (R3)
X`09CLRL    -(SP)
X`09PUSHAB  W`5EU.9
X`09PUSHAB  12(R5)
X`09CALLS   #3, G`5ELIB$TRAVERSE_TREE
X`09MOVL    R0, R2
X`09PUSHL   R4
X`09CALLS   #1, (R3)
X3$:`09MOVL    #1, R0
X`09RET
XU.3:`09.WORD   `5EM<R2,R3,R4,R5>
X`09MOVAB   G`5ELBR$GET_INDEX, R5
X`09MOVAB   W`5EU.24, R4
X`09MOVAB   G`5EHG$PUT_OUTPUT, R3
X`09SUBL2   #4, SP
X`09PUSHL   #34471936
X`09CLRL    4(SP)
X`09PUSHL   8(AP)
X`09PUSHAB  W`5EU.6
X`09PUSHL   R4
X`09PUSHL   4(AP)
X`09CALLS   #4, (R5)
X`09MOVL    R0, R2
X`09PUSHL   8(AP)
X`09PUSHAB  -8(R4)
X`09PUSHAB  8(SP)
X`09CALLS   #3, G`5ESTR$CONCAT
X`09PUSHL   SP
X`09PUSHAB  W`5EU.6
X`09PUSHL   R4
X`09PUSHL   4(AP)
X`09CALLS   #4, (R5)
X`09BLBS    R2, 1$
X`09BLBC    R0, 2$
X1$:`09PUSHAB  140(R4)
X`09CALLS   #1, (R3)
X`09PUSHAB  -20(R4)
X`09CALLS   #1, (R3)
X`09PUSHAB  184(R4)
X`09CALLS   #1, (R3)
X`09PUSHAB  228(R4)
X`09CALLS   #1, (R3)
X`09CLRL    -(SP)
X`09PUSHAB  W`5EU.10
X`09PUSHAB  W`5EU.19
X`09CALLS   #3, G`5ELIB$TRAVERSE_TREE
X`09MOVL    R0, R2
X2$:`09BLBC    R2, 3$
X`09PUSHAB  -20(R4)
X`09CALLS   #1, (R3)
X3$:`09MOVL    R2, R0
X`09RET
X`09.PSECT  $OWN$,NOEXE,2
XU.40:`09.BLKB   8
X`09.EXTRN  LIB$_NEGTIM
X`09.PSECT  $CODE$,NOWRT,2
XU.4:`09.WORD   `5EM<R2,R3>
X`09MOVL    4(AP), R3
X`09CLRL    R0
X`09CMPB    @4(R3), #36
X`09BEQL    2$
X`09PUSHAB  W`5EU.12
X`09PUSHAB  W`5EU.12
X`09PUSHL   8(AP)
X`09PUSHAB  W`5EU.20
X`09CALLS   #4, G`5ELBR$SET_MODULE
X`09MOVL    R0, R2
X`09BLBC    R2, 1$
X`09PUSHAB  W`5EU.40
X`09PUSHAB  W`5EU.17
X`09PUSHAB  W`5EU.11+8
X`09CALLS   #3, G`5ELIB$SUB_TIMES
X`09CMPL    R0, #LIB$_NEGTIM
X`09BNEQ    2$
X1$:`09MOVL    R2, R0
X`09RET
X2$:`09INCL    W`5EU.18
X`09PUSHL   8(AP)
X`09PUSHL   R3
X`09CALLS   #2, W`5EU.6
X`09RET
X`09.PSECT  $OWN$,NOEXE,2
XU.43:`09.BLKB   8
X`09.PSECT  $PLIT$,NOWRT,NOEXE,2
XP.ABA:`09.ASCII  \Notice !AS, dated !%D\<0><0><0>
XP.AAZ:`09.LONG   17694741
X`09.ADDRESS P.ABA
X`09.EXTRN  SYS$FAO
X`09.PSECT  $CODE$,NOWRT,2
XU.5:`09.WORD   `5EM<R2,R3,R4,R5>
X`09MOVAB   G`5ELBR$LOOKUP_KEY, R5
X`09MOVAB   G`5EHG$PUT_OUTPUT, R4
X`09MOVAB   W`5EU.16, R3
X`09SUBL2   #8, SP
X`09MOVW    #256, (R3)
X`09MOVW    #256, -528(R3)
X`09PUSHAB  52(R3)
X`09MOVQ    4(AP), -(SP)
X`09CALLS   #3, (R5)
X`09MOVL    R0, R2
X`09MOVAB   G`5ELBR$_KEYNOTFND, R0
X`09CMPL    R2, R0
X`09BNEQ    1$
X`09MOVL    #34471936, (SP)
X`09CLRL    4(SP)
X`09PUSHL   8(AP)
X`09PUSHAB  W`5EU.23
X`09PUSHAB  8(SP)
X`09CALLS   #3, G`5ESTR$CONCAT
X`09PUSHAB  52(R3)
X`09PUSHAB  4(SP)
X`09PUSHL   4(AP)
X`09CALLS   #3, (R5)
X`09MOVL    R0, R2
X1$:`09BLBC    R2, 4$
X`09PUSHAB  -528(R3)
X`09PUSHAB  -528(R3)
X`09PUSHAB  52(R3)
X`09PUSHL   4(AP)
X`09CALLS   #4, G`5ELBR$SET_MODULE
X`09MOVL    R0, R2
X`09BLBC    R2, 4$
X`09PUSHAB  -776(R3)
X`09PUSHL   8(AP)
X`09PUSHL   R3
X`09PUSHL   R3
X`09PUSHAB  W`5EP.AAZ
X`09CALLS   #5, G`5ESYS$FAO
X`09PUSHL   R3
X`09CALLS   #1, (R4)
X`09PUSHAB  W`5EU.22
X2$:`09CALLS   #1, (R4)
X`09MOVW    #256, -264(R3)
X`09PUSHAB  -264(R3)
X`09PUSHAB  -264(R3)
X`09PUSHL   4(AP)
X`09CALLS   #3, G`5ELBR$GET_RECORD
X`09MOVL    R0, R2
X`09BLBC    R2, 3$
X`09PUSHAB  -264(R3)
X`09BRB     2$
X3$:`09PUSHAB  W`5EU.22
X`09CALLS   #1, (R4)
X`09CMPL    R2, #98938
X`09BNEQ    4$
X`09MOVL    #1, R0
X`09RET
X4$:`09MOVL    R2, R0
X`09RET
X`09.PSECT  $PLIT$,NOWRT,NOEXE,2
XP.ABC:`09.ASCII  \!10AD !11%D  !55AS\<0><0>
XP.ABB:`09.LONG   17694738
X`09.ADDRESS P.ABC
XU.46=`09`09    P.ABB
X`09.PSECT  $CODE$,NOWRT,2
XU.6:`09.WORD   `5EM<R2,R3,R4>
X`09MOVAB   W`5EU.14, R4
X`09SUBL2   #8, SP
X`09MOVL    4(AP), R2
X`09CLRL    R3
X`09PUSHAB  -264(R4)
X`09PUSHAB  -264(R4)
X`09PUSHL   8(AP)
X`09PUSHAB  288(R4)
X`09CALLS   #4, G`5ELBR$SET_MODULE
X`09PUSHL   8(AP)
X`09PUSHAB  288(R4)
X`09CALLS   #2, G`5ELBR$FIND
X`09BLBC    R0, 6$
X`09MOVW    #256, (R4)
X`09PUSHL   R4
X`09PUSHL   R4
X`09PUSHAB  288(R4)
X`09CALLS   #3, G`5ELBR$GET_RECORD
X`09BLBC    R0, 7$
X`09CMPB    @4(R2), #36
X`09BNEQ    1$
X`09MOVL    #1, R3
X1$:`09MOVW    #256, 264(R4)
X`09PUSHL   R4
X`09PUSHAB  -512(R4)
X`09BLBC    R3, 2$
X`09ADDL3   #1, 4(R2), R1
X`09PUSHL   R1
X`09BRB     3$
X2$:`09PUSHL   4(R2)
X3$:`09BLBC    R3, 4$
X`09MOVZWL  (R2), R2
X`09PUSHAB  -(R2)
X`09BRB     5$
X4$:`09MOVZWL  (R2), -(SP)
X5$:`09PUSHAB  264(R4)
X`09PUSHAB  264(R4)
X`09PUSHAB  W`5EU.46
X`09CALLS   #7, G`5ESYS$FAO
X6$:`09BLBC    R0, 7$
X`09PUSHAB  264(R4)
X`09PUSHAB  8(SP)
X`09PUSHAB  W`5EU.7
X`09PUSHAB  W`5EU.8
X`09CLRL    16(SP)
X`09PUSHAB  16(SP)
X`09PUSHAB  -512(R4)
X`09PUSHAB  284(R4)
X`09CALLS   #7, G`5ELIB$INSERT_TREE
X7$:`09RET
X`09.PSECT  $OWN$,NOEXE,2
XU.50:`09.BLKB   4
X`09.PSECT  $CODE$,NOWRT,2
XU.7:`09.WORD   `5EM<R2,R3,R4,R5,R6,R7>
X`09SUBL2   #4, SP
X`09MOVL    4(AP), R3
X`09MOVL    12(AP), R2
X`09PUSHAB  W`5EU.50
X`09MOVZBL  #102, 4(SP)
X`09PUSHAB  4(SP)
X`09CALLS   #2, G`5ELIB$GET_VM
X`09MOVL    R0, R6
X`09BLBC    R6, 1$
X`09MOVL    W`5EU.50, R7
X`09MOVAB   12(R7), R0
X`09MOVQ    (R3), (R0)
X`09MOVW    (R2), 20(R7)
X`09MOVC3   (R2), @4(R2), 22(R7)
X`09MOVL    R7, @8(AP)
X1$:`09MOVL    R6, R0
X`09RET
XU.8:`09.WORD   `5EM<>
X`09SUBL2   #8, SP
X`09PUSHL   SP
X`09ADDL3   #12, 8(AP), -(SP)
X`09PUSHL   4(AP)
X`09CALLS   #3, G`5ELIB$SUB_TIMES
X`09CMPL    R0, #LIB$_NEGTIM
X`09BNEQ    1$
X`09MOVL    #1, R0
X`09RET
X1$:`09CMPL    (SP), #-1
X`09BNEQ    2$
X`09CMPL    4(SP), #-1
X`09BNEQ    2$
X`09CLRL    R0
X`09RET
X2$:`09MNEGL   #1, R0
X`09RET
XU.9:`09.WORD   `5EM<R2>
X`09SUBL2   #4, SP
X`09MOVL    4(AP), R1
X`09PUSHL   #17694720
X`09CLRL    4(SP)
X`09MOVAB   22(R1), R0
X`09MOVL    R0, 4(SP)
X`09MOVZWL  20(R1), R2
X`09ADDL2   R2, R0
X1$:`09CMPB    (R0), #32
X`09BNEQ    2$
X`09DECL    R0
X`09BRB     1$
X2$:`09SUBW3   4(SP), R0, (SP)
X`09PUSHL   SP
X`09CALLS   #1, G`5ELIB$PUT_OUTPUT
X`09RET
XU.10:`09.WORD   `5EM<R2>
X`09SUBL2   #4, SP
X`09MOVL    4(AP), R1
X`09PUSHL   #17694720
X`09CLRL    4(SP)
X`09MOVAB   22(R1), R0
X`09MOVL    R0, 4(SP)
X`09MOVZWL  20(R1), R2
X`09ADDL2   R2, R0
X1$:`09CMPB    (R0), #32
X`09BNEQ    2$
X`09DECL    R0
X`09BRB     1$
X2$:`09SUBW3   4(SP), R0, (SP)
X`09PUSHL   SP
X`09CALLS   #1, G`5EHG$PUT_OUTPUT
X`09RET
X`09.END`09U.1
$ CALL UNPACK [.NOTICE]NOTICE.MAR;1 1426596306
$ create 'f'
X`09MODULE`09NOTICE_TABLES
X`09IDENT`09"01-001"
X!++
X!
X!  NOTICE_CLD.CLD
X!
X!  Author:`09Hunter Goatley
X!
X!  Date:`09March 2, 1992
X!
X!  Functional description:
X!
X!`09This file contains the command language definition for the NOTICE
X!`09program.
X!
X!  Modification history:
X!
X!`0901-001`09`09Hunter Goatley`09`09 2-MAR-1992 17:25
X!`09`09Genesis.
X!
X!--
XDefine Verb NOTICE
X!
X!  Now provide some of the qualifiers for the DCL command SUBMIT:
X!
X`09Parameter`09P1, LABEL=MODULE, VALUE
X`09Qualifier`09LIST, NonNegatable
$ CALL UNPACK [.NOTICE]NOTICE_CLD.CLD;1 168231202
$ create 'f'
X$ save_verify = 'f$verify(0)'
X$!
X$!  File:`09NOTICE.COM
X$!
X$!  Author:`09Hunter Goatley
X$!
X$!  Date:`09February 24, 1992
X$!
X$!  Abstract:
X$!
X$!`09This command procedure is used to maintain the NOTICE database
X$!`09(a text library).
X$!
X$!  Modified by:
X$!
X$!`0901-002`09`09Hunter Goatley`09`09 6-MAY-1992 09:23
X$!`09`09Added option to create a new library.
X$!
X$!`0901-001`09`09Hunter Goatley`09`0923-APR-1992 15:17
X$!`09`09Added ability to touch and edit a module.
X$!
X$!`0901-000`09`09Hunter Goatley`09`0924-FEB-1992 07:27
X$!`09`09Genesis.
X$!
X$ say = "write sys$output"
X$ the_library = f$trnlnm("NOTICE_LIBRARY","LNM$SYSTEM_TABLE")
X$ if the_library .eqs. ""
X$ then`09say "NOTICE library logical NOTICE_LIBRARY has not been defined"
X$`09goto common_exit
X$ endif
X$ library = "library"
X$ libcmd = "LIBRARY/TEXT/LOG"
X$ delete = "delete/nolog/noconfirm"
X$!
X$ if f$search(the_library) .eqs.""
X$ then`09say "Library ''the_library' not found!"
X$`09exit
X$ endif
X$ on contrl_y then goto common_exit
X$!
X$!  Ask for the option desired
X$!
X$ menu_loop:
X$`09on error then goto common_exit
X$`09say ""
X$`09say "NOTICE library maintenance"
X$`09say ""
X$`09say "  1.  List the library contents"
X$`09say "  2.  Add/replace a module to/in the library"
X$`09say "  3.  Touch a module in the library (update date)"
X$`09say "  4.  Edit a module in the library"
X$`09say "  5.  Delete a module from the library"
X$`09say "  6.  Create a new library"
X$`09say "  0.  Exit"
X$`09say ""
X$`09read/error=common_exit sys$command choice/prompt="Choice <0>: "
X$`09say ""
X$`09if choice .eqs. "" .or. choice.eqs."0" then goto common_exit
X$`09if choice .eqs. "1" then goto List_Contents
X$`09if choice .eqs. "2" then goto Add_Module
X$`09if choice .eqs. "3" then goto Touch_Module
X$`09if choice .eqs. "4" then goto Edit_Module
X$`09if choice .eqs. "5" then goto Delete_Module
X$`09if choice .eqs. "6" then goto Create_Library
X$`09say "Invalid choice"
X$`09goto menu_loop
X$ List_Contents:
X$`09'libcmd'/LIST/FULL 'the_library'
X$`09say ""
X$`09read/error=common_exit sys$command choice-
X`09`09/prompt="Press RETURN to continue"
X$`09goto menu_loop
X$ Add_Module:
X$`09read/error=Menu_Loop sys$command filename/prompt="Source file: "
X$`09if filename.eqs."" then goto Add_Module
X$`09filename = f$edit(filename,"UPCASE")
X$`09file = f$search(filename)
X$`09choice = ""
X$`09if file .eqs. ""
X$`09then`09read/error=Menu_Loop sys$command choice -
X`09`09/prompt="File ''filename' doesn't exist.  Create it <Y>? "
X$`09`09if choice.eqs."" then choice = "Y"
X$`09`09if choice
X$`09`09then define/user sys$input sys$command:
X$`09`09     edit/tpu 'filename'
X$`09`09     file = f$search(filename)
X$`09`09     if file.eqs.""
X$`09`09     then say "No module created or added"
X$`09`09`09  goto Menu_Loop
X$`09`09     endif
X$`09`09else goto Menu_Loop
X$`09`09endif
X$`09endif
+-+-+-+-+-+-+-+-  END  OF PART 5 +-+-+-+-+-+-+-+-
