(FILECREATED "17-Feb-85 22:42:57" {PHYLUM}<NOTECARDS>RELEASE1.1>FLOPPIES>INIT.NONET;3
 4971   

      changes to:  (VARS INITCOMS)
		   (FNS NC.SetFontDirectories NC.UnsetFontDirectories NC.SetDirectories 
			NC.UnsetDirectories)

      previous date: "17-Feb-85 22:30:02" {PHYLUM}<NOTECARDS>RELEASE1.1>FLOPPIES>INIT.NONET;2)


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

(PRETTYCOMPRINT INITCOMS)

(RPAQQ INITCOMS
 ((* This greeting file is appropriate for machines with no network connections)
		 (VARS (USERGREETFILES (QUOTE (({DSK}INIT. USER)
					       ({DSK}INIT. COM)
					       ({DSK}INIT))))
		       (DIRECTORIES (QUOTE ({DSK})))
		       (LISPUSERSDIRECTORIES (QUOTE ({DSK})))
		       (DEFAULTPRINTINGHOST NIL)
		       (DEFAULTPRINTERTYPE (QUOTE PRESS)))
		 (* font vars)
		 (VARS (DISPLAYFONTDIRECTORIES (QUOTE ({DSK})))
		       (DISPLAYFONTEXTENSIONS (QUOTE (DISPLAYFONT STRIKE AC)))
		       (INTERPRESSFONTDIRECTORIES (QUOTE ({DSK})))
		       (PRESSFONTWIDTHSFILES (QUOTE ({DSK}FONTS.WIDTHS))))
		 (* Outdated font vars)
		 (VARS (FONTDIRECTORIES (QUOTE ({DSK})))
		       (NSFONTDIRECTORIES (QUOTE ({DSK})))
		       (NSFONTWIDTHSDIRECTORIES (QUOTE ({DSK})))
		       (STARFONTDIRECTORIES (QUOTE ({DSK})))
		       (FONTWIDTHSFILES (QUOTE ({DSK}FONTS.WIDTHS))))
		 (* * Functions for setting and unsetting the fontdirectories variables.)
		 (FNS NC.SetDirectories NC.UnsetDirectories)))



(* This greeting file is appropriate for machines with no network connections)



(RPAQQ USERGREETFILES
 (({DSK}INIT. USER)
		       ({DSK}INIT. COM)
		       ({DSK}INIT)))

(RPAQQ DIRECTORIES
 ({DSK}))

(RPAQQ LISPUSERSDIRECTORIES
 ({DSK}))

(RPAQQ DEFAULTPRINTINGHOST
 NIL)

(RPAQQ DEFAULTPRINTERTYPE
 PRESS)



(* font vars)



(RPAQQ DISPLAYFONTDIRECTORIES
 ({DSK}))

(RPAQQ DISPLAYFONTEXTENSIONS
 (DISPLAYFONT STRIKE AC))

(RPAQQ INTERPRESSFONTDIRECTORIES
 ({DSK}))

(RPAQQ PRESSFONTWIDTHSFILES
 ({DSK}FONTS.WIDTHS))



(* Outdated font vars)



(RPAQQ FONTDIRECTORIES
 ({DSK}))

(RPAQQ NSFONTDIRECTORIES
 ({DSK}))

(RPAQQ NSFONTWIDTHSDIRECTORIES
 ({DSK}))

(RPAQQ STARFONTDIRECTORIES
 ({DSK}))

(RPAQQ FONTWIDTHSFILES
 ({DSK}FONTS.WIDTHS))
(* * Functions for setting and unsetting the fontdirectories variables.)


(DEFINEQ

(NC.SetDirectories

  (LAMBDA NIL                                                (* rht: "17-Feb-85 22:39")


          (* * Set the font directories to the proper values from the init.ksa settings.)



    (
SETQ
 DISPLAYFONTDIRECTORIES (
QUOTE
 ({ERIS}<LISP>FONTS> {PHYLUM}<STARFONTS>SCREEN>LFONTS> 
							    {PHYLUM}<ALTOFONTS> 
							    {PHYLUM}<ALTOFONTS>ORIGINAL> 
							    {INDIGO}<ALTOFONTS> 
							    {INDIGO}<ALTOFONTS>ORIGINAL> {DSK})))
    (
SETQ
 DISPLAYFONTEXTENSIONS (
QUOTE
 (DISPLAYFONT STRIKE AC)))
    (
SETQ
 INTERPRESSFONTDIRECTORIES (
QUOTE
 ({ERIS}<LISP>FONTS> {PHYLUM}<STARFONTS>FORMATTER>WIDTHS>)))
    (
SETQ
 PRESSFONTWIDTHSFILES (
QUOTE
 ({ERIS}<LISP>FONTS>FONTS.WIDTHS {PHYLUM}<ALTOFONTS>FONTS.WIDTHS 
								      {INDIGO}<FONTS>FONTS.WIDTHS 
								      {DSK}FONTS.WIDTHS)))
    (
SETQ
 FONTDIRECTORIES (
QUOTE
 ({ERIS}<LISP>FONTS> {PHYLUM}<ALTOFONTS> {PHYLUM}<ALTOFONTS>ORIGINAL> 
						     {INDIGO}<ALTOFONTS> {INDIGO}<ALTOFONTS>ORIGINAL> 
						     {DSK})))
    (
SETQ
 NSFONTDIRECTORIES (
QUOTE
 ({PHYLUM}<STARFONTS>SCREEN>LFONTS>)))
    (
SETQ
 NSFONTWIDTHSDIRECTORIES (
QUOTE
 ({PHYLUM}<STARFONTS>FORMATTER>WIDTHS>)))
    (
SETQ
 STARFONTDIRECTORIES (
QUOTE
 ({PHYLUM}<STARFONTS>)))
    (
SETQ
 FONTWIDTHSFILES (
QUOTE
 ({ERIS}<LISP>FONTS>FONTS.WIDTHS {PHYLUM}<ALTOFONTS>FONTS.WIDTHS 
								 {INDIGO}<FONTS>FONTS.WIDTHS 
								 {DSK}FONTS.WIDTHS)))
    (
SETQ
 DIRECTORIES (
QUOTE
 ({ERIS}<LISP>HARMONY>LIBRARY> {ERIS}<LISP>HARMONY>LISPUSERS> 
							   {ERIS}<LISPUSERS>)))
    (
SETQ
 LISPUSERSDIRECTORIES (
QUOTE
 ({ERIS}<LISP>HARMONY>LIBRARY> {ERIS}<LISP>HARMONY>LISPUSERS> 
								    {ERIS}<LISPUSERS>)))))

(NC.UnsetDirectories

  (LAMBDA NIL                                                (* rht: "17-Feb-85 22:41")


          (* * Set the font directories back to the init.nonet values.)



    (
SETQ
 DISPLAYFONTDIRECTORIES (
QUOTE
 ({DSK})))
    (
SETQ
 DISPLAYFONTEXTENSIONS (
QUOTE
 (DISPLAYFONT STRIKE AC)))
    (
SETQ
 INTERPRESSFONTDIRECTORIES (
QUOTE
 ({DSK})))
    (
SETQ
 PRESSFONTWIDTHSFILES (
QUOTE
 ({DSK}FONTS.WIDTHS)))
    (
SETQ
 FONTDIRECTORIES (
QUOTE
 ({DSK})))
    (
SETQ
 NSFONTDIRECTORIES (
QUOTE
 ({DSK})))
    (
SETQ
 NSFONTWIDTHSDIRECTORIES (
QUOTE
 ({DSK})))
    (
SETQ
 STARFONTDIRECTORIES (
QUOTE
 ({DSK})))
    (
SETQ
 FONTWIDTHSFILES (
QUOTE
 ({DSK}FONTS.WIDTHS)))
    (
SETQ
 DIRECTORIES (
QUOTE
 {DSK}))
    (
SETQ
 LISPUSERSDIRECTORIES (
QUOTE
 {DSK}))))
)
(PUTPROPS INIT.NONET COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (2319 4890 (NC.SetDirectories 2329 . 4049) (NC.UnsetDirectories 4051 . 4888)))))
STOP