MODULE NEWSCMD

!++
!   FACILITY:
!
!       NEWSCMD
!
!   ABSTRACT
!
!       Command definition for NEWS
!
!   AUTHOR:
!
!       Geoff Huston
!
!   COPYRIGHT:
!
!       Copyright © 1988,1989
!
!   MODIFICATION HISTORY:
!
!       V5.5     7-Oct-1988     GIH
!           Add SET DISPLAY, MODIFY KILL
!       V5.6    11-Nov-1988     GIH
!           Additional commands added
!       V5.7    29-Nov-1988     GIH
!         - Add SET [NO]MANAGER command
!         - Add SCAN, ALLSCAN and UNSEEN as DCL command qualifiers to NEWS
!         - Add CLASS qualifier to DIRECTORY
!       V5.8     8-Feb-1989     GIH
!         - ATTACH/PARENT qualifier
!         - SET PROFILE/NEWREGISTER qualifier
!         - ADD FILE/NEWSGROUP qualifier
!         - SKIM/[no]FILECHECK qualifier
!         - SKIM/[no]VERBOSE qualifier
!         - ADD MAIL command
!         - CREATE and SET NEWSGROUP/TITLE
!         - SET NEWSGROUP/NOTICE
!         - Add protocol option MULTINETTCP for Multinet TCP (Mats Sundvall)
!       V5.9     9-June-1989     GIH
!         - Add verbs TOP and BOTTOM
!         - SHOW NEWSGROUP/FULL as equivalent to SHOW ENTRY
!--

!
!   type definitions
!
define type ADD_OPTIONS
    keyword     BATCH,      syntax=ADD_BATCH
    keyword     ENTRY,      syntax=ADD_ENTRY
    keyword     FILE        syntax=ADD_BATCH
    keyword     KEYWORD,    syntax=ADD_KEYWORD
    keyword     MARKER      syntax=ADD_MARKER
    keyword     MAIL        syntax=ADD_MAIL
    keyword     MEMBER      syntax=ADD_MEMBER

define type BACK_OPTIONS
    keyword     NOTE,       syntax=BACK_NOTE
    keyword     REPLY,      syntax=BACK_REPLY,default
    keyword     TOPIC,      syntax=BACK_TOPIC

define type CLEAR_OPTIONS
    keyword     MARKER      syntax=CLEAR_MARK
    keyword     KILL        syntax=CLEAR_KILL

define type CREATE_OPTIONS
    keyword     CONFERENCE, syntax=CREATE_NEWSGROUP
    keyword     KEYWORD,    syntax=CREATE_KEYWORD
    keyword     NEWSGROUPS  syntax=CREATE_NEWSGROUP
    keyword     GROUPS      syntax=CREATE_NEWSGROUP

define type DELETE_OPTIONS
    keyword     ENTRY       syntax=DELETE_ENTRY
    keyword     KEYWORD     syntax=DELETE_KEYWORD
    keyword     GROUPS      syntax=DELETE_GROUP
    keyword     ITEMS       syntax=DELETE_ITEM
    keyword     NEWSGROUPS  syntax=DELETE_GROUP
    keyword     NEWSITEMS   syntax=DELETE_ITEM
    keyword     NOTE        syntax=DELETE_ITEM
    keyword     MARKER      syntax=DELETE_MARKER
    keyword     MEMBER      syntax=DELETE_MEMBER

define type DIR_TYPE
    keyword     UNSEEN      default
    keyword     DIRECTORY

define type PRINT_DIRTYPE
    keyword     NEWSGROUPS
    keyword     GROUPS
    keyword     NEWSITEMS
    keyword     ITEMS
    keyword     NOTES

define type EXECUTE_OPTIONS
    keyword     DELETE
    keyword     LOCAL              
    keyword     RETAIN

define type MODIFY_OPTIONS
    keyword     KILL        syntax=MOD_KILL
    keyword     ENTRY       syntax=MOD_ENTRY
    keyword     KEYWORD     syntax=MOD_KEYWORD
    keyword     MEMBER      syntax=MOD_MEMBER

define type NEXT_OPTIONS
    keyword     NOTE,       syntax=NEXT_NOTE
    keyword     REPLY,      syntax=NEXT_REPLY,default
    keyword     TOPIC,      syntax=NEXT_TOPIC
    keyword     UNSEEN,     syntax=NEXT_UNSEEN

define type PRINT_BFT
    keyword     ALL         default
    keyword     ONE

define type PRIVS
    keyword     MODERATE
    keyword     NOMODERATE
    keyword     SUPERVISE
    keyword     NOSUPERVISE
    keyword     CREATE_KEYWORDS
    keyword     WRITE
    keyword     NOWRITE

define type RESTRCT
    keyword     MEMBERS
    keyword     KEYWORDS

define type SET_OPTIONS
    keyword     BROADCAST_TRAPPING      syntax=SET_BROAD
    keyword     NOBROADCAST_TRAPPING    syntax=SET_NOBROAD
    keyword     HISTORY     syntax=SET_HISTORY
    keyword     NOHISTORY   syntax=SET_NOHISTORY
    keyword     LINE_EDITING    syntax=SET_LINE
    keyword     NOLINE_EDITING  syntax=SET_NOLINE
    keyword     MANAGER     syntax=SET_MANAGER
    keyword     NOMANAGER   syntax=SET_NOMANAGER
    keyword     NEWSGROUP   syntax=SET_NEWSGROUP
    keyword     ITEM        syntax=SET_ITEM
    keyword     DISPLAY     syntax=SET_DISPLAY
    keyword     SEEN        syntax=SET_SEEN
    keyword     ACCESS      syntax=SET_ACCESS
    keyword     CLASS       syntax=SET_CLASS
    keyword     CONFERENCE, syntax=SET_CONF
    keyword     MODERATOR,  syntax=SET_MODERATOR
    keyword     NOMODERATOR syntax=SET_NOMODERATOR
    keyword     SUPERVISOR  syntax=SET_MODERATOR
    keyword     NOSUPERVISOR syntax=SET_NOMODERATOR
    keyword     NOTE,       syntax=SET_NOTE
    keyword     PROFILE,    syntax=SET_PROFILE
    keyword     MAILPROFILE syntax=SET_MAIL

define type SHOW_OPTIONS
    keyword     NEWSGROUP   syntax=SHOW_NEWSGROUP
    keyword     ITEM        syntax=SHOW_ITEM
    keyword     MARKER      syntax=SHOW_MARKS
    keyword     KILL        syntax=SHOW_KILL
    keyword     CLASSES     syntax=SHOW_CLASSES
    keyword     CONFERENCES     syntax=SHOW_ENTRY
    keyword     ENTRY       syntax=SHOW_ENTRY
    keyword     KEYWORDS    syntax=SHOW_KEYWORDS
    keyword     MEMBER      syntax=SHOW_MEMBER
    keyword     MODERATOR   syntax=SHOW_MODERATOR
    keyword     SUPERVISOR  syntax=SHOW_MODERATOR
    keyword     NOTE        syntax=SHOW_NOTE
    keyword     PROFILE     syntax=SHOW_PROFILE
    keyword     VERSION     syntax=SHOW_VERSION
    keyword     MAILPROFILE syntax=SHOW_MAIL

define type SWITCH
    keyword     ON
    keyword     OFF

define type PROTOCOL_OPTIONS
    keyword     DECNET
    keyword     TCP
    keyword     CMUTCP
    keyword     WINTCP
    keyword     MULTINETTCP

define type TYPE_OPTIONS
    keyword     NEWS
    keyword     MAIL
    keyword     NOTES

!
!   syntax definitions
!
define syntax ADD_BATCH
    routine do_add_net
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2,         label=FILE,value(required,impcat,list,type=$infile)
    qualifier   MODERATOR
    qualifier   CREGRP      placement=positional
    qualifier   DELETE      placement=positional
    qualifier   RETRY       placement=positional
    qualifier   EXECUTE     placement=positional,value(default="RETAIN",type=EXECUTE_OPTIONS)
    qualifier   DEFNEWSGROUP placement=positional,value
    qualifier   NETFEED     placement=positional,negatable,default
    qualifier   JUNK        placement=positional,negatable
    qualifier   ACCEPT      placement=positional,negatable
    qualifier   NEWSGROUP   placement=positional,value
    qualifier   NOCONTROL   nonnegatable

define syntax ADD_ENTRY
    routine do_add_entry
    parameter   P1,         label=OPTIONS, value(required)
    parameter   P2,         label=ENTRY
    qualifier   CLASSES,    value(required,list)
    qualifier   FILE,       value(required)
    qualifier   NAME,       value(required)
    qualifier   TYPE,       value(default="NEWS",type=TYPE_OPTIONS)
    qualifier   PROTOCOL,   value(default="DECNET",type=PROTOCOL_OPTIONS)

define syntax ADD_KEYWORD
    routine do_error
    parameter   P1,         label=OPTIONS, value(required)
    parameter   P2,         label=KEYWORDNAME, value(required)
    parameter   P3          label=NOTEID

define syntax ADD_MARKER
    routine do_mark
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2,         label=TAG, prompt="Mark", value(required)
    parameter   P3,         label=NOTEID

define syntax ADD_MAIL
    routine do_add_mail
    parameter   P1          label=OPTIONS, value(required)
    qualifier   MODERATOR
    qualifier   CREGRP
    qualifier   RETRY
    qualifier   EXECUTE     value(default="RETAIN",type=EXECUTE_OPTIONS)
    qualifier   DEFNEWSGROUP value
    qualifier   NETFEED     negatable,default
    qualifier   JUNK        negatable
    qualifier   ACCEPT      negatable
    qualifier   NEWSGROUP   value
    qualifier   USERNAME    value
    qualifier   MAILFILE    value(required,type=$infile)
    qualifier   FOLDER      value(required)
    qualifier   DELETE
    qualifier   NEWFOLDER   value(required)
    disallow    (USERNAME and MAILFILE) or (DELETE and NEWFOLDER)

define syntax ADD_MEMBER
    routine do_add_member
    parameter   P1,         label=OPTIONS, value(required)
    parameter   P2,         label=USERNAME, value(required)
    qualifier   MAIL        value(required)
    qualifier   NODES       value(required,list)
    qualifier   PRIVILEGES, value(required,list,type=PRIVS)

define syntax BACK_NOTE
    routine do_back_note
    parameter   P1,         label=OPTIONS
    qualifier   HEADER,     nonnegatable
    qualifier   TPU,        nonnegatable
    qualifier   EDITOR,     nonnegatable
    qualifier   ROT13,      nonnegatable

define syntax BACK_REPLY
    routine do_back_reply
    parameter   P1,         label=OPTIONS
    qualifier   HEADER,     nonnegatable
    qualifier   TPU,        nonnegatable
    qualifier   EDITOR,     nonnegatable
    qualifier   ROT13,      nonnegatable

define syntax BACK_TOPIC
    routine do_back_note
    parameter   P1,         label=OPTIONS
    qualifier   HEADER,     nonnegatable
    qualifier   TPU,        nonnegatable
    qualifier   EDITOR,     nonnegatable
    qualifier   ROT13,      nonnegatable

define syntax CLEAR_MARK
    routine     do_markclear
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2          label=TAG

define syntax CLEAR_KILL
    routine     do_killclear
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2          label=TAG

define syntax CREATE_KEYWORD
    routine do_error
    parameter   P1,         label=OPTIONS, value(required)
    parameter   P2,         label=KEYWORDNAME,value(required)

define syntax CREATE_NEWSGROUP
    routine do_cregrp
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2,         label=NEWSGROUPS,value(list)
    qualifier   APPROVAL    negatable
    qualifier   CACHE       negatable,value
    qualifier   CONFIRM     negatable
    qualifier   HOLD        value(default= "0")
    qualifier   INQUIRE
    qualifier   ITEMHOLD    value(default="0")
    qualifier   LOCAL
    qualifier   MODERATOR   value
    qualifier	MAILLIST    value
    qualifier   PROTOCOL    value(default="DECNET",type=PROTOCOL_OPTIONS)
    qualifier   RESTRICT,   negatable,value(type=RESTRCT,default="MEMBERS",list)
    qualifier   SERVER      value
    qualifier   SINCE,      nonnegatable,value(default="YESTERDAY",type=$datetime)
    qualifier   TITLE       value
    qualifier   UPDATE      negatable,default
    qualifier   WRITE       negatable
    qualifier   FILEHOLD    value(default="2")
    qualifier   KEEPREQUEST negatable,default

define syntax DEFINE_KEY
    routine do_define
    parameter   P1,         prompt="Key name", value(required)
    parameter   P2,         prompt="Equivalence name", value(required)
    qualifier   ECHO
    qualifier   TERMINATE
    qualifier   LOCK_STATE
    qualifier   IF_STATE,   value(required,list)
    qualifier   SET_STATE,  value(required)
    qualifier   PROTECT
    disallow    ((not LOCK_STATE and TERMINATE and SET_STATE) or (LOCK_STATE and not SET_STATE))

define syntax DELETE_ENTRY
    routine do_delete_entry
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2,         label=ENTRY
    qualifier   CLASS,      value(required)

define syntax DELETE_KEYWORD
    routine do_error
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2,         label=KEYWORDNAME
    parameter   P3,         label=NOTEID
    qualifier   ALL

define syntax DELETE_GROUP
    routine do_dgroup
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2,         label=GROUP, value(list)
    qualifier   CONFIRM     negatable

define syntax DELETE_ITEM
    routine do_ditem
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2,         label=ITEM, value(list)
    qualifier   IDENTIFIER, value
    qualifier   CONFIRM     negatable
    disallow    (ITEM and IDENTIFIER)

define syntax DELETE_MARKER
    routine do_unmark
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2,         label=TAG, prompt="DELETE Mark", value(required)

define syntax DELETE_MEMBER
    routine do_delete_member
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2,         label=USERNAME, prompt="DELETE Username", value(required)

define syntax DIR_CONFERENCES
    routine do_error
    parameter   P1,         label=NODENAME

define syntax DIR_ENTRIES
    routine do_error
    parameter   P1,         label=ENTRYNAME
    qualifier   CLASS       value(required)

define syntax DIR_NOTEBOOK
    routine do_error
    parameter   P1,         label=ENTRYNAME
    qualifier   CLASS,      value(required)

define syntax MOD_KILL
    routine     do_killmod
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2          label=TAG

define syntax MOD_ENTRY
    routine do_modify_entry
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2          label=ENTRYNAME, value(required)
    qualifier   CLASSES,    value(required,list)
    qualifier   FILE,       value(required)
    qualifier   NAME,       value(required)

define syntax MOD_KEYWORD
    routine do_error
    parameter   P1,         label=OPTIONS, value(required)
    parameter   P2,         label=KEYWORD, value(required)
    qualifier   NAME,       value(required)

define syntax MOD_MEMBER
    routine do_modify_member
    parameter   P1,         label=OPTIONS, value(required)
    parameter   P2,         label=USERNAME, value(required)
    qualifier   MAIL        value(required)
    qualifier   NODES       value(required,list)
    qualifier   PRIVILEGES, value(required,list,type=PRIVS)
    qualifier   NAME        value(required)
              
define syntax NEXT_NOTE
    routine do_next_note
    parameter   P1,         label=OPTIONS
    qualifier   HEADER,     nonnegatable
    qualifier   TPU,        nonnegatable
    qualifier   EDITOR,     nonnegatable
    qualifier   ROT13,      nonnegatable

define syntax NEXT_REPLY
    routine do_next_reply
    parameter   P1,         label=OPTIONS
    qualifier   HEADER,     nonnegatable
    qualifier   TPU,        nonnegatable
    qualifier   EDITOR,     nonnegatable
    qualifier   ROT13,      nonnegatable

define syntax NEXT_TOPIC
    routine do_next_note
    parameter   P1,         label=OPTIONS
    qualifier   HEADER,     nonnegatable
    qualifier   TPU,        nonnegatable
    qualifier   EDITOR,     nonnegatable
    qualifier   ROT13,      nonnegatable

define syntax NEXT_UNSEEN
    routine do_next_unseen
    parameter   P1,         label=OPTIONS
    qualifier   HEADER,     nonnegatable
    qualifier   TPU,        nonnegatable
    qualifier   EDITOR,     nonnegatable
    qualifier   ROT13,      nonnegatable

define syntax SET_BROAD
    routine     set_broad
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2          label=BOOL,value(type=SWITCH)

define syntax SET_NOBROAD
    routine     set_nobroad
    parameter   P1          label=OPTIONS, value(required)

define syntax SET_HISTORY
    routine     set_history
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2          label=BOOL,value(type=SWITCH)

define syntax SET_NOHISTORY
    routine     set_nohistory
    parameter   P1          label=OPTIONS, value(required)

define syntax SET_LINE
    routine     set_line
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2          label=BOOL,value(type=SWITCH)

define syntax SET_NOLINE
    routine     set_noline
    parameter   P1          label=OPTIONS, value(required)

define syntax SET_CLASS
    routine     do_set_class
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2          label=CLASSNAME

define syntax SET_CONF
    routine     do_error
    parameter   P1          label=OPTIONS, value(required)
    qualifier   TITLE,      nonnegatable, value(required)
    qualifier   NOTICE,     nonnegatable, value(required)
    qualifier   RESTRICT,   negatable, value(type=RESTRCT)
    qualifier   WRITE,      negatable

define syntax SET_ITEM
    routine     do_set_item
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2          label=NOTEID
    qualifier   HOLD        value(default="0")

define syntax SET_MANAGER
    routine     do_set_manager
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2          label=BOOL,value(type=SWITCH)

define syntax SET_NOMANAGER
    routine     do_set_nomanager
    parameter   P1          label=OPTIONS, value(required)

define syntax SET_MODERATOR
    routine     do_set_mod
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2          label=BOOL,value(type=SWITCH)

define syntax SET_NOMODERATOR
    routine     do_set_nomod
    parameter   P1          label=OPTIONS, value(required)

define syntax SET_NEWSGROUP
    routine     do_set_newsgroup
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2          label=GROUP
    qualifier   APPROVAL    negatable
    qualifier   CACHE       negatable,value
    qualifier   HOLD        value(default="0")
    qualifier   ITEMHOLD    value(default="0")
    qualifier   LOCAL
    qualifier   MODERATOR   negatable,value
    qualifier   MAILLIST    negatable,value
    qualifier   SUPERVISOR  negatable,value
    qualifier   NOTICE      negatable,value
    qualifier   PROTOCOL    value(default="DECNET",type=PROTOCOL_OPTIONS)
    qualifier   RESTRICT    negatable, value(type=RESTRCT)
    qualifier   SERVER      value
    qualifier   TITLE       value
    qualifier   UPDATE      negatable,default
    qualifier   WRITE       negatable
    qualifier   FILEHOLD    value(default="2")
    qualifier   KEEPREQUEST negatable,default

define syntax SET_DISPLAY
    routine     do_set_display
    parameter   P1          label=OPTIONS, value(required)
    qualifier   SCANSIZE    value(type=$number,required)

define syntax SET_NOTE
    routine     do_error
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2,         label=NOTEID
    qualifier   CONFERENCE, nonnegatable, value(required)
    qualifier   HIDDEN,     negatable
    qualifier   TITLE,      nonnegatable, value(required)
    qualifier   WRITE,      negatable

define syntax SET_PROFILE
    routine     do_set_profile
    parameter   P1          label=OPTIONS, value(required)
    qualifier   AUTOMATIC   negatable,value(type=DIR_TYPE,default="UNSEEN")
    qualifier   CLASS,      negatable,value(default="MAIN")
    qualifier   EDITOR,     negatable,value(required,list)
    qualifier   PERSONAL_NAME,  negatable,value(required)
    qualifier   RCORDER	    negatable
    qualifier   RCFILTER    negatable
    qualifier   PRINT       negatable,value
    qualifier   DIRECTORY   negatable,value
    qualifier   TEMPORARY   negatable
    qualifier   NEWREGISTER    negatable,value
    qualifier	SCANSIZE	value
    qualifier	SIGNATURE	value
    qualifier	LOCSIGNATURE	value
    qualifier	ORGANIZATION	value
    qualifier   KEYDEFS		value

define syntax SET_SEEN
    routine do_skip
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2,         label=NEWG
    qualifier   NEWSGROUP   nonnegatable,default
    qualifier   POINTER     nonnegatable
    qualifier   FOLLOWUP    nonnegatable
    qualifier   BEFORE      value (default="TODAY",type=$datetime)
    disallow any2(NEWSGROUP,NEWG,POINTER,FOLLOWUP)

define syntax SET_ACCESS
    routine     do_setaccess
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2,         label=NEWSGROUP

define syntax SET_MAIL
    routine do_set_mail
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2	    label=MAILTYPE
    parameter	P3	    label=QUAL

define syntax SHOW_CLASSES
    routine     do_show_classes
    parameter   P1          label=OPTIONS, value(required)

define syntax SHOW_ITEM
    routine     do_show_item
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2          label=NOTEID
    qualifier   FULL        nonnegatable

define syntax SHOW_NOTE
    routine     do_show_note
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2          label=NOTEID

define syntax SHOW_KEYWORDS
    routine     do_error
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2,         label=KEYWORDNAME
    qualifier   ALL,        nonnegatable
    qualifier   FULL,       nonnegatable

define syntax SHOW_ENTRY
    routine     do_show_entry           
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2          label=GROUP

define syntax SHOW_NEWSGROUP
    routine     do_show_newsgroup
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2          label=GROUP
    qualifier   FULL        nonnegatable

define syntax SHOW_MARKS
    routine     do_markshow
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2          label=TAG
    qualifier   ALL
    disallow    (TAG and ALL)

define syntax SHOW_MEMBER
    routine     do_show_member
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2          label=USERNAME
    qualifier   ALL,        nonnegatable
    qualifier   MODERATOR,  nonnegatable
    qualifier   SUPERVISOR  nonnegatable

define syntax SHOW_MODERATOR
    routine     do_show_moderator
    parameter   P1          label=OPTIONS, value(required)

define syntax SHOW_PROFILE
    routine     do_show_profile
    parameter   P1          label=OPTIONS, value(required)

define syntax SHOW_VERSION
    routine     do_version
    parameter   P1          label=OPTIONS, value(required)

define syntax SHOW_KILL
    routine do_killshow
    parameter   P1          label=OPTIONS, value(required)

define syntax SHOW_MAIL
    routine do_show_mail
    parameter   P1          label=OPTIONS, value(required)
    parameter   P2	    label=MAILTYPE

!
!   verb definition for news qualifiers and single line commands
!
define verb INVOKENEWS
    qualifier   SCREEN      default
    qualifier   ALLSCAN
    qualifier   SCAN
    qualifier   UNSEEN
    qualifier   CLASS       value
    parameter   P1          label=COMMAND,value(type=$rest_of_line)

!
!   verb definition for news command language
!
define verb ADD
    routine do_error
    parameter   P1          label=OPTIONS, prompt="_NEWS ADD>", value(required,type=ADD_OPTIONS)

define verb ATTACH
    routine do_attach
    parameter   P1,         label=PROCESSNAME
    qualifier   PARENT      nonnegatable
    disallow    (PARENT and PROCESSNAME)

define verb BACK
    routine do_back_note
    parameter   P1,         label=OPTIONS, value(type=BACK_OPTIONS)
    qualifier   HEADER,     nonnegatable
    qualifier   TPU,        nonnegatable
    qualifier   EDITOR,     nonnegatable
    qualifier   ROT13,      nonnegatable

define verb BOTTOM
    routine do_bottom

define verb CANCEL
    routine do_cancel

define verb CLEAR
    routine do_error
    parameter   P1          label=OPTIONS, prompt="_NEWS CLEAR>", value(required,type=CLEAR_OPTIONS)

define verb CLOSE
    routine do_closeit
    parameter	p1	label=OBJECT
    qualifier	MAIL	nonnegatable

define verb CREATE
    routine do_error
    parameter   P1          label=OPTIONS, prompt="_NEWS CREATE>", value(required,type=CREATE_OPTIONS)

define verb COMPRESS
    routine do_mail_compress

define verb DEFINE
    routine do_error
    qualifier   KEY,        syntax=DEFINE_KEY

define verb DELETE
    routine do_dcontext
    parameter   P1          label=OPTIONS, value(type=DELETE_OPTIONS)
    qualifier   CONFIRM     negatable

define verb DEREGISTER
    routine do_deregister
    parameter   P1,         label=NEWSGROUP
    qualifier   ALL,        nonnegatable
    disallow (NEWSGROUP and ALL)

define verb DIRECTORY
    routine do_dircall
    qualifier   ALL,        nonnegatable
    qualifier   ITEMS,      nonnegatable
    qualifier   NEW,        nonnegatable
    qualifier   NEWSGROUPS, nonnegatable
    qualifier   REGISTER,   nonnegatable
    qualifier   RESET,      nonnegatable
    qualifier   SINCE,      nonnegatable,value (default="TODAY",type=$datetime)
    qualifier   CLASS,      value(required)
    qualifier   AUTHOR,     value(required)
    qualifier   BEFORE      nonnegatable,value (type=$datetime)
    qualifier   BUFFER      value(required)
    qualifier   KEYWORD     value(required)
    qualifier   OUTPUT      value(required,type=$outfile)
    qualifier   TITLE       value(required)
    qualifier   UNSEEN
    qualifier   UNREGISTERED nonnegatable
    qualifier   CONFERENCES, nonnegatable,syntax=DIR_CONFERENCES
    qualifier   ENTRIES,    nonnegatable,syntax=DIR_ENTRIES
    qualifier   NOTEBOOK,   nonnegatable,syntax=DIR_NOTEBOOK
    disallow    any2 (ALL,ITEMS,NEW,NEWSGROUPS,REGISTER,SINCE,UNREGISTERED)

define verb DISPLAY
    routine do_display_file
    parameter   P1          label=FILE,value(type=$infile)

define verb DOWN
    routine screen_cur_down
    parameter   P1          label=LINES,value(type=$number)

define verb EDIT
    routine do_edit
    parameter   P1,         label=FILE,value(type=$infile,required),prompt="File",

define verb EXIT
    synonym EX
    synonym EXI
    routine do_exit

define verb EXTRACT
    routine do_extract
    parameter   P1,         label=FILE,value(type=$outfile)
    parameter   P2,         label=NOTERANGE, value(list)
    qualifier   ALL,        nonnegatable
    qualifier   AUTHOR,     value(required)
    qualifier   APPEND,     nonnegatable
    qualifier   BEFORE      value(required,type=$datetime)
    qualifier   DIRECTORY   value(type=PRINT_DIRTYPE)
    qualifier   HEADER,     negatable,default
    qualifier   KEYWORD,    value(required)
    qualifier   SEEN,       nonnegatable
    qualifier   SINCE,      value(default="TODAY",type=$datetime)
    qualifier   TITLE,      value(required)
    qualifier   UNSEEN,     nonnegatable
    qualifier   FROM,       value(required)
    qualifier   SUBJECT,    value(required)
    qualifier   UNREAD,     nonnegatable
    qualifier   MARKER,     value(list)
    qualifier   NEWSGROUPS  value(required,list)
    disallow    (NOTERANGE and MARKER) or (AUTHOR and FROM) or (NOTERANGE and NEWSGROUPS)
                or (TITLE and SUBJECT) or (UNSEEN and UNREAD)

define verb FOLLOWUP
    synonym ANSWER
    routine do_followup
    parameter   P1,         label=INFILE,value(type=$infile)
    qualifier   EDIT,       negatable,default
    qualifier   EXTRACT,    negatable,default
    qualifier   HEADERS,    negatable
    qualifier   SELF,       negatable

define verb FORWARD
    routine do_forward
    qualifier   HEADERS,    negatable
    qualifier   SUBJECT,    value(required)
    qualifier   SELF,       nonnegatable
    qualifier   TO,         value(impcat,required,list)
    qualifier   EDIT,       negatable,default
    qualifier   MEMBERS

define verb HELP
    routine do_help
    parameter   P1,         label=TOPIC,value(type=$rest_of_line)

define verb KILL
    routine do_kill
    qualifier   SUBJECT     nonnegatable
    qualifier   FROM        nonnegatable
    qualifier   HEADER      value(required)

define verb LAST
    routine do_last
    qualifier   HEADER,     nonnegatable
    qualifier   TPU,        nonnegatable
    qualifier   EDITOR,     nonnegatable
    qualifier   ROT13,      nonnegatable

define verb MAIL
    routine do_forward
    qualifier   HEADERS,    negatable
    qualifier   SUBJECT,    value(required)
    qualifier   SELF,       nonnegatable
    qualifier   TO,         value(impcat,required,list)
    qualifier   EDIT,       negatable,default

define verb MARK
    routine do_mark
    parameter   P1,         label=TAG
    parameter   P2,         label=NOTEID

define verb MODIFY
    routine do_error
    parameter   P1          label=OPTIONS, prompt="_NEWS MODIFY>", value(required,type=MODIFY_OPTIONS)

define verb NEXT
    routine do_next_note
    parameter   P1,         label=OPTIONS, value(type=NEXT_OPTIONS)
    qualifier   HEADER,     nonnegatable
    qualifier   TPU,        nonnegatable
    qualifier   EDITOR,     nonnegatable
    qualifier   ROT13,      nonnegatable

define verb NEWSGROUPS
    routine screen_grp_display

define verb NOSCREEN
    routine noscreen

define verb OPEN
    routine do_openit
    parameter   P1,         label=NEWSGROUP
    qualifier   MAIL	    nonnegatable
    qualifier   NEW,        nonnegatable
    qualifier   MARKER      value,nonnegatable
    qualifier   CLASSNAME   value(required),nonnegatable
    qualifier   AUTOMATIC   negatable
    qualifier   NOTEBOOK    negatable
    disallow any2(NEWSGROUP,MARKER,NEW)
             or(MAIL and (NEW or MARKER or CLASSNAME or AUTOMATIC or NOTEBOOK))

define verb CROSSPOST
    routine do_xpost

define verb POST
    routine do_post
    parameter   P1,         label=INFILE,value(type=$infile)
    qualifier   EDIT,       negatable,default
    qualifier   CONTROL,    value, nonnegatable
    qualifier   HEADERS,    negatable
    qualifier   NEWSGROUPS, nonnegatable, value(required,list)
    qualifier   SUBJECT,    nonnegatable, value(required)
    qualifier   SELF,       negatable

define verb PRINT
    routine  do_print
    parameter   P1,         label=NOTERANGE, value(list)
    qualifier   ALL,        nonnegatable
    qualifier   AUTHOR,     value(required)
    qualifier   BEFORE      value(required,type=$datetime)
    qualifier   DIRECTORY   value(type=PRINT_DIRTYPE)
    qualifier   KEYWORD,    value(required)
    qualifier   SEEN,       nonnegatable
    qualifier   SINCE,      value(default="TODAY",type=$datetime)
    qualifier   TITLE,      value(required)
    qualifier   UNSEEN,     nonnegatable
    qualifier   FROM,       value(required)
    qualifier   SUBJECT,    value(required)
    qualifier   UNREAD,     nonnegatable
    qualifier   MARKER,     value(list)
    qualifier   CONFIRM
    qualifier   NAME        value(required)
    qualifier   NOTE        value(required)
    qualifier   NOTIFY,     negatable
    qualifier   PRIORITY    value(required)
    qualifier   AFTER       value(required,type=$datetime)
    qualifier   CHARACTERISTICS    value(required,list)
    qualifier   FORM        value(required)
    qualifier   HOLD
    qualifier   JOB_COUNT   value(required)
    qualifier   LOWERCASE
    qualifier   OPERATOR    value(required)
    qualifier   PARAMETERS  value(required,list)
    qualifier   QUEUE       value (required)
    qualifier   RESTART
    qualifier   BURST       value(type=PRINT_BFT)
    qualifier   COPIES      value(required)
    qualifier   FEED
    qualifier   FLAG        value(type=PRINT_BFT)
    qualifier   HEADER
    qualifier   PASSALL
    qualifier   SETUP       value(required,list)
    qualifier   SPACE
    qualifier   TRAILER     value(type=PRINT_BFT)
    qualifier   WAIT        negatable,default
    qualifier   NEWSGROUPS  value(required,list)
    disallow    (NOTERANGE and MARKER) or (AUTHOR and FROM)
                or (UNSEEN and UNREAD) or (NOTERANGE and NEWSGROUPS)

define verb PURGE
    routine do_mail_purge
    qualifier	RECLAIM
    qualifier   STATISTICS

define verb QUIT
    routine do_quit

define verb READ
    routine do_read
    parameter   P1,         label=NEWSITEM
    qualifier   HEADER,     nonnegatable
    qualifier   NEW,        nonnegatable
    qualifier   TPU,        nonnegatable
    qualifier   EDITOR,     nonnegatable
    qualifier   ROT13,      nonnegatable
    qualifier   NEXT,       nonnegatable
    qualifier   BACK,       nonnegatable
    qualifier   LAST,       nonnegatable
    qualifier   PARENT,     nonnegatable
    qualifier   TOPIC       nonnegatable
    qualifier   PREV,       nonnegatable
    qualifier   IDENTIFIER, value,nonnegatable
    qualifier   MARKER,     value,nonnegatable
    qualifier   FOLLOWUP,   value,nonnegatable
    qualifier   SUBJECT     value,nonnegatable
    qualifier   TITLE       value,nonnegatable
    disallow    any2(PREV,BACK,NEXT,LAST,PARENT,TOPIC,IDENTIFIER,MARKER,FOLLOWUP)

define verb REFRESH
    routine do_refresh

define verb REGISTER
    routine do_register
    parameter   P1,         label=NEWSGROUP
    qualifier   ALL,        nonnegatable
    qualifier   NEW,        nonnegatable
    qualifier   LOCAL,      nonnegatable
    qualifier   NETGROUPS,  nonnegatable
    qualifier   SINCE,      nonnegatable,value (default="TODAY",type=$datetime)
    qualifier   BEFORE,     nonnegatable,value (default="TODAY",type=$datetime)
    qualifier   PRIORITY,   value
    qualifier   CONFIRM
    qualifier   RECORD
    disallow any2(ALL,NEW,NEWSGROUP,SINCE,BEFORE,LOCAL,NETGROUPS)

define verb REPLY
    routine do_reply
    qualifier   HEADERS,    negatable
    qualifier   SUBJECT,    value(required)
    qualifier   SELF,       nonnegatable

define verb SAVE
    routine do_extract
    parameter   P1,         label=FILE,value(type=$outfile)
    parameter   P2,         label=NOTERANGE, value(list)
    qualifier   ALL,        nonnegatable
    qualifier   AUTHOR,     value(required)
    qualifier   APPEND,     nonnegatable
    qualifier   BEFORE      value(required,type=$datetime)
    qualifier   HEADER,     negatable,default
    qualifier   KEYWORD,    value(required)
    qualifier   SEEN,       nonnegatable
    qualifier   SINCE,      value(default="TODAY",type=$datetime)
    qualifier   TITLE,      value(required)
    qualifier   UNSEEN,     nonnegatable
    qualifier   FROM,       value(required)
    qualifier   SUBJECT,    value(required)
    qualifier   UNREAD,     nonnegatable
    qualifier   MARKER,     value(list)
    disallow    (NOTERANGE and MARKER) or (AUTHOR and FROM)
                or (UNSEEN and UNREAD)

define verb SCREEN
    routine init_screen

define verb SEARCH
    routine     do_search
    parameter   P1,         label=target
    qualifier   HEADER,     nonnegatable
    qualifier   TPU,        nonnegatable
    qualifier   EDIT,        nonnegatable
    qualifier   DISPLAY,    negatable
    qualifier   NEWSGROUPS, nonnegatable, value(required,list)
    qualifier   NOTERANGE   value(list)
    qualifier   MARKER      value(list)
    qualifier   ALL
    disallow    (NOTERANGE and MARKER)

define verb SELECT
    routine do_selgrp
    parameter   P1,         label=NEWSGROUP
    qualifier   NEW,        nonnegatable
    qualifier   MARKER      value,nonnegatable
    disallow any2(NEWSGROUP,MARKER,NEW)

define verb SEND
    routine do_send
    parameter   P1,         label=INFILE,value(type=$infile)
    qualifier   AUTHOR      nonnegatable
    qualifier   EXTRACT
    qualifier   HEADERS,    negatable
    qualifier   SUBJECT,    value(required)
    qualifier   SELF,       nonnegatable
    qualifier   QUOTE,      value
    qualifier   TO,         value(impcat,required,list)
    qualifier   EDIT,       negatable,default
    qualifier   MEMBERS

define verb SET
    routine do_error
    parameter   P1          label=OPTIONS, prompt="_NEWS SET>", value(required,type=SET_OPTIONS)

define verb SHOW
    routine do_error
    parameter   P1          label=OPTIONS, prompt="_NEWS SHOW>", value(required,type=SHOW_OPTIONS)

define verb SKIM
    routine do_skim
    parameter   P1,         label=GROUPS,value(list)
    qualifier   ITEMS       negatable
    qualifier   DIRECTORIES negatable
    qualifier   FILES       negatable
    qualifier   NEWSGROUPS  negatable
    qualifier   SERVED      negatable
    qualifier   FILECHECK   negatable
    qualifier   VERBOSE     negatable
    qualifier   ARCHIVE     value(type=$outfile)
    qualifier   HISTORY     value(default="45")

define verb SKIP
    routine do_skip
    parameter   P1,         label=NEWG
    qualifier   NEWSGROUP   nonnegatable
    qualifier   POINTER     nonnegatable
    qualifier   ALL         nonnegatable
    qualifier   FOLLOWUP    nonnegatable
    qualifier   BEFORE      value (default="TODAY",type=$datetime)
    disallow any2(NEWSGROUP,ALL,NEWG,POINTER,FOLLOWUP)

define verb SPAWN
    routine     do_spawn
    parameter   P1		label=COMMAND,value(type=$rest_of_line)
    qualifier	INPUT		value(required,type=$infile),nonnegatable
    qualifier	LOGICAL_NAMES	negatable
    qualifier	OUTPUT		value(required,type=$outfile),nonnegatable
    qualifier	PROCESS		value(required),nonnegatable
    qualifier	SYMBOLS		negatable
    qualifier	WAIT		negatable

define verb TOP
    routine do_top

define verb TOPIC
    routine do_topic
    qualifier   HEADER,     nonnegatable
    qualifier   TPU,        nonnegatable
    qualifier   EDITOR,     nonnegatable
    qualifier   ROT13,      nonnegatable

define verb UNMARK
    routine do_unmark
    parameter   P1,         label=TAG

define verb UNREAD
    routine do_unread
    qualifier   ALL         nonnegatable

define verb UP
    routine     screen_cur_up
    parameter   P1          label=LINES,value(type=$number)

define verb UPDATE
    routine do_update
    parameter   P1          label=ENTRYNAME
    qualifier   CLASS,      nonnegatable, value(required)
    qualifier	CLIENT	    nonnegatable
    qualifier   PROTOCOL    value(default="DECNET",type=PROTOCOL_OPTIONS)
    qualifier   SERVER      value
    disallow	CLASS and (CLIENT or PROTOCOL or SERVER)

define verb VERSION
    routine     do_version

define verb WRITE
    routine do_post
    parameter   P1,         label=INFILE,value(type=$infile)
    qualifier   EDIT,       negatable,default
    qualifier   CONTROL,    negatable
    qualifier   HEADERS,    negatable
    qualifier   NEWSGROUPS, nonnegatable, value(required,list)
    qualifier   SUBJECT,    nonnegatable, value(required)
    qualifier   SELF,       negatable
    qualifier   LAST        nonnegatable

define verb MOVE
    routine do_move
    synonym	FILE
    parameter	P1	    label=FOLDER

define verb COPY
    routine do_copy
    parameter	P1	    label=FOLDER