$	if f$search("ONE.DIR;1") .eqs. ""
$	  then
$	    create/dir [.ONE]
$	    set file/own=system/prot=(sy:rwe,ow:rwe,gr:rwe,wo:rwe) -
	  	one.dir;1
$	  endif
$ ! 
$	about_copy_spec == f$parse("[.ONE]ABOUT_DECUSERVE.NOTE")
$	define about_copy_spec_name 'about_copy_spec'
$ ! 
$	notes/nonotebook
CREATE CONF/NOWRITE ABOUT_COPY_SPEC_NAME
Information about DECUServe
SET MODER
ADD MEMBER SYSTEM/NODES=0/NOMAIL/PRIV=MODER
WRITE/NOEDIT/NOCONFIRM/TITLE="Introduction to the DECUServe Demonstration" ABOUT0.TXT
REPLY/NOEDIT/NOCONFIRM/TITLE="The DECUServe Demonstration" ABOUT1.TXT
REPLY/NOEDIT/NOCONFIRM/TITLE="Using VAX Notes" ABOUT2.TXT
REPLY/NOEDIT/NOCONFIRM/TITLE="DECUServe Conferences" ABOUT3.TXT
REPLY/NOEDIT/NOCONFIRM/TITLE="How to read the DECUServe Conferences" ABOUT4.TXT
CLOSE
EXIT
$ ! 
$	set file/own=notes$server/prot=(sy:rwe,ow:rwe,gr:re,wo:re) 'about_copy_spec'