All source files converted to LF (#315)

* All source files converted to LF

Also, HPRINT:  EQUALALL knows about CL arrays
FILEIO:  STREAM record with fields for external format functions

* Delete makeinit.dribble

* Converted CR to LF on internal/library and docs/Documentation Tools

lispusers/KINETIC

@@ -1 +1,49 @@
-
(FILECREATED " 2-Apr-86 00:14:01" {ERIS}<LISPUSERS>KOTO>KINETIC.;2
 1626   
+
(FILECREATED " 2-Apr-86 00:14:01" {ERIS}<LISPUSERS>KOTO>KINETIC.;2
 1626   
+
+      changes to:  (VARS KINETICCOMS)
+
+      previous date: " 3-Dec-85 14:17:48" {ERIS}<LISPUSERS>KOTO>KINETIC.;1)
+
+
+(* Copyright (c) 1982, 1985, 1986 by Xerox Corporation. All rights reserved.)
+
+(PRETTYCOMPRINT KINETICCOMS)
+
+(RPAQQ KINETICCOMS
 ((FNS KINETIC)
+		      (VARS (CHECKSHADE 63903)
+			    (KINETICWINDOW))
+		      (ALISTS (IDLE.FUNCTIONS Kinetic))))
+(DEFINEQ
+
+(KINETIC

+  [LAMBDA (WINDOW)                                           (* lmm " 3-Dec-85 14:16")

+                                                             (* test example (KINETICDEMO) 

+							     (SETQ CHECKSHADE (EDITSHADE CHECKSHADE)))

+    [
OR
 (
WINDOWP
 WINDOW)
+	  (
SETQ
 WINDOW (
OR
 KINETICWINDOW (
SETQ
 KINETICWINDOW (
CREATEW
 NIL "Kinetic Window"]
+    (
PROG
 ((WD (
WINDOWPROP
 WINDOW (
QUOTE
 WIDTH)))
+	     (HT (
WINDOWPROP
 WINDOW (
QUOTE
 HEIGHT)))
+	     X Y)
+	    (do
 (
SETQ
 X (
RAND
 0 WD))
+		  (
SETQ
 Y (
RAND
 0 HT))
+		  (
BITBLT
 NIL NIL NIL WINDOW (
RAND
 0 (
IDIFFERENCE
 WD X))
+			    (
RAND
 0 (
IDIFFERENCE
 HT Y))
+			    X Y (
QUOTE
 TEXTURE)
+			    (
SELECTQ
 (
RAND
 0 5)
+				       (0 (
QUOTE
 PAINT))
+				       (
QUOTE
 INVERT))
+			    (
SELECTQ
 (
AND
 CHECKSHADE (
RAND
 0 12))
+				       (0 CHECKSHADE)
+				       BLACKSHADE))
+		  (
BLOCK
])
+)
+
+(RPAQQ CHECKSHADE
 63903)
+
+(RPAQQ KINETICWINDOW
 NIL)
+
+(ADDTOVAR IDLE.FUNCTIONS
 (Kinetic (QUOTE KINETIC)))
+(PUTPROPS KINETIC COPYRIGHT ("Xerox Corporation" 1982 1985 1986))
+(DECLARE: DONTCOPY
+  (FILEMAP (NIL (447 1420 (KINETIC 457 . 1418)))))
+STOP