(FILECREATED "19-NOV-81 14:38:04" <LISP>INIT.LISP;44 2667   

     changes to:  INITCOMS

     previous date: " 3-JUN-81 13:01:28" <LISP>INIT.LISP;42)


(PRETTYCOMPRINT INITCOMS)

(RPAQQ INITCOMS [(E (RESETSAVE CHANGECHAR NIL))
	[DECLARE: FIRST
		  (P (SETSEPR (QUOTE (%| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 
					 24 25 26))
			      1 FILERDTBL)
		     (COND ((EQ SYSTEMTYPE (QUOTE TENEX))
			    (JSYS 42Q 100Q)
			    (SELECTQ (PEEKC T)
				     ((%  %
)
				      (CLOSEF (INPUT))
				      (SETQ USERNAME NIL)
				      (GREET0)
				      (RESET))
				     NIL]
	(VARS (CLEANUPOPTIONS (QUOTE (RC)))
	      (CLISPIFYENGLSHFLG T)
	      (HARDCOPYFLG)
	      (ADISOFILE)
	      (DISPLAYON)
	      (MSPRINTFLG 1)
	      (CHECKUNSAVEFLG T)
	      [COMPILEMODE (COND ((BOUNDP (QUOTE COMPILEMODE))
				  COMPILEMODE)
				 (T (QUOTE PDP-10]
	      (ALTO NIL))
	(APPENDVARS (DIRECTORIES NIL LISPUSERS BLISPUSERS LISP)
		    (LISPUSERSDIRECTORIES LISPUSERS BLISPUSERS LISP))
	(ALISTS (FONTDEFS PARC))
	(P (FONTSET (QUOTE PARC])
(DECLARE: FIRST 
(SETSEPR (QUOTE (%| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26))
	 1 FILERDTBL)
(COND ((EQ SYSTEMTYPE (QUOTE TENEX))
       (JSYS 42Q 100Q)
       (SELECTQ (PEEKC T)
		((%  %
)
		 (CLOSEF (INPUT))
		 (SETQ USERNAME NIL)
		 (GREET0)
		 (RESET))
		NIL)))
)

(RPAQQ CLEANUPOPTIONS (RC))

(RPAQ CLISPIFYENGLSHFLG T)

(RPAQQ HARDCOPYFLG NIL)

(RPAQQ ADISOFILE NIL)

(RPAQQ DISPLAYON NIL)

(RPAQ MSPRINTFLG 1)

(RPAQ CHECKUNSAVEFLG T)

(RPAQ COMPILEMODE (COND ((BOUNDP (QUOTE COMPILEMODE))
			 COMPILEMODE)
			(T (QUOTE PDP-10))))

(RPAQ ALTO NIL)

(APPENDTOVAR DIRECTORIES NIL LISPUSERS BLISPUSERS LISP)

(APPENDTOVAR LISPUSERSDIRECTORIES LISPUSERS BLISPUSERS LISP)

(ADDTOVAR FONTDEFS (PARC (FONTCHANGEFLG . T)
			 (FILELINELENGTH . 102)
			 (COMMENTLINELENGTH 116 . 126)
			 (LAMBDAFONTLINELENGTH . 95)
			 (FIRSTCOL . 60)
			 (PRETTYLCOM . 25)
			 (LISTFILESTR . ",
V N
WI 1000

")
			 (CHANGECHARTABSTR . "")
			 (DEVICE . .EP)
			 (FONTPROFILE (DEFAULTFONT (%)
						   1)
				      (BOLDFONT (%)
						2)
				      (LITTLEFONT (%)
						  3)
				      (BIGFONT (%)
					       4)
				      (USERFONT (%)
						BOLDFONT)
				      (COMMENTFONT (%)
						   LITTLEFONT)
				      (LAMBDAFONT (%)
						  BIGFONT)
				      (SYSTEMFONT)
				      (CLISPFONT (%)
						 BOLDFONT)
				      (CHANGEFONT)
				      (PRETTYCOMFONT (%)
						     BOLDFONT))))
(FONTSET (QUOTE PARC))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
(PUTPROPS INIT COPYRIGHTOWNER NONE)
STOP
