(FILECREATED "26-Feb-85 15:39:28" {PHYLUM}<NOTECARDS>RELEASE1.1>FLOPPIES>INIT.NOTECARDSUSER;3
 5194   

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

      previous date: "15-Feb-85 17:26:44" {PHYLUM}<NOTECARDS>RELEASE1.1>FLOPPIES>INIT.NOTECARDSUSER;1
)


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

(PRETTYCOMPRINT INITCOMS)

(RPAQQ INITCOMS
 ((VARS (FIRSTNAME (QUOTE NoteCardsUser))
		       (DEFAULTINITIALS (QUOTE NoteCardsUser:))
		       (#RPARS)
		       (CHANGECHAR)
		       (SYSOUTGAG T)
		       (PROMPT#FLG T)
		       (CUTEFLG)
		       (CLEANUPOPTIONS (QUOTE (RC ST)))
		       (CLISPIFTRANFLG)
		       (CLISPIFYENGLSHFLG)
		       (CLREMPARSFLG)
		       (CLISPIFYPRETTYFLG)
		       (DWIMIFYCOMPFLG T)
		       (CHANGECHAR)
		       (CHANGESARRAY)
		       (TEditBluePendingDelete T)
		       (DEditLinger)
		       (LAFITEFLUSHMAILFLG T)
		       (CLOSEBREAKWINDOWFLG (QUOTE ALL))
		       (AUTOBACKTRACEFLG T)
		       (CLOSECHATWINDOWFLG T)
		       (LOGINHOST/DIR (QUOTE {DSK}))
		       (WINDOWTITLESHADE GRAYSHADE))
		 (P (INTERRUPTCHAR 3 NIL)
		    (DSPFONT (FONTCREATE (QUOTE HELVETICA)
					 14
					 (QUOTE BOLD))
			     WindowTitleDisplayStream)
		    (SETINITIALS))
		 (P (RAISE NIL)
		    (GCGAG 500)
		    (CHANGESLICE 100))
		 (FNS NC.SetDirectories NC.UnsetDirectories)
		 (FILES (FROM {ERIS}<LISP>HARMONY>LIBRARY>)
			FILEBROWSER BITMAPFNS BROWSER (FROM {ERIS}<LISPUSERS>)
			CROCK EXEC)))

(RPAQQ FIRSTNAME
 NoteCardsUser)

(RPAQQ DEFAULTINITIALS
 NoteCardsUser:)

(RPAQQ #RPARS
 NIL)

(RPAQQ CHANGECHAR
 NIL)

(RPAQQ SYSOUTGAG
 T)

(RPAQQ PROMPT#FLG
 T)

(RPAQQ CUTEFLG
 NIL)

(RPAQQ CLEANUPOPTIONS
 (RC ST))

(RPAQQ CLISPIFTRANFLG
 NIL)

(RPAQQ CLISPIFYENGLSHFLG
 NIL)

(RPAQQ CLREMPARSFLG
 NIL)

(RPAQQ CLISPIFYPRETTYFLG
 NIL)

(RPAQQ DWIMIFYCOMPFLG
 T)

(RPAQQ CHANGECHAR
 NIL)

(RPAQQ CHANGESARRAY
 NIL)

(RPAQQ TEditBluePendingDelete
 T)

(RPAQQ DEditLinger
 NIL)

(RPAQQ LAFITEFLUSHMAILFLG
 T)

(RPAQQ CLOSEBREAKWINDOWFLG
 ALL)

(RPAQQ AUTOBACKTRACEFLG
 T)

(RPAQQ CLOSECHATWINDOWFLG
 T)

(RPAQQ LOGINHOST/DIR
 {DSK})

(RPAQ WINDOWTITLESHADE
 GRAYSHADE)
(INTERRUPTCHAR 3 NIL)
(DSPFONT (FONTCREATE (QUOTE HELVETICA)
		     14
		     (QUOTE BOLD))
	 WindowTitleDisplayStream)
(SETINITIALS)
(RAISE NIL)
(GCGAG 500)
(CHANGESLICE 100)
(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}))))
)
(FILESLOAD (FROM {ERIS}<LISP>HARMONY>LIBRARY>)
	   FILEBROWSER BITMAPFNS BROWSER (FROM {ERIS}<LISPUSERS>)
	   CROCK EXEC)
(PUTPROPS INIT.NOTECARDSUSER COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (2412 4983 (NC.SetDirectories 2422 . 4142) (NC.UnsetDirectories 4144 . 4981)))))
STOP