(FILECREATED "29-Sep-84 18:10:19" {ERIS}<LISP>HARMONY>BASICS>INIT.SAMPLE;2
 2892   

      changes to:  (VARS INITCOMS)

      previous date: " 6-OCT-83 00:22:20" {ERIS}<LISP>HARMONY>BASICS>INIT.SAMPLE;1)


(* Copyright (c) 1984 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT INITCOMS)

(RPAQQ INITCOMS
 [(* This is a sample greeting file for a network site)
		 (VARS [USERGREETFILES (QUOTE (({fileserver}< USER >LISP>INIT. COM)
					       ({fileserver}< USER >LISP>INIT)
					       ({fileserver}< USER >INIT. COM)
					       ({fileserver}< USER >INIT.LISP]
		       (DIRECTORIES (QUOTE ({DSK} {fileserver}<LISPUSERS>)))
		       (LISPUSERSDIRECTORIES (QUOTE ({fileserver}<LISPUSERS>)))
		       (DEFAULTPRINTINGHOST (QUOTE name-of-printer))
		       (DEFAULTPRINTERTYPE (QUOTE PRESS)))
		 (* font vars)
		 [VARS (DISPLAYFONTDIRECTORIES (QUOTE ({DSK} {fileserver}<FONTS>)))
		       (DISPLAYFONTEXTENSIONS (QUOTE (DISPLAYFONT STRIKE AC)))
		       (INTERPRESSFONTDIRECTORIES (QUOTE ({DSK} {fileserver}<FONTS>)))
		       (PRESSFONTWIDTHSFILES (QUOTE ({DSK}FONTS.WIDTHS 
								  {fileserver}<FONTS>FONTS.WIDTHS]
		 (* Outdated font vars)
		 [VARS (FONTDIRECTORIES (QUOTE ({DSK} {fileserver}<FONTS>)))
		       (NSFONTDIRECTORIES (QUOTE ({DSK} {fileserver}<FONTS>)))
		       (NSFONTWIDTHSDIRECTORIES (QUOTE ({DSK} {fileserver}<FONTS>)))
		       (STARFONTDIRECTORIES (QUOTE ({DSK} {fileserver}<FONTS>)))
		       (FONTWIDTHSFILES (QUOTE ({DSK}FONTS.WIDTHS {fileserver}<FONTS>FONTS.WIDTHS]
		 (P (* LOGIN for subsequent access to user's personal GREET file)
		    (LOGIN NIL (QUOTE QUIET])



(* This is a sample greeting file for a network site)



(RPAQQ USERGREETFILES
 (({fileserver}< USER >LISP>INIT. COM)
		       ({fileserver}< USER >LISP>INIT)
		       ({fileserver}< USER >INIT. COM)
		       ({fileserver}< USER >INIT.LISP)))

(RPAQQ DIRECTORIES
 ({DSK} {fileserver}<LISPUSERS>))

(RPAQQ LISPUSERSDIRECTORIES
 ({fileserver}<LISPUSERS>))

(RPAQQ DEFAULTPRINTINGHOST
 name-of-printer)

(RPAQQ DEFAULTPRINTERTYPE
 PRESS)



(* font vars)



(RPAQQ DISPLAYFONTDIRECTORIES
 ({DSK} {fileserver}<FONTS>))

(RPAQQ DISPLAYFONTEXTENSIONS
 (DISPLAYFONT STRIKE AC))

(RPAQQ INTERPRESSFONTDIRECTORIES
 ({DSK} {fileserver}<FONTS>))

(RPAQQ PRESSFONTWIDTHSFILES
 ({DSK}FONTS.WIDTHS {fileserver}<FONTS>FONTS.WIDTHS))



(* Outdated font vars)



(RPAQQ FONTDIRECTORIES
 ({DSK} {fileserver}<FONTS>))

(RPAQQ NSFONTDIRECTORIES
 ({DSK} {fileserver}<FONTS>))

(RPAQQ NSFONTWIDTHSDIRECTORIES
 ({DSK} {fileserver}<FONTS>))

(RPAQQ STARFONTDIRECTORIES
 ({DSK} {fileserver}<FONTS>))

(RPAQQ FONTWIDTHSFILES
 ({DSK}FONTS.WIDTHS {fileserver}<FONTS>FONTS.WIDTHS))
(* LOGIN for subsequent access to user's personal GREET file)
(LOGIN NIL (QUOTE QUIET))
(PUTPROPS INIT.SAMPLE COPYRIGHT ("Xerox Corporation" 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP