define type PROTOCOL_OPTIONS
    keyword     DECNET
    keyword     TCP
    keyword     TCPWARE
    keyword     CMUTCP
    keyword     WINTCP
    keyword     MULTINETTCP
    keyword     UCXTCP
    keyword     IPCUCX
    keyword     EXOS

define verb NEWS
    image $users:[gih900.news.news_dist]news
    qualifier   SCREEN      default
    qualifier   ALLSCAN	    value(list)
    qualifier   SCAN        value(list)
    qualifier   UNSEEN
    qualifier   READONLY
    qualifier   CLASS       value
    qualifier   NETSERVER   negatable,value
    qualifier   NETPROTOCOL nonnegatable,value(required,type=PROTOCOL_OPTIONS)
    parameter   P1          label=COMMAND,value(type=$rest_of_line)
    disallow(SCAN and ALLSCAN)
