(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP")

(FILECREATED "16-Jan-87 11:39:09" {ERIS}<LISPCORE>LIBRARY>INIT.SAMPLE;2
 3194   

      previous date%: "29-Sep-84 18:10:19" {ERIS}<LISP>KOTO>LIBRARY>INIT.SAMPLE;1)


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

(PRETTYCOMPRINT INITCOMS)

(RPAQQ INITCOMS
 [(* This is a sample greeting file for a network site)
                 (VARS [USERGREETFILES '(({fileserver}< USER >LISP>INIT. COM)
                                         ({fileserver}< USER >LISP>INIT)
                                         ({fileserver}< USER >INIT. COM)
                                         ({fileserver}< USER >INIT.LISP]
                       (DIRECTORIES '({DSK} {fileserver}<LISPUSERS>))
                       (LISPUSERSDIRECTORIES '({fileserver}<LISPUSERS>))
                       (DEFAULTPRINTINGHOST 'name-of-printer)
                       (DEFAULTPRINTERTYPE 'PRESS))
                 (* font vars)
                 [VARS (DISPLAYFONTDIRECTORIES '({DSK} {fileserver}<FONTS>))
                       (DISPLAYFONTEXTENSIONS '(DISPLAYFONT STRIKE AC))
                       (INTERPRESSFONTDIRECTORIES '({DSK} {fileserver}<FONTS>))
                       (PRESSFONTWIDTHSFILES '({DSK}FONTS.WIDTHS {fileserver}<FONTS>FONTS.WIDTHS]
                 (* Outdated font vars)
                 [VARS (FONTDIRECTORIES '({DSK} {fileserver}<FONTS>))
                       (NSFONTDIRECTORIES '({DSK} {fileserver}<FONTS>))
                       (NSFONTWIDTHSDIRECTORIES '({DSK} {fileserver}<FONTS>))
                       (STARFONTDIRECTORIES '({DSK} {fileserver}<FONTS>))
                       (FONTWIDTHSFILES '({DSK}FONTS.WIDTHS {fileserver}<FONTS>FONTS.WIDTHS]
                 (P (* LOGIN for subsequent access to user's personal GREET file)
                    (LOGIN NIL '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 'QUIET)
(PUTPROPS INIT.SAMPLE COPYRIGHT ("Xerox Corporation" 1984 1987))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL)))
STOP