(FILECREATED " 7-OCT-82 09:48:53" {PHYLUM}<LISP>CURRENT>INIT.SAMPLE;1 1732   

      changes to:  (VARS INITCOMS))


(PRETTYCOMPRINT INITCOMS)

(RPAQQ INITCOMS [(* This is a sample greeting file for a network site)
		 (P (* LOGIN for subsequent access to user's personal GREET file)
		    (LOGIN NIL (QUOTE QUIET)))
		 (VARS (DEFAULTPRINTINGHOST (QUOTE name-of-Dover/Penguin-printer))
		       (LISPUSERSDIRECTORIES (QUOTE ({fileserver}<LISPUSERS>)))
		       (FONTDIRECTORIES (QUOTE ({fileserver}<ALTOFONTS> {fileserver2}<ALTOFONTS>)))
		       [USERGREETFILES (QUOTE (({fileserver}< USER >LISP>INIT. COM)
					       ({PHYLUM}< USER >LISP>INIT)
					       ({PHYLUM}< USER >INIT. COM)
					       ({PHYLUM}< USER >INIT.LISP]
		       (FONTWIDTHSFILES (QUOTE ({DSK}FONTS.WIDTHS {PHYLUM}<FONTS>FONTS.WIDTHS)))
		       (DIRECTORIES (QUOTE ({DSK} {fileserver}<LISPUSERS>)))
		       (\TimeZoneComp 8 (* number of hours west of GMT; ranges from -12 to 12])



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

(* LOGIN for subsequent access to user's personal GREET file)
(LOGIN NIL (QUOTE QUIET))

(RPAQQ DEFAULTPRINTINGHOST name-of-Dover/Penguin-printer)

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

(RPAQQ FONTDIRECTORIES ({fileserver}<ALTOFONTS> {fileserver2}<ALTOFONTS>))

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

(RPAQQ FONTWIDTHSFILES ({DSK}FONTS.WIDTHS {PHYLUM}<FONTS>FONTS.WIDTHS))

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

(RPAQ \TimeZoneComp 8 (* number of hours west of GMT; ranges from -12 to 12))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP