(FILECREATED " 1-Jul-85 15:53:29" {ERIS}<LISP>INTERMEZZO>LIBRARY>INIT.;1
        

      changes to:  (VARS LAFITEEDITORREGION INITCOMS)
		   (FNS MYSETWINDOWS)

      previous date: "26-Jun-85 17:41:36" {ERIS}<MBENNETT>INIT.LISP;1)


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

(PRETTYCOMPRINT INITCOMS)

(RPAQQ INITCOMS
 [(VARS (**COMMENT**FLG " (* --) ")
		       (CLISPIFTRANFLG T)
		       (DEFAULTCOPYRIGHTOWNER (QUOTE XEROX))
		       (FIRSTNAME (QUOTE Matt))
		       (DIRECTORIES (QUOTE (NIL {ERIS}<LISP>INTERMEZZO>SOURCES> 
						{ERIS}<LISP>INTERMEZZO>BASICS> 
						{ERIS}<LISP>INTERMEZZO>LIBRARY> 
						{ERIS}<LISP>INTERMEZZO>LISPUSERS> {ERIS}<LISPUSERS> 
						{ERIS}<LISPMANUAL>)))
		       (LISPUSERSDIRECTORIES (QUOTE ({ERIS}<LISP>INTERMEZZO>LIBRARY> 
								{ERIS}<LISP>INTERMEZZO>LISPUSERS> 
										{ERIS}<LISPUSERS>)))
		       (LOGINHOST/DIR (QUOTE {ERIS}<MBENNETT>LISP>))
		       (PROMPT#FLG T)
		       [EDITCHARACTERS (QUOTE (J (H G)
						 Z Y N (O NIL]
		       (COPYRIGHTFLG (QUOTE YES))
		       (FIRSTCOL 35)
		       (CLISPIFYPRETTYFLG)
		       (DWIMIFYCOMPFLG))
		 (VARS LAFITEBROWSERREGION LAFITEDEFAULTHOST&DIR LAFITEEDITORREGION 
		       LAFITEFLUSHMAILFLG LAFITESTATUSWINDOWPOSITION LAFITEDISPLAYDELETEDMESSAGEFLG 
		       LAFITENEWPAGEFLG LAFITEDISPLAYREGION DEFAULTMAILFOLDERNAME)
		 (ADDVARS (NETWORKOSTYPES (MAXC2 . TENEX)
					  (PARC-CSLI . UNIX))
			  (INITIALSLST (MBENNETT . mbb))
			  (GREETDATES ("31-JUL" . "Mom's birthday, don't forget to call")
				      ("4-JUL" . "Dad's birthday, don't forget to call")))
		 (PROP FILEDEF CHECKSET MAKEINIT DORENAME)
		 (P (CHANGESLICE 100))
		 (USERMACROS GETDL FV LOCAL)
		 (ADVISE DEFAULTMAKENEWCOM)
		 (ADDVARS (COPYRIGHTOWNERS (XEROX "Xerox Corporation")))
		 (FNS IV DIRNEW FIND.DUP.FILES GET.BITMAP.FROM.SCREEN MYSETWINDOWS)
		 (FILES SPACEWINDOW LAFITEFIND BOUNCE LISTEN)
		 (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
										       (NLAML)
										       (LAMA])

(RPAQ **COMMENT**FLG
 " (* --) ")

(RPAQQ CLISPIFTRANFLG
 T)

(RPAQQ DEFAULTCOPYRIGHTOWNER
 XEROX)

(RPAQQ FIRSTNAME
 Matt)

(RPAQQ DIRECTORIES
 (NIL {ERIS}<LISP>INTERMEZZO>SOURCES> {ERIS}<LISP>INTERMEZZO>BASICS> 
			{ERIS}<LISP>INTERMEZZO>LIBRARY> {ERIS}<LISP>INTERMEZZO>LISPUSERS> 
			{ERIS}<LISPUSERS> {ERIS}<LISPMANUAL>))

(RPAQQ LISPUSERSDIRECTORIES
 ({ERIS}<LISP>INTERMEZZO>LIBRARY> {ERIS}<LISP>INTERMEZZO>LISPUSERS> 
							     {ERIS}<LISPUSERS>))

(RPAQQ LOGINHOST/DIR
 {ERIS}<MBENNETT>LISP>)

(RPAQQ PROMPT#FLG
 T)

(RPAQQ EDITCHARACTERS
 (J (H G)
			 Z Y N (O NIL)))

(RPAQQ COPYRIGHTFLG
 YES)

(RPAQQ FIRSTCOL
 35)

(RPAQQ CLISPIFYPRETTYFLG
 NIL)

(RPAQQ DWIMIFYCOMPFLG
 NIL)

(RPAQQ LAFITEBROWSERREGION
 (17 536 620 136))

(RPAQQ LAFITEDEFAULTHOST&DIR
 {ERIS}<MBENNETT>MAIL>)

(RPAQQ LAFITEEDITORREGION
 (17 36 620 260))

(RPAQQ LAFITEFLUSHMAILFLG
 T)

(RPAQQ LAFITESTATUSWINDOWPOSITION
 (13 . 736))

(RPAQQ LAFITEDISPLAYDELETEDMESSAGEFLG
 T)

(RPAQQ LAFITENEWPAGEFLG
 NIL)

(RPAQQ LAFITEDISPLAYREGION
 (17 299 620 260))

(RPAQQ DEFAULTMAILFOLDERNAME
 ACTIVE.MAIL)

(ADDTOVAR NETWORKOSTYPES
 (MAXC2 . TENEX)
			 (PARC-CSLI . UNIX))

(ADDTOVAR INITIALSLST
 (MBENNETT . mbb))

(ADDTOVAR GREETDATES
 ("31-JUL" . "Mom's birthday, don't forget to call")
		     ("4-JUL" . "Dad's birthday, don't forget to call"))

(PUTPROPS CHECKSET FILEDEF
 CSET)

(PUTPROPS MAKEINIT FILEDEF
 MAKEINIT)

(PUTPROPS DORENAME FILEDEF
 RENAMEFNS)
(CHANGESLICE 100)

(ADDTOVAR USERMACROS
 (FV NIL (E (FREEVARS (## (ORR (UP 1)
						   NIL))
					  T)))
		     [GETDL NIL (BIND (IF [EXPRP (SETQ # 1 (GETDEF (## 1]
					  ((I 1 # 1))
					  ((E (QUOTE (no def]
		     (LOCAL NIL (LCL TTY:)))

(ADDTOVAR EDITMACROS
 (FV NIL (E (FREEVARS (## (ORR (UP 1)
						   NIL))
					  T))))

(ADDTOVAR EDITCOMSA
 GETDL LOCAL FV)

(PUTPROPS DEFAULTMAKENEWCOM READVICE
 (NIL (BEFORE NIL (SETQ FILE))))
(READVISE DEFAULTMAKENEWCOM)

(ADDTOVAR COPYRIGHTOWNERS
 (XEROX "Xerox Corporation"))
(DEFINEQ

(IV
  [LAMBDA (PAGE NUM)                                         (* edited: "26-Jul-84 17:08")
    (for X from 0 to (if NUM
		       else 255)
       do (printout T (\GETBASE PAGE X)
		    ,,])

(DIRNEW
  [LAMBDA (FILETYPE DAYNUM MONTH YEAR)                       (* edited: "21-Jun-84 11:35")
    (PROG [(LASTDATE (IDATE (CONCAT DAYNUM "-" MONTH "-" (if YEAR
							   else 1983)
				    " 0:00:00"]
          (DECLARE (SPECVARS LASTDATE))
          (if (NULL LASTDATE)
	      then (RETURN