Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

(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