Define Verb  REMINDER

  Image  "SYS$DISK:[VAX86C.NSWC]REMINDER"

! The following qualifier is not to be specified by users; it is included
! here to avoid hard-coding site-dependent information in the program it-
! self.  /ZZFILE is the name of the file containing the appointments.

    Qualifier  ZZFILE , Default ,
			Value( Default="SYS$DISK:[VAX86C.NSWC]REMINDERS.DAT" )

    Qualifier  OUTPUT , Nonnegatable , Value( Required , Type=$FILE )

    Qualifier  USER , Nonnegatable , Value( Required )

    Qualifier  LOGIN , Nonnegatable

    Qualifier  ADD , Nonnegatable , Syntax=ADD

    Qualifier  DELETE , Nonnegatable , Syntax=DELETE

    Qualifier  ALLOW , Nonnegatable , Value( Required )

    Qualifier  DISALLOW , Nonnegatable , Value( Required )

    Qualifier  ACCESS , Nonnegatable

      Disallow   Any2( LOGIN,ADD,DELETE,ALLOW,DISALLOW,ACCESS )

      Disallow   OUTPUT and (LOGIN or ADD or DELETE or ALLOW or DISALLOW)

      Disallow   USER and LOGIN 	! or ALLOW or DISALLOW or ACCESS)

Define Syntax ADD

   Parameter  P1	! Date (optional--will be prompted for if absent)

   Parameter  P2	! Time     "       "   "     "      "  "    "

   Parameter  P3 , Value(Type=$REST_OF_LINE)	! Reason (likewise)

Define Syntax DELETE

   Parameter  P1	! Date (optional--will be prompted for if absent)

   Parameter  P2	! Time     "       "   "     "      "  "    "