(FILECREATED " 6-OCT-83 00:22:20" <ALISP>INIT.SAMPLE;2 1344 changes to: (VARS INITCOMS) previous date: " 7-OCT-82 09:48:53" <ALISP>INIT.SAMPLE;1) (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-printer)) (LISPUSERSDIRECTORIES (QUOTE ({fileserver}<LISPUSERS>))) (FONTDIRECTORIES (QUOTE ({fileserver}<FONTS>))) [USERGREETFILES (QUOTE (({fileserver}< USER >LISP>INIT. COM] (FONTWIDTHSFILES (QUOTE ({DSK}FONTS.WIDTHS {fileserver}<FONTS>FONTS.WIDTHS))) (DIRECTORIES (QUOTE ({DSK} {fileserver}<LISPUSERS>]) (* 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-printer) (RPAQQ LISPUSERSDIRECTORIES ({fileserver}<LISPUSERS>)) (RPAQQ FONTDIRECTORIES ({fileserver}<FONTS>)) (RPAQQ USERGREETFILES (({fileserver}< USER >LISP>INIT. COM))) (RPAQQ FONTWIDTHSFILES ({DSK}FONTS.WIDTHS {fileserver}<FONTS>FONTS.WIDTHS)) (RPAQQ DIRECTORIES ({DSK} {fileserver}<LISPUSERS>)) (DECLARE: DONTCOPY (FILEMAP (NIL))) STOP