From 4ea68c67464e4f897387f698fef35d516ec90960 Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Mon, 2 Aug 2021 19:56:19 -0700
Subject: [PATCH] Store FDEV's default externalformat in the FDEV

And related adjustments so that the display output stream (which is created in various places) is always created with the right (CR) EOL convention.  Also a little simpler interface for creating external formats.
---
 sources/COREIO.LCOM    | Bin 16392 -> 16237 bytes
 sources/FILEIO         | 183 +++++------
 sources/FILEIO.LCOM    | Bin 49525 -> 49811 bytes
 sources/IMAGEIO        |  87 +++---
 sources/IMAGEIO.LCOM   | Bin 35354 -> 35444 bytes
 sources/LLDISPLAY      | 467 ++++++++++++++--------------
 sources/LLDISPLAY.LCOM | 671 +++++++++++++++++++++++++++++++++++++----
 sources/WINDOW         | 111 +++----
 sources/WINDOW.LCOM    | Bin 64214 -> 69388 bytes
 sources/XCCS           |  38 +--
 sources/XCCS.LCOM      | Bin 3583 -> 3610 bytes
 11 files changed, 1069 insertions(+), 488 deletions(-)

diff --git a/sources/COREIO.LCOM b/sources/COREIO.LCOM
index 208fd1475cbdc637f9c59590ded2dc397d0a4d97..7b710410b08164f49928a7b6ec5c6d7f4738a666 100644
GIT binary patch
delta 346
zcmeBZV0>Grrs3l1=IQ6E>*nd>s_W_J=C2?Z;OOk_=<ceZ<mngU8sy^{9H2B&P}0)L
zG1yhX&_F@X%|FQ3F+@Qw!r3`klS>1n(>ci1F~rqHK}o?#*ReER*T}%g5UAG5$lS`%
zWMZO&rd@G<X;E@&v7NJjkgKP^p0%kas$v5JD-%;IW6O!BW!=DrffTy9hIu->DrDv<
zD7l6D_$VNouBWG`q>z$WlA40eAQKa%%?^wkbvU^EJbkz{G`S}K)YW5R{JL3F?=fS5
z$NrRb1|Sg8f-$7_3ow9Hnpm1D#JIcqxdwSU>jk;`Ir;*_$H!H{#KKGgsK7_T#M~UA
az}dqwDA+Y*^KXN{Oe`R4Hvci^;Q;{A*IESt

delta 487
zcmZvZ%}T>S6h>`vA;l~T3T~7kxJZi`l1Zj%D->hq#tx>FGELD%7ZzL8je=Fsjk<JO
z`XrJE@L9yQk5Dja2`S>NKF*wb@BI9{yuTGRje*Yv=spiX=fV%so&=Xg?r{J}<st$Z
z@LpG)mbdpSB`wvwM2LVP6*+om_^cCyn21<Sv(Yqb)2E{<X-)1P?=Q!bmKRFkAwHy)
zKQ?L7q<~JpcFz+9hg}e9Ycvoc<1#JF+089d{eBRj)p;0W6^(`u<I#VeiKCWcR`@vB
zPy`PYt)k54IxZH~SjXQ5eEm7PT1(beI}7zJ)Use_fy~Or&a0wP+dzX85FojSB?z~Z
zyj*f*YMCe*5+F**s^BuO?Mg&VE2n3YN3g_(o#QUR>4Mq~n$x~We`3k2^;*7>q8>!Z
YcAOk8TrXr0Ul{Y^dV1%0Xl-u(0$4G7_W%F@

diff --git a/sources/FILEIO b/sources/FILEIO
index b35d8ce4..5d6a5624 100644
--- a/sources/FILEIO
+++ b/sources/FILEIO
@@ -1,11 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
-
(FILECREATED "29-Jul-2021 21:22:44" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEIO.;61
 180141 
+
(FILECREATED " 2-Aug-2021 10:13:47" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEIO.;68
 180948 
 
-      changes to%:  (FNS MAKE-EXTERNALFORMAT)
+      changes to%:  (FNS \INSTALL.EXTERNALFORMAT \EXTERNALFORMAT)
+                    (RECORDS FDEV STREAM)
 
-      previous date%: "29-Jul-2021 21:14:36" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEIO.;60)
+      previous date%: " 1-Aug-2021 23:16:14" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEIO.;64)
 
 
 (* ; "
@@ -120,15 +121,15 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
               (FNS \EOF.ACTION \EOSERROR \GETEOFPTR \INCFILEPTR \PEEKBIN \SETCLOSEDFILELENGTH 
                    \SETEOFPTR \SETFILEPTR)
               (FNS \FIXPOUT \FIXPIN)
-              (DECLARE%: DONTCOPY
-                     (EXPORT (MACROS \DECFILEPTR \GETFILEPTR \SIGNEDWIN \SIGNEDWOUT \WIN \WOUT \BINS
-                                    \BOUTS \BOUTEOL \EOFP SIZE.FROM.LENGTH)
-                            (CONSTANTS BitsPerByte (ByteOffsetSize (SELECTQ (SYSTEMTYPE)
-                                                                          (VAX 10)
-                                                                          9))
-                                   WordsPerPage)
-                            [CONSTANTS (\MAXFILEPTR (SUB1 (LLSH 1 30]
-                            (RECORDS BYTEPTR))
+              (FNS \BOUTEOL)
+              (DECLARE%: DONTCOPY (EXPORT (MACROS \DECFILEPTR \GETFILEPTR \SIGNEDWIN \SIGNEDWOUT \WIN
+                                                 \WOUT \BINS \BOUTS \EOFP SIZE.FROM.LENGTH)
+                                         (CONSTANTS BitsPerByte (ByteOffsetSize (SELECTQ (SYSTEMTYPE)
+                                                                                       (VAX 10)
+                                                                                       9))
+                                                WordsPerPage)
+                                         [CONSTANTS (\MAXFILEPTR (SUB1 (LLSH 1 30]
+                                         (RECORDS BYTEPTR))
                      (CONSTANTS MaxChar)))
         (COMS                                                (* ; "Buffered IO")

               (FNS \BUFFERED.BIN \BUFFERED.PEEKBIN \BUFFERED.BOUT \BUFFERED.BINS \BUFFERED.BOUTS 
@@ -245,7 +246,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
                       (DEVICE POINTER)
                       (USERVISIBLE FLAG)
                       (EOLCONVENTION BITS 2)
-                      (NOTXCCS FLAG)
+                      (NIL FLAG)
                       (VALIDATION POINTER)
                       (CPAGE POINTER)
                       (EPAGE POINTER)
@@ -321,8 +322,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
            (USERVISIBLE FLAG)                                (* ; 
 
                                                  "Listed by OPENP;  NIL for terminal, dribble ...")

            (EOLCONVENTION BITS 2)                            (* ; "End-of-line convention")

-           (NOTXCCS FLAG)                                    (* ; 
-
                                               "True if the character encoding format is not XCCS.")

+           (NIL FLAG)                                        (* ; "Was NOTXCCS.")

            (VALIDATION POINTER)                              (* ; 
 
          "A number somehow identifying file, used to determine if file has changed in our absence")

            (CPAGE POINTER)                                   (* ; 
@@ -412,7 +412,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
           ENDOFSTREAMOP _ (FUNCTION \EOSERROR)
           IMAGEOPS _ \NOIMAGEOPS EOLCONVENTION _ LF.EOLC STRMBINFN _ (FUNCTION \STREAM.NOT.OPEN)
           STRMBOUTFN _ (FUNCTION \STREAM.NOT.OPEN)
-          LASTCCODE _ 65535 NOTXCCS _ NIL)
+          LASTCCODE _ 65535)
 )
 
 (/DECLAREDATATYPE 'STREAM
@@ -940,7 +940,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
 
                     (* ;; "-----For any stream (here to not recompile everything)-----")

 
-                    (NIL POINTER)                            (* ; 
+                    (DEFAULTEXTERNALFORMAT POINTER)          (* ; 
 
                      "Was READCHARCODE. Read a character code from the stream (cf BIN for bytes).")

                     )
                    DIRECTORYNAMEP _ (FUNCTION NILL)
@@ -1177,7 +1177,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
                     (TRUNCATEFILE POINTER)
                     (WINDOWOPS POINTER)
                     (WINDOWDATA POINTER)
-                    (NIL POINTER)))
+                    (DEFAULTEXTERNALFORMAT POINTER)))
 )
 
 
@@ -1225,7 +1225,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
 
 (MAKE-EXTERNALFORMAT

   [LAMBDA (NAME INCCODEFN PEEKCCODEFN BACKCCODEFN OUTCHARFN FORMATBYTESTREAMFN EOL)

-                                                            (* ; "Edited 29-Jul-2021 21:22 by rmk:")

+                                                            (* ; "Edited  1-Aug-2021 23:13 by rmk:")

 
     (* ;; "Compiled creator for EXTERNALFORMAT so that declaration (EXPORTS.ALL) is not needed.  If EOL is not specified, then EOLVALID is also NIL")

 
@@ -1238,15 +1238,15 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
                        CRLF.EOLC)
                   (NIL)
                   (SHOULDNT)))
-    (CREATE
 EXTERNALFORMAT
-           NAME _ NAME
-           INCCODEFN _ INCCODEFN
-           PEEKCCODEFN _ PEEKCCODEFN
-           BACKCCODEFN _ BACKCCODEFN
-           OUTCHARFN _ OUTCHARFN
-           FORMATBYTESTREAMFN _ FORMATBYTESTREAMFN
-           EOLVALID _ EOL
-           EOL _ EOL])
+    (\INSTALL.EXTERNALFORMAT
 (CREATE
 EXTERNALFORMAT
+                                        NAME _ NAME
+                                        INCCODEFN _ INCCODEFN
+                                        PEEKCCODEFN _ PEEKCCODEFN
+                                        BACKCCODEFN _ BACKCCODEFN
+                                        OUTCHARFN _ OUTCHARFN
+                                        FORMATBYTESTREAMFN _ FORMATBYTESTREAMFN
+                                        EOLVALID _ EOL
+                                        EOL _ (OR EOL LF.EOLC])
 )
 
 (/DECLAREDATATYPE 'EXTERNALFORMAT '(FLAG (BITS 2)
@@ -1278,7 +1278,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
 (DEFINEQ
 
 (\INSTALL.EXTERNALFORMAT

-  [LAMBDA (EXTFORMAT/NAME EXTERNALFORMAT)
               (* ; "Edited  5-May-2021 12:55 by rmk:")

+  [LAMBDA (EXTFORMAT/NAME EXTERNALFORMAT)
               (* ; "Edited  2-Aug-2021 10:13 by rmk:")

 
 (* ;;; "Register an instance of the datatype EXTERNALFORMAT.")

 
@@ -1298,12 +1298,12 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
                                                                                        NAME))
            ELSE
 (SETQ EXTERNALFORMAT EXTFORMAT/NAME)
                  (SETQ NAME (FETCH
 (EXTERNALFORMAT NAME) OF
 EXTERNALFORMAT)))
-         (COND
-            ((type?
 EXTERNALFORMAT EXTERNALFORMAT)
-             (\REMOVE.EXTERNALFORMAT
 NAME)
-             (push
 *EXTERNALFORMATS* EXTERNALFORMAT)
-             NAME)
-            (T (ERROR "INVALID EXTERNALFORMAT " EXTERNALFORMAT])
+         (IF
 (type?
 EXTERNALFORMAT EXTERNALFORMAT)
+                (\REMOVE.EXTERNALFORMAT
 NAME)
+                (push
 *EXTERNALFORMATS* EXTERNALFORMAT)
+                NAME
+           ELSE
 (ERROR "INVALID EXTERNALFORMAT " EXTERNALFORMAT))
+         EXTERNALFORMAT])
 
 (\REMOVE.EXTERNALFORMAT

   [LAMBDA (NAME/EXTFORMAT)
                              (* ; "Edited  5-May-2021 15:42 by rmk:")

@@ -1328,7 +1328,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
         (CL:UNLESS NOERROR (ERROR NAME "is not an external format"])
 
 (\EXTERNALFORMAT

-  [LAMBDA (STREAM NEWFORMAT/NAME)
                       (* ; "Edited  9-Jul-2021 17:42 by rmk:")


+  [LAMBDA (STREAM NEWFORMAT/NAME)
                       (* ; "Edited  2-Aug-2021 10:11 by rmk:")


                                                              (* ; "Edited 26-Feb-91 13:20 by nm")

 
 (* ;;; ";;; RMK July 2020:  Added interface for per-device default external format.  \DO.PARAMS.AT.OPEN will make that call even if it is not specified from the open. STREAMPROP is fixed to call \EXTERNALFORMAT to set the property EXTERNALFORMAT, to export a user-level way of manipulating this.")

@@ -1341,7 +1341,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
 
 (* ;;; ":DEFAULT means the default external format for STREAM's filedevice")

 
-(* ;;; "The all-device default is in *DEFAULT-EXTERNALFORMAT*.")

+(* ;;; "The all-device default is in *DEFAULT-EXTERNALFORMAT* or the DEFAULTEXTERNALFORMAT field of the file device.  The list currently has priority since that makes it easier for a user without EXPORTS.ALL to systematically override. That may or may not be a useful capability.  ")

 
     (\DTEST STREAM 'STREAM)
     (CL:WHEN NEWFORMAT/NAME
@@ -1353,6 +1353,8 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
                                                                      of
 (fetch
 DEVICE
                                                                                of
 STREAM))
                                                                   *DEFAULT-EXTERNALFORMATS*))
+                                                     (FETCH
 (FDEV DEFAULTEXTERNALFORMAT)
+                                                        OF
 (fetch
 DEVICE of
 STREAM))
                                                      *DEFAULT-EXTERNALFORMAT*)))
                      (SETQ EXTFORMAT (FIND-FORMAT
 NEWFORMAT/NAME))
                      (CL:UNLESS EXTFORMAT (ERROR NEWFORMAT/NAME 
@@ -3075,6 +3077,21 @@ update the map")

                  16)
            (\WIN STRM])
 )
+(DEFINEQ
+
+(\BOUTEOL

+  [LAMBDA (STREAM)
                                      (* ; "Edited  1-Aug-2021 10:08 by rmk:")

+
+    (* ;; "Convenient closed function to put out EOL characters without depending on EXPORTS.ALL for constants.  This could also set the position back to 0.")

+
+    (SELECTC (FETCH
 (STREAM EOLCONVENTION) OF
 STREAM)
+        (LF.EOLC (\BOUT
 STREAM (CHARCODE LF)))
+        (CR.EOLC (\BOUT
 STREAM (CHARCODE CR)))
+        (CRLF.EOLC (\BOUT
 STREAM (CHARCODE CR))
+                   (\BOUT
 STREAM (CHARCODE LF)))
+        (ANY.EOLC (SHOULDNT))
+        NIL])
+)
 (DECLARE%: DONTCOPY 
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE 
 
@@ -3109,15 +3126,6 @@ update the map")

                                      (FDEVOP 'BLOCKOUT (fetch
 (STREAM DEVICE) of
 STRM)
                                             STRM BASE OFF NBYTES)))
 
-(PUTPROPS \BOUTEOL
 MACRO
 (OPENLAMBDA (STRM)
-                                   (SELECTC (FETCH
 (STREAM EOLCONVENTION) OF
 STRM)
-                                       (LF.EOLC (\BOUT
 STRM (CHARCODE LF)))
-                                       (CR.EOLC (\BOUT
 STRM (CHARCODE CR)))
-                                       (CRLF.EOLC (\BOUT
 STRM (CHARCODE CR))
-                                                  (\BOUT
 STRM (CHARCODE LF)))
-                                       (ANY.EOLC (SHOULDNT))
-                                       NIL)))
-
 (PUTPROPS \EOFP
 BYTEMACRO
 (OPENLAMBDA (STRM)
                                     (FDEVOP 'EOFP (fetch
 (STREAM DEVICE) of
 STRM)
                                            STRM)))
@@ -3409,43 +3417,44 @@ update the map")

 (PUTPROPS FILEIO COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1989 
 1990 1991 1992 1993 1999 2020 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (28439 31929 (STREAMPROP 28449 . 28883) (GETSTREAMPROP 28885 . 29358) (PUTSTREAMPROP 
-29360 . 31777) (STREAMP 31779 . 31927)) (31972 34491 (\DEFPRINT.BY.NAME 31982 . 33134) (
-\STREAM.DEFPRINT 33136 . 34184) (\FDEV.DEFPRINT 34186 . 34489)) (34749 39790 (\GETACCESS 34759 . 35213
-) (\SETACCESS 35215 . 39788)) (62776 63756 (MAKE-EXTERNALFORMAT 62786 . 63754)) (64942 71948 (
-\INSTALL.EXTERNALFORMAT 64952 . 66385) (\REMOVE.EXTERNALFORMAT 66387 . 67218) (FIND-FORMAT 67220 . 
-67771) (\EXTERNALFORMAT 67773 . 71946)) (72271 74090 (\CREATE.THROUGH.EXTERNALFORMAT 72281 . 73083) (
-\THROUGHIN 73085 . 73491) (\THROUGHBACKCCODE 73493 . 73738) (\THROUGHOUTCHARFN 73740 . 74088)) (74198 
-80167 (\DEFINEDEVICE 74208 . 76524) (\GETDEVICEFROMNAME 76526 . 76999) (\GETDEVICEFROMHOSTNAME 77001
- . 78045) (\REMOVEDEVICE 78047 . 79170) (\REMOVEDEVICE.NAMES 79172 . 80165)) (80207 104867 (\CLOSEFILE
- 80217 . 81042) (\DELETEFILE 81044 . 81338) (\DEVICEEVENT 81340 . 83110) (\GENERATEFILES 83112 . 83590
-) (\GENERATENEXTFILE 83592 . 84243) (\GENERATEFILEINFO 84245 . 84706) (\GETFILENAME 84708 . 85097) (
-\GENERIC.OUTFILEP 85099 . 85569) (\OPENFILE 85571 . 88149) (\DO.PARAMS.AT.OPEN 88151 . 90704) (
-\RENAMEFILE 90706 . 91130) (\REVALIDATEFILE 91132 . 93734) (\PAGED.REVALIDATEFILELST 93736 . 95294) (
-\PAGED.REVALIDATEFILES 95296 . 97015) (\PAGED.REVALIDATEFILE 97017 . 99300) (\BUFFERED.REVALIDATEFILE 
-99302 . 101588) (\BUFFERED.REVALIDATEFILELST 101590 . 102774) (\PRINT-REVALIDATION-RESULT 102776 . 
-103191) (\TRUNCATEFILE 103193 . 103584) (\FILE-CONFLICT 103586 . 104865)) (104903 109566 (
-\GENERATENOFILES 104913 . 107009) (\NULLFILEGENERATOR 107011 . 107255) (\NOFILESNEXTFILEFN 107257 . 
-109248) (\NOFILESINFOFN 109250 . 109564)) (109685 111593 (\FILE.NOT.OPEN 109695 . 110208) (
-\FILE.WONT.OPEN 110210 . 110538) (\ILLEGAL.DEVICEOP 110540 . 110822) (\IS.NOT.RANDACCESSP 110824 . 
-111270) (\STREAM.NOT.OPEN 111272 . 111591)) (111728 114026 (\FDEVINSTANCE 111738 . 114024)) (115576 
-122950 (CNDIR 115586 . 116891) (DIRECTORYNAME 116893 . 121076) (DIRECTORYNAMEP 121078 . 121694) (
-HOSTNAMEP 121696 . 122503) (\ADD.CONNECTED.DIR 122505 . 122948)) (122995 153638 (\BACKFILEPTR 123005
- . 123193) (\BACKPEEKBIN 123195 . 123556) (\BACKBIN 123558 . 123909) (BIN 123911 . 124128) (\BIN 
-124130 . 124407) (\BINS 124409 . 124695) (BOUT 124697 . 125059) (\BOUT 125061 . 125376) (\BOUTS 125378
- . 125689) (COPYBYTES 125691 . 129023) (COPYCHARS 129025 . 135947) (COPYFILE 135949 . 136746) (
-\COPYOPENFILE 136748 . 139821) (\INFER.FILE.TYPE 139823 . 140777) (EOFP 140779 . 141076) (FORCEOUTPUT 
-141078 . 141325) (\FLUSH.OPEN.STREAMS 141327 . 141683) (CHARSET 141685 . 143349) (ACCESS-CHARSET 
-143351 . 143568) (GETEOFPTR 143570 . 143820) (GETFILEINFO 143822 . 147015) (\TYPE.FROM.FILETYPE 147017
- . 147487) (\FILETYPE.FROM.TYPE 147489 . 147668) (GETFILEPTR 147670 . 147922) (SETFILEINFO 147924 . 
-151537) (SETFILEPTR 151539 . 153258) (BOUT16 153260 . 153445) (BIN16 153447 . 153636)) (153741 158946 
-(\GENERIC.BINS 153751 . 154031) (\GENERIC.BOUTS 154033 . 154298) (\GENERIC.RENAMEFILE 154300 . 156131)
- (\GENERIC.OPENP 156133 . 157448) (\GENERIC.READP 157450 . 158491) (\GENERIC.CHARSET 158493 . 158944))
- (158947 159286 (\MAP-OPEN-STREAMS 158957 . 159284)) (161156 163236 (\EOF.ACTION 161166 . 161417) (
-\EOSERROR 161419 . 161612) (\GETEOFPTR 161614 . 161796) (\INCFILEPTR 161798 . 162148) (\PEEKBIN 162150
- . 162341) (\SETCLOSEDFILELENGTH 162343 . 162677) (\SETEOFPTR 162679 . 162867) (\SETFILEPTR 162869 . 
-163234)) (163237 163779 (\FIXPOUT 163247 . 163547) (\FIXPIN 163549 . 163777)) (167445 177309 (
-\BUFFERED.BIN 167455 . 168307) (\BUFFERED.PEEKBIN 168309 . 169091) (\BUFFERED.BOUT 169093 . 169953) (
-\BUFFERED.BINS 169955 . 173640) (\BUFFERED.BOUTS 173642 . 175443) (\BUFFERED.COPYBYTES 175445 . 177307
-)) (177338 179690 (\NULLDEVICE 177348 . 179366) (\NULL.OPENFILE 179368 . 179688)))))
+  (FILEMAP (NIL (28483 31973 (STREAMPROP 28493 . 28927) (GETSTREAMPROP 28929 . 29402) (PUTSTREAMPROP 
+29404 . 31821) (STREAMP 31823 . 31971)) (32016 34535 (\DEFPRINT.BY.NAME 32026 . 33178) (
+\STREAM.DEFPRINT 33180 . 34228) (\FDEV.DEFPRINT 34230 . 34533)) (34793 39834 (\GETACCESS 34803 . 35257
+) (\SETACCESS 35259 . 39832)) (62838 64091 (MAKE-EXTERNALFORMAT 62848 . 64089)) (65277 72720 (
+\INSTALL.EXTERNALFORMAT 65287 . 66748) (\REMOVE.EXTERNALFORMAT 66750 . 67581) (FIND-FORMAT 67583 . 
+68134) (\EXTERNALFORMAT 68136 . 72718)) (73043 74862 (\CREATE.THROUGH.EXTERNALFORMAT 73053 . 73855) (
+\THROUGHIN 73857 . 74263) (\THROUGHBACKCCODE 74265 . 74510) (\THROUGHOUTCHARFN 74512 . 74860)) (74970 
+80939 (\DEFINEDEVICE 74980 . 77296) (\GETDEVICEFROMNAME 77298 . 77771) (\GETDEVICEFROMHOSTNAME 77773
+ . 78817) (\REMOVEDEVICE 78819 . 79942) (\REMOVEDEVICE.NAMES 79944 . 80937)) (80979 105639 (\CLOSEFILE
+ 80989 . 81814) (\DELETEFILE 81816 . 82110) (\DEVICEEVENT 82112 . 83882) (\GENERATEFILES 83884 . 84362
+) (\GENERATENEXTFILE 84364 . 85015) (\GENERATEFILEINFO 85017 . 85478) (\GETFILENAME 85480 . 85869) (
+\GENERIC.OUTFILEP 85871 . 86341) (\OPENFILE 86343 . 88921) (\DO.PARAMS.AT.OPEN 88923 . 91476) (
+\RENAMEFILE 91478 . 91902) (\REVALIDATEFILE 91904 . 94506) (\PAGED.REVALIDATEFILELST 94508 . 96066) (
+\PAGED.REVALIDATEFILES 96068 . 97787) (\PAGED.REVALIDATEFILE 97789 . 100072) (\BUFFERED.REVALIDATEFILE
+ 100074 . 102360) (\BUFFERED.REVALIDATEFILELST 102362 . 103546) (\PRINT-REVALIDATION-RESULT 103548 . 
+103963) (\TRUNCATEFILE 103965 . 104356) (\FILE-CONFLICT 104358 . 105637)) (105675 110338 (
+\GENERATENOFILES 105685 . 107781) (\NULLFILEGENERATOR 107783 . 108027) (\NOFILESNEXTFILEFN 108029 . 
+110020) (\NOFILESINFOFN 110022 . 110336)) (110457 112365 (\FILE.NOT.OPEN 110467 . 110980) (
+\FILE.WONT.OPEN 110982 . 111310) (\ILLEGAL.DEVICEOP 111312 . 111594) (\IS.NOT.RANDACCESSP 111596 . 
+112042) (\STREAM.NOT.OPEN 112044 . 112363)) (112500 114798 (\FDEVINSTANCE 112510 . 114796)) (116348 
+123722 (CNDIR 116358 . 117663) (DIRECTORYNAME 117665 . 121848) (DIRECTORYNAMEP 121850 . 122466) (
+HOSTNAMEP 122468 . 123275) (\ADD.CONNECTED.DIR 123277 . 123720)) (123767 154410 (\BACKFILEPTR 123777
+ . 123965) (\BACKPEEKBIN 123967 . 124328) (\BACKBIN 124330 . 124681) (BIN 124683 . 124900) (\BIN 
+124902 . 125179) (\BINS 125181 . 125467) (BOUT 125469 . 125831) (\BOUT 125833 . 126148) (\BOUTS 126150
+ . 126461) (COPYBYTES 126463 . 129795) (COPYCHARS 129797 . 136719) (COPYFILE 136721 . 137518) (
+\COPYOPENFILE 137520 . 140593) (\INFER.FILE.TYPE 140595 . 141549) (EOFP 141551 . 141848) (FORCEOUTPUT 
+141850 . 142097) (\FLUSH.OPEN.STREAMS 142099 . 142455) (CHARSET 142457 . 144121) (ACCESS-CHARSET 
+144123 . 144340) (GETEOFPTR 144342 . 144592) (GETFILEINFO 144594 . 147787) (\TYPE.FROM.FILETYPE 147789
+ . 148259) (\FILETYPE.FROM.TYPE 148261 . 148440) (GETFILEPTR 148442 . 148694) (SETFILEINFO 148696 . 
+152309) (SETFILEPTR 152311 . 154030) (BOUT16 154032 . 154217) (BIN16 154219 . 154408)) (154513 159718 
+(\GENERIC.BINS 154523 . 154803) (\GENERIC.BOUTS 154805 . 155070) (\GENERIC.RENAMEFILE 155072 . 156903)
+ (\GENERIC.OPENP 156905 . 158220) (\GENERIC.READP 158222 . 159263) (\GENERIC.CHARSET 159265 . 159716))
+ (159719 160058 (\MAP-OPEN-STREAMS 159729 . 160056)) (161928 164008 (\EOF.ACTION 161938 . 162189) (
+\EOSERROR 162191 . 162384) (\GETEOFPTR 162386 . 162568) (\INCFILEPTR 162570 . 162920) (\PEEKBIN 162922
+ . 163113) (\SETCLOSEDFILELENGTH 163115 . 163449) (\SETEOFPTR 163451 . 163639) (\SETFILEPTR 163641 . 
+164006)) (164009 164551 (\FIXPOUT 164019 . 164319) (\FIXPIN 164321 . 164549)) (164552 165160 (\BOUTEOL
+ 164562 . 165158)) (168252 178116 (\BUFFERED.BIN 168262 . 169114) (\BUFFERED.PEEKBIN 169116 . 169898) 
+(\BUFFERED.BOUT 169900 . 170760) (\BUFFERED.BINS 170762 . 174447) (\BUFFERED.BOUTS 174449 . 176250) (
+\BUFFERED.COPYBYTES 176252 . 178114)) (178145 180497 (\NULLDEVICE 178155 . 180173) (\NULL.OPENFILE 
+180175 . 180495)))))
 STOP
diff --git a/sources/FILEIO.LCOM b/sources/FILEIO.LCOM
index 7d6ebb7aa83468f16f50584c491351f581e876d4..f94a25e29cd4298026153c1124ec4985bcc68677 100644
GIT binary patch
delta 1729
zcmZ{kTTB#J7{~X52q##eD}qZ~j$3JVNx_}Huort_WM*ONFsr+ZqOP{c;uR6RH9j<^
zG$z*Ar1qeIfPjD?pj;M^`(pZ1o3z@bsZYJw*gp9{ANpV)Y`<^Vwwko_@SFen&UeoF
zzVCc9zc=XFS^cLG1GVMzC->*utTv8vRxihSxr^@yZ7vHnJv(K!dL2%$-D9GAk5yM4
zJyLhDraD4N)q%>|{nf{Fy)=CBX;$#r6$J$aCK{<c0dD`Xlfz-M5VKE`#o~a-heY9d
zr+6d|6J=W6+sQ6UIJed9DP*HsgFh@*gv5Zt%RYagj1O6;IUpAM145Ac1aTV;hG54s
z3#~g=ed^%RlgHH{AVL%6{!P_p_i}|^&S4_z30g;#*YO7JIrdS;DWh*fe>h#IEsaR`
zH0iMylQr<9Y0RA6&W^m4rKM5b8Zp7Lpwnn{MTt1cUmMj7q^D{4$mck0jPVsCRgwLu
zm&P2d&bT%$YuWQIQ5W1jz|I+u3pP6y0|9>kD({FZkCpl)MaYlmM$DYs9#4sK97mte
zox1Jp&1|E=<yg+W(Dk>klf99>mepq$={Ogg&&<|&Jkk5vuhk~{%R{1HW_QGlGZMt7
zU5@L^l=R5qrIuJx4IvnITI7&AS`{DF=$6J-!|d|-AFmqy()h|Gb%Dn0veICwzg!lS
z5OsQJcoQ5&om^blopAw;rcPP(#O!1v=hsA^eteZ^32SdG0shjsCx-}PvCIcVxHX>?
z2!^QOFZOTQLCtw|<3>u@-b)SWd8raua``=AzslsMouDI45#ZgXeL!n-2za&`^<$O6
z76Ei~3$A+7vKzSl%3k2i6|`ix?f@>#<*>$9H>j^#CE$-RE^NawZ#A%nHWAbpZMf%#
zc0BQX`!?Xi_C3I&t7vJxinF>7j4;xn#?w&+I=?dvJl~1-$DO-?rCoUXU>DA&Uc*(V
zRDQ2g=tj$6_q)Ki7M-l9=XFq>i!RpFlLzWvPh>suDM1?cNfleL;Hr=m_$pL0UIN~C
z>g60(*G*V`Z$=6U2c;546t+tWWuNutvc=vFu-8&Ap0)it)@0&3Mwr=G4g8=F?T`94
z0%^YqSlo|3UHxcJx`CdDZlL}~rF)=IC&}!@KwbhwLD;o{Dm}iF26v^v$61CU`4qUu
zql3GaJ-!~q{0fG!a;ut6Y;ec`DmKIce;YCaQ*N$jn{-C@&dst!;*<Fj%IfuIcK?=}
z)#)w&^Uh*FO{Xwnm`^0MfZA=Wet0$O7~Z@BhaOfpoWT-CWY~S{2<CZv1aHDPinn!U
z6!p)lE*V2TFoyQjDC%QT)DNN+z^?vvZ0q<YP>thgeKL-Hv~vPEJAqX(O=5NplUS!m
zlek`)Uc+|Z_Jg{4dtV}fDoF~nPOWD7Q=7qfdJ3E5yD4<_Oy{f=L?2%+hgj{9Q7yuU
z(<P8KW>*Ft1v7Za$jn-HYo;uLSS-si(OK+L_fR2gn|&1&mtlBei(gXU*QtI-Q2&Rs
zr&oeMJcL!wxxlGq?qy)*+$-!tYZ9m*<|y#bxplyG^O-6$m@=P8h?y6JkbfH=U|VxD
zS?xj=`(z%!l?U^fr)R+qJhFhHeY@ZQCdV*}{1|p^Ma&CiF`WG)hWGoh+k*WK3OXG7
eJC&HjO1Uh<A6+UIA;4c3@s8v>>sJs(lF46*a})&t

delta 1539
zcmaKrTTok76ozx7*vO$U0YVDcO(-;BB<4ndV1WZUfnah1NeWa!xdgC^z(9+(54Lvf
z^nvlZTS`hO6uB0HggX=nZO3ss<7me|IQrz}!3Srw<5=IUu66Li+n9$h|5^Lrd#|<5
zI`o3{;d$x1euc3hr}9)sj!|zk5Tn6rG+NE?z3SB&v_$>4CB4;bvYPa2(%jS9()CLB
ziH=r3k+;6q-P4<CrRhTnR4$f#{<=k{)2WHS=_L66<0!L9t(9x+4kuUU;aDGM`-f>S
z6|<VgNlKCoL~h8}8_WjM@?ukGduuN_*#)<z4y9<ids_QWbe-xIZpyU&>lB08YO<(_
zoW@Iv#rmac39AsFp)|2?zu*3uC_WM=(kwll#L3u@L?n`w>=VI{9Se&B@o^&7e+M5g
zMcBFpkG~!DgT;)<p6RY!@ZOa)VmwJAruPr_mg+5p^LX4IlArgd$TJbUgSX|_-5wX~
zgPIK%3-S7(Xcs9k6Ryt3d3e^jw@fS+S`}1DNiO~;(|ai;^r13Ml5bpkDmANfv42u7
zX6V%Aa^O#wp9k^-X~2$w^B5Uu0#;vX1TG3x3_c6GbI=dGKiCGe27JJG0;qo#*l^Vb
zdh9Chk`6Thn}(VnXB@o4SHpU|L_@2CN;<r)qK}5MBuq9f32G=G)Pu1aQoIr@2K7bI
z0ZbpR1)d(R1Aab?R}@^s1TI~x0Ujt&QP~Iws&WLQ6C>z|8O5YKM}-teTR`VsuLr&{
znnBmD7s;6lx7WwBF0P7xtxuqeu_9RXj5PyS#?Y?%0FOB*@Oy#$I7U{+UjWwM%B7VP
zPlDRHl}G0%vO#@0ftM9cDye_6Fs9z?DCap_t%D~Fot?~#E_EOCac(F5bkZPZ-k-v=
z+NZEDA5CGZN2XhWZ%t$Tm+3;Fent)S&Y&kegYo1W=sa@+^)~`5W-a^NzPhq9FFiM#
zEn~FM*ZJ8NDFgorbI<K(U?g04GYxH})4<%(J<C^fScEl%{Za<hbS<O+#RniW`djEA
zFnRtk@aTM76k~U?<uv}o<Fs4)7{tQ!b^oKpQYC$~8AGcU*nJGq5tETFEGX&xLWS^H
zU=bb_VSKL*VJ!Jh7@MB8h|TL?ME#?ny-TQ9moT2PjQaIu)ZZ=R9E4}mX~Rk>sL>US
zMy=wYwF&%q6&s{m!y4aS!<Ic*!~IR`S@h-gSbA|C>)cpJ7umqw7dCJ<zTH3<w|NL$
zF*2=Iiw#iGkxl$A_6l=>a^A#^-60kI<faSy2{z28XbWfX&8_1=Hc=5<<#zD!5fV){
zDTERDed}~Ic!g8XZs$ca8c!8lT}%xs1--W|gH30*pO9x0E51xEqk*YE1i`eObYSt0
zQea{njw~*-Hk;249}->2OoXNWh>FhcU{f1G#YQSX)kaLh3TFFr#0)&Ln*n@g7pJvv
z*9r{pwxu$5*6Sn|eQq91kCU}Kd>lUI3#tAvuEk*oD~vl1`vFE%&mVI-ZCs6`jDy-`
QxA85$bo+1=!#kYJA3J;HVE_OC

diff --git a/sources/IMAGEIO b/sources/IMAGEIO
index d324516a..ea111516 100644
--- a/sources/IMAGEIO
+++ b/sources/IMAGEIO
@@ -1,13 +1,15 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED "28-Jun-99 16:33:59" {DSK}<project>medley3.5>sources>IMAGEIO.;2
 79184  
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
+
(FILECREATED " 2-Aug-2021 19:41:35" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IMAGEIO.;4
 79616  
 
-      changes to%:  (FNS OPENIMAGESTREAM)
+      changes to%:  (FNS \DISPLAYINIT)
 
-      previous date%: "22-Apr-94 15:19:02" {DSK}<project>medley3.5>sources>IMAGEIO.;1)
+      previous date%: "28-Jun-99 16:33:59" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IMAGEIO.;1)
 
 
 (* ; "
-Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994, 1999 by Venue & Xerox Corporation.  All rights reserved.
+Copyright (c) 1983-1991, 1993-1994, 1999, 2021 by Venue & Xerox Corporation.
 ")
 
 (PRETTYCOMPRINT IMAGEIOCOMS)
@@ -919,17 +921,17 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994,
 (DECLARE%: DONTCOPY 
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE 
 
-(PUTPROPS IMAGEOP  MACRO

-   [ARGS (CONS 'SPREADAPPLY* (CONS (COND
-                                      [(EQ (CAR (LISTP (CAR ARGS)))
-                                           'QUOTE)
-                                       (LIST 'fetch (LIST 'IMAGEOPS (CADAR ARGS))
-                                             'of
-                                             (LIST 'fetch '(STREAM IMAGEOPS)
-                                                   'of
-                                                   (CADR ARGS]
-                                      (T (HELP "IMAGEOP - OPNAME not quoted:" ARGS)))
-                                   (CDDR ARGS])
+(PUTPROPS IMAGEOP
 MACRO
 [ARGS (CONS 'SPREADAPPLY*
+                                            (CONS (COND
+                                                     [(EQ (CAR (LISTP (CAR ARGS)))
+                                                          'QUOTE)
+                                                      (LIST 'fetch (LIST 'IMAGEOPS (CADAR ARGS))
+                                                            'of
+                                                            (LIST 'fetch '(STREAM IMAGEOPS)
+                                                                  'of
+                                                                  (CADR ARGS]
+                                                     (T (HELP "IMAGEOP - OPNAME not quoted:" ARGS)))
+                                                  (CDDR ARGS])
 )
 (DECLARE%: EVAL@COMPILE
 
@@ -1168,11 +1170,11 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994,
         NIL])
 
 (\DISPLAYINIT

-  [LAMBDA NIL
                                         (* ; "Edited 19-Apr-94 04:36 by sybalsky")

+  [LAMBDA NIL
                                           (* ; "Edited  2-Aug-2021 19:41 by rmk:")

 
-    (* ;; "Initializes global variables for the Display device")

+    (* ;; "Initializes global variables for the Display device")

 
-    (* ;; "Display Streams are referred to only by themselves so they do not need directory operations.  Most of the fields in the DisplayDevice are empty to avoid something bad happening.")

+    (* ;; "Display Streams are referred to only by themselves so they do not need directory operations.  Most of the fields in the DisplayDevice are empty to avoid something bad happening.")

 
     (DECLARE
 (GLOBALVARS DisplayFDEV \DISPLAYIMAGEOPS \DisplayDeviceMethods \DisplayDeviceData))
     (SETQ \DisplayDeviceMethods (create
 WSOPS))
@@ -1249,7 +1251,10 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994,
                              BLOCKOUT _ (FUNCTION \NONPAGEDBOUTS)
                              WINDOWOPS _ \DisplayDeviceMethods
                              WINDOWDATA _ \DisplayDeviceData
-                             DEVICEINFO _ (create
 DISPLAYSTATE)))
+                             DEVICEINFO _ (create
 DISPLAYSTATE)
+                             DEFAULTEXTERNALFORMAT _ (MAKE-EXTERNALFORMAT :DISPLAY NIL NIL NIL
+                                                            (FUNCTION \DSPPRINTCHAR)
+                                                            NIL CR.EOLC)))
     (\DEFINEDEVICE 'LFDISPLAY DisplayFDEV])
 
 (\4DISPLAYINIT

@@ -1502,26 +1507,26 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994,
 (ADDTOVAR LAMA
 IMAGESTREAMP)
 )
 (PUTPROPS IMAGEIO COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 1991 
-1993 1994 1999))
+1993 1994 1999 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3354 12111 (IMAGESTREAMP 3364 . 4196) (IMAGESTREAMTYPE 4198 . 4411) (IMAGESTREAMTYPEP 
-4413 . 5048) (OPENIMAGESTREAM 5050 . 10004) (\GOOD.DASHLST 10006 . 12109)) (12146 14443 (
-DRAWDASHEDLINE 12156 . 14441)) (14444 21784 (DSPBACKCOLOR 14454 . 14826) (DSPBOTTOMMARGIN 14828 . 
-15213) (DSPCOLOR 15215 . 15579) (DSPCLIPPINGREGION 15581 . 16286) (DSPRESET 16288 . 16568) (DSPFONT 
-16570 . 16934) (DSPLEFTMARGIN 16936 . 17317) (DSPLINEFEED 17319 . 17619) (DSPOPERATION 17621 . 17998) 
-(DSPRIGHTMARGIN 18000 . 18383) (DSPTOPMARGIN 18385 . 18764) (DSPSCALE 18766 . 19133) (DSPSPACEFACTOR 
-19135 . 19528) (DSPXPOSITION 19530 . 19835) (DSPYPOSITION 19837 . 20142) (DSPROTATE 20144 . 20439) (
-DSPPUSHSTATE 20441 . 20687) (DSPPOPSTATE 20689 . 20932) (DSPDEFAULTSTATE 20934 . 21186) (DSPSCALE2 
-21188 . 21479) (DSPTRANSLATE 21481 . 21782)) (21785 30586 (DSPNEWPAGE 21795 . 22487) (DRAWBETWEEN 
-22489 . 23191) (DRAWCIRCLE 23193 . 23689) (DRAWARC 23691 . 24208) (DRAWCURVE 24210 . 24887) (
-DRAWELLIPSE 24889 . 25675) (DRAWLINE 25677 . 26067) (DRAWPOLYGON 26069 . 26524) (DRAWPOINT 26526 . 
-26945) (FILLPOLYGON 26947 . 27513) (DRAWTO 27515 . 27933) (FILLCIRCLE 27935 . 28158) (MOVETO 28160 . 
-28524) (RELDRAWTO 28526 . 29443) (BITMAPIMAGESIZE 29445 . 29616) (SCALEDBITBLT 29618 . 30584)) (30587 
-37626 (\DRAWPOINT.GENERIC 30597 . 30944) (\DRAWPOLYGON.GENERIC 30946 . 33254) (\DRAWCIRCLE.GENERIC 
-33256 . 34914) (\DRAWELLIPSE.GENERIC 34916 . 37624)) (37627 43013 (\IMAGEIOINIT 37637 . 41770) (
-\NOIMAGE.DSPFONT 41772 . 42847) (\UNIMPIMAGEOP 42849 . 43011)) (43136 46260 (INSURE.BRUSH 43146 . 
-44520) (BRUSHP 44522 . 45312) (\POSSIBLECOLOR 45314 . 45865) (NEGSHADE 45867 . 46258)) (46820 47504 (
-DASHINGP 46830 . 47160) (INSURE.DASHING 47162 . 47502)) (57806 78002 (\DisplayEventFn 57816 . 58326) (
-\DISPLAYINIT 58328 . 63754) (\4DISPLAYINIT 63756 . 68393) (\8DISPLAYINIT 68395 . 73034) (
-\24DISPLAYINIT 73036 . 77743) (\DISPLAYSTREAMTYPEBPP 77745 . 78000)))))
+  (FILEMAP (NIL (3353 12110 (IMAGESTREAMP 3363 . 4195) (IMAGESTREAMTYPE 4197 . 4410) (IMAGESTREAMTYPEP 
+4412 . 5047) (OPENIMAGESTREAM 5049 . 10003) (\GOOD.DASHLST 10005 . 12108)) (12145 14442 (
+DRAWDASHEDLINE 12155 . 14440)) (14443 21783 (DSPBACKCOLOR 14453 . 14825) (DSPBOTTOMMARGIN 14827 . 
+15212) (DSPCOLOR 15214 . 15578) (DSPCLIPPINGREGION 15580 . 16285) (DSPRESET 16287 . 16567) (DSPFONT 
+16569 . 16933) (DSPLEFTMARGIN 16935 . 17316) (DSPLINEFEED 17318 . 17618) (DSPOPERATION 17620 . 17997) 
+(DSPRIGHTMARGIN 17999 . 18382) (DSPTOPMARGIN 18384 . 18763) (DSPSCALE 18765 . 19132) (DSPSPACEFACTOR 
+19134 . 19527) (DSPXPOSITION 19529 . 19834) (DSPYPOSITION 19836 . 20141) (DSPROTATE 20143 . 20438) (
+DSPPUSHSTATE 20440 . 20686) (DSPPOPSTATE 20688 . 20931) (DSPDEFAULTSTATE 20933 . 21185) (DSPSCALE2 
+21187 . 21478) (DSPTRANSLATE 21480 . 21781)) (21784 30585 (DSPNEWPAGE 21794 . 22486) (DRAWBETWEEN 
+22488 . 23190) (DRAWCIRCLE 23192 . 23688) (DRAWARC 23690 . 24207) (DRAWCURVE 24209 . 24886) (
+DRAWELLIPSE 24888 . 25674) (DRAWLINE 25676 . 26066) (DRAWPOLYGON 26068 . 26523) (DRAWPOINT 26525 . 
+26944) (FILLPOLYGON 26946 . 27512) (DRAWTO 27514 . 27932) (FILLCIRCLE 27934 . 28157) (MOVETO 28159 . 
+28523) (RELDRAWTO 28525 . 29442) (BITMAPIMAGESIZE 29444 . 29615) (SCALEDBITBLT 29617 . 30583)) (30586 
+37625 (\DRAWPOINT.GENERIC 30596 . 30943) (\DRAWPOLYGON.GENERIC 30945 . 33253) (\DRAWCIRCLE.GENERIC 
+33255 . 34913) (\DRAWELLIPSE.GENERIC 34915 . 37623)) (37626 43012 (\IMAGEIOINIT 37636 . 41769) (
+\NOIMAGE.DSPFONT 41771 . 42846) (\UNIMPIMAGEOP 42848 . 43010)) (43135 46259 (INSURE.BRUSH 43145 . 
+44519) (BRUSHP 44521 . 45311) (\POSSIBLECOLOR 45313 . 45864) (NEGSHADE 45866 . 46257)) (46815 47499 (
+DASHINGP 46825 . 47155) (INSURE.DASHING 47157 . 47497)) (57980 78429 (\DisplayEventFn 57990 . 58500) (
+\DISPLAYINIT 58502 . 64181) (\4DISPLAYINIT 64183 . 68820) (\8DISPLAYINIT 68822 . 73461) (
+\24DISPLAYINIT 73463 . 78170) (\DISPLAYSTREAMTYPEBPP 78172 . 78427)))))
 STOP
diff --git a/sources/IMAGEIO.LCOM b/sources/IMAGEIO.LCOM
index 01e04e6be14dfb32a7226c27190fe1ae7ce6a684..9b0481898334a9ac14d69f2fde5b68b209752ae2 100644
GIT binary patch
delta 2299
zcmbVOYitx%6lS+YVaj9s*xFLt-Y!sfp^urJeatLi8Fpv7L-*C0EmGW8`dHd+u`PW-
zTPWR@Lfgbd;Z{Tp^20=akZ5s9j8TKtD8DpfVj^lVnus(pNTMVdjrH8!t!(?lA8xYW
zJ?Gr-e)r6|XYTHW8SU>g+7~4e6-j=@D+E!|KBrSPQASDjh)zWmf}#r<khxqKXe&3<
zW(G05!@@XNs{t7eE#1%cL=J^pQFj-Rs52u~qZZRLI_+Q?2hAE#b8q-xKGo9R)YTU5
z+w4Fgm#hXnLcQ#hgD3(zQk}<xQg^JVs4$?`rheFGX(kD2&XAIB!GGin>G>^)vhy~^
zhLQ=O{%**@DEZVSiI`ANZ}>>0d!R4AF;EO<u6)lxS2@ok#^zvIhn0^%v5-Z{UZGl4
zgHSAQ06AP7g(dAT8Va*%VZc|?ZfK}jQ~JV6GEj;JhHDuGTA2D`?Mr|M*PR9YW8KSu
zXV%{Z9M+8i{-q=F7cvQFa~1}CH|u-`Wegx13ACN1@n`xS_<VK%X6CaA_jt|>V5a^m
z;K%xNfctaFx_h}qW8#TZfK=Wz;7s00z`T62=WIUA#-t5BB(rx4R5D}~=96J_k&X<u
z;w@xoL=+4-Qu58CEUXOn7c+R&@CMA3Zu}Z>VdHHe-`>O$a#razz#FBIUTpuC3ncWw
zI10{yNg~esTZh20ZPS7i<I66Q;a2%WQk^g9Zou8lCBPpUFCcA(m3Y?N7)Kix*-c<|
zuzLaL*mA&M*~=jCfxl3LuUT^-a6e$if5t7H?Je*>v<X1a+7G9L)4%;AK>H5ZCw6&9
z5y|J%omT*RpZW^WU9}5vx=I23uIez5e7pYEY@mFy2dzk30iRCY3UEk(GMcCmW<szh
zY@e>Fpo}by+@f6V4k8<RT6P89(5662X?KC9EqtP5?gvb(Q*=6V^yHu!IB3R9qr{Oj
z439mvb&$<$M;Sg~O3z&;X0s*4=4*GRh|vlu#DdGXYH<TxDe56~u`|DTF_fwl7a<Rs
zHXa)hf6^AVk!NjhZB2|FYab_mrdH!_m2=wh0r%-q-U_deD9Jw2CGM4-BC=cU$Sc%{
z<>J1esQ3g=;(CD+a6FA%k-nZoO+ylp5yx4PM@m)&yk)a?GYVCUK2edK6^iH+ys(Q$
zM4XL9kfH~1Rtxf##Vw098Deco!)#AoEVu%QV>ryTWS4L>pXAW=BaYK8D5@AlcAg<D
zubqS4WwpZR4^}9G&m}mWqN)av-OeWCOT%!QA(t8mD6%g|w2<AxKs6H=T<o6Qzp{)n
zBC`b<T;aa{NLN#Tq`M2QuaISFS1|U(LC&%HxKde<t3r>(`^rpO^nRckkgJ^qoUeTb
zaKXg@O^2&QxMSd04dAU=8JCFN>~y8Y()MP90K6mlm=3|wC*F{j2GRxO4Y?Ax<{A=`
z5?*KoF@=Z`>4nBbw-~@$BKv&vnnl^`oon&+_SK8hcOtn->B<gbNgd=)ny-~GA#PWI
z7?+NFBJnPEvatAOXB%<&fj0r~4jcsZA87`B`v|e~kA?w9j}rUN(N@5kK~jLrgFN65
zgYAHOh7JH;86wQgVZt07CXrjib%2$}J^_4itOc<CcoX1z$Dak%P3GXr5ptDAN64C=
zM+l?l#FGV-5jvt4h17aAD0+7*b*fubN$;2_Jbr?(GNZ*9MRloPE&6}qRhW)efn-m#
zc}?PX#UD@+W5HLWdi-0|1ydzsIoLDi1MAf>Qh}1OY@9vrPoZ0Bd^nne$H&Fw^ta=F
zu(q9Cq`!XBpYceY!#BtDIBP=8qXK?tTv0KZOvqSU=MRdAx0&EMyC=w%`}qW^spS-@
z+POGBJVhiMPKOIYuHG+6P%2nV8AI{kL>c7dAgurXv;@4;$r`}kNwVhp)K;vSvVb)=
zsgHXDQ(M5hI0dJDcDg|Tjg)tSNT$9c#OIdHo0k&sYtsh{D2C@*_{+ju2=IvfgMs|W
Gh5ZkTJ&Ixg

delta 2174
zcma)-ZD><h7=THumg=reZ4z5u>+!bQ#MyYi@^NEL&6*ocP4jKHVr}ixIAd!Pn^YV7
zVbfNdGA6F4+r%-fFx(G8=Q4&c#zf|X!5D*$iN%3G2EsmJ{tza*_uNE{*&l!0=e%F%
zJ@0+*Ip^M=FF8A3a@t|iQCf%7CAIn`TTrqiniZPbhN4Xz!?B3tEu3iK4K&iyq1d5#
zWFXv!Vo^jR>YcY*_OQDDg|niCG0|u+{4|^j561^0p-6HdwZVeAob9$9lGEdKJA<gp
z?hJTcw$7X)6lz#GR(m`WMHKDW?Q)^QqV#$_jrw|%P)c#JusX-k#c#x!<u?*V#2PI;
zZ!w588nFj<jWx#yV+X^br1em^Zy=oF^#*GqHZ&LtC#<B*<4~u5D~C)XYZg%GKyUQT
zZ~`S`@ETf&JAf#US8~hm69_{0+I1*C7(Nn-4JG9AAdKd?CR=>4NfZ!ku#nzxFSfM2
zvWnGF1?j!WVmDJ*D*0VOVXia`JX3m8L1p(XdAyVi%l!%%vMbh>fa`neU0`_S9Pq))
z_kpJ??g3NEH1J;~v7f3WF%7FQ@an2FKws5+z<X81JEEEgD%Dqj*VV+{sUeYnXvnOo
z)hB@E)w4icJq27{Lsq$51KzB(CQfSkd~JXX%WG@M&`_r&gJE4G8TO*(FyI60Z?B-V
zUc?|9V=}PVy^h7>^ab#2sJ{h#RR0SE-)Z1UaOK9&fZuF{^0J+cXNl>)_Bbd>or5S}
zY)XM*c%=lCta<Y}GTdr<K>G0m69d}VbHKZ7J8%mJGx24vTc#1)`38_8d<XCv-vs=V
z{}>X~MQRl|YfypVE2A3UF|Z(27%$7Z4FVLV!%IL(Y`qRNHp4pE3(a+;o*UaP0uNh%
z0`6$p4$QRpfr~ANA*g-(BNB9tuTd9leH+6Fg8Zp-D>J@lE7xL0w@OXg#X`GSmO;73
zv5bh%`(}#L7>&6dWA!_VJSINpd1Tk(T|MQ+UPI1%*H3E-3X_d)rwf&avZK<kC3s@z
zwB0DcDV7{gw`7+(oUIa^J+nbX_DCW=(3^6A5t$7FayjyekXb153M}5|)R=h=L2ef^
zb9`Q4g}lHRa)L=TqOKj1Tk<<w^>E<qUSu+3wokR*WHRSNjN-G9)}1zgKnfz0k-_QL
zs@B5xg8L_+cYA_*zs+s8wYExu03;DOT-m11N^OHnH&a@~35d3b6Uj)lHyMdV;Xdgq
zyqn+yv8G&y;M3uU9`%z=vc(5tev{PVqq6q4?-Q_D{d<7<cEgm4GSky0b1?nG9(!r_
z^^U4#x&45to{F;PcEQ!X1*zw{iK6MwWp+R`(R11BK!OhkwwIR5MM7?Gc|Pr8zp@~$
ze57()x)zs3l(?dstpCA5a^hjr;KlyRWzX*vFlq7&EcR1R7l7gq#_GxBQ$v@4+m7r9
zestswVA)Y3M~{;G>PK1LI@|~H!Z2yc!(kC<OdSB8OYKuobH_;F{$pg)cgMhh^&`81
z(<3*4ZKEOJrO{rXa;yiK9#!G#F)v8&ku~_QF&9Y9<0NWf{AJ*m<2AsaWlQ%&BR(`y
zoqtGEUd%#jIiFVJ+Y{v8(56ZGS0<|PLfQk;-?E;bRN=^^8}zG_PyEaj@lQ-W(I3eA
z&gs5t$_szMpyb!-bV%#l?FmXqH0pE|{(72RNA)L26J}44*ZfUp`$>}I)05$P_$73D
z91hsnFqzU8{!l^ndu_fJd~v1*$3`1r#>mVr;LRB_dm*z4cVq;R9%owcw;AFu&(N~n
zI!nH5e`X!lWYl2MzDjZzoPMGfo&utqi~QX40r;QU{ThlDMIHg*7buD%lnlq5`VX&v
Be^dYf

diff --git a/sources/LLDISPLAY b/sources/LLDISPLAY
index e98f93be..bc675f37 100644
--- a/sources/LLDISPLAY
+++ b/sources/LLDISPLAY
@@ -1,36 +1,36 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED "18-Apr-94 00:20:42" {DSK}<users>nilsson>mnw>LLDISPLAY.;7
 267646 
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
+
(FILECREATED " 1-Aug-2021 23:41:37" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;5
 268898 
 
-      changes to%:  (FNS \BACKCOLOR.DISPLAY DSPTEXTURE \DSPRESET.DISPLAY \MEDW.XOFFSET \MEDW.YOFFSET
-                         DSPXOFFSET DSPYOFFSET)
-                    (VARS LLDISPLAYCOMS)
+      changes to%:  (FNS DSPCREATE)
 
-      previous date%: "25-Feb-94 17:56:47" {DSK}<users>nilsson>mnw>LLDISPLAY.;6)
+      previous date%: " 1-Aug-2021 23:37:06" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;4)
 
 
 (* ; "
-Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993, 1994 by Venue & Xerox Corporation.  All rights reserved.
+Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation.
 ")
 
 (PRETTYCOMPRINT LLDISPLAYCOMS)
 
-(RPAQQ LLDISPLAYCOMS
 
+(RPAQQ LLDISPLAYCOMS

        [(DECLARE%: DONTCOPY (EXPORT (RECORDS PILOTBBT \DISPLAYDATA DISPLAYSTATE DISPLAYINFO)
                                    (MACROS \GETDISPLAYDATA)))
-                                                             (* ; 
-
                                    "User-visible records are on ADISPLAY --- must be init'ed here")

+                                                             (* ; 
+
                                    "User-visible records are on ADISPLAY --- must be init'ed here")

         (INITRECORDS BITMAP PILOTBBT REGION \DISPLAYDATA)
-        [COMS                                                (* ; "BITMASKS")

+        [COMS                                                (* ; "BITMASKS")

               (FNS \FBITMAPBIT \FBITMAPBIT.UFN \NEWPAGE.DISPLAY INITBITMASKS)
               (OPTIMIZERS \FBITMAPBIT)
               [EXPORT (DECLARE%: DONTCOPY (MACROS \BITMASK \4BITMASK \NOTBITMASK \NOT4BITMASK)
                              (GLOBALVARS BITMASKARRAY NOTBITMASKARRAY 4BITMASKARRAY NOT4BITMASKARRAY)
                              (CONSTANTS (WORDMASK 65535]
               (DECLARE%: DONTEVAL@LOAD DOCOPY (P (INITBITMASKS]
-        [COMS                                                (* ; "init cursor")

+        [COMS                                                (* ; "init cursor")

               (FNS \CreateCursorBitMap)
               (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (CursorBitMap (\CreateCursorBitMap]
-        [COMS                                                (* ; "bitmap functions.")

+        [COMS                                                (* ; "bitmap functions.")

               (FNS BITBLT BLTSHADE \BITBLTSUB \GETPILOTBBTSCRATCHBM BITMAPCOPY BITMAPCREATE BITMAPBIT
                    BLTCHAR \BLTCHAR \MEDW.BLTCHAR \CHANGECHARSET.DISPLAY \INDICATESTRING \SLOWBLTCHAR
                    TEXTUREP INVERT.TEXTURE INVERT.TEXTURE.BITMAP BITMAPWIDTH READBITMAP 
@@ -45,15 +45,15 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
               (FNS BITMAPBIT.EXPANDER)
               (FNS \BITBLT.DISPLAY \BITBLT.BITMAP \BITBLT.MERGE \BLTSHADE.DISPLAY \BLTSHADE.BITMAP)
               (FNS 
-                   (* ;; "For SunLoadup")

+                   (* ;; "For SunLoadup")

 
                    \BITBLT.BITMAP.SLOW)
               (FNS 
-                   (* ;; " punt case for C funcs.bitblt_bitmap,bitshade.bitmap")

+                   (* ;; " punt case for C funcs.bitblt_bitmap,bitshade.bitmap")

 
                    \PUNT.BLTSHADE.BITMAP \PUNT.BITBLT.BITMAP)
               (FNS 
-                   (* ;; "from SUMEX-AIM")

+                   (* ;; "from SUMEX-AIM")

 
                    \SCALEDBITBLT.DISPLAY \BACKCOLOR.DISPLAY)
               (DECLARE%: DONTCOPY (CONSTANTS (\DisplayWordAlign 16)
@@ -66,11 +66,11 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
               (VARS (\BBSCRATCHTEXTURE)
                     (\PILOTBBTSCRATCHBM))
               [DECLARE%: DONTEVAL@LOAD DOCOPY (P (MOVD? 'BITBLT 'BKBITBLT]
-                                                             (* ; 
-
                                        "macro for this file so that BITBLT can be broken by users")

+                                                             (* ; 
+
                                        "macro for this file so that BITBLT can be broken by users")

               (EXPORT (DECLARE%: DONTCOPY DONTEVAL@LOAD DOEVAL@COMPILE
                              (P (PUTPROP 'BITBLT 'MACRO '(= . BKBITBLT]
-        (COMS                                                (* ; "display stream functions")

+        (COMS                                                (* ; "display stream functions")

               (FNS DISPLAYSTREAMP DSPSOURCETYPE DSPXOFFSET DSPYOFFSET)
               (FNS DSPCREATE DSPDESTINATION DSPTEXTURE \DISPLAYSTREAMINCRXPOSITION \SFFixDestination
                    \SFFixClippingRegion \SFFixFont \SFFIXLINELENGTH 
@@ -86,14 +86,14 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
               (INITVARS (PROMPTWINDOW T)
                      (\WINDOWWORLD NIL)
                      (\MAINSCREEN NIL)))
-        [COMS                                                (* ; "Stub for window package")

+        [COMS                                                (* ; "Stub for window package")

               (INITVARS (\TOPWDS)
                      (\SCREENBITMAPS))
               (P (MOVD? 'NILL '\TOTOPWDS))
               (DECLARE%: DONTCOPY EVAL@COMPILE (EXPORT (MACROS \INSURETOPWDS .WHILE.TOP.DS. 
                                                               .WHILE.CURSOR.DOWN.)
                                                       (ADDVARS (GLOBALVARS \TOPWDS]
-        (COMS                                                (* ; "DisplayStream TTY functions")

+        (COMS                                                (* ; "DisplayStream TTY functions")

               (FNS TTYDISPLAYSTREAM)
               (EXPORT (OPTIMIZERS TTYDISPLAYSTREAM))
               (FNS DSPSCROLL PAGEHEIGHT)
@@ -114,13 +114,13 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
               (EXPORT (GLOBALVARS BELLCNT BELLRATE TTYBACKGROUNDFNS \DisplayStoppedForLogout 
                              \CARET.UP)
                      (MACROS \CHECKCARET)))
-        [COMS                                                (* ; 
-
                                                           "transformation related functions.")

+        [COMS                                                (* ; 
+
                                                           "transformation related functions.")

               (FNS \DSPCLIPTRANSFORMX \DSPCLIPTRANSFORMY \DSPTRANSFORMREGION \DSPUNTRANSFORMY 
                    \DSPUNTRANSFORMX \OFFSETCLIPPINGREGION)
               (DECLARE%: DONTCOPY (EXPORT (MACROS \DSPTRANSFORMX \DSPTRANSFORMY \OFFSETBOTTOM 
                                                  \OFFSETLEFT]
-        [COMS                                                (* ; "screen related functions")

+        [COMS                                                (* ; "screen related functions")

               (FNS UPDATESCREENDIMENSIONS \CreateScreenBitMap)
               (DECLARE%: DONTEVAL@LOAD DOCOPY (P (UPDATESCREENDIMENSIONS))
                      (INITVARS (SCREENHEIGHT 808)
@@ -132,7 +132,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
                             (ColorScreenBitMap NIL)))
               (GLOBALVARS \OLDSCREENHEIGHT \OLDSCREENWIDTH \MaxScreenPage ScreenBitMap)
               (DECLARE%: DONTEVAL@LOAD DOCOPY (P (CURSOR.INIT]
-        [COMS                                                (* ; "initialization")

+        [COMS                                                (* ; "initialization")

               (INITVARS (\DISPLAYINFOALIST))
               (FNS \CoerceToDisplayDevice \CREATEDISPLAY DISPLAYSTREAMINIT \STARTDISPLAY 
                    \MOVE.WINDOWS.ONTO.SCREEN \UPDATE.PBT.RASTERWIDTHS \STOPDISPLAY \DEFINEDISPLAYINFO
@@ -301,19 +301,19 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
        '68)
 (DECLARE%: EVAL@COMPILE 
 
-[PUTPROPS \GETDISPLAYDATA MACRO (ARGS (COND
-                                         [(CADR ARGS)
-                                          (SUBPAIR '(STRM STRMVAR)
-                                                 ARGS
-                                                 '(\DTEST (fetch
 (STREAM IMAGEDATA)
-                                                             of
 (SETQ STRMVAR (\OUTSTREAMARG
-                                                                                   STRM)))
-                                                         '\DISPLAYDATA]
-                                         (T (SUBST (CAR ARGS)
-                                                   'STRM
-                                                   '(\DTEST (fetch
 (STREAM IMAGEDATA)
-                                                               of
 (\OUTSTREAMARG STRM))
-                                                           '\DISPLAYDATA]
+(PUTPROPS \GETDISPLAYDATA
 MACRO
 [ARGS (COND
+                                                 [(CADR ARGS)
+                                                  (SUBPAIR '(STRM STRMVAR)
+                                                         ARGS
+                                                         '(\DTEST (fetch
 (STREAM IMAGEDATA)
+                                                                     of
 (SETQ STRMVAR
+                                                                             (\OUTSTREAMARG STRM)))
+                                                                 '\DISPLAYDATA]
+                                                 (T (SUBST (CAR ARGS)
+                                                           'STRM
+                                                           '(\DTEST (fetch
 (STREAM IMAGEDATA)
+                                                                       of
 (\OUTSTREAMARG STRM))
+                                                                   '\DISPLAYDATA])
 )
 
 (* "END EXPORTED DEFINITIONS")
@@ -490,18 +490,18 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: DONTCOPY 
 (DECLARE%: EVAL@COMPILE 
 
-[PUTPROPS \BITMASK MACRO ((N)
-                          (\WORDELT BITMASKARRAY (LOGAND N 15]
+(PUTPROPS \BITMASK
 MACRO
 ((N)
+                                  (\WORDELT BITMASKARRAY (LOGAND N 15))))
 
-[PUTPROPS \4BITMASK MACRO ((N)
-                           (\WORDELT 4BITMASKARRAY (LOGAND N 3]
+(PUTPROPS \4BITMASK
 MACRO
 ((N)
+                                   (\WORDELT 4BITMASKARRAY (LOGAND N 3))))
 
-[PUTPROPS \NOTBITMASK MACRO ((N)
-                             (DECLARE
 (GLOBALVARS NOTBITMASKARRAY))
-                             (\WORDELT NOTBITMASKARRAY (LOGAND N 15]
+(PUTPROPS \NOTBITMASK
 MACRO
 ((N)
+                                     (DECLARE
 (GLOBALVARS NOTBITMASKARRAY))
+                                     (\WORDELT NOTBITMASKARRAY (LOGAND N 15))))
 
-[PUTPROPS \NOT4BITMASK MACRO ((N)
-                              (\WORDELT NOT4BITMASKARRAY (LOGAND N 3]
+(PUTPROPS \NOT4BITMASK
 MACRO
 ((N)
+                                      (\WORDELT NOT4BITMASKARRAY (LOGAND N 3))))
 )
 
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
@@ -1482,14 +1482,14 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
 
 (CL:DEFUN FINISH-READING-BITMAP
 (STREAM)
 
-(* ;;; "The syntax for bitmaps is")

+(* ;;; "The syntax for bitmaps is")

 
-   (* ;; "#*(width height [bits-per-pixel])XXXXXX...")

+   (* ;; "#*(width height [bits-per-pixel])XXXXXX...")

 
-(* ;;; "where WIDTH and HEIGHT are the dimensions of the bitmap, BITS-PER-PIXEL can be omitted if it is equal to one, and the X's are single characters between @ and O (in ASCII), each representing four bits.  There will be exactly (* (ceiling (* WIDTH BITS-PER-PIXEL) 16) 4) characters for each row of the bitmap and exactly HEIGHT rows.  Note that there are no spaces allowed between the * and the (, between the ) and the first X, or anywhere inside the string of X's.  Also, the character after the last X must not be of type OTHER.")

+(* ;;; "where WIDTH and HEIGHT are the dimensions of the bitmap, BITS-PER-PIXEL can be omitted if it is equal to one, and the X's are single characters between @ and O (in ASCII), each representing four bits.  There will be exactly (* (ceiling (* WIDTH BITS-PER-PIXEL) 16) 4) characters for each row of the bitmap and exactly HEIGHT rows.  Note that there are no spaces allowed between the * and the (, between the ) and the first X, or anywhere inside the string of X's.  Also, the character after the last X must not be of type OTHER.")

 
-(* ;;; 
-
"When we enter this function, called from HASH-STAR, the stream should be pointing at the (.")

+(* ;;; 
+
"When we enter this function, called from HASH-STAR, the stream should be pointing at the (.")

 
    (LET
     ((DIMENSIONS (READ STREAM)))
@@ -1499,7 +1499,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
     (DESTRUCTURING-BIND
      (WIDTH HEIGHT &OPTIONAL (BITS-PER-PIXEL 1)
             &REST EXTRAS)
-     DIMENSIONS                                              (* ; "Parsing the dimensions.")

+     DIMENSIONS                                              (* ; "Parsing the dimensions.")

      (IF
 (OR (NOT (FIXP WIDTH))
                  (NOT (FIXP HEIGHT))
                  (NOT (FIXP BITS-PER-PIXEL))
@@ -1518,7 +1518,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
               (LET [(STREAM (\GETSTREAM STREAM 'INPUT]
                    (CL:DOTIMES (ROW HEIGHT)
                        [IF
 (ZEROP (FETCH
 (STREAM CHARSET) OF
 STREAM))
-                           THEN
                          (* ; "Do it the quicker way")

+                           THEN
                          (* ; "Do it the quicker way")

                                  (CL:DOTIMES (QUAD QUAD-CHARS-PER-ROW)
                                      (LET [(NIB00 (- (\BIN STREAM)
                                                      (CHARCODE @)))
@@ -1540,7 +1540,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
                                           (\PUTBASEBYTE BASE 1 (LOGOR (LLSH NIB10 4)
                                                                       NIB11)))
                                      (SETQ BASE (\ADDBASE BASE 1)))
-                         ELSE
                            (* ; "Somewhat slower...")

+                         ELSE
                            (* ; "Somewhat slower...")

                                (CL:DOTIMES (QUAD QUAD-CHARS-PER-ROW)
                                    (LET [(NIB00 (- (READCCODE STREAM)
                                                    (CHARCODE @)))
@@ -1578,16 +1578,16 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
 (DECLARE%: DONTCOPY 
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE 
 
-(PUTPROPS \INVALIDATEDISPLAYCACHE MACRO ((DISPLAYDATA)
+(PUTPROPS \INVALIDATEDISPLAYCACHE
 MACRO
 ((DISPLAYDATA)
 
-         (* This marks the character-printing caches of the displaystream as invalid.
-
       Needed when the font or Y position changes)

+         (* This marks the character-printing caches of the displaystream as invalid.
+
       Needed when the font or Y position changes)

 
-                                         (freplace
 (\DISPLAYDATA DDCHARSET) of
 DISPLAYDATA
-                                            with
 MAX.SMALLP)
-                                         (freplace
 (\DISPLAYDATA DDCHARSETASCENT) of
 
+                                                 (freplace
 (\DISPLAYDATA DDCHARSET) of
 
                                                                                           DISPLAYDATA
-                                            with
 MAX.SMALLP)))
+                                                    with
 MAX.SMALLP)
+                                                 (freplace
 (\DISPLAYDATA DDCHARSETASCENT)
+                                                    of
 DISPLAYDATA with
 MAX.SMALLP)))
 )
 
 (* "END EXPORTED DEFINITIONS")
@@ -1599,8 +1599,8 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
 
 (DEFOPTIMIZER BITMAPP
 (Y)
                           `((OPENLAMBDA (X)
-                                   (AND (type?
 BITMAP X)
-                                        X))
+                              (AND (type?
 BITMAP X)
+                                   X))
                             ,Y))
 (DEFINEQ
 
@@ -2759,59 +2759,62 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
 
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE 
 
-(PUTPROPS \DSPGETCHARWIDTH MACRO ((CHARCODE DD)
-                                  (\FGETWIDTH (ffetch
 (\DISPLAYDATA DDWIDTHSCACHE) of
 DD)
-                                         CHARCODE)))
+(PUTPROPS \DSPGETCHARWIDTH
 MACRO
 ((CHARCODE DD)
+                                          (\FGETWIDTH (ffetch
 (\DISPLAYDATA DDWIDTHSCACHE)
+                                                         of
 DD)
+                                                 CHARCODE)))
 
-(PUTPROPS \DSPGETCHARIMAGEWIDTH MACRO ((CHARCODE DD)
-                                       (\FGETIMAGEWIDTH (ffetch
 (\DISPLAYDATA DDCHARIMAGEWIDTHS)
-                                                           of
 DD)
-                                              CHARCODE)))
+(PUTPROPS \DSPGETCHARIMAGEWIDTH
 MACRO
 ((CHARCODE DD)
+                                               (\FGETIMAGEWIDTH (ffetch
 (\DISPLAYDATA 
+                                                                                   DDCHARIMAGEWIDTHS)
+                                                                   of
 DD)
+                                                      CHARCODE)))
 
-(PUTPROPS \DSPGETCHAROFFSET MACRO ((CHARCODE DD)
-                                   (\GETBASE (ffetch
 (\DISPLAYDATA DDOFFSETSCACHE) of
 DD)
-                                          CHARCODE)))
+(PUTPROPS \DSPGETCHAROFFSET
 MACRO
 ((CHARCODE DD)
+                                           (\GETBASE (ffetch
 (\DISPLAYDATA DDOFFSETSCACHE)
+                                                        of
 DD)
+                                                  CHARCODE)))
 
-(PUTPROPS \CONVERTOP MACRO ((OP)
                         (* rrb "14-NOV-80 11:14")

-                                                             (* Only for alto bitblt !!)

-                            (SELECTQ OP
-                                (replace 0 of NIL with NIL)
-                                (PAINT 1)
-                                (INVERT 2)
-                                (ERASE 3)
-                                0)))
+(PUTPROPS \CONVERTOP
 MACRO
 ((OP)
                 (* rrb "14-NOV-80 11:14")

+                                                             (* Only for alto bitblt !!)

+                                    (SELECTQ OP
+                                        (replace 0 of NIL with NIL)
+                                        (PAINT 1)
+                                        (INVERT 2)
+                                        (ERASE 3)
+                                        0)))
 
-(PUTPROPS \SFInvert MACRO ((BitMap y)
+(PUTPROPS \SFInvert
 MACRO
 ((BitMap y)
 
-         (* corrects for the fact that alto bitmaps are stored with 0,0 as upper left 
-
       while lisp bitmaps have 0,0 as lower left.
-
       The correction is actually off by one (greater) because a majority of the 
-
       places that it is called actually need one more than corrected Y value.)

+         (* corrects for the fact that alto bitmaps are stored with 0,0 as upper left 
+
       while lisp bitmaps have 0,0 as lower left.
+
       The correction is actually off by one (greater) because a majority of the 
+
       places that it is called actually need one more than corrected Y value.)

 
-                           (IDIFFERENCE (fetch
 (BITMAP BITMAPHEIGHT) of
 BitMap)
-                                  y)))
+                                   (IDIFFERENCE (fetch
 (BITMAP BITMAPHEIGHT) of
 BitMap)
+                                          y)))
 
-[PUTPROPS \SFReplicate MACRO (LAMBDA (pattern)
-                               (LOGOR pattern (LLSH pattern 8)
-                                      (SETQ pattern (LLSH pattern 4))
-                                      (LLSH pattern 8]
+(PUTPROPS \SFReplicate
 MACRO
 [LAMBDA (pattern)
+                                       (LOGOR pattern (LLSH pattern 8)
+                                              (SETQ pattern (LLSH pattern 4))
+                                              (LLSH pattern 8])
 
-[PUTPROPS \SETPBTFUNCTION MACRO (OPENLAMBDA (BBT SourceType Operation)
-                                       (PROGN (replace
 (PILOTBBT PBTOPERATION) of
 BBT
-                                                 with
 (SELECTQ Operation
-                                                              (ERASE 1)
-                                                              (PAINT 2)
-                                                              (INVERT 3)
-                                                              0))
-                                              (replace
 (PILOTBBT PBTSOURCETYPE) of
 BBT
-                                                 with
 (COND
-                                                             ((EQ (EQ SourceType 'INVERT)
-                                                                  (EQ Operation 'ERASE))
-                                                              0)
-                                                             (T 1]
+(PUTPROPS \SETPBTFUNCTION
 MACRO
 [OPENLAMBDA (BBT SourceType Operation)
+                                          (PROGN (replace
 (PILOTBBT PBTOPERATION) of
 BBT
+                                                    with
 (SELECTQ Operation
+                                                                 (ERASE 1)
+                                                                 (PAINT 2)
+                                                                 (INVERT 3)
+                                                                 0))
+                                                 (replace
 (PILOTBBT PBTSOURCETYPE) of
 BBT
+                                                    with
 (COND
+                                                                ((EQ (EQ SourceType 'INVERT)
+                                                                     (EQ Operation 'ERASE))
+                                                                 0)
+                                                                (T 1])
 
-(PUTPROPS \BITBLT1 MACRO ((bbt)
-                          (BitBltSUBR bbt)))
+(PUTPROPS \BITBLT1
 MACRO
 ((bbt)
+                                  (BitBltSUBR bbt)))
 )
 
 (* "END EXPORTED DEFINITIONS")
@@ -2897,9 +2900,9 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
 (DEFINEQ
 
 (DSPCREATE

-  [LAMBDA (DESTINATION)
                                  (* ; "Edited 16-Nov-87 17:32 by jop")

+  [LAMBDA (DESTINATION)
                                 (* ; "Edited  1-Aug-2021 23:41 by rmk:")

 
-    (* ;; "Creates a stream-of-type-display on the DESTINATION bitmap or display device")

+    (* ;; "Creates a stream-of-type-display on the DESTINATION bitmap or display device")

 
     (LET (DSTRM)
          [COND
@@ -2909,24 +2912,25 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
          (SETQ DSTRM (create
 STREAM
                             USERCLOSEABLE _ NIL
                             OUTCHARFN _ (FUNCTION \DSPPRINTCHAR)
+                            EOLCONVENTION _ CR.EOLC
                             IMAGEDATA _ (create
 \DISPLAYDATA)
                             IMAGEOPS _ \DISPLAYIMAGEOPS
                             DEVICE _ DisplayFDEV
-                            ACCESS _ 'OUTPUT))               (* ; 
-
                                        "initial x and y positions are 0 when the data is created.")

-         (DSPFONT DEFAULTFONT DSTRM)                         (* ; 
-
                    "dspfont can win since the (default) display imageops are filled in the stream")

-         (DSPDESTINATION
 DESTINATION DSTRM)              (* ; 
-
                         "dspdestination calls \SFFixFont, which presumes there is a font present.")

+                            ACCESS _ 'OUTPUT))               (* ; 
+
                                        "initial x and y positions are 0 when the data is created.")

+         (DSPFONT DEFAULTFONT DSTRM)                         (* ; 
+
                    "dspfont can win since the (default) display imageops are filled in the stream")

+         (DSPDESTINATION
 DESTINATION DSTRM)              (* ; 
+
                         "dspdestination calls \SFFixFont, which presumes there is a font present.")

          (DSPFONT DEFAULTFONT DSTRM)
 
-         (* ;; "the reference to SCREENWIDTH here is for historic reasons: until 3-feb-86 the default right margin was always SCREENWIDTH.  It should be the width of the destination and for any destination larger than the screen this is a serious bug and was fixed.  The MAX of the right value and SCREENWIDTH was left in because existing code might be assumine a large right margin for small bitmaps and auto-CR in without it.  rrb")

+         (* ;; "the reference to SCREENWIDTH here is for historic reasons: until 3-feb-86 the default right margin was always SCREENWIDTH.  It should be the width of the destination and for any destination larger than the screen this is a serious bug and was fixed.  The MAX of the right value and SCREENWIDTH was left in because existing code might be assumine a large right margin for small bitmaps and auto-CR in without it.  rrb")

 
          (DSPRIGHTMARGIN (MAX SCREENWIDTH (fetch
 (BITMAP BITMAPWIDTH) of
 DESTINATION))
                 DSTRM)
          (DSPSOURCETYPE
 'INPUT DSTRM)
-         (DSPOPERATION 'REPLACE DSTRM)                       (* ; 
-
            "called to cause the updating of the bitblt table from the fields initialized earlier.")

+         (DSPOPERATION 'REPLACE DSTRM)                       (* ; 
+
            "called to cause the updating of the bitblt table from the fields initialized earlier.")

          DSTRM])
 
 (DSPDESTINATION

@@ -3347,61 +3351,66 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
 (DECLARE%: DONTCOPY EVAL@COMPILE 
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE 
 
-[PROGN [PUTPROPS \INSURETOPWDS DMACRO (OPENLAMBDA (DS)
-                                             (OR (EQ DS \TOPWDS)
-                                                 (COND
-                                                    ((FMEMB (DSPDESTINATION
 NIL DS)
-                                                            \SCREENBITMAPS)
-                                                     (\TOTOPWDS DS]
-       (PUTPROPS \INSURETOPWDS MACRO ((DS)                   (* For non-window implementations)

-                                      (PROGN]
+[PROGN (PUTPROPS \INSURETOPWDS
 DMACRO
 [OPENLAMBDA (DS)
+                                                (OR (EQ DS \TOPWDS)
+                                                    (COND
+                                                       ((FMEMB (DSPDESTINATION
 NIL DS)
+                                                               \SCREENBITMAPS)
+                                                        (\TOTOPWDS DS])
+       (PUTPROPS \INSURETOPWDS
 MACRO
 ((DS)           (* For non-window implementations)

+                                              (PROGN)))]
 
-[PUTPROPS .WHILE.TOP.DS. MACRO ((FIRST
 . REST)
-                                (PROG (DISPINTERRUPT SOFTCURSORUP)
+(PUTPROPS .WHILE.TOP.DS.
 MACRO
 [(FIRST
 . REST)
+                                        (PROG (DISPINTERRUPT SOFTCURSORUP)
 
-         (* FIRST should be a displaystream and a variable.
-
       This macro may also take a soft cursor down, similar to the way 
-
       .WHILE.CURSOR.DOWN. does, but only if FIRST's destination is the same as the 
-
       soft cursor's destination. *)

+         (* FIRST should be a displaystream and a variable.
+
       This macro may also take a soft cursor down, similar to the way 
+
       .WHILE.CURSOR.DOWN. does, but only if FIRST's destination is the same as the 
+
       soft cursor's destination. *)

 
-                                      [COND
-                                         (\SOFTCURSORP (SETQ SOFTCURSORUP
-                                                        (AND \SOFTCURSORUPP (EQ (DSPDESTINATION

-                                                                                 NIL FIRST)
-                                                                                \CURSORDESTINATION)))
-                                                (COND
-                                                   (SOFTCURSORUP (SETQ DISPINTERRUPT (\GETBASE 
+                                              [COND
+                                                 (\SOFTCURSORP (SETQ SOFTCURSORUP
+                                                                (AND \SOFTCURSORUPP
+                                                                     (EQ (DSPDESTINATION
 NIL 
+                                                                                FIRST)
+                                                                         \CURSORDESTINATION)))
+                                                        (COND
+                                                           (SOFTCURSORUP (SETQ DISPINTERRUPT
+                                                                          (\GETBASE \EM.DISPINTERRUPT
+                                                                                 0))
+                                                                  (\PUTBASE \EM.DISPINTERRUPT 0 0)
+                                                                  (\SOFTCURSORDOWN]
+                                              (\INSURETOPWDS FIRST)
+                                              (PROGN . REST)
+                                              (COND
+                                                 (SOFTCURSORUP (\SOFTCURSORUPCURRENT)
+                                                        (\PUTBASE \EM.DISPINTERRUPT 0 DISPINTERRUPT])
+
+(PUTPROPS .WHILE.CURSOR.DOWN.
 MACRO
 [(FIRST
 . REST)
+                                             (PROG (DISPINTERRUPT SOFTCURSORUP)
+
+         (* This macro should wrap around any code that draws or bitblts directly from 
+
       or to a screen bitmap. E.g. DRAWGRAYBOX in HLDISPLAY which puts up a shadow box 
+
       during GETREGION. The purpose of this macro is that a soft
+
       (e.g. color) cursor's bits not be taken to be screen bits while FIRST & REST 
+
       are done. *)

+
+                                                   [COND
+                                                      (\SOFTCURSORP (SETQ SOFTCURSORUP \SOFTCURSORUPP
+                                                                     )
+                                                             (COND
+                                                                (SOFTCURSORUP (SETQ DISPINTERRUPT
+                                                                               (\GETBASE 
                                                                                     \EM.DISPINTERRUPT
-                                                                                            0))
-                                                          (\PUTBASE \EM.DISPINTERRUPT 0 0)
-                                                          (\SOFTCURSORDOWN]
-                                      (\INSURETOPWDS FIRST)
-                                      (PROGN . REST)
-                                      (COND
-                                         (SOFTCURSORUP (\SOFTCURSORUPCURRENT)
-                                                (\PUTBASE \EM.DISPINTERRUPT 0 DISPINTERRUPT]
-
-[PUTPROPS .WHILE.CURSOR.DOWN. MACRO ((FIRST
 . REST)
-                                     (PROG (DISPINTERRUPT SOFTCURSORUP)
-
-         (* This macro should wrap around any code that draws or bitblts directly from 
-
       or to a screen bitmap. E.g. DRAWGRAYBOX in HLDISPLAY which puts up a shadow box 
-
       during GETREGION. The purpose of this macro is that a soft
-
       (e.g. color) cursor's bits not be taken to be screen bits while FIRST & REST 
-
       are done. *)

-
-                                           [COND
-                                              (\SOFTCURSORP (SETQ SOFTCURSORUP \SOFTCURSORUPP)
-                                                     (COND
-                                                        (SOFTCURSORUP (SETQ DISPINTERRUPT
-                                                                       (\GETBASE \EM.DISPINTERRUPT 0)
-                                                                       )
-                                                               (\PUTBASE \EM.DISPINTERRUPT 0 0)
-                                                               (\SOFTCURSORDOWN]
-                                           (PROGN FIRST . REST)
-                                           (COND
-                                              (SOFTCURSORUP (\SOFTCURSORUPCURRENT)
-                                                     (\PUTBASE \EM.DISPINTERRUPT 0 DISPINTERRUPT]
+                                                                                      0))
+                                                                       (\PUTBASE \EM.DISPINTERRUPT 0
+                                                                              0)
+                                                                       (\SOFTCURSORDOWN]
+                                                   (PROGN FIRST . REST)
+                                                   (COND
+                                                      (SOFTCURSORUP (\SOFTCURSORUPCURRENT)
+                                                             (\PUTBASE \EM.DISPINTERRUPT 0 
+                                                                    DISPINTERRUPT])
 )
 
 (ADDTOVAR GLOBALVARS
 \TOPWDS)
@@ -3592,9 +3601,9 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
 (DEFMACRO \MAYBE-DRIBBLE-CHAR
 (DISPLAY-STREAM CHARCODE)
    "if we are dribbling, then dribble this character"
 
-   (* ;; "*DRIBBLE-OUTPUT* is a per-process special.")

+   (* ;; "*DRIBBLE-OUTPUT* is a per-process special.")

 
-   (* ;; "Only dribble if *DRIBBLE-OUTPUT* is not NIL, and IS a stream; the NIL check is for speed, since the STREAMP is something like 30 of the time spent printing to the exec window!!")

+   (* ;; "Only dribble if *DRIBBLE-OUTPUT* is not NIL, and IS a stream; the NIL check is for speed, since the STREAMP is something like 30 of the time spent printing to the exec window!!")

 
    `(AND *DRIBBLE-OUTPUT* (STREAMP *DRIBBLE-OUTPUT*)
          (EQ ,DISPLAY-STREAM (TTYDISPLAYSTREAM
))
@@ -4019,8 +4028,8 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
 )
 (DECLARE%: EVAL@COMPILE 
 
-[PUTPROPS \CHECKCARET MACRO ((X)
-                             (AND \CARET.UP (\CARET.DOWN X]
+(PUTPROPS \CHECKCARET
 MACRO
 ((X)
+                                     (AND \CARET.UP (\CARET.DOWN X))))
 )
 
 (* "END EXPORTED DEFINITIONS")
@@ -4120,21 +4129,21 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
 (DECLARE%: DONTCOPY 
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE 
 
-[PUTPROPS \DSPTRANSFORMX MACRO ((X DD)                       (* transforms an x coordinate into 
-
                                                           the destination coordinate.)

-                                (IPLUS X (fetch
 (\DISPLAYDATA DDXOFFSET) of
 DD]
+(PUTPROPS \DSPTRANSFORMX
 MACRO
 ((X DD)               (* transforms an x coordinate into 
+
                                                           the destination coordinate.)

+                                        (IPLUS X (fetch
 (\DISPLAYDATA DDXOFFSET) of
 DD))))
 
-[PUTPROPS \DSPTRANSFORMY MACRO ((Y DD)                       (* transforms an y coordinate into 
-
                                                           the destination coordinate.)

-                                (IPLUS Y (fetch
 (\DISPLAYDATA DDYOFFSET) of
 DD]
+(PUTPROPS \DSPTRANSFORMY
 MACRO
 ((Y DD)               (* transforms an y coordinate into 
+
                                                           the destination coordinate.)

+                                        (IPLUS Y (fetch
 (\DISPLAYDATA DDYOFFSET) of
 DD))))
 
-(PUTPROPS \OFFSETBOTTOM MACRO ((X)                           (* gives the destination coordinate 
-
                                                           address of the origin.)

-                               (fetch
 (\DISPLAYDATA DDYOFFSET) of
 X)))
+(PUTPROPS \OFFSETBOTTOM
 MACRO
 ((X)                   (* gives the destination coordinate 
+
                                                           address of the origin.)

+                                       (fetch
 (\DISPLAYDATA DDYOFFSET) of
 X)))
 
-(PUTPROPS \OFFSETLEFT MACRO ((DD)                            (* returns the x origin of display 
-
                                                           data destination coordinates.)

-                             (fetch
 (\DISPLAYDATA DDXOFFSET) of
 DD)))
+(PUTPROPS \OFFSETLEFT
 MACRO
 ((DD)                    (* returns the x origin of display 
+
                                                           data destination coordinates.)

+                                     (fetch
 (\DISPLAYDATA DDXOFFSET) of
 DD)))
 )
 
 (* "END EXPORTED DEFINITIONS")
@@ -4467,10 +4476,10 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
 )
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE 
 
-(PUTPROPS DISPLAYINITIALIZEDP MACRO (NIL                     (* always initialized now)

-                                         T))
+(PUTPROPS DISPLAYINITIALIZEDP
 MACRO
 (NIL             (* always initialized now)

+                                                 T))
 
-(PUTPROPS DISPLAYSTARTEDP MACRO (NIL \DisplayStarted))
+(PUTPROPS DISPLAYSTARTEDP
 MACRO
 (NIL \DisplayStarted))
 )
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
 
@@ -4507,7 +4516,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
 (DISPLAYSTREAMINIT
 1000)
 )
 
-(PUTPROPS LLDISPLAY FILETYPE
 COMPILE-FILE)
+(PUTPROPS LLDISPLAY
 FILETYPE
 COMPILE-FILE)
 (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 
 
 (ADDTOVAR NLAMA
 )
@@ -4517,44 +4526,44 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
 (ADDTOVAR LAMA
 )
 )
 (PUTPROPS LLDISPLAY COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 
-1989 1990 1993 1994))
+1989 1990 1993 1994 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (20593 23261 (\FBITMAPBIT 20603 . 21063) (\FBITMAPBIT.UFN 21065 . 22084) (
-\NEWPAGE.DISPLAY 22086 . 22221) (INITBITMASKS 22223 . 23259)) (25222 25731 (\CreateCursorBitMap 25232
- . 25729)) (25848 84908 (BITBLT 25858 . 36248) (BLTSHADE 36250 . 37028) (\BITBLTSUB 37030 . 47165) (
-\GETPILOTBBTSCRATCHBM 47167 . 47782) (BITMAPCOPY 47784 . 48360) (BITMAPCREATE 48362 . 49922) (
-BITMAPBIT 49924 . 58311) (BLTCHAR 58313 . 58929) (\BLTCHAR 58931 . 59433) (\MEDW.BLTCHAR 59435 . 64313
-) (\CHANGECHARSET.DISPLAY 64315 . 67273) (\INDICATESTRING 67275 . 68471) (\SLOWBLTCHAR 68473 . 75569) 
-(TEXTUREP 75571 . 75841) (INVERT.TEXTURE 75843 . 76117) (INVERT.TEXTURE.BITMAP 76119 . 77654) (
-BITMAPWIDTH 77656 . 78028) (READBITMAP 78030 . 80512) (\INSUREBITSPERPIXEL 80514 . 80809) (
-MAXIMUMCOLOR 80811 . 80952) (OPPOSITECOLOR 80954 . 81133) (MAXIMUMSHADE 81135 . 81346) (OPPOSITESHADE 
-81348 . 81527) (\MEDW.BITBLT 81529 . 84906)) (91458 91939 (BITMAPBIT.EXPANDER 91468 . 91937)) (91940 
-140474 (\BITBLT.DISPLAY 91950 . 115189) (\BITBLT.BITMAP 115191 . 124290) (\BITBLT.MERGE 124292 . 
-126545) (\BLTSHADE.DISPLAY 126547 . 133647) (\BLTSHADE.BITMAP 133649 . 140472)) (140475 149795 (
-\BITBLT.BITMAP.SLOW 140485 . 149793)) (149796 166177 (\PUNT.BLTSHADE.BITMAP 149806 . 156902) (
-\PUNT.BITBLT.BITMAP 156904 . 166175)) (166178 169618 (\SCALEDBITBLT.DISPLAY 166188 . 167821) (
-\BACKCOLOR.DISPLAY 167823 . 169616)) (173493 175766 (DISPLAYSTREAMP 173503 . 174111) (DSPSOURCETYPE 
-174113 . 175122) (DSPXOFFSET 175124 . 175443) (DSPYOFFSET 175445 . 175764)) (175767 192014 (DSPCREATE 
-175777 . 177827) (DSPDESTINATION 177829 . 180932) (DSPTEXTURE 180934 . 181096) (
-\DISPLAYSTREAMINCRXPOSITION 181098 . 181385) (\SFFixDestination 181387 . 182565) (\SFFixClippingRegion
- 182567 . 184739) (\SFFixFont 184741 . 185791) (\SFFIXLINELENGTH 185793 . 187289) (
-\UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD 187291 . 189104) (\SFFixY 189106 . 192012)) (192015 194209 (
-\MEDW.XOFFSET 192025 . 193166) (\MEDW.YOFFSET 193168 . 194207)) (194210 202136 (
-\DSPCLIPPINGREGION.DISPLAY 194220 . 194966) (\DSPFONT.DISPLAY 194968 . 197338) (\DISPLAY.PILOTBITBLT 
-197340 . 197489) (\DSPLINEFEED.DISPLAY 197491 . 198062) (\DSPLEFTMARGIN.DISPLAY 198064 . 198795) (
-\DSPOPERATION.DISPLAY 198797 . 199821) (\DSPRIGHTMARGIN.DISPLAY 199823 . 200668) (
-\DSPXPOSITION.DISPLAY 200670 . 201527) (\DSPYPOSITION.DISPLAY 201529 . 202134)) (206297 211333 (
-TTYDISPLAYSTREAM 206307 . 211331)) (211652 212682 (DSPSCROLL 211662 . 212362) (PAGEHEIGHT 212364 . 
-212680)) (212727 215749 (\DSPRESET.DISPLAY 212737 . 215747)) (216309 236947 (\DSPPRINTCHAR 216319 . 
-224157) (\DSPPRINTCR/LF 224159 . 236945)) (236948 237540 (\TTYBACKGROUND 236958 . 237538)) (237541 
-240828 (DSPBACKUP 237551 . 240826)) (241012 241268 (COLORDISPLAYP 241022 . 241266)) (241269 243340 (
-DISPLAYBEFOREEXIT 241279 . 242105) (DISPLAYAFTERENTRY 242107 . 243338)) (243701 248233 (
-\DSPCLIPTRANSFORMX 243711 . 244300) (\DSPCLIPTRANSFORMY 244302 . 245027) (\DSPTRANSFORMREGION 245029
- . 245561) (\DSPUNTRANSFORMY 245563 . 245823) (\DSPUNTRANSFORMX 245825 . 246085) (
-\OFFSETCLIPPINGREGION 246087 . 248231)) (249501 252088 (UPDATESCREENDIMENSIONS 249511 . 250140) (
-\CreateScreenBitMap 250142 . 252086)) (252647 265806 (\CoerceToDisplayDevice 252657 . 253070) (
-\CREATEDISPLAY 253072 . 254912) (DISPLAYSTREAMINIT 254914 . 258058) (\STARTDISPLAY 258060 . 260971) (
-\MOVE.WINDOWS.ONTO.SCREEN 260973 . 263165) (\UPDATE.PBT.RASTERWIDTHS 263167 . 264949) (\STOPDISPLAY 
-264951 . 265443) (\DEFINEDISPLAYINFO 265445 . 265804)) (266398 267159 (INITIALIZEDISPLAYSTREAMS 266408
- . 267157)))))
+  (FILEMAP (NIL (20543 23211 (\FBITMAPBIT 20553 . 21013) (\FBITMAPBIT.UFN 21015 . 22034) (
+\NEWPAGE.DISPLAY 22036 . 22171) (INITBITMASKS 22173 . 23209)) (25256 25765 (\CreateCursorBitMap 25266
+ . 25763)) (25882 84942 (BITBLT 25892 . 36282) (BLTSHADE 36284 . 37062) (\BITBLTSUB 37064 . 47199) (
+\GETPILOTBBTSCRATCHBM 47201 . 47816) (BITMAPCOPY 47818 . 48394) (BITMAPCREATE 48396 . 49956) (
+BITMAPBIT 49958 . 58345) (BLTCHAR 58347 . 58963) (\BLTCHAR 58965 . 59467) (\MEDW.BLTCHAR 59469 . 64347
+) (\CHANGECHARSET.DISPLAY 64349 . 67307) (\INDICATESTRING 67309 . 68505) (\SLOWBLTCHAR 68507 . 75603) 
+(TEXTUREP 75605 . 75875) (INVERT.TEXTURE 75877 . 76151) (INVERT.TEXTURE.BITMAP 76153 . 77688) (
+BITMAPWIDTH 77690 . 78062) (READBITMAP 78064 . 80546) (\INSUREBITSPERPIXEL 80548 . 80843) (
+MAXIMUMCOLOR 80845 . 80986) (OPPOSITECOLOR 80988 . 81167) (MAXIMUMSHADE 81169 . 81380) (OPPOSITESHADE 
+81382 . 81561) (\MEDW.BITBLT 81563 . 84940)) (84944 90259 (FINISH-READING-BITMAP 84944 . 90259)) (
+91522 92003 (BITMAPBIT.EXPANDER 91532 . 92001)) (92004 140538 (\BITBLT.DISPLAY 92014 . 115253) (
+\BITBLT.BITMAP 115255 . 124354) (\BITBLT.MERGE 124356 . 126609) (\BLTSHADE.DISPLAY 126611 . 133711) (
+\BLTSHADE.BITMAP 133713 . 140536)) (140539 149859 (\BITBLT.BITMAP.SLOW 140549 . 149857)) (149860 
+166241 (\PUNT.BLTSHADE.BITMAP 149870 . 156966) (\PUNT.BITBLT.BITMAP 156968 . 166239)) (166242 169682 (
+\SCALEDBITBLT.DISPLAY 166252 . 167885) (\BACKCOLOR.DISPLAY 167887 . 169680)) (174000 176273 (
+DISPLAYSTREAMP 174010 . 174618) (DSPSOURCETYPE 174620 . 175629) (DSPXOFFSET 175631 . 175950) (
+DSPYOFFSET 175952 . 176271)) (176274 192575 (DSPCREATE 176284 . 178388) (DSPDESTINATION 178390 . 
+181493) (DSPTEXTURE 181495 . 181657) (\DISPLAYSTREAMINCRXPOSITION 181659 . 181946) (\SFFixDestination 
+181948 . 183126) (\SFFixClippingRegion 183128 . 185300) (\SFFixFont 185302 . 186352) (\SFFIXLINELENGTH
+ 186354 . 187850) (\UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD 187852 . 189665) (\SFFixY 189667 . 192573))
+ (192576 194770 (\MEDW.XOFFSET 192586 . 193727) (\MEDW.YOFFSET 193729 . 194768)) (194771 202697 (
+\DSPCLIPPINGREGION.DISPLAY 194781 . 195527) (\DSPFONT.DISPLAY 195529 . 197899) (\DISPLAY.PILOTBITBLT 
+197901 . 198050) (\DSPLINEFEED.DISPLAY 198052 . 198623) (\DSPLEFTMARGIN.DISPLAY 198625 . 199356) (
+\DSPOPERATION.DISPLAY 199358 . 200382) (\DSPRIGHTMARGIN.DISPLAY 200384 . 201229) (
+\DSPXPOSITION.DISPLAY 201231 . 202088) (\DSPYPOSITION.DISPLAY 202090 . 202695)) (207467 212503 (
+TTYDISPLAYSTREAM 207477 . 212501)) (212822 213852 (DSPSCROLL 212832 . 213532) (PAGEHEIGHT 213534 . 
+213850)) (213897 216919 (\DSPRESET.DISPLAY 213907 . 216917)) (217479 238117 (\DSPPRINTCHAR 217489 . 
+225327) (\DSPPRINTCR/LF 225329 . 238115)) (238118 238710 (\TTYBACKGROUND 238128 . 238708)) (238711 
+241998 (DSPBACKUP 238721 . 241996)) (242182 242438 (COLORDISPLAYP 242192 . 242436)) (242439 244510 (
+DISPLAYBEFOREEXIT 242449 . 243275) (DISPLAYAFTERENTRY 243277 . 244508)) (244890 249422 (
+\DSPCLIPTRANSFORMX 244900 . 245489) (\DSPCLIPTRANSFORMY 245491 . 246216) (\DSPTRANSFORMREGION 246218
+ . 246750) (\DSPUNTRANSFORMY 246752 . 247012) (\DSPUNTRANSFORMX 247014 . 247274) (
+\OFFSETCLIPPINGREGION 247276 . 249420)) (250728 253315 (UPDATESCREENDIMENSIONS 250738 . 251367) (
+\CreateScreenBitMap 251369 . 253313)) (253874 267033 (\CoerceToDisplayDevice 253884 . 254297) (
+\CREATEDISPLAY 254299 . 256139) (DISPLAYSTREAMINIT 256141 . 259285) (\STARTDISPLAY 259287 . 262198) (
+\MOVE.WINDOWS.ONTO.SCREEN 262200 . 264392) (\UPDATE.PBT.RASTERWIDTHS 264394 . 266176) (\STOPDISPLAY 
+266178 . 266670) (\DEFINEDISPLAYINFO 266672 . 267031)) (267641 268402 (INITIALIZEDISPLAYSTREAMS 267651
+ . 268400)))))
 STOP
diff --git a/sources/LLDISPLAY.LCOM b/sources/LLDISPLAY.LCOM
index 7e706bd8..39580bfb 100644
--- a/sources/LLDISPLAY.LCOM
+++ b/sources/LLDISPLAY.LCOM
@@ -1,7 +1,126 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "14-Jun-2021 23:15:18" ("compiled on " 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;3) "14-Jun-2021 22:45:51" 
"COMPILE-FILEd" in "FULL 14-Jun-2021 ..." dated "14-Jun-2021 22:46:04")
(FILECREATED "18-Apr-94 00:20:42" {DSK}<users>nilsson>mnw>LLDISPLAY.;7 267646 changes to%: (FNS 
\BACKCOLOR.DISPLAY DSPTEXTURE \DSPRESET.DISPLAY \MEDW.XOFFSET \MEDW.YOFFSET DSPXOFFSET DSPYOFFSET) (
VARS LLDISPLAYCOMS) previous date%: "25-Feb-94 17:56:47" {DSK}<users>nilsson>mnw>LLDISPLAY.;6)
(RPAQQ LLDISPLAYCOMS ((DECLARE%: DONTCOPY (EXPORT (RECORDS PILOTBBT \DISPLAYDATA DISPLAYSTATE 
DISPLAYINFO) (MACROS \GETDISPLAYDATA))) (* ; 
"User-visible records are on ADISPLAY --- must be init'ed here") (INITRECORDS BITMAP PILOTBBT REGION 
\DISPLAYDATA) (COMS (* ; "BITMASKS") (FNS \FBITMAPBIT \FBITMAPBIT.UFN \NEWPAGE.DISPLAY INITBITMASKS) (
OPTIMIZERS \FBITMAPBIT) (EXPORT (DECLARE%: DONTCOPY (MACROS \BITMASK \4BITMASK \NOTBITMASK 
\NOT4BITMASK) (GLOBALVARS BITMASKARRAY NOTBITMASKARRAY 4BITMASKARRAY NOT4BITMASKARRAY) (CONSTANTS (
WORDMASK 65535)))) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (INITBITMASKS)))) (COMS (* ; "init cursor") (FNS
 \CreateCursorBitMap) (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (CursorBitMap (\CreateCursorBitMap))))) (
COMS (* ; "bitmap functions.") (FNS BITBLT BLTSHADE \BITBLTSUB \GETPILOTBBTSCRATCHBM BITMAPCOPY 
BITMAPCREATE BITMAPBIT BLTCHAR \BLTCHAR \MEDW.BLTCHAR \CHANGECHARSET.DISPLAY \INDICATESTRING 
\SLOWBLTCHAR TEXTUREP INVERT.TEXTURE INVERT.TEXTURE.BITMAP BITMAPWIDTH READBITMAP \INSUREBITSPERPIXEL 
MAXIMUMCOLOR OPPOSITECOLOR MAXIMUMSHADE OPPOSITESHADE \MEDW.BITBLT) (FUNCTIONS FINISH-READING-BITMAP) 
(CONSTANTS (MINIMUMCOLOR 0) (MINIMUMSHADE 0)) (P (MOVD (QUOTE BITMAPBIT) (QUOTE \BITMAPBIT))) (
DECLARE%: DONTCOPY (EXPORT (MACROS \INVALIDATEDISPLAYCACHE))) (OPTIMIZERS BITMAPBIT BITMAPP) (FNS 
BITMAPBIT.EXPANDER) (FNS \BITBLT.DISPLAY \BITBLT.BITMAP \BITBLT.MERGE \BLTSHADE.DISPLAY 
\BLTSHADE.BITMAP) (FNS (* ;; "For SunLoadup") \BITBLT.BITMAP.SLOW) (FNS (* ;; 
" punt case for C funcs.bitblt_bitmap,bitshade.bitmap") \PUNT.BLTSHADE.BITMAP \PUNT.BITBLT.BITMAP) (
FNS (* ;; "from SUMEX-AIM") \SCALEDBITBLT.DISPLAY \BACKCOLOR.DISPLAY) (DECLARE%: DONTCOPY (CONSTANTS (
\DisplayWordAlign 16) (\MaxBitMapWidth 65535) (\MaxBitMapHeight 65535) (\MaxBitMapWords 131066)) (
EXPORT (MACROS \DSPGETCHARWIDTH \DSPGETCHARIMAGEWIDTH \DSPGETCHAROFFSET \CONVERTOP \SFInvert 
\SFReplicate \SETPBTFUNCTION \BITBLT1)) (GLOBALVARS \SYSBBTEXTURE \BBSCRATCHTEXTURE \SYSPILOTBBT 
\PILOTBBTSCRATCHBM)) (VARS (\BBSCRATCHTEXTURE) (\PILOTBBTSCRATCHBM)) (DECLARE%: DONTEVAL@LOAD DOCOPY (
P (MOVD? (QUOTE BITBLT) (QUOTE BKBITBLT)))) (* ; 
"macro for this file so that BITBLT can be broken by users") (EXPORT (DECLARE%: DONTCOPY DONTEVAL@LOAD
 DOEVAL@COMPILE (P (PUTPROP (QUOTE BITBLT) (QUOTE MACRO) (QUOTE (= . BKBITBLT))))))) (COMS (* ; 
"display stream functions") (FNS DISPLAYSTREAMP DSPSOURCETYPE DSPXOFFSET DSPYOFFSET) (FNS DSPCREATE 
DSPDESTINATION DSPTEXTURE \DISPLAYSTREAMINCRXPOSITION \SFFixDestination \SFFixClippingRegion 
\SFFixFont \SFFIXLINELENGTH \UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD \SFFixY) (FNS \MEDW.XOFFSET 
\MEDW.YOFFSET) (FNS \DSPCLIPPINGREGION.DISPLAY \DSPFONT.DISPLAY \DISPLAY.PILOTBITBLT 
\DSPLINEFEED.DISPLAY \DSPLEFTMARGIN.DISPLAY \DSPOPERATION.DISPLAY \DSPRIGHTMARGIN.DISPLAY 
\DSPXPOSITION.DISPLAY \DSPYPOSITION.DISPLAY) (P (MOVD? (QUOTE \ILLEGAL.ARG) (QUOTE \COERCETODS)) (
MOVD? (QUOTE NILL) (QUOTE WFROMDS)) (MOVD? (QUOTE NILL) (QUOTE WINDOWP)) (MOVD? (QUOTE NILL) (QUOTE 
INVERTW))) (INITVARS (PROMPTWINDOW T) (\WINDOWWORLD NIL) (\MAINSCREEN NIL))) (COMS (* ; 
"Stub for window package") (INITVARS (\TOPWDS) (\SCREENBITMAPS)) (P (MOVD? (QUOTE NILL) (QUOTE 
\TOTOPWDS))) (DECLARE%: DONTCOPY EVAL@COMPILE (EXPORT (MACROS \INSURETOPWDS .WHILE.TOP.DS. 
.WHILE.CURSOR.DOWN.) (ADDVARS (GLOBALVARS \TOPWDS))))) (COMS (* ; "DisplayStream TTY functions") (FNS 
TTYDISPLAYSTREAM) (EXPORT (OPTIMIZERS TTYDISPLAYSTREAM)) (FNS DSPSCROLL PAGEHEIGHT) (INITVARS (
\CURRENTTTYDEVICE (QUOTE BCPLDISPLAY))) (FNS \DSPRESET.DISPLAY) (COMS (INITVARS (*DRIBBLE-OUTPUT* NIL)
) (FUNCTIONS \MAYBE-DRIBBLE-CHAR) (FNS \DSPPRINTCHAR \DSPPRINTCR/LF)) (FNS \TTYBACKGROUND) (FNS 
DSPBACKUP) (INITVARS (\CARET.UP)) (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (BELLCNT 2) (BELLRATE 60) (
\DisplayStoppedForLogout) (TtyDisplayStream))) (FNS COLORDISPLAYP) (FNS DISPLAYBEFOREEXIT 
DISPLAYAFTERENTRY) (EXPORT (GLOBALVARS BELLCNT BELLRATE TTYBACKGROUNDFNS \DisplayStoppedForLogout 
\CARET.UP) (MACROS \CHECKCARET))) (COMS (* ; "transformation related functions.") (FNS 
\DSPCLIPTRANSFORMX \DSPCLIPTRANSFORMY \DSPTRANSFORMREGION \DSPUNTRANSFORMY \DSPUNTRANSFORMX 
\OFFSETCLIPPINGREGION) (DECLARE%: DONTCOPY (EXPORT (MACROS \DSPTRANSFORMX \DSPTRANSFORMY \OFFSETBOTTOM
 \OFFSETLEFT)))) (COMS (* ; "screen related functions") (FNS UPDATESCREENDIMENSIONS 
\CreateScreenBitMap) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (UPDATESCREENDIMENSIONS)) (INITVARS (
SCREENHEIGHT 808) (SCREENWIDTH 1024) (\OLDSCREENHEIGHT 808) (\OLDSCREENWIDTH 1024) (\MaxScreenPage -1)
 (ScreenBitMap (\CreateScreenBitMap SCREENWIDTH SCREENHEIGHT)) (ColorScreenBitMap NIL))) (GLOBALVARS 
\OLDSCREENHEIGHT \OLDSCREENWIDTH \MaxScreenPage ScreenBitMap) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (
CURSOR.INIT)))) (COMS (* ; "initialization") (INITVARS (\DISPLAYINFOALIST)) (FNS 
\CoerceToDisplayDevice \CREATEDISPLAY DISPLAYSTREAMINIT \STARTDISPLAY \MOVE.WINDOWS.ONTO.SCREEN 
\UPDATE.PBT.RASTERWIDTHS \STOPDISPLAY \DEFINEDISPLAYINFO) (DECLARE%: EVAL@COMPILE DONTCOPY (ADDVARS (
DONTCOMPILEFNS \UPDATE.PBT.RASTERWIDTHS))) (EXPORT (MACROS DISPLAYINITIALIZEDP DISPLAYSTARTEDP) (
GLOBALVARS \DisplayStarted \DisplayStreamsInitialized \DisplayInitialed WHOLEDISPLAY WHOLESCREEN 
SCREENWIDTH SCREENHEIGHT)) (ADDVARS (GLOBALVARS WHOLESCREEN)) (FNS INITIALIZEDISPLAYSTREAMS) (
DECLARE%: DOCOPY DONTEVAL@LOAD (VARS (\DisplayStarted NIL) (\LastTTYLines 12)) (P (
INITIALIZEDISPLAYSTREAMS) (DISPLAYSTREAMINIT 1000)))) (PROP FILETYPE LLDISPLAY) (DECLARE%: 
DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA)))))
(/DECLAREDATATYPE (QUOTE BITMAP) (QUOTE (POINTER WORD WORD WORD WORD)) (QUOTE ((BITMAP 0 POINTER) (
BITMAP 2 (BITS . 15)) (BITMAP 3 (BITS . 15)) (BITMAP 4 (BITS . 15)) (BITMAP 5 (BITS . 15)))) (QUOTE 6)
)
(/DECLAREDATATYPE (QUOTE PILOTBBT) (QUOTE (WORD WORD WORD SIGNEDWORD WORD WORD WORD SIGNEDWORD WORD 
WORD WORD WORD WORD WORD WORD WORD)) (QUOTE ((PILOTBBT 0 (BITS . 15)) (PILOTBBT 1 (BITS . 15)) (
PILOTBBT 2 (BITS . 15)) (PILOTBBT 3 (SIGNEDBITS . 15)) (PILOTBBT 4 (BITS . 15)) (PILOTBBT 5 (BITS . 15
)) (PILOTBBT 6 (BITS . 15)) (PILOTBBT 7 (SIGNEDBITS . 15)) (PILOTBBT 8 (BITS . 15)) (PILOTBBT 9 (BITS
 . 15)) (PILOTBBT 10 (BITS . 15)) (PILOTBBT 11 (BITS . 15)) (PILOTBBT 12 (BITS . 15)) (PILOTBBT 13 (
BITS . 15)) (PILOTBBT 14 (BITS . 15)) (PILOTBBT 15 (BITS . 15)))) (QUOTE 16))
(/DECLAREDATATYPE (QUOTE \DISPLAYDATA) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER
 POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER WORD WORD WORD WORD 
WORD FLAG XPOINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER 
POINTER WORD WORD POINTER WORD)) (QUOTE ((\DISPLAYDATA 0 POINTER) (\DISPLAYDATA 2 POINTER) (
\DISPLAYDATA 4 POINTER) (\DISPLAYDATA 6 POINTER) (\DISPLAYDATA 8 POINTER) (\DISPLAYDATA 10 POINTER) (
\DISPLAYDATA 12 POINTER) (\DISPLAYDATA 14 POINTER) (\DISPLAYDATA 16 POINTER) (\DISPLAYDATA 18 POINTER)
 (\DISPLAYDATA 20 POINTER) (\DISPLAYDATA 22 POINTER) (\DISPLAYDATA 24 POINTER) (\DISPLAYDATA 26 
POINTER) (\DISPLAYDATA 28 POINTER) (\DISPLAYDATA 30 POINTER) (\DISPLAYDATA 32 POINTER) (\DISPLAYDATA 
34 (BITS . 15)) (\DISPLAYDATA 35 (BITS . 15)) (\DISPLAYDATA 36 (BITS . 15)) (\DISPLAYDATA 37 (BITS . 
15)) (\DISPLAYDATA 38 (BITS . 15)) (\DISPLAYDATA 32 (FLAGBITS . 0)) (\DISPLAYDATA 40 XPOINTER) (
\DISPLAYDATA 42 POINTER) (\DISPLAYDATA 44 POINTER) (\DISPLAYDATA 46 POINTER) (\DISPLAYDATA 48 POINTER)
 (\DISPLAYDATA 50 POINTER) (\DISPLAYDATA 52 POINTER) (\DISPLAYDATA 54 POINTER) (\DISPLAYDATA 56 
POINTER) (\DISPLAYDATA 58 POINTER) (\DISPLAYDATA 60 POINTER) (\DISPLAYDATA 62 POINTER) (\DISPLAYDATA 
39 (BITS . 15)) (\DISPLAYDATA 64 (BITS . 15)) (\DISPLAYDATA 66 POINTER) (\DISPLAYDATA 65 (BITS . 15)))
) (QUOTE 68))
\FBITMAPBIT :D8
(I 5 RASTERWIDTH I 4 HEIGHTMINUS1 I 3 OPERATION I 2 Y I 1 X I 0 BASE) 1@ABCdg�j�dg�k�g�l�lDE
(46 \FBITMAPBIT.UFN)
(31 READ 21 ERASE 9 INVERT)
()
\FBITMAPBIT.UFN :D8
(P 3 BITMASK P 2 WORDBASE I 5 RASTERWIDTH I 4 HEIGHTMINUS1 I 3 OPERATION I 2 Y I 1 X I 0 BASE) �@DB�E�A������`Al�
H�Hl
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
+(FILECREATED " 2-Aug-2021 00:07:24" ("compiled on " 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;5) " 1-Aug-2021 23:43:13" 
+"COMPILE-FILEd" in "FULL  1-Aug-2021 ..." dated " 1-Aug-2021 23:43:18")
+(FILECREATED " 1-Aug-2021 23:41:37" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;5
+ 268898 changes to%: (FNS DSPCREATE) previous date%: " 1-Aug-2021 23:37:06" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;4)
+(RPAQQ LLDISPLAYCOMS ((DECLARE%: DONTCOPY (EXPORT (RECORDS PILOTBBT \DISPLAYDATA DISPLAYSTATE 
+DISPLAYINFO) (MACROS \GETDISPLAYDATA))) (* ; 
+"User-visible records are on ADISPLAY --- must be init'ed here") (INITRECORDS BITMAP PILOTBBT REGION 
+\DISPLAYDATA) (COMS (* ; "BITMASKS") (FNS \FBITMAPBIT \FBITMAPBIT.UFN \NEWPAGE.DISPLAY INITBITMASKS) (
+OPTIMIZERS \FBITMAPBIT) (EXPORT (DECLARE%: DONTCOPY (MACROS \BITMASK \4BITMASK \NOTBITMASK 
+\NOT4BITMASK) (GLOBALVARS BITMASKARRAY NOTBITMASKARRAY 4BITMASKARRAY NOT4BITMASKARRAY) (CONSTANTS (
+WORDMASK 65535)))) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (INITBITMASKS)))) (COMS (* ; "init cursor") (FNS
+ \CreateCursorBitMap) (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (CursorBitMap (\CreateCursorBitMap))))) (
+COMS (* ; "bitmap functions.") (FNS BITBLT BLTSHADE \BITBLTSUB \GETPILOTBBTSCRATCHBM BITMAPCOPY 
+BITMAPCREATE BITMAPBIT BLTCHAR \BLTCHAR \MEDW.BLTCHAR \CHANGECHARSET.DISPLAY \INDICATESTRING 
+\SLOWBLTCHAR TEXTUREP INVERT.TEXTURE INVERT.TEXTURE.BITMAP BITMAPWIDTH READBITMAP \INSUREBITSPERPIXEL 
+MAXIMUMCOLOR OPPOSITECOLOR MAXIMUMSHADE OPPOSITESHADE \MEDW.BITBLT) (FUNCTIONS FINISH-READING-BITMAP) 
+(CONSTANTS (MINIMUMCOLOR 0) (MINIMUMSHADE 0)) (P (MOVD (QUOTE BITMAPBIT) (QUOTE \BITMAPBIT))) (
+DECLARE%: DONTCOPY (EXPORT (MACROS \INVALIDATEDISPLAYCACHE))) (OPTIMIZERS BITMAPBIT BITMAPP) (FNS 
+BITMAPBIT.EXPANDER) (FNS \BITBLT.DISPLAY \BITBLT.BITMAP \BITBLT.MERGE \BLTSHADE.DISPLAY 
+\BLTSHADE.BITMAP) (FNS (* ;; "For SunLoadup") \BITBLT.BITMAP.SLOW) (FNS (* ;; 
+" punt case for C funcs.bitblt_bitmap,bitshade.bitmap") \PUNT.BLTSHADE.BITMAP \PUNT.BITBLT.BITMAP) (
+FNS (* ;; "from SUMEX-AIM") \SCALEDBITBLT.DISPLAY \BACKCOLOR.DISPLAY) (DECLARE%: DONTCOPY (CONSTANTS (
+\DisplayWordAlign 16) (\MaxBitMapWidth 65535) (\MaxBitMapHeight 65535) (\MaxBitMapWords 131066)) (
+EXPORT (MACROS \DSPGETCHARWIDTH \DSPGETCHARIMAGEWIDTH \DSPGETCHAROFFSET \CONVERTOP \SFInvert 
+\SFReplicate \SETPBTFUNCTION \BITBLT1)) (GLOBALVARS \SYSBBTEXTURE \BBSCRATCHTEXTURE \SYSPILOTBBT 
+\PILOTBBTSCRATCHBM)) (VARS (\BBSCRATCHTEXTURE) (\PILOTBBTSCRATCHBM)) (DECLARE%: DONTEVAL@LOAD DOCOPY (
+P (MOVD? (QUOTE BITBLT) (QUOTE BKBITBLT)))) (* ; 
+"macro for this file so that BITBLT can be broken by users") (EXPORT (DECLARE%: DONTCOPY DONTEVAL@LOAD
+ DOEVAL@COMPILE (P (PUTPROP (QUOTE BITBLT) (QUOTE MACRO) (QUOTE (= . BKBITBLT))))))) (COMS (* ; 
+"display stream functions") (FNS DISPLAYSTREAMP DSPSOURCETYPE DSPXOFFSET DSPYOFFSET) (FNS DSPCREATE 
+DSPDESTINATION DSPTEXTURE \DISPLAYSTREAMINCRXPOSITION \SFFixDestination \SFFixClippingRegion 
+\SFFixFont \SFFIXLINELENGTH \UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD \SFFixY) (FNS \MEDW.XOFFSET 
+\MEDW.YOFFSET) (FNS \DSPCLIPPINGREGION.DISPLAY \DSPFONT.DISPLAY \DISPLAY.PILOTBITBLT 
+\DSPLINEFEED.DISPLAY \DSPLEFTMARGIN.DISPLAY \DSPOPERATION.DISPLAY \DSPRIGHTMARGIN.DISPLAY 
+\DSPXPOSITION.DISPLAY \DSPYPOSITION.DISPLAY) (P (MOVD? (QUOTE \ILLEGAL.ARG) (QUOTE \COERCETODS)) (
+MOVD? (QUOTE NILL) (QUOTE WFROMDS)) (MOVD? (QUOTE NILL) (QUOTE WINDOWP)) (MOVD? (QUOTE NILL) (QUOTE 
+INVERTW))) (INITVARS (PROMPTWINDOW T) (\WINDOWWORLD NIL) (\MAINSCREEN NIL))) (COMS (* ; 
+"Stub for window package") (INITVARS (\TOPWDS) (\SCREENBITMAPS)) (P (MOVD? (QUOTE NILL) (QUOTE 
+\TOTOPWDS))) (DECLARE%: DONTCOPY EVAL@COMPILE (EXPORT (MACROS \INSURETOPWDS .WHILE.TOP.DS. 
+.WHILE.CURSOR.DOWN.) (ADDVARS (GLOBALVARS \TOPWDS))))) (COMS (* ; "DisplayStream TTY functions") (FNS 
+TTYDISPLAYSTREAM) (EXPORT (OPTIMIZERS TTYDISPLAYSTREAM)) (FNS DSPSCROLL PAGEHEIGHT) (INITVARS (
+\CURRENTTTYDEVICE (QUOTE BCPLDISPLAY))) (FNS \DSPRESET.DISPLAY) (COMS (INITVARS (*DRIBBLE-OUTPUT* NIL)
+) (FUNCTIONS \MAYBE-DRIBBLE-CHAR) (FNS \DSPPRINTCHAR \DSPPRINTCR/LF)) (FNS \TTYBACKGROUND) (FNS 
+DSPBACKUP) (INITVARS (\CARET.UP)) (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (BELLCNT 2) (BELLRATE 60) (
+\DisplayStoppedForLogout) (TtyDisplayStream))) (FNS COLORDISPLAYP) (FNS DISPLAYBEFOREEXIT 
+DISPLAYAFTERENTRY) (EXPORT (GLOBALVARS BELLCNT BELLRATE TTYBACKGROUNDFNS \DisplayStoppedForLogout 
+\CARET.UP) (MACROS \CHECKCARET))) (COMS (* ; "transformation related functions.") (FNS 
+\DSPCLIPTRANSFORMX \DSPCLIPTRANSFORMY \DSPTRANSFORMREGION \DSPUNTRANSFORMY \DSPUNTRANSFORMX 
+\OFFSETCLIPPINGREGION) (DECLARE%: DONTCOPY (EXPORT (MACROS \DSPTRANSFORMX \DSPTRANSFORMY \OFFSETBOTTOM
+ \OFFSETLEFT)))) (COMS (* ; "screen related functions") (FNS UPDATESCREENDIMENSIONS 
+\CreateScreenBitMap) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (UPDATESCREENDIMENSIONS)) (INITVARS (
+SCREENHEIGHT 808) (SCREENWIDTH 1024) (\OLDSCREENHEIGHT 808) (\OLDSCREENWIDTH 1024) (\MaxScreenPage -1)
+ (ScreenBitMap (\CreateScreenBitMap SCREENWIDTH SCREENHEIGHT)) (ColorScreenBitMap NIL))) (GLOBALVARS 
+\OLDSCREENHEIGHT \OLDSCREENWIDTH \MaxScreenPage ScreenBitMap) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (
+CURSOR.INIT)))) (COMS (* ; "initialization") (INITVARS (\DISPLAYINFOALIST)) (FNS 
+\CoerceToDisplayDevice \CREATEDISPLAY DISPLAYSTREAMINIT \STARTDISPLAY \MOVE.WINDOWS.ONTO.SCREEN 
+\UPDATE.PBT.RASTERWIDTHS \STOPDISPLAY \DEFINEDISPLAYINFO) (DECLARE%: EVAL@COMPILE DONTCOPY (ADDVARS (
+DONTCOMPILEFNS \UPDATE.PBT.RASTERWIDTHS))) (EXPORT (MACROS DISPLAYINITIALIZEDP DISPLAYSTARTEDP) (
+GLOBALVARS \DisplayStarted \DisplayStreamsInitialized \DisplayInitialed WHOLEDISPLAY WHOLESCREEN 
+SCREENWIDTH SCREENHEIGHT)) (ADDVARS (GLOBALVARS WHOLESCREEN)) (FNS INITIALIZEDISPLAYSTREAMS) (
+DECLARE%: DOCOPY DONTEVAL@LOAD (VARS (\DisplayStarted NIL) (\LastTTYLines 12)) (P (
+INITIALIZEDISPLAYSTREAMS) (DISPLAYSTREAMINIT 1000)))) (PROP FILETYPE LLDISPLAY) (DECLARE%: 
+DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA)))))
+(/DECLAREDATATYPE (QUOTE BITMAP) (QUOTE (POINTER WORD WORD WORD WORD)) (QUOTE ((BITMAP 0 POINTER) (
+BITMAP 2 (BITS . 15)) (BITMAP 3 (BITS . 15)) (BITMAP 4 (BITS . 15)) (BITMAP 5 (BITS . 15)))) (QUOTE 6)
+)
+(/DECLAREDATATYPE (QUOTE PILOTBBT) (QUOTE (WORD WORD WORD SIGNEDWORD WORD WORD WORD SIGNEDWORD WORD 
+WORD WORD WORD WORD WORD WORD WORD)) (QUOTE ((PILOTBBT 0 (BITS . 15)) (PILOTBBT 1 (BITS . 15)) (
+PILOTBBT 2 (BITS . 15)) (PILOTBBT 3 (SIGNEDBITS . 15)) (PILOTBBT 4 (BITS . 15)) (PILOTBBT 5 (BITS . 15
+)) (PILOTBBT 6 (BITS . 15)) (PILOTBBT 7 (SIGNEDBITS . 15)) (PILOTBBT 8 (BITS . 15)) (PILOTBBT 9 (BITS
+ . 15)) (PILOTBBT 10 (BITS . 15)) (PILOTBBT 11 (BITS . 15)) (PILOTBBT 12 (BITS . 15)) (PILOTBBT 13 (
+BITS . 15)) (PILOTBBT 14 (BITS . 15)) (PILOTBBT 15 (BITS . 15)))) (QUOTE 16))
+(/DECLAREDATATYPE (QUOTE \DISPLAYDATA) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER
+ POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER WORD WORD WORD WORD 
+WORD FLAG XPOINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER 
+POINTER WORD WORD POINTER WORD)) (QUOTE ((\DISPLAYDATA 0 POINTER) (\DISPLAYDATA 2 POINTER) (
+\DISPLAYDATA 4 POINTER) (\DISPLAYDATA 6 POINTER) (\DISPLAYDATA 8 POINTER) (\DISPLAYDATA 10 POINTER) (
+\DISPLAYDATA 12 POINTER) (\DISPLAYDATA 14 POINTER) (\DISPLAYDATA 16 POINTER) (\DISPLAYDATA 18 POINTER)
+ (\DISPLAYDATA 20 POINTER) (\DISPLAYDATA 22 POINTER) (\DISPLAYDATA 24 POINTER) (\DISPLAYDATA 26 
+POINTER) (\DISPLAYDATA 28 POINTER) (\DISPLAYDATA 30 POINTER) (\DISPLAYDATA 32 POINTER) (\DISPLAYDATA 
+34 (BITS . 15)) (\DISPLAYDATA 35 (BITS . 15)) (\DISPLAYDATA 36 (BITS . 15)) (\DISPLAYDATA 37 (BITS . 
+15)) (\DISPLAYDATA 38 (BITS . 15)) (\DISPLAYDATA 32 (FLAGBITS . 0)) (\DISPLAYDATA 40 XPOINTER) (
+\DISPLAYDATA 42 POINTER) (\DISPLAYDATA 44 POINTER) (\DISPLAYDATA 46 POINTER) (\DISPLAYDATA 48 POINTER)
+ (\DISPLAYDATA 50 POINTER) (\DISPLAYDATA 52 POINTER) (\DISPLAYDATA 54 POINTER) (\DISPLAYDATA 56 
+POINTER) (\DISPLAYDATA 58 POINTER) (\DISPLAYDATA 60 POINTER) (\DISPLAYDATA 62 POINTER) (\DISPLAYDATA 
+39 (BITS . 15)) (\DISPLAYDATA 64 (BITS . 15)) (\DISPLAYDATA 66 POINTER) (\DISPLAYDATA 65 (BITS . 15)))
+) (QUOTE 68))
+\FBITMAPBIT :D8
+(I 5 RASTERWIDTH I 4 HEIGHTMINUS1 I 3 OPERATION I 2 Y I 1 X I 0 BASE) 1@ABCdg�j�dg�k�g�l�lDE
(46 \FBITMAPBIT.UFN)
+(31 READ 21 ERASE 9 INVERT)
+()
+\FBITMAPBIT.UFN :D8
+(P 3 BITMASK P 2 WORDBASE I 5 RASTERWIDTH I 4 HEIGHTMINUS1 I 3 OPERATION I 2 Y I 1 X I 0 BASE) �@DB�E�A������`Al�
H�Hl
 I���BKJ��\j�#L�kJ�_�JCdj��OK�D	��j��k�*O`Al�]�Ml
-N����Cl�O�OK���(137 \GETBASEFIXP 95 \FZEROP 45 \GETBASEFIXP)
(130 ARRAYP 122 ARRAYP 111 NOTBITMASKARRAY 38 ARRAYP 30 ARRAYP 17 BITMASKARRAY)
()
\NEWPAGE.DISPLAY :D8
(I 0 STREAM) 
@	(5 DSPRESET)
NIL
()
INITBITMASKS :D8
(P 2 MASK P 1 I) �lgjdlgjdljn�IH�9lgjdlgjdljn�IH�+h`IJ�`IJn����J�Ik�Y��`IJ�`IJn����J����Ik�Y��(174 SETA 157 SETA 135 SETA 118 SETA 85 ARRAY 66 ARRAY 32 ARRAY 13 ARRAY)
(163 NOT4BITMASKARRAY 150 4BITMASKARRAY 124 NOTBITMASKARRAY 111 BITMASKARRAY 90 NOT4BITMASKARRAY 78 SMALLPOSP 71 4BITMASKARRAY 59 SMALLPOSP 37 NOTBITMASKARRAY 25 SMALLPOSP 18 BITMASKARRAY 6 SMALLPOSP)
()
optimize-\FBITMAPBIT :D8
(L (2 $$CTX 1 $$ENV 0 $$WHOLE)) �@�
-H
�HZ
�J\
�L^
_�N_
_�O
_�oIKMO�!gOoOOo
g��O	dg�j��dg�k��g�l��l��(99 EVAL)
(128 READ 117 ERASE 105 INVERT 89 QUOTE 57 SELECTQ)
( 75 (NIL) 64 ((INVERT 0) (ERASE 1) (READ 2) 3) 44 (OPCODES MISC7 1))
(PUTPROP (QUOTE \FBITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-\FBITMAPBIT) (
GET (QUOTE \FBITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST))))
(INITBITMASKS)
\CreateCursorBitMap :D8
NIL $ldk��dl��dl��d`�dk��NIL
(25 \EM.CURSORBITMAP)
()
(RPAQ CursorBitMap (\CreateCursorBitMap))
BITBLT :D8
(L (11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTINATION 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCE) F 19 \SOFTCURSORP F 20 \SOFTCURSORUPP F 21 \CURSORDESTINATION F 22 \SCREENBITMAPS) �D�jb�E�jb
+N����Cl�O�OK���(137 \GETBASEFIXP 95 \FZEROP 45 \GETBASEFIXP)
+(130 ARRAYP 122 ARRAYP 111 NOTBITMASKARRAY 38 ARRAYP 30 ARRAYP 17 BITMASKARRAY)
+()
+\NEWPAGE.DISPLAY :D8
+(I 0 STREAM) 
@	(5 DSPRESET)
+NIL
+()
+INITBITMASKS :D8
+(P 2 MASK P 1 I) �lgjdlgjdljn�IH�9lgjdlgjdljn�IH�+h`IJ�`IJn����J�Ik�Y��`IJ�`IJn����J����Ik�Y��(174 SETA 157 SETA 135 SETA 118 SETA 85 ARRAY 66 ARRAY 32 ARRAY 13 ARRAY)
+(163 NOT4BITMASKARRAY 150 4BITMASKARRAY 124 NOTBITMASKARRAY 111 BITMASKARRAY 90 NOT4BITMASKARRAY 78 SMALLPOSP 71 4BITMASKARRAY 59 SMALLPOSP 37 NOTBITMASKARRAY 25 SMALLPOSP 18 BITMASKARRAY 6 SMALLPOSP)
+()
+optimize-\FBITMAPBIT :D8
+(L (2 $$CTX 1 $$ENV 0 $$WHOLE)) �@�
+H
�HZ
�J\
�L^
_�N_
_�O
_�oIKMO�!gOoOOo
g��O	dg�j��dg�k��g�l��l��(99 EVAL)
+(128 READ 117 ERASE 105 INVERT 89 QUOTE 57 SELECTQ)
+( 75 (NIL) 64 ((INVERT 0) (ERASE 1) (READ 2) 3) 44 (OPCODES MISC7 1))
+(PUTPROP (QUOTE \FBITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-\FBITMAPBIT) (
+GET (QUOTE \FBITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST))))
+(INITBITMASKS)
+\CreateCursorBitMap :D8
+NIL $ldk��dl��dl��d`�dk��NIL
+(25 \EM.CURSORBITMAP)
+()
+(RPAQ CursorBitMap (\CreateCursorBitMap))
+BITBLT :D8
+(L (11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTINATION 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCE) F 19 \SOFTCURSORP F 20 \SOFTCURSORUPP F 21 \CURSORDESTINATION F 22 \SCREENBITMAPS) �D�jb�E�jb
 �Gg�NCd���GCDEFGGG
gh
H�.��GHDEFGGGlI�@@d��]�A�jb�B�jb�@�A�B�F�3@�b�G�@�b���@�BٽdM��M��@�AټdL�ɿL��gh�0X���A�H�
 
b�B�H�
 
b�H��AH��bH�"�dN�N�BH��bH�$_�dO�O�F�NH�#J�b�G�%H�%K�b�G�H�6b�Fj�	Gj�4hH�%K�_�dO�ֿO��H�#J�_�dO񲭿O��Cd���ƿ@	���h__�W&�8W(�h@gh
@@ -11,8 +130,16 @@ H

 W*�_"�`�_ �`j���@gh_`�hO
 W,�O	�IABFG
 _jdFGgg
-�O"��`O ��OjdODEFGGGGG
@	�O�.�_$�IABODEFGGGGGJKlO$h(875 TOTOPW 868 BKBITBLT 832 \SOFTCURSORUPCURRENT 823 BKBITBLT 800 BITMAPCREATE 788 \TOTOPWDS 777 DSPDESTINATION 759 \GETSTREAM 746 \SOFTCURSORDOWN 715 DSPDESTINATION 710 \GETSTREAM 676 WOVERLAPP 664 WINDOWP 654 WINDOWP 639 \GETSTREAM 627 \BITBLT.BITMAP 588 \SOFTCURSORUPCURRENT 575 \BITBLT.BITMAP 549 \TOTOPWDS 538 DSPDESTINATION 520 \GETSTREAM 507 \SOFTCURSORDOWN 476 DSPDESTINATION 471 \GETSTREAM 440 WINDOWP 214 \GETSTREAM 61 \GETSTREAM 49 \BLTSHADE.BITMAP)
(890 IMAGEOPS 883 STREAM 838 \EM.DISPINTERRUPT 817 REPLACE 812 INPUT 766 \TOPWDS 753 OUTPUT 737 \EM.DISPINTERRUPT 727 \EM.DISPINTERRUPT 704 OUTPUT 633 OUTPUT 594 \EM.DISPINTERRUPT 527 \TOPWDS 514 OUTPUT 498 \EM.DISPINTERRUPT 488 \EM.DISPINTERRUPT 465 OUTPUT 429 BITMAP 404 \DISPLAYDATA 380 \DISPLAYDATA 345 \DISPLAYDATA 328 \DISPLAYDATA 305 \DISPLAYDATA 294 \DISPLAYDATA 277 \DISPLAYDATA 266 \DISPLAYDATA 256 \DISPLAYDATA 226 \DISPLAYDATA 219 STREAM 208 OUTPUT 189 BITMAP 169 BITMAP 155 BITMAP 140 BITMAP 110 BITMAP 77 IMAGEOPS 70 STREAM 55 OUTPUT 28 BITMAP 18 TEXTURE)
()
BLTSHADE :D8
(L (7 CLIPPINGREGION 6 OPERATION 5 HEIGHT 4 WIDTH 3 DESTINATIONBOTTOM 2 DESTINATIONLEFT 1 DESTINATION 0 TEXTURE)) [Ad���@AB�jC�jDEFG
gh
H�.��@HB�jC�jDEFd�H
-GlI(82 DSPOPERATION 42 \GETSTREAM 30 \BLTSHADE.BITMAP)
(58 IMAGEOPS 51 STREAM 36 OUTPUT 6 BITMAP)
()
\BITBLTSUB :D8
(P 5 X P 4 DESTADDR P 3 SOURCEADDR P 2 GRAY P 1 SBMR P 0 DBMR I 12 WindowYOffset I 11 WindowXOffset I 10 Texture I 9 Operation I 8 SourceType I 7 HEIGHT I 6 DTY I 5 DLX I 4 DestinationBitMap I 3 STY I 2 SLX I 1 SourceBitMap I 0 PILOTBBT) �

�D�X@j�
+�O"��`O ��OjdODEFGGGGG
@	�O�.�_$�IABODEFGGGGGJKlO$h(875 TOTOPW 868 BKBITBLT 832 \SOFTCURSORUPCURRENT 823 BKBITBLT 800 BITMAPCREATE 788 \TOTOPWDS 777 DSPDESTINATION 759 \GETSTREAM 746 \SOFTCURSORDOWN 715 DSPDESTINATION 710 \GETSTREAM 676 WOVERLAPP 664 WINDOWP 654 WINDOWP 639 \GETSTREAM 627 \BITBLT.BITMAP 588 \SOFTCURSORUPCURRENT 575 \BITBLT.BITMAP 549 \TOTOPWDS 538 DSPDESTINATION 520 \GETSTREAM 507 \SOFTCURSORDOWN 476 DSPDESTINATION 471 \GETSTREAM 440 WINDOWP 214 \GETSTREAM 61 \GETSTREAM 49 \BLTSHADE.BITMAP)
+(890 IMAGEOPS 883 STREAM 838 \EM.DISPINTERRUPT 817 REPLACE 812 INPUT 766 \TOPWDS 753 OUTPUT 737 \EM.DISPINTERRUPT 727 \EM.DISPINTERRUPT 704 OUTPUT 633 OUTPUT 594 \EM.DISPINTERRUPT 527 \TOPWDS 514 OUTPUT 498 \EM.DISPINTERRUPT 488 \EM.DISPINTERRUPT 465 OUTPUT 429 BITMAP 404 \DISPLAYDATA 380 \DISPLAYDATA 345 \DISPLAYDATA 328 \DISPLAYDATA 305 \DISPLAYDATA 294 \DISPLAYDATA 277 \DISPLAYDATA 266 \DISPLAYDATA 256 \DISPLAYDATA 226 \DISPLAYDATA 219 STREAM 208 OUTPUT 189 BITMAP 169 BITMAP 155 BITMAP 140 BITMAP 110 BITMAP 77 IMAGEOPS 70 STREAM 55 OUTPUT 28 BITMAP 18 TEXTURE)
+()
+BLTSHADE :D8
+(L (7 CLIPPINGREGION 6 OPERATION 5 HEIGHT 4 WIDTH 3 DESTINATIONBOTTOM 2 DESTINATIONLEFT 1 DESTINATION 0 TEXTURE)) [Ad���@AB�jC�jDEFG
gh
H�.��@HB�jC�jDEFd�H
+GlI(82 DSPOPERATION 42 \GETSTREAM 30 \BLTSHADE.BITMAP)
+(58 IMAGEOPS 51 STREAM 36 OUTPUT 6 BITMAP)
+()
+\BITBLTSUB :D8
+(P 5 X P 4 DESTADDR P 3 SOURCEADDR P 2 GRAY P 1 SBMR P 0 DBMR I 12 WindowYOffset I 11 WindowXOffset I 10 Texture I 9 Operation I 8 SourceType I 7 HEIGHT I 6 DTY I 5 DLX I 4 DestinationBitMap I 3 STY I 2 SLX I 1 SourceBitMap I 0 PILOTBBT) �

�D�X@j�
 @H����n����D�HF��\@E�Gdg�
H�@k�
 0�@G�EGـEl���@j��G3 ���`�ZGn���bj�Gn���JG��j��JG�����^d�N����d������JG�l�_d�O����d�����
�JG����l�_d�O����d������JGl�_d�O����d������@l�ÿ@G�FGԀFl�_�C�O�_�@O���@O�
6@Gb�dl�l]k��ÿ@G�FG�M
 �FM�]�C�G�M�_�@O���@O��g�o	@j�
@@ -23,9 +150,25 @@ H

 �KIGk��]лLMм@jI�����]n�����@Mn�����CF�@k�
  �@K���@K���@L��
�@L��@Gdg�k�g�l�Gg�l�j�
 Q�@Gg�Gg��j�k�
-@@jv(414 RAID 356 IMOD)
(705 ERASE 697 INVERT 679 INVERT 667 PAINT 656 ERASE 643 PILOTBBT 632 PILOTBBT 621 PILOTBBT 610 PILOTBBT 586 PILOTBBT 565 PILOTBBT 532 PILOTBBT 466 PILOTBBT 453 BITMAP 433 BITMAP 427 PILOTBBT 402 MERGE 392 PILOTBBT 380 PILOTBBT 323 BITMAP 310 PILOTBBT 298 PILOTBBT 128 BITMAP 123 \SYSBBTEXTURE 106 PILOTBBT 85 PILOTBBT 67 TEXTURE 56 PILOTBBT 43 BITMAP 26 PILOTBBT 17 PILOTBBT 8 BITMAP)
( 409 "Hard bitblt case")
\GETPILOTBBTSCRATCHBM :D8
(I 1 HEIGHT I 0 WIDTH) ?`��'@`��A`��`@A
-(55 BITMAPCREATE)
(60 \PILOTBBTSCRATCHBM 47 \PILOTBBTSCRATCHBM 38 BITMAP 33 \PILOTBBTSCRATCHBM 22 BITMAP 17 \PILOTBBTSCRATCHBM 9 BITMAP 4 \PILOTBBTSCRATCHBM)
()
BITMAPCOPY :D8
(P 0 NEWBITMAP I 0 BITMAP) 7

@bjd@	@�@�Xjdhdggj
H(51 BKBITBLT 29 BITMAPCREATE 18 BITMAPWIDTH)
(44 REPLACE 39 INPUT 8 BITMAP)
()
BITMAPCREATE :D8
(P 0 RW I 2 BITSPERPIXEL I 1 HEIGHT I 0 WIDTH)  
j@�@n���@	�jA�An���A	�B	b@B�l�����XldH��d@��dA��dB��HA�Xdo��@A�B�o
-�k��hh�dI�(118 \ALLOCBLOCK 107 ERROR 42 \INSUREBITSPERPIXEL 35 \ILLEGAL.ARG 18 \ILLEGAL.ARG)
NIL
( 102 "bits in BITMAP -- too big" 88 131066)
BITMAPBIT :D8
(P 15 SOFTCURSORUP P 14 DISPINTERRUPT P 13 DD P 12 TY P 11 TX P 6 bitmapbase P 5 oldword P 4 HEIGHT P 3 OLDVALUE P 2 WORDX P 1 BITX P 0 NBITS I 3 NEWVALUE I 2 Y I 1 X I 0 BITMAP F 16 \SOFTCURSORP F 17 \SOFTCURSORUPP F 18 \CURSORDESTINATION F 19 \SCREENBITMAPS) ��
+@@jv(414 RAID 356 IMOD)
+(705 ERASE 697 INVERT 679 INVERT 667 PAINT 656 ERASE 643 PILOTBBT 632 PILOTBBT 621 PILOTBBT 610 PILOTBBT 586 PILOTBBT 565 PILOTBBT 532 PILOTBBT 466 PILOTBBT 453 BITMAP 433 BITMAP 427 PILOTBBT 402 MERGE 392 PILOTBBT 380 PILOTBBT 323 BITMAP 310 PILOTBBT 298 PILOTBBT 128 BITMAP 123 \SYSBBTEXTURE 106 PILOTBBT 85 PILOTBBT 67 TEXTURE 56 PILOTBBT 43 BITMAP 26 PILOTBBT 17 PILOTBBT 8 BITMAP)
+( 409 "Hard bitblt case")
+\GETPILOTBBTSCRATCHBM :D8
+(I 1 HEIGHT I 0 WIDTH) ?`��'@`��A`��`@A
+(55 BITMAPCREATE)
+(60 \PILOTBBTSCRATCHBM 47 \PILOTBBTSCRATCHBM 38 BITMAP 33 \PILOTBBTSCRATCHBM 22 BITMAP 17 \PILOTBBTSCRATCHBM 9 BITMAP 4 \PILOTBBTSCRATCHBM)
+()
+BITMAPCOPY :D8
+(P 0 NEWBITMAP I 0 BITMAP) 7

@bjd@	@�@�Xjdhdggj
H(51 BKBITBLT 29 BITMAPCREATE 18 BITMAPWIDTH)
+(44 REPLACE 39 INPUT 8 BITMAP)
+()
+BITMAPCREATE :D8
+(P 0 RW I 2 BITSPERPIXEL I 1 HEIGHT I 0 WIDTH)  
j@�@n���@	�jA�An���A	�B	b@B�l�����XldH��d@��dA��dB��HA�Xdo��@A�B�o
+�k��hh�dI�(118 \ALLOCBLOCK 107 ERROR 42 \INSUREBITSPERPIXEL 35 \ILLEGAL.ARG 18 \ILLEGAL.ARG)
+NIL
+( 102 "bits in BITMAP -- too big" 88 131066)
+BITMAPBIT :D8
+(P 15 SOFTCURSORUP P 14 DISPINTERRUPT P 13 DD P 12 TY P 11 TX P 6 bitmapbase P 5 oldword P 4 HEIGHT P 3 OLDVALUE P 2 WORDX P 1 BITX P 0 NBITS I 3 NEWVALUE I 2 Y I 1 X I 0 BITMAP F 16 \SOFTCURSORP F 17 \SOFTCURSORUPP F 18 \CURSORDESTINATION F 19 \SCREENBITMAPS) ��
 @���+@�XjA�
A@����jB��B@�\���Hk�[Cdj��@�ABkLk�@�h8
�@�ABlLk�@�h8
@�ABlLk�@�h8
@�@�B�k�@���^C�jC�C@�	�C	�Hdk�c�A����ZNJ��]`Al�_�_�Ol
 O���YC�MI�j� jj�NJ�MIm�������NJ�MI�����kl�mAl�Yd����ZNJ��]d`Al�_�_�Ol
 O����[C�NJ�MK�CllAl���
@@ -36,15 +179,43 @@ Q
 _BO
 _O����d���� W �-W"�h@
 W$�_�`�_�`j���@`�h@
-W&�@	�O�OOC�_�O��`O�O(730 \SOFTCURSORUPCURRENT 702 \TOTOPWDS 692 DSPDESTINATION 675 \SOFTCURSORDOWN 644 DSPDESTINATION 613 \DSPCLIPTRANSFORMY 603 \DSPCLIPTRANSFORMX 579 \GETSTREAM 563 ERROR 550 \PUTBASE24 539 \GETBASE24 435 LRSH 415 LLSH 382 \GETBASEFIXP 275 \GETBASEFIXP 220 \ILLEGAL.ARG 212 MAXIMUMCOLOR)
(736 \EM.DISPINTERRUPT 710 \DISPLAYDATA 682 \TOPWDS 666 \EM.DISPINTERRUPT 656 \EM.DISPINTERRUPT 593 \DISPLAYDATA 586 STREAM 573 OUTPUT 375 ARRAYP 366 ARRAYP 352 4BITMASKARRAY 268 ARRAYP 259 ARRAYP 245 BITMASKARRAY 205 BITMAP 186 BITMAP 174 BITMAP 166 BITMAP 154 BITMAP 139 BITMAP 127 BITMAP 112 BITMAP 98 BITMAP 84 BITMAP 57 BITMAP 35 BITMAP 18 BITMAP 8 BITMAP)
( 557 "unknown bits per pixel size.")
BLTCHAR :D8
(I 1 DISPLAYSTREAM I 0 CHARCODE) 2@d
��j@�@�@	Adgh�0(47 \BLTCHAR 30 \GETSTREAM 17 \ILLEGAL.ARG)
(42 \DISPLAYDATA 35 STREAM 24 OUTPUT)
()
\BLTCHAR :D8
(P 0 A0202 I 2 DISPLAYDATA I 1 DISPLAYSTREAM I 0 CHARCODE) (
Aghb�.�Z
@ABlH(11 \GETSTREAM)
(25 IMAGEOPS 18 STREAM 5 OUTPUT)
()
\MEDW.BLTCHAR :D8
(L (2 DISPLAYDATA 1 DISPLAYSTREAM 0 CHARCODE) F 7 \SOFTCURSORP F 8 \SOFTCURSORUPP F 9 \CURSORDESTINATION F 10 \SCREENBITMAPS) 
	p@l��\�Bd�>@��@�
+W&�@	�O�OOC�_�O��`O�O(730 \SOFTCURSORUPCURRENT 702 \TOTOPWDS 692 DSPDESTINATION 675 \SOFTCURSORDOWN 644 DSPDESTINATION 613 \DSPCLIPTRANSFORMY 603 \DSPCLIPTRANSFORMX 579 \GETSTREAM 563 ERROR 550 \PUTBASE24 539 \GETBASE24 435 LRSH 415 LLSH 382 \GETBASEFIXP 275 \GETBASEFIXP 220 \ILLEGAL.ARG 212 MAXIMUMCOLOR)
+(736 \EM.DISPINTERRUPT 710 \DISPLAYDATA 682 \TOPWDS 666 \EM.DISPINTERRUPT 656 \EM.DISPINTERRUPT 593 \DISPLAYDATA 586 STREAM 573 OUTPUT 375 ARRAYP 366 ARRAYP 352 4BITMASKARRAY 268 ARRAYP 259 ARRAYP 245 BITMASKARRAY 205 BITMAP 186 BITMAP 174 BITMAP 166 BITMAP 154 BITMAP 139 BITMAP 127 BITMAP 112 BITMAP 98 BITMAP 84 BITMAP 57 BITMAP 35 BITMAP 18 BITMAP 8 BITMAP)
+( 557 "unknown bits per pixel size.")
+BLTCHAR :D8
+(I 1 DISPLAYSTREAM I 0 CHARCODE) 2@d
��j@�@�@	Adgh�0(47 \BLTCHAR 30 \GETSTREAM 17 \ILLEGAL.ARG)
+(42 \DISPLAYDATA 35 STREAM 24 OUTPUT)
+()
+\BLTCHAR :D8
+(P 0 A0288 I 2 DISPLAYDATA I 1 DISPLAYSTREAM I 0 CHARCODE) (
Aghb�.�Z
@ABlH(11 \GETSTREAM)
+(25 IMAGEOPS 18 STREAM 5 OUTPUT)
+()
+\MEDW.BLTCHAR :D8
+(L (2 DISPLAYDATA 1 DISPLAYSTREAM 0 CHARCODE) F 7 \SOFTCURSORP F 8 \SOFTCURSORUPP F 9 \CURSORDESTINATION F 10 \SCREENBITMAPS) 
	p@l��\�Bd�>@��@�
 �B��@A
 B�[B�0L���YB��KB��l
A
 ��BKB�L����B��KHػIH�YB�#X�H�KB�"X�K�H�IJ����B�*X�	j�}h]�W�*W�hA
 W�^�`��`j���A`�hA
-W�A	�HJ��HIJ���HB�L��J�K���Hjv�N��`M�ih(250 \SOFTCURSORUPCURRENT 211 \TOTOPWDS 201 DSPDESTINATION 184 \SOFTCURSORDOWN 156 DSPDESTINATION 68 \DSPPRINTCR/LF 35 \SLOWBLTCHAR 23 \CHANGECHARSET.DISPLAY)
(256 \EM.DISPINTERRUPT 191 \TOPWDS 175 \EM.DISPINTERRUPT 167 \EM.DISPINTERRUPT 132 PILOTBBT)
()
\CHANGECHARSET.DISPLAY :D8
(P 4 \INTERRUPTABLE P 2 BM P 1 CSINFO P 0 PBT I 1 CHARSET I 0 DISPLAYDATA) �@�*@��A����A@�h"@I��@I��@I�0�@A>�I��HJ�����n�����@�'I�
+W�A	�HJ��HIJ���HB�L��J�K���Hjv�N��`M�ih(250 \SOFTCURSORUPCURRENT 211 \TOTOPWDS 201 DSPDESTINATION 184 \SOFTCURSORDOWN 156 DSPDESTINATION 68 \DSPPRINTCR/LF 35 \SLOWBLTCHAR 23 \CHANGECHARSET.DISPLAY)
+(256 \EM.DISPINTERRUPT 191 \TOPWDS 175 \EM.DISPINTERRUPT 167 \EM.DISPINTERRUPT 132 PILOTBBT)
+()
+\CHANGECHARSET.DISPLAY :D8
+(P 4 \INTERRUPTABLE P 2 BM P 1 CSINFO P 0 PBT I 1 CHARSET I 0 DISPLAYDATA) �@�*@��A����A@�h"@I��@I��@I�0�@A>�I��HJ�����n�����@�'I�
 �@�@I��@I
-��#J�J�@�B�лHK���HK��h(98 \SFFixY 24 \CREATECHARSET)
(130 PILOTBBT 119 PILOTBBT)
()
\INDICATESTRINGA0001 :D8
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SI::*RESETFORMS* F 1 CHARCODE) H
gd	gi
-�Pcgl	hhPcgQ�oQl��(69 CONCAT 39 RADIX 22 SETTOPVAL 10 GETTOPVAL)
(53 %# 32 RADIX 16 PRXFLT 4 PRXFLT)
( 60 ",")
\INDICATESTRING :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 CHARCODE F 3 LISPXHIST) _

@dl�� �S!g		�$
l�@l�b�g�ol @�@l@�b�g�o@	(92 CONCAT 87 CHARACTER 31 SI::RESETUNWIND 26 \MVLIST 21 \INDICATESTRINGA0001)
(75 ^ 52 %# 16 SI::RESETUNWIND)
( 81 "" 58 "")
\SLOWBLTCHAR :D8
(P 16 CSINFO P 15 HEIGHTMOVED P 14 YPOS P 13 SOFTCURSORUP P 12 DISPINTERRUPT P 11 SOURCEBIT P 10 WIDTH P 9 DESTBIT P 8 PILOTBBT P 7 CURX P 6 RIGHT P 5 LEFT P 4 NEWX P 2 DD P 1 CHAR8CODE P 0 ROTATION I 1 DISPLAYSTREAM I 0 CHARCODE F 17 \SOFTCURSORP F 18 \SOFTCURSORUPP F 19 \CURSORDESTINATION F 20 \SCREENBITMAPS) K@@l��YA�0Zd��Xdj�
~�J�_J�I���\J��l
A
+��#J�J�@�B�лHK���HK��h(98 \SFFixY 24 \CREATECHARSET)
+(130 PILOTBBT 119 PILOTBBT)
+()
+\INDICATESTRINGA0001 :D8
+(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SI::*RESETFORMS* F 1 CHARCODE) H
gd	gi
+�Pcgl	hhPcgQ�oQl��(69 CONCAT 39 RADIX 22 SETTOPVAL 10 GETTOPVAL)
+(53 %# 32 RADIX 16 PRXFLT 4 PRXFLT)
+( 60 ",")
+\INDICATESTRING :D8
+(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 CHARCODE F 3 LISPXHIST) _

@dl�� �S!g		�$
l�@l�b�g�ol @�@l@�b�g�o@	(92 CONCAT 87 CHARACTER 31 SI::RESETUNWIND 26 \MVLIST 21 \INDICATESTRINGA0001)
+(75 ^ 52 %# 16 SI::RESETUNWIND)
+( 81 "" 58 "")
+\SLOWBLTCHAR :D8
+(P 16 CSINFO P 15 HEIGHTMOVED P 14 YPOS P 13 SOFTCURSORUP P 12 DISPINTERRUPT P 11 SOURCEBIT P 10 WIDTH P 9 DESTBIT P 8 PILOTBBT P 7 CURX P 6 RIGHT P 5 LEFT P 4 NEWX P 2 DD P 1 CHAR8CODE P 0 ROTATION I 1 DISPLAYSTREAM I 0 CHARCODE F 17 \SOFTCURSORP F 18 \SOFTCURSORUPP F 19 \CURSORDESTINATION F 20 \SCREENBITMAPS) K@@l��YA�0Zd��Xdj�
~�J�_J�I���\J��l
A
 �J�_J�I��ؼJL�OJ��_�J�"dO�O�J�#LJ�ػdK�K�J�*_�NM�
O�	j�

M_�NM�_�J�I��M�O�_�J��dk�adl��O��_�O��_�O��_�Ddl��O���_�O���_�O���_�$l�lO�_�lO�_�lO�_�� 
W"�-W$�hA
 W&�_�`�_�`j���A`�hA
 W(�A	�OO��OO��OO��Ojv�O��`O����0J�_�J�I��_�J��@�����
@�J�h_ �HdlZ�;�AOO�
@@ -52,23 +223,96 @@ Q
 �k�OO �
 O ��O
�Hn
�8AOO�
 �O �jJ�I��AJ�O ��J�O �
-O ��O
�o	h(583 ERROR 572 BKBITBLT 530 \DSPYPOSITION.DISPLAY 511 BKBITBLT 468 \DSPYPOSITION.DISPLAY 446 \CREATECHARSET 387 \SOFTCURSORUPCURRENT 352 \TOTOPWDS 342 DSPDESTINATION 325 \SOFTCURSORDOWN 294 DSPDESTINATION 275 SHOULDNT 55 \DSPPRINTCR/LF)
(393 \EM.DISPINTERRUPT 332 \TOPWDS 316 \EM.DISPINTERRUPT 306 \EM.DISPINTERRUPT 111 \DISPLAYDATA 83 \DISPLAYDATA)
( 578 "Not implemented to rotate by other than 0, 90 or 270")
TEXTUREP :D8
(I 0 OBJECT) 
@d3 ���@�k�@NIL
(18 BITMAP 10 BITMAP)
()
INVERT.TEXTURE :D8
(I 1 SCRATCHBM I 0 TEXTURE) @d3 �n���n���A
-(19 INVERT.TEXTURE.BITMAP)
NIL
()
INVERT.TEXTURE.BITMAP :D8
(P 0 NEWBM I 1 SCRATCHBM I 0 BM) �@�k�@	�A��)A�k�@�A��A	�A�l@�
-
H�@�H�@��IdK�HJ�n�����JkкIk�Y��(79 BITMAPCREATE 61 \ILLEGAL.ARG 16 \ILLEGAL.ARG)
(112 BITMAP 104 BITMAP 96 BITMAP 88 BITMAP 72 BITMAP 51 BITMAP 43 BITMAP 31 BITMAP 23 BITMAP 5 BITMAP)
()
BITMAPWIDTH :D8
(I 0 BITMAP) &
@��@�@��@g
-@	(35 \ILLEGAL.ARG 28 GETWINDOWPROP)
(23 WIDTH 16 WINDOW 5 BITMAP)
()
READBITMAP :D8
(P 6 BITSPERPIXEL P 5 W P 4 BM P 3 BASE P 2 STRM P 1 HEIGHT P 0 WIDTH I 0 FILE) �
@	@	g�o	�@	@	@g
-CJ	dg�dg�k��@	^H�l�����HIN\��Ij�qJ	g�RIdj�\J	�J l"�=Mdj�0KjJ l@�����J l@��ǿKkJ l@�����J l@��ǿKkлkٰϿJ l"�o	hkٰ��J	�J l)��L(237 SKIPSEPRS 224 ERROR 146 SKIPSEPRS 126 SKIPSEPRS 106 BITMAPCREATE 87 RATOM 61 SKIPSEPRS 52 GETSTREAM 41 RATOM 35 RATOM 28 ERROR 11 READC 5 SKIPSEPRS)
(131 %" 112 BITMAP 75 %) 67 %" 47 INPUT 16 %()
( 219 "BAD FORMAT OF BITMAP IN FILE" 23 "BAD FORMAT OF BITMAP IN FILE")
\INSUREBITSPERPIXEL :D8
(I 0 NBITS) #
@d�kdk��dl��dl��dl��	(32 \ILLEGAL.ARG)
NIL
()
MAXIMUMCOLOR :D8
(L (0 BITSPERPIXEL)) 
k@�k�NIL
NIL
()
OPPOSITECOLOR :D8
(I 1 BITSPERPIXEL I 0 COLOR) 
-A	@�(5 MAXIMUMCOLOR)
NIL
()
MAXIMUMSHADE :D8
(I 0 BITSPERPIXEL) 
@dk�n��	(13 MAXIMUMCOLOR)
NIL
()
OPPOSITESHADE :D8
(I 1 BITSPERPIXEL I 0 SHADE) 
-A	@�(5 MAXIMUMSHADE)
NIL
()
\MEDW.BITBLT :D8
(P 9 A0205 P 8 A0204 P 7 SOURCEBOTTOMTRANSFORMED P 6 SOURCELEFTTRANSFORMED P 3 SRCWIN P 2 A0203 P 1 DD P 0 DSTWIN I 11 CLIPPINGREGION I 10 TEXTURE I 9 OPERATION I 8 SOURCETYPE I 7 HEIGHT I 6 WIDTH I 5 DESTINATIONBOTTOM I 4 DESTINATIONLEFT I 3 DESTINATION I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCE F 10 \SCREENBITMAPS) 
+O ��O
�o	h(583 ERROR 572 BKBITBLT 530 \DSPYPOSITION.DISPLAY 511 BKBITBLT 468 \DSPYPOSITION.DISPLAY 446 \CREATECHARSET 387 \SOFTCURSORUPCURRENT 352 \TOTOPWDS 342 DSPDESTINATION 325 \SOFTCURSORDOWN 294 DSPDESTINATION 275 SHOULDNT 55 \DSPPRINTCR/LF)
+(393 \EM.DISPINTERRUPT 332 \TOPWDS 316 \EM.DISPINTERRUPT 306 \EM.DISPINTERRUPT 111 \DISPLAYDATA 83 \DISPLAYDATA)
+( 578 "Not implemented to rotate by other than 0, 90 or 270")
+TEXTUREP :D8
+(I 0 OBJECT) 
@d3 ���@�k�@NIL
+(18 BITMAP 10 BITMAP)
+()
+INVERT.TEXTURE :D8
+(I 1 SCRATCHBM I 0 TEXTURE) @d3 �n���n���A
+(19 INVERT.TEXTURE.BITMAP)
+NIL
+()
+INVERT.TEXTURE.BITMAP :D8
+(P 0 NEWBM I 1 SCRATCHBM I 0 BM) �@�k�@	�A��)A�k�@�A��A	�A�l@�
+
H�@�H�@��IdK�HJ�n�����JkкIk�Y��(79 BITMAPCREATE 61 \ILLEGAL.ARG 16 \ILLEGAL.ARG)
+(112 BITMAP 104 BITMAP 96 BITMAP 88 BITMAP 72 BITMAP 51 BITMAP 43 BITMAP 31 BITMAP 23 BITMAP 5 BITMAP)
+()
+BITMAPWIDTH :D8
+(I 0 BITMAP) &
@��@�@��@g
+@	(35 \ILLEGAL.ARG 28 GETWINDOWPROP)
+(23 WIDTH 16 WINDOW 5 BITMAP)
+()
+READBITMAP :D8
+(P 6 BITSPERPIXEL P 5 W P 4 BM P 3 BASE P 2 STRM P 1 HEIGHT P 0 WIDTH I 0 FILE) �
@	@	g�o	�@	@	@g
+CJ	dg�dg�k��@	^H�l�����HIN\��Ij�qJ	g�RIdj�\J	�J l"�=Mdj�0KjJ l@�����J l@��ǿKkJ l@�����J l@��ǿKkлkٰϿJ l"�o	hkٰ��J	�J l)��L(237 SKIPSEPRS 224 ERROR 146 SKIPSEPRS 126 SKIPSEPRS 106 BITMAPCREATE 87 RATOM 61 SKIPSEPRS 52 GETSTREAM 41 RATOM 35 RATOM 28 ERROR 11 READC 5 SKIPSEPRS)
+(131 %" 112 BITMAP 75 %) 67 %" 47 INPUT 16 %()
+( 219 "BAD FORMAT OF BITMAP IN FILE" 23 "BAD FORMAT OF BITMAP IN FILE")
+\INSUREBITSPERPIXEL :D8
+(I 0 NBITS) #
@d�kdk��dl��dl��dl��	(32 \ILLEGAL.ARG)
+NIL
+()
+MAXIMUMCOLOR :D8
+(L (0 BITSPERPIXEL)) 
k@�k�NIL
+NIL
+()
+OPPOSITECOLOR :D8
+(I 1 BITSPERPIXEL I 0 COLOR) 
+A	@�(5 MAXIMUMCOLOR)
+NIL
+()
+MAXIMUMSHADE :D8
+(I 0 BITSPERPIXEL) 
@dk�n��	(13 MAXIMUMCOLOR)
+NIL
+()
+OPPOSITESHADE :D8
+(I 1 BITSPERPIXEL I 0 SHADE) 
+A	@�(5 MAXIMUMSHADE)
+NIL
+()
+\MEDW.BITBLT :D8
+(P 9 A0291 P 8 A0290 P 7 SOURCEBOTTOMTRANSFORMED P 6 SOURCELEFTTRANSFORMED P 3 SRCWIN P 2 A0289 P 1 DD P 0 DSTWIN I 11 CLIPPINGREGION I 10 TEXTURE I 9 OPERATION I 8 SOURCETYPE I 7 HEIGHT I 6 WIDTH I 5 DESTINATIONBOTTOM I 4 DESTINATIONLEFT I 3 DESTINATION I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCE F 10 \SCREENBITMAPS) 
 
@	�C	�o	�@��Z@�WCi
 Cgh�0H�2�H�H�2@ABCDEFGGGGGABlJ�
�C�����C����@i
 !@gh�0

AI�صA
BI�صBK�2�J_�K�2I�NOCDEFGGGGGNI�"�dL�LOI�$�dM�MlO��@
 hC
 ��@i
 !@gh�0

AI�صA
BI�صB
@`�h@
-W�@	�K�2�L
	K�2I�NOCDEFGGGGGNI�"�dL�LOI�$�dM�MlO�o	i(524 SHOULDNT 418 \TOTOPWDS 408 DSPDESTINATION 345 \GETSTREAM 330 WFROMDS 318 DSPDESTINATION 311 DSPDESTINATION 162 \GETSTREAM 147 WFROMDS 55 \GETSTREAM 43 WFROMDS 24 SHOULDNT 13 IMAGESTREAMP 5 IMAGESTREAMP)
(494 \DISPLAYDATA 477 \DISPLAYDATA 451 \DISPLAYDATA 443 WINDOW 432 SCREEN 425 WINDOW 398 \TOPWDS 383 \DISPLAYDATA 367 \DISPLAYDATA 357 \DISPLAYDATA 350 STREAM 339 OUTPUT 284 \DISPLAYDATA 267 \DISPLAYDATA 241 \DISPLAYDATA 233 WINDOW 222 SCREEN 215 WINDOW 200 \DISPLAYDATA 184 \DISPLAYDATA 174 \DISPLAYDATA 167 STREAM 156 OUTPUT 127 BITMAP 92 WINDOW 83 SCREEN 76 WINDOW 67 \DISPLAYDATA 60 STREAM 49 OUTPUT 31 BITMAP)
( 519 "Invalid argument to \XW.BIBLT" 19 "Neither SOURCE nor DESTINATION is an imagestream.")
FINISH-READING-BITMAP :D8
(L (0 STREAM) F 29 *READ-SUPPRESS*) (

@	� Hd��oH
+W�@	�K�2�L
	K�2I�NOCDEFGGGGGNI�"�dL�LOI�$�dM�MlO�o	i(524 SHOULDNT 418 \TOTOPWDS 408 DSPDESTINATION 345 \GETSTREAM 330 WFROMDS 318 DSPDESTINATION 311 DSPDESTINATION 162 \GETSTREAM 147 WFROMDS 55 \GETSTREAM 43 WFROMDS 24 SHOULDNT 13 IMAGESTREAMP 5 IMAGESTREAMP)
+(494 \DISPLAYDATA 477 \DISPLAYDATA 451 \DISPLAYDATA 443 WINDOW 432 SCREEN 425 WINDOW 398 \TOPWDS 383 \DISPLAYDATA 367 \DISPLAYDATA 357 \DISPLAYDATA 350 STREAM 339 OUTPUT 284 \DISPLAYDATA 267 \DISPLAYDATA 241 \DISPLAYDATA 233 WINDOW 222 SCREEN 215 WINDOW 200 \DISPLAYDATA 184 \DISPLAYDATA 174 \DISPLAYDATA 167 STREAM 156 OUTPUT 127 BITMAP 92 WINDOW 83 SCREEN 76 WINDOW 67 \DISPLAYDATA 60 STREAM 49 OUTPUT 31 BITMAP)
+( 519 "Invalid argument to \XW.BIBLT" 19 "Neither SOURCE nor DESTINATION is an imagestream.")
+FINISH-READING-BITMAP :D8
+(L (0 STREAM) F 29 *READ-SUPPRESS*) (

@	� Hd��oH
 ���Y
�I[
�K]�Lk�M_�J3 �L3 �N3 �O�oH
 �JN�l�����!W:�,LO$�l�j_�_�OO�O&
��@	�Ok�_���JLN_&�_(�@g
-_"�Lj_ �_�OO �O"��_j��O����O$j_�_�OO�
6O"	l@�O"	l@�O"	l@�O"	l@�jO*�-O*l�&jO,� O,l�jO.�O.l�jO0�O0l�o	�O(jO*����O,�ǿO(kO.����O0��O(k�_(�Ok�_���f	���TO$j_�_�OO��O" l@�O" l@�O" l@�O" l@�jO2�-O2l�&jO4� O4l�jO6�O6l�jO8�O8l�o	�O(jO2����O4�ǿO(kO6����O8��O(k�_(�Ok�_���vO k�_ ����(494 CL:ERROR 386 \FZEROP 335 CL:ERROR 270 READCCODE 260 READCCODE 250 READCCODE 240 READCCODE 169 \GETSTREAM 146 BITMAPCREATE 128 CL:READ-CHAR 78 CL:ERROR 29 ASSERT-FAIL 5 READ)
(194 STREAM 164 INPUT 153 BITMAP)
( 489 "Illegal character in bitmap contents specification." 330 "Illegal character in bitmap contents specification."
 72 "Bad bitmap dimension specification: ~S" 23 "BUG: FINISH-READING-BITMAP called with non-list on stream: ~S")
(RPAQQ MINIMUMCOLOR 0)
(RPAQQ MINIMUMSHADE 0)
(CONSTANTS (MINIMUMCOLOR 0) (MINIMUMSHADE 0))
(MOVD (QUOTE BITMAPBIT) (QUOTE \BITMAPBIT))
optimize-BITMAPBIT :D8
(L (2 $$CTX 1 $$ENV 0 $$WHOLE)) 	@	(6 BITMAPBIT.EXPANDER)
NIL
()
(PUTPROP (QUOTE BITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-BITMAPBIT) (GET 
(QUOTE BITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST))))
optimize-BITMAPP :D8
(L (2 $$CTX 1 $$ENV 0 $$WHOLE)) 
@

oHhNIL
NIL
( 10 (OPENLAMBDA (X) (AND (type? BITMAP X) X)))
(PUTPROP (QUOTE BITMAPP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-BITMAPP) (GET (
QUOTE BITMAPP) (QUOTE COMPILER:OPTIMIZER-LIST))))
BITMAPBIT.EXPANDER :D8
(P 3 NEWVALUE P 2 Y P 1 X P 0 BM I 0 ARGS) -
@
@
@
@	l�@
�oHIJKh(17 LENGTH)
NIL
( 32 (OPCODES MISC4 6))
\BITBLT.DISPLAY :D8
(L (11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTINATION 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) F 48 \SCREENBITMAPS F 49 \SOFTCURSORP F 50 \SOFTCURSORUPP F 51 \CURSORDESTINATION) x0��@d��[�A�jb�B�jb�A�B�F�3@�b�G�@�b���@�BٽdM��M��@�AټdL�ɿL��gh�0X���@�A�H�
+_"�Lj_ �_�OO �O"��_j��O����O$j_�_�OO�
6O"	l@�O"	l@�O"	l@�O"	l@�jO*�-O*l�&jO,� O,l�jO.�O.l�jO0�O0l�o	�O(jO*����O,�ǿO(kO.����O0��O(k�_(�Ok�_���f	���TO$j_�_�OO��O" l@�O" l@�O" l@�O" l@�jO2�-O2l�&jO4� O4l�jO6�O6l�jO8�O8l�o	�O(jO2����O4�ǿO(kO6����O8��O(k�_(�Ok�_���vO k�_ ����(494 CL:ERROR 386 \FZEROP 335 CL:ERROR 270 READCCODE 260 READCCODE 250 READCCODE 240 READCCODE 169 \GETSTREAM 146 BITMAPCREATE 128 CL:READ-CHAR 78 CL:ERROR 29 ASSERT-FAIL 5 READ)
+(194 STREAM 164 INPUT 153 BITMAP)
+( 489 "Illegal character in bitmap contents specification." 330 "Illegal character in bitmap contents specification."
+ 72 "Bad bitmap dimension specification: ~S" 23 "BUG: FINISH-READING-BITMAP called with non-list on stream: ~S")
+(RPAQQ MINIMUMCOLOR 0)
+(RPAQQ MINIMUMSHADE 0)
+(CONSTANTS (MINIMUMCOLOR 0) (MINIMUMSHADE 0))
+(MOVD (QUOTE BITMAPBIT) (QUOTE \BITMAPBIT))
+optimize-BITMAPBIT :D8
+(L (2 $$CTX 1 $$ENV 0 $$WHOLE)) 	@	(6 BITMAPBIT.EXPANDER)
+NIL
+()
+(PUTPROP (QUOTE BITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-BITMAPBIT) (GET 
+(QUOTE BITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST))))
+optimize-BITMAPP :D8
+(L (2 $$CTX 1 $$ENV 0 $$WHOLE)) 
@

oHhNIL
+NIL
+( 10 (OPENLAMBDA (X) (AND (type? BITMAP X) X)))
+(PUTPROP (QUOTE BITMAPP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-BITMAPP) (GET (
+QUOTE BITMAPP) (QUOTE COMPILER:OPTIMIZER-LIST))))
+BITMAPBIT.EXPANDER :D8
+(P 3 NEWVALUE P 2 Y P 1 X P 0 BM I 0 ARGS) -
@
@
@
@	l�@
�oHIJKh(17 LENGTH)
+NIL
+( 32 (OPCODES MISC4 6))
+\BITBLT.DISPLAY :D8
+(L (11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTINATION 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) F 48 \SCREENBITMAPS F 49 \SOFTCURSORP F 50 \SOFTCURSORUPP F 51 \CURSORDESTINATION) x0��@d��[�A�jb�B�jb�A�B�F�3@�b�G�@�b���@�BٽdM��M��@�AټdL�ɿL��gh�0X���@�A�H�
 
b�B�H�
 
b�H�b�AH��bH�"�dN�N�BH��bH�$_�dO�O�F�NH�#J�b�G�%H�%K�b�G�H�6b�Fj�	Gj�4hH�%K�_�dO�ֿO��H�#J�_�dO񲭿O��Cd���ƿI	���h__�Wb�8Wd�h@gh
 Wf�_�`�_�`j���@gh_`�hO
@@ -88,79 +332,251 @@ O 
 �G	b�ONdk�)�GON
 �g�ONdk�G	b�ONk�ONOB�_B�ONOH�_H�ONO>�_>�h_8_:�Wb�.Wd�
hO
 Wf�_:�`�_8�`j���O`�hO
-W`�O	�`/ODOF�_T�OHOB�_V�OL�ODO@��_X�OBO>�_Z�@�OD�_\�OB_^�`OV��`OT�	�Gg�"`@O^O\OLOZOXOVOTGG
� `@O^O\OLOZOXOTGGG
O:��`O8���.O�.�_<�@ABODEFGGGGGJKlO<h(1850 \SOFTCURSORUPCURRENT 1841 \BITBLTSUB 1809 \BITBLT.MERGE 1674 \TOTOPWDS 1663 DSPDESTINATION 1644 \SOFTCURSORDOWN 1613 DSPDESTINATION 1558 INSURE.B&W.TEXTURE 1534 COLORTEXTUREFROMCOLOR# 1514 \ILLEGAL.ARG 1506 COLORNUMBERP 1490 INVERT.TEXTURE.BITMAP 1480 BITMAPCREATE 1432 INSURE.B&W.TEXTURE 1398 MAXIMUMSHADE 1165 UNCOLORIZEBITMAP 1160 COLORMAP 1142 COLORIZEBITMAP 1135 MAXIMUMCOLOR 909 \TOTOPWDS 898 DSPDESTINATION 851 DSPDESTINATION 843 DSPDESTINATION 832 TOTOPW 825 BKBITBLT 789 \SOFTCURSORUPCURRENT 780 BKBITBLT 757 BITMAPCREATE 745 \TOTOPWDS 734 DSPDESTINATION 716 \GETSTREAM 703 \SOFTCURSORDOWN 672 DSPDESTINATION 667 \GETSTREAM 624 \INSUREWINDOW 609 \INSUREWINDOW 598 WOVERLAPP 586 WINDOWP 575 WFROMDS 561 WINDOWP 546 \GETSTREAM 534 \BITBLT.BITMAP 495 \SOFTCURSORUPCURRENT 482 \BITBLT.BITMAP 456 \TOTOPWDS 445 DSPDESTINATION 427 \GETSTREAM 414 \SOFTCURSORDOWN 383 DSPDESTINATION 378 \GETSTREAM 347 WINDOWP 117 \GETSTREAM)
(1878 IMAGEOPS 1871 STREAM 1856 \EM.DISPINTERRUPT 1816 \SYSPILOTBBT 1784 \SYSPILOTBBT 1776 MERGE 1764 PILOTBBT 1759 \SYSPILOTBBT 1749 PILOTBBT 1744 \SYSPILOTBBT 1726 BITMAP 1701 BITMAP 1652 \TOPWDS 1635 \EM.DISPINTERRUPT 1625 \EM.DISPINTERRUPT 1541 TEXTURE 1485 \BBSCRATCHTEXTURE 1470 \BBSCRATCHTEXTURE 1461 BITMAP 1409 MERGE 1105 BITMAP 1032 \DISPLAYDATA 1002 \DISPLAYDATA 981 \DISPLAYDATA 969 \DISPLAYDATA 957 \DISPLAYDATA 945 \DISPLAYDATA 932 \DISPLAYDATA 918 \DISPLAYDATA 887 \TOPWDS 875 \DISPLAYDATA 866 STREAM 795 \EM.DISPINTERRUPT 774 REPLACE 769 INPUT 723 \TOPWDS 710 OUTPUT 694 \EM.DISPINTERRUPT 684 \EM.DISPINTERRUPT 661 OUTPUT 631 STREAM 616 STREAM 540 OUTPUT 501 \EM.DISPINTERRUPT 434 \TOPWDS 421 OUTPUT 405 \EM.DISPINTERRUPT 395 \EM.DISPINTERRUPT 372 OUTPUT 336 BITMAP 311 \DISPLAYDATA 287 \DISPLAYDATA 252 \DISPLAYDATA 235 \DISPLAYDATA 212 \DISPLAYDATA 201 \DISPLAYDATA 184 \DISPLAYDATA 173 \DISPLAYDATA 161 \DISPLAYDATA 129 \DISPLAYDATA 122 STREAM 111 OUTPUT 92 BITMAP 72 BITMAP 58 BITMAP 43 BITMAP 15 BITMAP)
()
\BITBLT.BITMAP :D8
(L (13 CLIPPEDSOURCEBOTTOM 12 CLIPPEDSOURCELEFT 11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTBITMAP 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) P 18 \INTERRUPTABLE) �0C�[C�\j]d^@�_C�ZG�QMG
_�dO�O�NG
_�dO�O�JG
G
�_�dO�O�KG
G
�_�dO�O�DdM�M�EdN�N�F�DF�dJ�J�G�EG�dK�K�DA�XEB�YGdj�jMH�_�dO�O�Gdj�jNI�_�dO�O�@�JH�_�dO�OGF�_�dO�O�@�KI�_ �dO �O GG�_"�dO"�O"[JM�dN�hGg�WG�n���K3 �Gn���n���<Lk�GL
+W`�O	�`/ODOF�_T�OHOB�_V�OL�ODO@��_X�OBO>�_Z�@�OD�_\�OB_^�`OV��`OT�	�Gg�"`@O^O\OLOZOXOVOTGG
� `@O^O\OLOZOXOTGGG
O:��`O8���.O�.�_<�@ABODEFGGGGGJKlO<h(1850 \SOFTCURSORUPCURRENT 1841 \BITBLTSUB 1809 \BITBLT.MERGE 1674 \TOTOPWDS 1663 DSPDESTINATION 1644 \SOFTCURSORDOWN 1613 DSPDESTINATION 1558 INSURE.B&W.TEXTURE 1534 COLORTEXTUREFROMCOLOR# 1514 \ILLEGAL.ARG 1506 COLORNUMBERP 1490 INVERT.TEXTURE.BITMAP 1480 BITMAPCREATE 1432 INSURE.B&W.TEXTURE 1398 MAXIMUMSHADE 1165 UNCOLORIZEBITMAP 1160 COLORMAP 1142 COLORIZEBITMAP 1135 MAXIMUMCOLOR 909 \TOTOPWDS 898 DSPDESTINATION 851 DSPDESTINATION 843 DSPDESTINATION 832 TOTOPW 825 BKBITBLT 789 \SOFTCURSORUPCURRENT 780 BKBITBLT 757 BITMAPCREATE 745 \TOTOPWDS 734 DSPDESTINATION 716 \GETSTREAM 703 \SOFTCURSORDOWN 672 DSPDESTINATION 667 \GETSTREAM 624 \INSUREWINDOW 609 \INSUREWINDOW 598 WOVERLAPP 586 WINDOWP 575 WFROMDS 561 WINDOWP 546 \GETSTREAM 534 \BITBLT.BITMAP 495 \SOFTCURSORUPCURRENT 482 \BITBLT.BITMAP 456 \TOTOPWDS 445 DSPDESTINATION 427 \GETSTREAM 414 \SOFTCURSORDOWN 383 DSPDESTINATION 378 \GETSTREAM 347 WINDOWP 117 \GETSTREAM)
+(1878 IMAGEOPS 1871 STREAM 1856 \EM.DISPINTERRUPT 1816 \SYSPILOTBBT 1784 \SYSPILOTBBT 1776 MERGE 1764 PILOTBBT 1759 \SYSPILOTBBT 1749 PILOTBBT 1744 \SYSPILOTBBT 1726 BITMAP 1701 BITMAP 1652 \TOPWDS 1635 \EM.DISPINTERRUPT 1625 \EM.DISPINTERRUPT 1541 TEXTURE 1485 \BBSCRATCHTEXTURE 1470 \BBSCRATCHTEXTURE 1461 BITMAP 1409 MERGE 1105 BITMAP 1032 \DISPLAYDATA 1002 \DISPLAYDATA 981 \DISPLAYDATA 969 \DISPLAYDATA 957 \DISPLAYDATA 945 \DISPLAYDATA 932 \DISPLAYDATA 918 \DISPLAYDATA 887 \TOPWDS 875 \DISPLAYDATA 866 STREAM 795 \EM.DISPINTERRUPT 774 REPLACE 769 INPUT 723 \TOPWDS 710 OUTPUT 694 \EM.DISPINTERRUPT 684 \EM.DISPINTERRUPT 661 OUTPUT 631 STREAM 616 STREAM 540 OUTPUT 501 \EM.DISPINTERRUPT 434 \TOPWDS 421 OUTPUT 405 \EM.DISPINTERRUPT 395 \EM.DISPINTERRUPT 372 OUTPUT 336 BITMAP 311 \DISPLAYDATA 287 \DISPLAYDATA 252 \DISPLAYDATA 235 \DISPLAYDATA 212 \DISPLAYDATA 201 \DISPLAYDATA 184 \DISPLAYDATA 173 \DISPLAYDATA 161 \DISPLAYDATA 129 \DISPLAYDATA 122 STREAM 111 OUTPUT 92 BITMAP 72 BITMAP 58 BITMAP 43 BITMAP 15 BITMAP)
+()
+\BITBLT.BITMAP :D8
+(L (13 CLIPPEDSOURCEBOTTOM 12 CLIPPEDSOURCELEFT 11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTBITMAP 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) P 18 \INTERRUPTABLE) �0C�[C�\j]d^@�_C�ZG�QMG
_�dO�O�NG
_�dO�O�JG
G
�_�dO�O�KG
G
�_�dO�O�DdM�M�EdN�N�F�DF�dJ�J�G�EG�dK�K�DA�XEB�YGdj�jMH�_�dO�O�Gdj�jNI�_�dO�O�@�JH�_�dO�OGF�_�dO�O�@�KI�_ �dO �O GG�_"�dO"�O"[JM�dN�hGg�WG�n���K3 �Gn���n���<Lk�GL
 �.Gd���G`�ld
 
 �	b�OdL���Ldl�M��J��H��*l�M���J���H���Ll�%MlڽJlںHlڸGg�GL
 b�`KN�_&�JM�_(�C�KI��_*�MH�_,�@�K�_.�M_0�`O(��`O&�	�Gg�!`@O0O.CO,O*O(O&GG
�`@O0O.CO,O*O&GGG
��k��G�Gg�oG
-�@KN�_&�JM�_(�NI�_*�MH�_,�G�Gdg��@MNCO,O*O(O&jL	L
� g�Gdg�g���o	i(795 ERROR 782 SHOULDNT 750 \BWTOCOLORBLT 743 MAXIMUMCOLOR 681 ERROR 645 \BITBLTSUB 614 \BITBLT.MERGE 486 COLORTEXTUREFROMCOLOR# 395 \ILLEGAL.ARG 389 INVERT.TEXTURE.BITMAP 379 BITMAPCREATE 349 COLORNUMBERP)
(775 ERASE 768 INVERT 757 PAINT 720 REPLACE 667 INPUT 621 \SYSPILOTBBT 590 \SYSPILOTBBT 582 MERGE 570 PILOTBBT 565 \SYSPILOTBBT 555 PILOTBBT 550 \SYSPILOTBBT 534 BITMAP 513 BITMAP 476 MERGE 384 \BBSCRATCHTEXTURE 369 \BBSCRATCHTEXTURE 359 BITMAP 310 MERGE 43 BITMAP 33 BITMAP 20 BITMAP 11 BITMAP)
( 790 "not implemented to blt between bitmaps of different pixel size." 674 "SourceType not implemented from B&W to color bitmaps.")
\BITBLT.MERGE :D8
(P 2 SCRATCH P 1 SCRATCHTOP P 0 SCRATCHLEFT I 10 TEXTURE I 9 OPERATION I 8 HEIGHT I 7 WIDTH I 6 DTY I 5 DLX I 4 DESTBITMAP I 3 STY I 2 SLX I 1 SOURCEBITMAP I 0 PILOTBBT) �Gg�<AD�7@ABCDEFGgg
+�@KN�_&�JM�_(�NI�_*�MH�_,�G�Gdg��@MNCO,O*O(O&jL	L
� g�Gdg�g���o	i(795 ERROR 782 SHOULDNT 750 \BWTOCOLORBLT 743 MAXIMUMCOLOR 681 ERROR 645 \BITBLTSUB 614 \BITBLT.MERGE 486 COLORTEXTUREFROMCOLOR# 395 \ILLEGAL.ARG 389 INVERT.TEXTURE.BITMAP 379 BITMAPCREATE 349 COLORNUMBERP)
+(775 ERASE 768 INVERT 757 PAINT 720 REPLACE 667 INPUT 621 \SYSPILOTBBT 590 \SYSPILOTBBT 582 MERGE 570 PILOTBBT 565 \SYSPILOTBBT 555 PILOTBBT 550 \SYSPILOTBBT 534 BITMAP 513 BITMAP 476 MERGE 384 \BBSCRATCHTEXTURE 369 \BBSCRATCHTEXTURE 359 BITMAP 310 MERGE 43 BITMAP 33 BITMAP 20 BITMAP 11 BITMAP)
+( 790 "not implemented to blt between bitmaps of different pixel size." 674 "SourceType not implemented from B&W to color bitmaps.")
+\BITBLT.MERGE :D8
+(P 2 SCRATCH P 1 SCRATCHTOP P 0 SCRATCHLEFT I 10 TEXTURE I 9 OPERATION I 8 HEIGHT I 7 WIDTH I 6 DTY I 5 DLX I 4 DESTBITMAP I 3 STY I 2 SLX I 1 SOURCEBITMAP I 0 PILOTBBT) �Gg�<AD�7@ABCDEFGgg
 @hddDEFGggG
El�Fl�GH�GI�
 Z@ABCJHIGgg
 @hddJHIGggG
@JHIDEFGgG
-h(166 \BITBLTSUB 144 \BITBLTSUB 117 \BITBLTSUB 91 \GETPILOTBBTSCRATCHBM 66 \BITBLTSUB 39 \BITBLTSUB)
(158 INPUT 136 ERASE 131 TEXTURE 111 REPLACE 106 INPUT 58 ERASE 53 TEXTURE 33 REPLACE 28 INPUT 6 REPLACE)
()
\BLTSHADE.DISPLAY :D8
(L (7 CLIPPINGREGION 6 OPERATION 5 HEIGHT 4 WIDTH 3 DESTINATIONBOTTOM 2 DESTINATIONLEFT 1 STREAM 0 TEXTURE) F 14 \SCREENBITMAPS F 15 \SOFTCURSORP F 16 \SOFTCURSORUPP F 17 \CURSORDESTINATION) W�
A�0]A`�hA
+h(166 \BITBLTSUB 144 \BITBLTSUB 117 \BITBLTSUB 91 \GETPILOTBBTSCRATCHBM 66 \BITBLTSUB 39 \BITBLTSUB)
+(158 INPUT 136 ERASE 131 TEXTURE 111 REPLACE 106 INPUT 58 ERASE 53 TEXTURE 33 REPLACE 28 INPUT 6 REPLACE)
+()
+\BLTSHADE.DISPLAY :D8
+(L (7 CLIPPINGREGION 6 OPERATION 5 HEIGHT 4 WIDTH 3 DESTINATIONBOTTOM 2 DESTINATIONLEFT 1 STREAM 0 TEXTURE) F 14 \SCREENBITMAPS F 15 \SOFTCURSORP F 16 \SOFTCURSORUPP F 17 \CURSORDESTINATION) W�
A�0]A`�hA
 W�A	�BM��bCM��bM�"�M�$�M�#�M�%�G�`HG
M��_�dO�O�JG
M��_�dO�O�KOG
�_�dO�O�IOG
�_�dO�O�M�\d�^BdH�H�CdJ�J�D�BD�dK�K�E�CE�dI�I�KH�IJ�h@	dg�dg��@�M�6�RNk�G@Ni�;dg�dg�@N	�(dg�@�g�Nk�@N
 �@	bNk�NHڸNKڻ@N
 b�h__�W�-W �hA
 W"�_�`�_�`j���A`�hA
-W�A	�IJ�_�`KH���`O�	�`hHhLHL�I�OgF�M�@NM��M�

�O��`O�i(585 \SOFTCURSORUPCURRENT 576 \BITBLTSUB 480 \TOTOPWDS 470 DSPDESTINATION 453 \SOFTCURSORDOWN 422 DSPDESTINATION 398 COLORTEXTUREFROMCOLOR# 376 \ILLEGAL.ARG 368 COLORNUMBERP 335 MAXIMUMSHADE 309 COLORNUMBERP 271 TYPENAME 37 \TOTOPWDS 27 DSPDESTINATION)
(591 \EM.DISPINTERRUPT 568 \DISPLAYDATA 559 \DISPLAYDATA 545 TEXTURE 534 BITMAP 523 \SYSPILOTBBT 513 PILOTBBT 508 \SYSPILOTBBT 497 PILOTBBT 492 \SYSPILOTBBT 460 \TOPWDS 444 \EM.DISPINTERRUPT 434 \EM.DISPINTERRUPT 355 LISTP 344 BITMAP 325 FIXP 317 SMALLP 285 NEW-ATOM 277 LITATOM 211 BITMAP 202 \DISPLAYDATA 138 \DISPLAYDATA 112 \DISPLAYDATA 95 \DISPLAYDATA 86 \DISPLAYDATA 77 \DISPLAYDATA 68 \DISPLAYDATA 57 \DISPLAYDATA 45 \DISPLAYDATA 17 \TOPWDS 8 STREAM)
()
\BLTSHADE.BITMAP :D8
(L (7 CLIPPINGREGION 6 OPERATION 5 HEIGHT 4 WIDTH 3 DESTINATIONBOTTOM 2 DESTINATIONLEFT 1 DESTINATIONBITMAP 0 TEXTURE) P 10 \INTERRUPTABLE) 
��	jXdYA�ZA�[A�\dk�h�G�IHG
�dM�M�IG
�dN�N�KG
G
�_�dO�O�JG
G
�_�dO�O�B�jb�C�jb�BdH�H�CdI�I�D�BD�dK�K�E�CE�dJ�J�KH�JI�h@	dg�dg�{�L�q@�	L	�Li�@	bL����
+W�A	�IJ�_�`KH���`O�	�`hHhLHL�I�OgF�M�@NM��M�

�O��`O�i(585 \SOFTCURSORUPCURRENT 576 \BITBLTSUB 480 \TOTOPWDS 470 DSPDESTINATION 453 \SOFTCURSORDOWN 422 DSPDESTINATION 398 COLORTEXTUREFROMCOLOR# 376 \ILLEGAL.ARG 368 COLORNUMBERP 335 MAXIMUMSHADE 309 COLORNUMBERP 271 TYPENAME 37 \TOTOPWDS 27 DSPDESTINATION)
+(591 \EM.DISPINTERRUPT 568 \DISPLAYDATA 559 \DISPLAYDATA 545 TEXTURE 534 BITMAP 523 \SYSPILOTBBT 513 PILOTBBT 508 \SYSPILOTBBT 497 PILOTBBT 492 \SYSPILOTBBT 460 \TOPWDS 444 \EM.DISPINTERRUPT 434 \EM.DISPINTERRUPT 355 LISTP 344 BITMAP 325 FIXP 317 SMALLP 285 NEW-ATOM 277 LITATOM 211 BITMAP 202 \DISPLAYDATA 138 \DISPLAYDATA 112 \DISPLAYDATA 95 \DISPLAYDATA 86 \DISPLAYDATA 77 \DISPLAYDATA 68 \DISPLAYDATA 57 \DISPLAYDATA 45 \DISPLAYDATA 17 \TOPWDS 8 STREAM)
+()
+\BLTSHADE.BITMAP :D8
+(L (7 CLIPPINGREGION 6 OPERATION 5 HEIGHT 4 WIDTH 3 DESTINATIONBOTTOM 2 DESTINATIONLEFT 1 DESTINATIONBITMAP 0 TEXTURE) P 10 \INTERRUPTABLE) 
��	jXdYA�ZA�[A�\dk�h�G�IHG
�dM�M�IG
�dN�N�KG
G
�_�dO�O�JG
G
�_�dO�O�B�jb�C�jb�BdH�H�CdI�I�D�BD�dK�K�E�CE�dJ�J�KH�JI�h@	dg�dg�{�L�q@�	L	�Li�@	bL����
 JI�_�`KH���`O�	�`hHhAHA�J�OgF@
i@��j��dg�dg�#�L�@Li��@L	��}@n����udg�@��hg��XL�7@	����O@
	����@@d
3 �
L	��/
	��@
	����@d	���	�@	��HڸLKڻ@L
-b����(498 COLORTEXTUREFROMCOLOR# 481 TEXTUREOFCOLOR 470 COLORNUMBERP 457 TEXTUREP 447 TEXTUREP 437 MAXIMUMCOLOR 418 COLORNUMBERP 403 COLORNUMBERP 359 MAXIMUMCOLOR 350 COLORNUMBERP 313 \BITBLTSUB 229 \ILLEGAL.ARG 221 COLORNUMBERP 213 MAXIMUMCOLOR 183 TYPENAME)
(389 LISTP 377 BITMAP 335 FIXP 327 SMALLP 305 TEXTURE 294 BITMAP 283 \SYSPILOTBBT 273 PILOTBBT 268 \SYSPILOTBBT 257 PILOTBBT 252 \SYSPILOTBBT 197 NEW-ATOM 189 LITATOM 30 BITMAP 21 BITMAP 12 BITMAP)
()
\BITBLT.BITMAP.SLOW :D8
(L (13 CLIPPEDSOURCEBOTTOM 12 CLIPPEDSOURCELEFT 11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTBITMAP 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) P 18 \INTERRUPTABLE) �0C�[C�\j]d^@�_C�ZG�QMG
_�dO�O�NG
_�dO�O�JG
G
�_�dO�O�KG
G
�_�dO�O�DdM�M�EdN�N�F�DF�dJ�J�G�EG�dK�K�DA�XEB�YGdj�jMH�_�dO�O�Gdj�jNI�_�dO�O�@�JH�_�dO�OGF�_�dO�O�@�KI�_ �dO �O GG�_"�dO"�O"[JM�dN�hGg�WG�n���K3 �Gn���n���<Lk�GL
+b����(498 COLORTEXTUREFROMCOLOR# 481 TEXTUREOFCOLOR 470 COLORNUMBERP 457 TEXTUREP 447 TEXTUREP 437 MAXIMUMCOLOR 418 COLORNUMBERP 403 COLORNUMBERP 359 MAXIMUMCOLOR 350 COLORNUMBERP 313 \BITBLTSUB 229 \ILLEGAL.ARG 221 COLORNUMBERP 213 MAXIMUMCOLOR 183 TYPENAME)
+(389 LISTP 377 BITMAP 335 FIXP 327 SMALLP 305 TEXTURE 294 BITMAP 283 \SYSPILOTBBT 273 PILOTBBT 268 \SYSPILOTBBT 257 PILOTBBT 252 \SYSPILOTBBT 197 NEW-ATOM 189 LITATOM 30 BITMAP 21 BITMAP 12 BITMAP)
+()
+\BITBLT.BITMAP.SLOW :D8
+(L (13 CLIPPEDSOURCEBOTTOM 12 CLIPPEDSOURCELEFT 11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTBITMAP 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) P 18 \INTERRUPTABLE) �0C�[C�\j]d^@�_C�ZG�QMG
_�dO�O�NG
_�dO�O�JG
G
�_�dO�O�KG
G
�_�dO�O�DdM�M�EdN�N�F�DF�dJ�J�G�EG�dK�K�DA�XEB�YGdj�jMH�_�dO�O�Gdj�jNI�_�dO�O�@�JH�_�dO�OGF�_�dO�O�@�KI�_ �dO �O GG�_"�dO"�O"[JM�dN�hGg�WG�n���K3 �Gn���n���<Lk�GL
 �.Gd���G`�ld
 
 �	b�OdL���Ldl�M��J��H��*l�M���J���H���Ll�%MlڽJlںHlڸGg�GL
 b�`KN�_&�JM�_(�C�KI��_*�MH�_,�@�K�_.�M_0�`O(��`O&�	�Gg�!`@O0O.CO,O*O(O&GG
�`@O0O.CO,O*O&GGG
��k��G�Gg�oG
-�@KN�_&�JM�_(�NI�_*�MH�_,�G�Gdg��@MNCO,O*O(O&jL	L
� g�Gdg�g���o	i(795 ERROR 782 SHOULDNT 750 \BWTOCOLORBLT 743 MAXIMUMCOLOR 681 ERROR 645 \BITBLTSUB 614 \BITBLT.MERGE 486 COLORTEXTUREFROMCOLOR# 395 \ILLEGAL.ARG 389 INVERT.TEXTURE.BITMAP 379 BITMAPCREATE 349 COLORNUMBERP)
(775 ERASE 768 INVERT 757 PAINT 720 REPLACE 667 INPUT 621 \SYSPILOTBBT 590 \SYSPILOTBBT 582 MERGE 570 PILOTBBT 565 \SYSPILOTBBT 555 PILOTBBT 550 \SYSPILOTBBT 534 BITMAP 513 BITMAP 476 MERGE 384 \BBSCRATCHTEXTURE 369 \BBSCRATCHTEXTURE 359 BITMAP 310 MERGE 43 BITMAP 33 BITMAP 20 BITMAP 11 BITMAP)
( 790 "not implemented to blt between bitmaps of different pixel size." 674 "SourceType not implemented from B&W to color bitmaps.")
\PUNT.BLTSHADE.BITMAP :D8
(L (7 CLIPPINGREGION 6 OPERATION 5 HEIGHT 4 WIDTH 3 DESTINATIONBOTTOM 2 DESTINATIONLEFT 1 DESTINATIONBITMAP 0 TEXTURE) P 10 \INTERRUPTABLE) 
��	jXdYA�ZA�[A�\dk�h�G�IHG
�dM�M�IG
�dN�N�KG
G
�_�dO�O�JG
G
�_�dO�O�B�jb�C�jb�BdH�H�CdI�I�D�BD�dK�K�E�CE�dJ�J�KH�JI�h@	dg�dg�{�L�q@�	L	�Li�@	bL����
+�@KN�_&�JM�_(�NI�_*�MH�_,�G�Gdg��@MNCO,O*O(O&jL	L
� g�Gdg�g���o	i(795 ERROR 782 SHOULDNT 750 \BWTOCOLORBLT 743 MAXIMUMCOLOR 681 ERROR 645 \BITBLTSUB 614 \BITBLT.MERGE 486 COLORTEXTUREFROMCOLOR# 395 \ILLEGAL.ARG 389 INVERT.TEXTURE.BITMAP 379 BITMAPCREATE 349 COLORNUMBERP)
+(775 ERASE 768 INVERT 757 PAINT 720 REPLACE 667 INPUT 621 \SYSPILOTBBT 590 \SYSPILOTBBT 582 MERGE 570 PILOTBBT 565 \SYSPILOTBBT 555 PILOTBBT 550 \SYSPILOTBBT 534 BITMAP 513 BITMAP 476 MERGE 384 \BBSCRATCHTEXTURE 369 \BBSCRATCHTEXTURE 359 BITMAP 310 MERGE 43 BITMAP 33 BITMAP 20 BITMAP 11 BITMAP)
+( 790 "not implemented to blt between bitmaps of different pixel size." 674 "SourceType not implemented from B&W to color bitmaps.")
+\PUNT.BLTSHADE.BITMAP :D8
+(L (7 CLIPPINGREGION 6 OPERATION 5 HEIGHT 4 WIDTH 3 DESTINATIONBOTTOM 2 DESTINATIONLEFT 1 DESTINATIONBITMAP 0 TEXTURE) P 10 \INTERRUPTABLE) 
��	jXdYA�ZA�[A�\dk�h�G�IHG
�dM�M�IG
�dN�N�KG
G
�_�dO�O�JG
G
�_�dO�O�B�jb�C�jb�BdH�H�CdI�I�D�BD�dK�K�E�CE�dJ�J�KH�JI�h@	dg�dg�{�L�q@�	L	�Li�@	bL����
 JI�_�`KH���`O�	�`hHhAHA�J�OgF@
i@��j��dg�dg�#�L�@Li��@L	��}@n����udg�@��hg��XL�7@	����O@
	����@@d
3 �
L	��/
	��@
	����@d	���	�@	��HڸLKڻ@L
-b����(498 COLORTEXTUREFROMCOLOR# 481 TEXTUREOFCOLOR 470 COLORNUMBERP 457 TEXTUREP 447 TEXTUREP 437 MAXIMUMCOLOR 418 COLORNUMBERP 403 COLORNUMBERP 359 MAXIMUMCOLOR 350 COLORNUMBERP 313 \BITBLTSUB 229 \ILLEGAL.ARG 221 COLORNUMBERP 213 MAXIMUMCOLOR 183 TYPENAME)
(389 LISTP 377 BITMAP 335 FIXP 327 SMALLP 305 TEXTURE 294 BITMAP 283 \SYSPILOTBBT 273 PILOTBBT 268 \SYSPILOTBBT 257 PILOTBBT 252 \SYSPILOTBBT 197 NEW-ATOM 189 LITATOM 30 BITMAP 21 BITMAP 12 BITMAP)
()
\PUNT.BITBLT.BITMAP :D8
(L (13 CLIPPEDSOURCEBOTTOM 12 CLIPPEDSOURCELEFT 11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTBITMAP 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) P 18 \INTERRUPTABLE) �0C�[C�\j]d^@�_C�ZG�QMG
_�dO�O�NG
_�dO�O�JG
G
�_�dO�O�KG
G
�_�dO�O�DdM�M�EdN�N�F�DF�dJ�J�G�EG�dK�K�DA�XEB�YGdj�jMH�_�dO�O�Gdj�jNI�_�dO�O�@�JH�_�dO�OGF�_�dO�O�@�KI�_ �dO �O GG�_"�dO"�O"[JM�dN�hGg�WG�n���K3 �Gn���n���<Lk�GL
+b����(498 COLORTEXTUREFROMCOLOR# 481 TEXTUREOFCOLOR 470 COLORNUMBERP 457 TEXTUREP 447 TEXTUREP 437 MAXIMUMCOLOR 418 COLORNUMBERP 403 COLORNUMBERP 359 MAXIMUMCOLOR 350 COLORNUMBERP 313 \BITBLTSUB 229 \ILLEGAL.ARG 221 COLORNUMBERP 213 MAXIMUMCOLOR 183 TYPENAME)
+(389 LISTP 377 BITMAP 335 FIXP 327 SMALLP 305 TEXTURE 294 BITMAP 283 \SYSPILOTBBT 273 PILOTBBT 268 \SYSPILOTBBT 257 PILOTBBT 252 \SYSPILOTBBT 197 NEW-ATOM 189 LITATOM 30 BITMAP 21 BITMAP 12 BITMAP)
+()
+\PUNT.BITBLT.BITMAP :D8
+(L (13 CLIPPEDSOURCEBOTTOM 12 CLIPPEDSOURCELEFT 11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTBITMAP 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) P 18 \INTERRUPTABLE) �0C�[C�\j]d^@�_C�ZG�QMG
_�dO�O�NG
_�dO�O�JG
G
�_�dO�O�KG
G
�_�dO�O�DdM�M�EdN�N�F�DF�dJ�J�G�EG�dK�K�DA�XEB�YGdj�jMH�_�dO�O�Gdj�jNI�_�dO�O�@�JH�_�dO�OGF�_�dO�O�@�KI�_ �dO �O GG�_"�dO"�O"[JM�dN�hGg�WG�n���K3 �Gn���n���<Lk�GL
 �.Gd���G`�ld
 
 �	b�OdL���Ldl�M��J��H��*l�M���J���H���Ll�%MlڽJlںHlڸGg�GL
 b�`KN�_&�JM�_(�C�KI��_*�MH�_,�@�K�_.�M_0�`O(��`O&�	�Gg�!`@O0O.CO,O*O(O&GG
�`@O0O.CO,O*O&GGG
��k��G�Gg�oG
-�@KN�_&�JM�_(�NI�_*�MH�_,�G�Gdg��@MNCO,O*O(O&jL	L
� g�Gdg�g���o	i(795 ERROR 782 SHOULDNT 750 \BWTOCOLORBLT 743 MAXIMUMCOLOR 681 ERROR 645 \BITBLTSUB 614 \BITBLT.MERGE 486 COLORTEXTUREFROMCOLOR# 395 \ILLEGAL.ARG 389 INVERT.TEXTURE.BITMAP 379 BITMAPCREATE 349 COLORNUMBERP)
(775 ERASE 768 INVERT 757 PAINT 720 REPLACE 667 INPUT 621 \SYSPILOTBBT 590 \SYSPILOTBBT 582 MERGE 570 PILOTBBT 565 \SYSPILOTBBT 555 PILOTBBT 550 \SYSPILOTBBT 534 BITMAP 513 BITMAP 476 MERGE 384 \BBSCRATCHTEXTURE 369 \BBSCRATCHTEXTURE 359 BITMAP 310 MERGE 43 BITMAP 33 BITMAP 20 BITMAP 11 BITMAP)
( 790 "not implemented to blt between bitmaps of different pixel size." 674 "SourceType not implemented from B&W to color bitmaps.")
\SCALEDBITBLT.DISPLAY :D8
(P 1 REGION P 0 BITMAP I 14 SCALE I 13 CLIPPEDSOURCEBOTTOM I 12 CLIPPEDSOURCELEFT I 11 CLIPPINGREGION I 10 TEXTURE I 9 OPERATION I 8 SOURCETYPE I 7 HEIGHT I 6 WIDTH I 5 DESTINATIONBOTTOM I 4 DESTINATIONLEFT I 3 DESTINATION I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCEBITMAP) � 
G�kb�@	� h@
+�@KN�_&�JM�_(�NI�_*�MH�_,�G�Gdg��@MNCO,O*O(O&jL	L
� g�Gdg�g���o	i(795 ERROR 782 SHOULDNT 750 \BWTOCOLORBLT 743 MAXIMUMCOLOR 681 ERROR 645 \BITBLTSUB 614 \BITBLT.MERGE 486 COLORTEXTUREFROMCOLOR# 395 \ILLEGAL.ARG 389 INVERT.TEXTURE.BITMAP 379 BITMAPCREATE 349 COLORNUMBERP)
+(775 ERASE 768 INVERT 757 PAINT 720 REPLACE 667 INPUT 621 \SYSPILOTBBT 590 \SYSPILOTBBT 582 MERGE 570 PILOTBBT 565 \SYSPILOTBBT 555 PILOTBBT 550 \SYSPILOTBBT 534 BITMAP 513 BITMAP 476 MERGE 384 \BBSCRATCHTEXTURE 369 \BBSCRATCHTEXTURE 359 BITMAP 310 MERGE 43 BITMAP 33 BITMAP 20 BITMAP 11 BITMAP)
+( 790 "not implemented to blt between bitmaps of different pixel size." 674 "SourceType not implemented from B&W to color bitmaps.")
+\SCALEDBITBLT.DISPLAY :D8
+(P 1 REGION P 0 BITMAP I 14 SCALE I 13 CLIPPEDSOURCEBOTTOM I 12 CLIPPEDSOURCELEFT I 11 CLIPPINGREGION I 10 TEXTURE I 9 OPERATION I 8 SOURCETYPE I 7 HEIGHT I 6 WIDTH I 5 DESTINATIONBOTTOM I 4 DESTINATIONLEFT I 3 DESTINATION I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCEBITMAP) � 
G�kb�@	� h@
 �F�I
b�G�3I
b�)@��@�F�@	b�G�@	b��E�hC
 b
 �D�hC
 b�FG
-X@ABHHGdhdCDEFG�GG�GGGG
(166 BKBITBLT 138 EXPANDBITMAP 129 BKBITBLT 119 BITMAPCREATE 108 DSPXPOSITION 96 DSPYPOSITION 86 SHOULDNT 78 BITMAPHEIGHT 66 BITMAPWIDTH 24 DSPCLIPPINGREGION 15 WINDOWP)
(53 BITMAP)
()
\BACKCOLOR.DISPLAY :D8
(P 1 BITSPERPIXEL P 0 DD I 1 TEXTURE I 0 DISPLAYSTREAM) � 
@gh�0Xd�6A�\A�� Ad��k�A	l�HA6�A3 �HAn���6�H��Yk�HAI
-6�A	�(127 \ILLEGAL.ARG 117 COLORNUMBERP 66 BITMAPHEIGHT 14 \GETSTREAM)
(103 BITMAP 96 \DISPLAYDATA 55 BITMAP 44 BITMAP 33 \DISPLAYDATA 26 \DISPLAYDATA 19 STREAM 8 OUTPUT)
()
(RPAQQ \BBSCRATCHTEXTURE NIL)
(RPAQQ \PILOTBBTSCRATCHBM NIL)
(MOVD? (QUOTE BITBLT) (QUOTE BKBITBLT))
DISPLAYSTREAMP :D8
(I 0 X F 0 \DISPLAYSTREAMTYPES) :

@��2@�.�P�@�.��d
P���h�@NIL
(39 IMAGEOPS 32 STREAM 20 IMAGEOPS 13 STREAM 5 STREAM)
()
DSPSOURCETYPE :D8
(P 1 \INTERRUPTABLE P 0 DD I 1 DISPLAYSTREAM I 0 SOURCETYPE) �Agh�0
H� @�y@g�@dg�l
+X@ABHHGdhdCDEFG�GG�GGGG
(166 BKBITBLT 138 EXPANDBITMAP 129 BKBITBLT 119 BITMAPCREATE 108 DSPXPOSITION 96 DSPYPOSITION 86 SHOULDNT 78 BITMAPHEIGHT 66 BITMAPWIDTH 24 DSPCLIPPINGREGION 15 WINDOWP)
+(53 BITMAP)
+()
+\BACKCOLOR.DISPLAY :D8
+(P 1 BITSPERPIXEL P 0 DD I 1 TEXTURE I 0 DISPLAYSTREAM) � 
@gh�0Xd�6A�\A�� Ad��k�A	l�HA6�A3 �HAn���6�H��Yk�HAI
+6�A	�(127 \ILLEGAL.ARG 117 COLORNUMBERP 66 BITMAPHEIGHT 14 \GETSTREAM)
+(103 BITMAP 96 \DISPLAYDATA 55 BITMAP 44 BITMAP 33 \DISPLAYDATA 26 \DISPLAYDATA 19 STREAM 8 OUTPUT)
+()
+(RPAQQ \BBSCRATCHTEXTURE NIL)
+(RPAQQ \PILOTBBTSCRATCHBM NIL)
+(MOVD? (QUOTE BITBLT) (QUOTE BKBITBLT))
+DISPLAYSTREAMP :D8
+(I 0 X F 0 \DISPLAYSTREAMTYPES) :

@��2@�.�P�@�.��d
P���h�@NIL
+(39 IMAGEOPS 32 STREAM 20 IMAGEOPS 13 STREAM 5 STREAM)
+()
+DSPSOURCETYPE :D8
+(P 1 \INTERRUPTABLE P 0 DD I 1 DISPLAYSTREAM I 0 SOURCETYPE) �Agh�0
H� @�y@g�@dg�l
 �
H@ �H�*@H�JLdg�k�g�l�Lg�l�j�
 Q�JKg�Lg��j�k�
-@(62 \LISPERROR 11 \GETSTREAM)
(145 ERASE 138 INVERT 121 INVERT 110 PAINT 99 ERASE 86 \DISPLAYDATA 77 \DISPLAYDATA 53 INVERT 43 INPUT 32 \DISPLAYDATA 23 \DISPLAYDATA 16 STREAM 5 OUTPUT)
()
DSPXOFFSET :D8
(P 0 A0217 I 1 DISPLAYSTREAM I 0 XOFFSET) '
Aghb�.�\
@AlH(11 \GETSTREAM)
(25 IMAGEOPS 18 STREAM 5 OUTPUT)
()
DSPYOFFSET :D8
(P 0 A0218 I 1 DISPLAYSTREAM I 0 YOFFSET) '
Aghb�.�^
@AlH(11 \GETSTREAM)
(25 IMAGEOPS 18 STREAM 5 OUTPUT)
()
DSPCREATE :D8
(P 0 DSTRM I 0 DESTINATION F 8 DEFAULTFONT F 9 \DISPLAYIMAGEOPS F 10 DisplayFDEV) 
k
�@�
-`b��ldj�0�dg(�`dj6�dk.�dk,�`dk�
+@(62 \LISPERROR 11 \GETSTREAM)
+(145 ERASE 138 INVERT 121 INVERT 110 PAINT 99 ERASE 86 \DISPLAYDATA 77 \DISPLAYDATA 53 INVERT 43 INPUT 32 \DISPLAYDATA 23 \DISPLAYDATA 16 STREAM 5 OUTPUT)
+()
+DSPXOFFSET :D8
+(P 0 A0303 I 1 DISPLAYSTREAM I 0 XOFFSET) '
Aghb�.�\
@AlH(11 \GETSTREAM)
+(25 IMAGEOPS 18 STREAM 5 OUTPUT)
+()
+DSPYOFFSET :D8
+(P 0 A0304 I 1 DISPLAYSTREAM I 0 YOFFSET) '
Aghb�.�^
@AlH(11 \GETSTREAM)
+(25 IMAGEOPS 18 STREAM 5 OUTPUT)
+()
+DSPCREATE :D8
+(P 0 DSTRM I 0 DESTINATION F 8 DEFAULTFONT F 9 \DISPLAYIMAGEOPS F 10 DisplayFDEV) 
k
�@�
+`b��ldj�0�dg(�dj��`dj6�dk.�dk,�`dk�
 ��dI*�dj�d`�odn�dh�dJ
 �d`�dj�dj�dj�dj��dK0�dW.�dW
-�dn���5�`�dL�4�dh2�dg*�dg&�dg$�`�dM��dj�dj�dj�0�dk��dk��dj��dl��dh�dj��dg
+�dn���5�`�dL�4�dh2�dg*�dg&�dg$�`�dM��dj�dj�dj�0�dk��dj��dl��dh�dj��dg
 �XWH
 @H
 WH
 `@�_�^O�N�OH
 gH
 gH
-H(359 DSPOPERATION 348 DSPSOURCETYPE 337 DSPRIGHTMARGIN 306 DSPFONT 298 DSPDESTINATION 291 DSPFONT 281 \SETACCESS)
(353 REPLACE 342 INPUT 317 BITMAP 311 SCREENWIDTH 276 OUTPUT 213 FILELINELENGTH 205 \STREAM.NOT.OPEN 196 \STREAM.NOT.OPEN 187 \EOSERROR 170 \STREAM.DEFAULT.MAXBUFFERS 117 ScreenBitMap 87 SCREENWIDTH 63 |PILOTBBTTYPE#| 42 |\DISPLAYDATATYPE#| 34 \DSPPRINTCHAR 18 BITMAP 10 ScreenBitMap)
( 95 -16383)
DSPDESTINATION :D8
(P 4 CL::$$TYPE-VALUE P 3 CL::$$TYPE-VALUE P 2 CL::$$TYPE-VALUE P 1 \INTERRUPTABLE P 0 DD I 1 DISPLAYSTREAM I 0 DESTINATION F 5 DisplayFDEV F 6 \4DISPLAYFDEV F 7 XDisplayFDEV F 8 \8DISPLAYFDEV F 9 \24DISPLAYFDEV) �Aghb�0Xd�@���
A@
J��2@�dk�U�,dl�V�#dl�W�l�W��J��W
+H(359 DSPOPERATION 348 DSPSOURCETYPE 337 DSPRIGHTMARGIN 306 DSPFONT 298 DSPDESTINATION 291 DSPFONT 281 \SETACCESS)
+(353 REPLACE 342 INPUT 317 BITMAP 311 SCREENWIDTH 276 OUTPUT 219 FILELINELENGTH 211 \STREAM.NOT.OPEN 202 \STREAM.NOT.OPEN 193 \EOSERROR 176 \STREAM.DEFAULT.MAXBUFFERS 123 ScreenBitMap 93 SCREENWIDTH 69 |PILOTBBTTYPE#| 48 |\DISPLAYDATATYPE#| 34 \DSPPRINTCHAR 18 BITMAP 10 ScreenBitMap)
+( 101 -16383)
+DSPDESTINATION :D8
+(P 4 CL::$$TYPE-VALUE P 3 CL::$$TYPE-VALUE P 2 CL::$$TYPE-VALUE P 1 \INTERRUPTABLE P 0 DD I 1 DISPLAYSTREAM I 0 DESTINATION F 5 DisplayFDEV F 6 \4DISPLAYFDEV F 7 XDisplayFDEV F 8 \8DISPLAYFDEV F 9 \24DISPLAYFDEV) �Aghb�0Xd�@���
A@
J��2@�dk�U�,dl�V�#dl�W�l�W��J��W
 �A@
K��A@�dk�`�:dl�`�-dl�`� l�`��K��`.�H@�@
L��HA
-�L�(241 \SFFixDestination 200 SHOULDNT 105 SHOULDNT 14 \GETSTREAM)
(248 SCREEN 233 BITMAP 214 \XDISPLAYIMAGEOPS 207 SCREEN 193 \24DISPLAYIMAGEOPS 182 \8DISPLAYIMAGEOPS 169 \4DISPLAYIMAGEOPS 156 \DISPLAYIMAGEOPS 144 BITMAP 136 BITMAP 126 STREAM 112 SCREEN 64 BITMAP 56 BITMAP 46 STREAM 28 \DISPLAYDATA 21 STREAM 8 OUTPUT)
()
DSPTEXTURE :D8
(I 1 DISPLAYSTREAM I 0 TEXTURE) 	@A
-(6 DSPBACKCOLOR)
NIL
()
\DISPLAYSTREAMINCRXPOSITION :D8
(I 1 DD I 0 N) AA�@�
HIINIL
(11 \DISPLAYDATA 5 \DISPLAYDATA)
()
\SFFixDestination :D8
(P 1 BM P 0 PBT I 1 DISPLAYSTREAM I 0 DISPLAYDATA) 9@�*@�
HI�����n����@	@n��>�@n���'A@
-h(53 \SFFixFont 33 \SFFixClippingRegion)
(14 PILOTBBT)
()
\SFFixClippingRegion :D8
(P 1 BM P 0 CLIPREG I 0 DISPLAYDATA) �
@�
-@�B@H
H
�@��I��dJ�J�jK�K�j�#@H
@��dj�jdn���n���"@H
H
�@��I��dL�L�jM�M�j�%@H
@��dj�jdn���n���$hNIL
(124 \DISPLAYDATA 91 \DISPLAYDATA 54 \DISPLAYDATA 22 \DISPLAYDATA)
()
\SFFixFont :D8
(I 1 DISPLAYDATA I 0 DISPLAYSTREAM) 5A�*A�A��AJk�h�	I�j�h�An��>�An���'@	(50 \SFFIXLINELENGTH)
NIL
()
\SFFIXLINELENGTH :D8
(P 0 DD I 0 DISPLAYSTREAM) I
@�0!@H�H��H��۹kI�I�k�n��J�J�n���g	�	@	h(69 \UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD 61 BOUNDP)
(56 %%SYNONYM-STREAM-DEVICE 26 FONTDESCRIPTOR 5 STREAM)
()
\UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD :D8
(P 7 SI::%%$$MAP-FIRST-SUBLIST P 6 X P 1 SI::%%$$MAP-FIRST-LIST P 0 NEWLENGTH I 0 DISPLAYSTREAM F 8 %%SYNONYM-STREAM-DEVICE F 9 %%ECHO-STREAM-DEVICE F 10 %%TWO-WAY-STREAM-DEVICE) f
@�aW�Y
O�I
^�	�!N�	@�NH��W�Z�W�\�O_��
[�N�KH��J��
]�N�MH��L��(38 CL:SYMBOL-VALUE 28 BOUNDP)
NIL
()
\SFFixY :D8
(P 4 BM P 3 CHARTOP P 2 TOP P 1 Y P 0 PBT I 1 CSINFO I 0 DISPLAYDATA) �@�*@�@���
+�L�(241 \SFFixDestination 200 SHOULDNT 105 SHOULDNT 14 \GETSTREAM)
+(248 SCREEN 233 BITMAP 214 \XDISPLAYIMAGEOPS 207 SCREEN 193 \24DISPLAYIMAGEOPS 182 \8DISPLAYIMAGEOPS 169 \4DISPLAYIMAGEOPS 156 \DISPLAYIMAGEOPS 144 BITMAP 136 BITMAP 126 STREAM 112 SCREEN 64 BITMAP 56 BITMAP 46 STREAM 28 \DISPLAYDATA 21 STREAM 8 OUTPUT)
+()
+DSPTEXTURE :D8
+(I 1 DISPLAYSTREAM I 0 TEXTURE) 	@A
+(6 DSPBACKCOLOR)
+NIL
+()
+\DISPLAYSTREAMINCRXPOSITION :D8
+(I 1 DD I 0 N) AA�@�
HIINIL
+(11 \DISPLAYDATA 5 \DISPLAYDATA)
+()
+\SFFixDestination :D8
+(P 1 BM P 0 PBT I 1 DISPLAYSTREAM I 0 DISPLAYDATA) 9@�*@�
HI�����n����@	@n��>�@n���'A@
+h(53 \SFFixFont 33 \SFFixClippingRegion)
+(14 PILOTBBT)
+()
+\SFFixClippingRegion :D8
+(P 1 BM P 0 CLIPREG I 0 DISPLAYDATA) �
@�
+@�B@H
H
�@��I��dJ�J�jK�K�j�#@H
@��dj�jdn���n���"@H
H
�@��I��dL�L�jM�M�j�%@H
@��dj�jdn���n���$hNIL
+(124 \DISPLAYDATA 91 \DISPLAYDATA 54 \DISPLAYDATA 22 \DISPLAYDATA)
+()
+\SFFixFont :D8
+(I 1 DISPLAYDATA I 0 DISPLAYSTREAM) 5A�*A�A��AJk�h�	I�j�h�An��>�An���'@	(50 \SFFIXLINELENGTH)
+NIL
+()
+\SFFIXLINELENGTH :D8
+(P 0 DD I 0 DISPLAYSTREAM) I
@�0!@H�H��H��۹kI�I�k�n��J�J�n���g	�	@	h(69 \UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD 61 BOUNDP)
+(56 %%SYNONYM-STREAM-DEVICE 26 FONTDESCRIPTOR 5 STREAM)
+()
+\UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD :D8
+(P 7 SI::%%$$MAP-FIRST-SUBLIST P 6 X P 1 SI::%%$$MAP-FIRST-LIST P 0 NEWLENGTH I 0 DISPLAYSTREAM F 8 %%SYNONYM-STREAM-DEVICE F 9 %%ECHO-STREAM-DEVICE F 10 %%TWO-WAY-STREAM-DEVICE) f
@�aW�Y
O�I
^�	�!N�	@�NH��W�Z�W�\�O_��
[�N�KH��J��
]�N�MH��L��(38 CL:SYMBOL-VALUE 28 BOUNDP)
+NIL
+()
+\SFFixY :D8
+(P 4 BM P 3 CHARTOP P 2 TOP P 1 Y P 0 PBT I 1 CSINFO I 0 DISPLAYDATA) �@�*@�@���
 I@A�
-]�'�M�[@�\�L�L�@�%dK�Kdj�jZ��оHN��
�HN���A�\�L�@KJ�dj�jdn���n��_B�O��_�HO���HO���HJI@A�_�@�O�@�$_�dO�O�dj�j�	hNIL
(152 PILOTBBT 140 PILOTBBT 88 PILOTBBT 77 PILOTBBT 49 BITMAP 38 BITMAP 11 \DISPLAYDATA)
()
\MEDW.XOFFSET :D8
(P 1 \INTERRUPTABLE P 0 DD I 1 DISPLAYSTREAM I 0 XOFFSET) NAd�Egh�0
H�@�@d3��
H@�H		�	(75 \ILLEGAL.ARG 68 \ILLEGAL.ARG 61 \SFFixClippingRegion 14 \GETSTREAM)
(35 \DISPLAYDATA 26 \DISPLAYDATA 19 STREAM 8 OUTPUT)
()
\MEDW.YOFFSET :D8
(P 1 \INTERRUPTABLE P 0 DD I 1 DISPLAYSTREAM I 0 YOFFSET) WAd�Ngh�0
H�@�-@d3�!�
H@�H	�Hn��>�Hn���'	�	(84 \ILLEGAL.ARG 77 \ILLEGAL.ARG 56 \SFFixClippingRegion 14 \GETSTREAM)
(26 \DISPLAYDATA 19 STREAM 8 OUTPUT)
()
\DSPCLIPPINGREGION.DISPLAY :D8
(P 1 \INTERRUPTABLE P 0 DD I 1 REGION I 0 DISPLAYSTREAM) e@gh�0
H�
+]�'�M�[@�\�L�L�@�%dK�Kdj�jZ��оHN��
�HN���A�\�L�@KJ�dj�jdn���n��_B�O��_�HO���HO���HJI@A�_�@�O�@�$_�dO�O�dj�j�	hNIL
+(152 PILOTBBT 140 PILOTBBT 88 PILOTBBT 77 PILOTBBT 49 BITMAP 38 BITMAP 11 \DISPLAYDATA)
+()
+\MEDW.XOFFSET :D8
+(P 1 \INTERRUPTABLE P 0 DD I 1 DISPLAYSTREAM I 0 XOFFSET) NAd�Egh�0
H�@�@d3��
H@�H		�	(75 \ILLEGAL.ARG 68 \ILLEGAL.ARG 61 \SFFixClippingRegion 14 \GETSTREAM)
+(35 \DISPLAYDATA 26 \DISPLAYDATA 19 STREAM 8 OUTPUT)
+()
+\MEDW.YOFFSET :D8
+(P 1 \INTERRUPTABLE P 0 DD I 1 DISPLAYSTREAM I 0 YOFFSET) WAd�Ngh�0
H�@�-@d3�!�
H@�H	�Hn��>�Hn���'	�	(84 \ILLEGAL.ARG 77 \ILLEGAL.ARG 56 \SFFixClippingRegion 14 \GETSTREAM)
+(26 \DISPLAYDATA 19 STREAM 8 OUTPUT)
+()
+\DSPCLIPPINGREGION.DISPLAY :D8
+(P 1 \INTERRUPTABLE P 0 DD I 1 REGION I 0 DISPLAYSTREAM) e@gh�0
H�
 A�DAl
 �A�d
3���i��h�Ao
 �
HA
-�H	�Hn��>�Hn���'(83 \SFFixClippingRegion 68 ERROR 40 EQLENGTH 11 \GETSTREAM)
(23 \DISPLAYDATA 16 STREAM 5 OUTPUT)
( 63 " is not a REGION.")
\DSPFONT.DISPLAY :D8
(P 3 \INTERRUPTABLE P 2 DD P 1 OLDFONT P 0 XFONT I 1 FONT I 0 DISPLAYSTREAM) {0@�0Zd�YA�cA@i�J�giA
+�H	�Hn��>�Hn���'(83 \SFFixClippingRegion 68 ERROR 40 EQLENGTH 11 \GETSTREAM)
+(23 \DISPLAYDATA 16 STREAM 5 OUTPUT)
+( 63 " is not a REGION.")
+\DSPFONT.DISPLAY :D8
+(P 3 \INTERRUPTABLE P 2 DD P 1 OLDFONT P 0 XFONT I 1 FONT I 0 DISPLAYSTREAM) {0@�0Zd�YA�cA@i�J�giA
 �o	XI�7JH�JjH�
 ��JH���
 jHh�� �A�@J
-(119 \SFFixFont 105 \CREATECHARSET 62 ERROR 50 FONTCOPY 31 \COERCEFONTDESC)
(83 FONTDESCRIPTOR 41 NOERROR 17 \DISPLAYDATA 8 STREAM)
( 57 "FONT NOT FOUND OR ILLEGAL FONTCOPY PARAMETER")
\DISPLAY.PILOTBITBLT :D8
(I 1 N I 0 PILOTBBT) @AvNIL
NIL
()
\DSPLINEFEED.DISPLAY :D8
(P 0 DD I 1 DELTAY I 0 DISPLAYSTREAM) %
@�0
H�A�Ad3��HA�	�(33 \ILLEGAL.ARG)
(5 STREAM)
()
\DSPLEFTMARGIN.DISPLAY :D8
(P 1 \INTERRUPTABLE P 0 DD I 1 XPOSITION I 0 DISPLAYSTREAM) 0@�0
H�A�Ad3��
HA�@		�(44 \ILLEGAL.ARG 37 \SFFIXLINELENGTH)
(5 STREAM)
()
\DSPOPERATION.DISPLAY :D8
(P 3 \INTERRUPTABLE P 0 DD I 1 OPERATION I 0 DISPLAYSTREAM) �@gh�0!H�A���Ag�%Ag�Ag�Adg�l
+(119 \SFFixFont 105 \CREATECHARSET 62 ERROR 50 FONTCOPY 31 \COERCEFONTDESC)
+(83 FONTDESCRIPTOR 41 NOERROR 17 \DISPLAYDATA 8 STREAM)
+( 57 "FONT NOT FOUND OR ILLEGAL FONTCOPY PARAMETER")
+\DISPLAY.PILOTBITBLT :D8
+(I 1 N I 0 PILOTBBT) @AvNIL
+NIL
+()
+\DSPLINEFEED.DISPLAY :D8
+(P 0 DD I 1 DELTAY I 0 DISPLAYSTREAM) %
@�0
H�A�Ad3��HA�	�(33 \ILLEGAL.ARG)
+(5 STREAM)
+()
+\DSPLEFTMARGIN.DISPLAY :D8
+(P 1 \INTERRUPTABLE P 0 DD I 1 XPOSITION I 0 DISPLAYSTREAM) 0@�0
H�A�Ad3��
HA�@		�(44 \ILLEGAL.ARG 37 \SFFIXLINELENGTH)
+(5 STREAM)
+()
+\DSPOPERATION.DISPLAY :D8
+(P 3 \INTERRUPTABLE P 0 DD I 1 OPERATION I 0 DISPLAYSTREAM) �@gh�0!H�A���Ag�%Ag�Ag�Adg�l
 �HA�H�*H� �YAdg�k�g�l�Ag�l�j�
 Q�IJg�Ag��j�k�
-@(82 \LISPERROR 11 \GETSTREAM)
(162 ERASE 155 INVERT 138 INVERT 127 PAINT 116 ERASE 105 \DISPLAYDATA 97 \DISPLAYDATA 73 ERASE 63 INVERT 54 REPLACE 45 PAINT 32 \DISPLAYDATA 23 \DISPLAYDATA 16 STREAM 5 OUTPUT)
()
\DSPRIGHTMARGIN.DISPLAY :D8
(P 2 \INTERRUPTABLE P 1 OLDRM P 0 DD I 1 XPOSITION I 0 DISPLAYSTREAM) 4@�0
H�YA�!Ad3�I��HA�@	�	I(48 \ILLEGAL.ARG 41 \SFFIXLINELENGTH)
(5 STREAM)
()
\DSPXPOSITION.DISPLAY :D8
(P 0 DD I 1 XPOSITION I 0 DISPLAYSTREAM) /
@�0
H�A�Ad3��HA�@j��	�(43 \ILLEGAL.ARG)
(16 \DISPLAYDATA 5 STREAM)
()
\DSPYPOSITION.DISPLAY :D8
(P 1 \INTERRUPTABLE P 0 DD I 1 YPOSITION I 0 DISPLAYSTREAM) 7@�0
H�A�&Ad3��
HA�Hn��>�Hn���'	�(51 \ILLEGAL.ARG)
(5 STREAM)
()
(MOVD? (QUOTE \ILLEGAL.ARG) (QUOTE \COERCETODS))
(MOVD? (QUOTE NILL) (QUOTE WFROMDS))
(MOVD? (QUOTE NILL) (QUOTE WINDOWP))
(MOVD? (QUOTE NILL) (QUOTE INVERTW))
(RPAQ? PROMPTWINDOW T)
(RPAQ? \WINDOWWORLD NIL)
(RPAQ? \MAINSCREEN NIL)
(RPAQ? \TOPWDS)
(RPAQ? \SCREENBITMAPS)
(MOVD? (QUOTE NILL) (QUOTE \TOTOPWDS))
TTYDISPLAYSTREAM :D8
(P 3 DD P 2 WIN P 0 \INTERRUPTABLE I 0 DISPLAYSTREAM F 4 \TERM.OFD F 5 \LINEBUF.OFD F 6 *STANDARD-OUTPUT* F 7 *STANDARD-INPUT* F 8 \DISPLAYSTREAMTYPES F 9 TtyDisplayStream) 

T@��

+@(82 \LISPERROR 11 \GETSTREAM)
+(162 ERASE 155 INVERT 138 INVERT 127 PAINT 116 ERASE 105 \DISPLAYDATA 97 \DISPLAYDATA 73 ERASE 63 INVERT 54 REPLACE 45 PAINT 32 \DISPLAYDATA 23 \DISPLAYDATA 16 STREAM 5 OUTPUT)
+()
+\DSPRIGHTMARGIN.DISPLAY :D8
+(P 2 \INTERRUPTABLE P 1 OLDRM P 0 DD I 1 XPOSITION I 0 DISPLAYSTREAM) 4@�0
H�YA�!Ad3�I��HA�@	�	I(48 \ILLEGAL.ARG 41 \SFFIXLINELENGTH)
+(5 STREAM)
+()
+\DSPXPOSITION.DISPLAY :D8
+(P 0 DD I 1 XPOSITION I 0 DISPLAYSTREAM) /
@�0
H�A�Ad3��HA�@j��	�(43 \ILLEGAL.ARG)
+(16 \DISPLAYDATA 5 STREAM)
+()
+\DSPYPOSITION.DISPLAY :D8
+(P 1 \INTERRUPTABLE P 0 DD I 1 YPOSITION I 0 DISPLAYSTREAM) 7@�0
H�A�&Ad3��
HA�Hn��>�Hn���'	�(51 \ILLEGAL.ARG)
+(5 STREAM)
+()
+(MOVD? (QUOTE \ILLEGAL.ARG) (QUOTE \COERCETODS))
+(MOVD? (QUOTE NILL) (QUOTE WFROMDS))
+(MOVD? (QUOTE NILL) (QUOTE WINDOWP))
+(MOVD? (QUOTE NILL) (QUOTE INVERTW))
+(RPAQ? PROMPTWINDOW T)
+(RPAQ? \WINDOWWORLD NIL)
+(RPAQ? \MAINSCREEN NIL)
+(RPAQ? \TOPWDS)
+(RPAQ? \SCREENBITMAPS)
+(MOVD? (QUOTE NILL) (QUOTE \TOTOPWDS))
+TTYDISPLAYSTREAM :D8
+(P 3 DD P 2 WIN P 0 \INTERRUPTABLE I 0 DISPLAYSTREAM F 4 \TERM.OFD F 5 \LINEBUF.OFD F 6 *STANDARD-OUTPUT* F 7 *STANDARD-INPUT* F 8 \DISPLAYSTREAMTYPES F 9 TtyDisplayStream) 

T@��

 @ghb	�g	�@	�@	� 
@dT���T�VT�8@c�4`��`�h	�Ti
 
J�JgU���@c�WU@i
 Z� Jg`�Jg
 �c
 �Uc�@c	W�Cg@
-�@�0[�%K�$�K��jI�I�jI��	(266 PAGEHEIGHT 213 DSPSCROLL 197 IMAGESTREAMTYPE 180 \CREATELINEBUFFER 173 GETWINDOWUSERPROP 161 PUTWINDOWPROP 142 WFROMDS 121 PUTWINDOWPROP 104 WFROMDS 96 \CARET.DOWN 50 \ILLEGAL.ARG 43 TEXTSTREAMP 36 \DEFINEDP 24 DISPLAYSTREAMP 17 \GETSTREAM)
(248 \DISPLAYDATA 239 \DISPLAYDATA 231 \DISPLAYDATA 223 STREAM 207 ON 168 \LINEBUF.OFD 156 \RUNNING.PROCESS 151 PROCESS 115 \LINEBUF.OFD 89 \CARET.UP 81 \DEFAULTTTYDISPLAYSTREAM 31 TEXTSTREAMP 11 OUTPUT)
()
optimize-TTYDISPLAYSTREAM :D8
(L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @
�ggNIL
(14 IGNOREMACRO 8 \TERM.OFD)
()
(PUTPROP (QUOTE TTYDISPLAYSTREAM) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE 
optimize-TTYDISPLAYSTREAM) (GET (QUOTE TTYDISPLAYSTREAM) (QUOTE COMPILER:OPTIMIZER-LIST))))
DSPSCROLL :D8
(I 1 DISPLAYSTREAM I 0 SWITCHSETTING) 6
Agh�0
H��g@�H@g�h��(11 \GETSTREAM)
(45 OFF 36 OFF 23 \DISPLAYDATA 16 STREAM 5 OUTPUT)
()
PAGEHEIGHT :D8
(L (0 N) F 0 \#DISPLAYLINES F 1 \CURRENTDISPLAYLINE) 
P@3�@c�jc�NIL
NIL
()
(RPAQ? \CURRENTTTYDEVICE (QUOTE BCPLDISPLAY))
\DSPRESET.DISPLAY :D8
(P 5 X P 4 FONTASCENT P 3 FONT P 2 CREG P 1 WINDOW P 0 DD I 0 DISPLAYSTREAM) 
-
@ghb�0@i
+�@�0[�%K�$�K��jI�I�jI��	(266 PAGEHEIGHT 213 DSPSCROLL 197 IMAGESTREAMTYPE 180 \CREATELINEBUFFER 173 GETWINDOWUSERPROP 161 PUTWINDOWPROP 142 WFROMDS 121 PUTWINDOWPROP 104 WFROMDS 96 \CARET.DOWN 50 \ILLEGAL.ARG 43 TEXTSTREAMP 36 \DEFINEDP 24 DISPLAYSTREAMP 17 \GETSTREAM)
+(248 \DISPLAYDATA 239 \DISPLAYDATA 231 \DISPLAYDATA 223 STREAM 207 ON 168 \LINEBUF.OFD 156 \RUNNING.PROCESS 151 PROCESS 115 \LINEBUF.OFD 89 \CARET.UP 81 \DEFAULTTTYDISPLAYSTREAM 31 TEXTSTREAMP 11 OUTPUT)
+()
+optimize-TTYDISPLAYSTREAM :D8
+(L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @
�ggNIL
+(14 IGNOREMACRO 8 \TERM.OFD)
+()
+(PUTPROP (QUOTE TTYDISPLAYSTREAM) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE 
+optimize-TTYDISPLAYSTREAM) (GET (QUOTE TTYDISPLAYSTREAM) (QUOTE COMPILER:OPTIMIZER-LIST))))
+DSPSCROLL :D8
+(I 1 DISPLAYSTREAM I 0 SWITCHSETTING) 6
Agh�0
H��g@�H@g�h��(11 \GETSTREAM)
+(45 OFF 36 OFF 23 \DISPLAYDATA 16 STREAM 5 OUTPUT)
+()
+PAGEHEIGHT :D8
+(L (0 N) F 0 \#DISPLAYLINES F 1 \CURRENTDISPLAYLINE) 
P@3�@c�jc�NIL
+NIL
+()
+(RPAQ? \CURRENTTTYDEVICE (QUOTE BCPLDISPLAY))
+\DSPRESET.DISPLAY :D8
+(P 5 X P 4 FONTASCENT P 3 FONT P 2 CREG P 1 WINDOW P 0 DD I 0 DISPLAYSTREAM) 
-
@ghb�0@i
 2hI
 I
 hI
@@ -174,7 +590,19 @@ ZH
 �@J
J
�m��
 �o	�hdd@J
J
J
J
ggH�6
@i
 
Md�"	�.]d�	@�Mo
-h(297 PROCESS.EVAL 282 PROCESS.TTY 271 \INSUREWINDOW 259 WFROMDS 252 BKBITBLT 214 ERROR 203 \DSPYPOSITION.DISPLAY 184 \DSPXPOSITION.DISPLAY 158 \DSPYPOSITION.DISPLAY 148 \DSPXPOSITION.DISPLAY 129 \DSPYPOSITION.DISPLAY 106 \DSPXPOSITION.DISPLAY 61 WYOFFSET 55 WYOFFSET 48 WXOFFSET 42 WXOFFSET 32 WFROMDS 11 \GETSTREAM)
(243 REPLACE 238 TEXTURE 89 FONTDESCRIPTOR 80 FONTDESCRIPTOR 71 \DISPLAYDATA 25 \DISPLAYDATA 18 STREAM 5 OUTPUT)
( 292 (SETQ \CURRENTDISPLAYLINE 0) 209 "only supported rotations are 0, 90 and 270")
(RPAQ? *DRIBBLE-OUTPUT* NIL)
expand-\MAYBE-DRIBBLE-CHAR :D8
(L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) ?@!H
�H
�ggogIoggJhhNIL
(49 *DRIBBLE-OUTPUT* 44 \OUTCHAR 31 EQ 21 *DRIBBLE-OUTPUT* 16 AND)
( 37 ((TTYDISPLAYSTREAM)) 26 (STREAMP *DRIBBLE-OUTPUT*))
(SETF-MACRO-FUNCTION (QUOTE \MAYBE-DRIBBLE-CHAR) (QUOTE expand-\MAYBE-DRIBBLE-CHAR))
(SET-DOCUMENTATION (QUOTE \MAYBE-DRIBBLE-CHAR) (QUOTE CL:FUNCTION) 
"if we are dribbling, then dribble this character")
\DSPPRINTCHAR :D8
(P 4 TABWIDTH P 3 SPACEWIDTH P 2 I P 1 STR P 0 DD I 1 CHARCODE I 0 STREAM F 5 *DRIBBLE-OUTPUT* F 6 \PRIMTERMSA F 7 \TERM.OFD) 3@�0
`�@	�U�U	�@W�UA
+h(297 PROCESS.EVAL 282 PROCESS.TTY 271 \INSUREWINDOW 259 WFROMDS 252 BKBITBLT 214 ERROR 203 \DSPYPOSITION.DISPLAY 184 \DSPXPOSITION.DISPLAY 158 \DSPYPOSITION.DISPLAY 148 \DSPXPOSITION.DISPLAY 129 \DSPYPOSITION.DISPLAY 106 \DSPXPOSITION.DISPLAY 61 WYOFFSET 55 WYOFFSET 48 WXOFFSET 42 WXOFFSET 32 WFROMDS 11 \GETSTREAM)
+(243 REPLACE 238 TEXTURE 89 FONTDESCRIPTOR 80 FONTDESCRIPTOR 71 \DISPLAYDATA 25 \DISPLAYDATA 18 STREAM 5 OUTPUT)
+( 292 (SETQ \CURRENTDISPLAYLINE 0) 209 "only supported rotations are 0, 90 and 270")
+(RPAQ? *DRIBBLE-OUTPUT* NIL)
+expand-\MAYBE-DRIBBLE-CHAR :D8
+(L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) ?@!H
�H
�ggogIoggJhhNIL
+(49 *DRIBBLE-OUTPUT* 44 \OUTCHAR 31 EQ 21 *DRIBBLE-OUTPUT* 16 AND)
+( 37 ((TTYDISPLAYSTREAM)) 26 (STREAMP *DRIBBLE-OUTPUT*))
+(SETF-MACRO-FUNCTION (QUOTE \MAYBE-DRIBBLE-CHAR) (QUOTE expand-\MAYBE-DRIBBLE-CHAR))
+(SET-DOCUMENTATION (QUOTE \MAYBE-DRIBBLE-CHAR) (QUOTE CL:FUNCTION) 
+"if we are dribbling, then dribble this character")
+\DSPPRINTCHAR :D8
+(P 4 TABWIDTH P 3 SPACEWIDTH P 2 I P 1 STR P 0 DD I 1 CHARCODE I 0 STREAM F 5 *DRIBBLE-OUTPUT* F 6 \PRIMTERMSA F 7 \TERM.OFD) 3@�0
`�@	�U�U	�@W�UA
 �Al��Vɀ�AVɀ
 �j�VA�l�dj�y�Adl
�@H�@@�k���
�l
�Adl
�dl
 �A@
@@ -189,7 +617,11 @@ ZH
 K���\H�H��L
 �\H
 H��l
@
-�@@�LK����'A@H�@@�k���l�h(559 SHOULDNT 530 \BLTCHAR 498 \DSPPRINTCR/LF 485 \DISPLAYSTREAMINCRXPOSITION 477 IMOD 456 CHARWIDTH 441 FLASHWINDOW 436 WFROMDS 426 PLAYTUNE 365 \BLTCHAR 343 \DSPPRINTCR/LF 305 \BLTCHAR 291 NTHCHARCODE 276 NCHARS 254 NCHARS 246 \DSPPRINTCR/LF 228 \STRINGWIDTH.DISPLAY 220 \INDICATESTRING 182 \BLTCHAR 171 DSPBACKUP 165 CHARWIDTH 145 \DSPPRINTCR/LF 100 \BLTCHAR 70 GETHASH 40 \OUTCHAR 27 STREAMP 17 \CARET.DOWN)
(543 STREAM 537 STREAM 511 STREAM 505 STREAM 400 \MACHINETYPE 378 STREAM 372 STREAM 268 STREAM 262 STREAM 195 STREAM 189 STREAM 113 STREAM 107 STREAM 63 CHARTABLE 53 CHARTABLE 10 \CARET.UP)
( 421 ((880 . 2500)))
\DSPPRINTCR/LF :D8
(P 15 SOFTCURSORUP P 14 DISPINTERRUPT P 13 KEPTWIDTH P 12 HGHT P 11 DBITMAP P 10 BKGRND P 9 WDTH P 8 LFT P 7 X P 6 CLIPREG P 5 FONT P 4 ROTATION P 3 Y P 2 AMOUNT/BELOW P 1 BTM P 0 DD I 1 DISPLAY-STREAM I 0 CHARCODE F 16 \SOFTCURSORP F 17 \SCREENBITMAPS F 18 \SOFTCURSORUPP F 19 \CURSORDESTINATION F 20 \TERM.OFD) �AdW(���`�A	�A�0QH���KH��\j�5H�
+�@@�LK����'A@H�@@�k���l�h(559 SHOULDNT 530 \BLTCHAR 498 \DSPPRINTCR/LF 485 \DISPLAYSTREAMINCRXPOSITION 477 IMOD 456 CHARWIDTH 441 FLASHWINDOW 436 WFROMDS 426 PLAYTUNE 365 \BLTCHAR 343 \DSPPRINTCR/LF 305 \BLTCHAR 291 NTHCHARCODE 276 NCHARS 254 NCHARS 246 \DSPPRINTCR/LF 228 \STRINGWIDTH.DISPLAY 220 \INDICATESTRING 182 \BLTCHAR 171 DSPBACKUP 165 CHARWIDTH 145 \DSPPRINTCR/LF 100 \BLTCHAR 70 GETHASH 40 \OUTCHAR 27 STREAMP 17 \CARET.DOWN)
+(543 STREAM 537 STREAM 511 STREAM 505 STREAM 400 \MACHINETYPE 378 STREAM 372 STREAM 268 STREAM 262 STREAM 195 STREAM 189 STREAM 113 STREAM 107 STREAM 63 CHARTABLE 53 CHARTABLE 10 \CARET.UP)
+( 421 ((880 . 2500)))
+\DSPPRINTCR/LF :D8
+(P 15 SOFTCURSORUP P 14 DISPINTERRUPT P 13 KEPTWIDTH P 12 HGHT P 11 DBITMAP P 10 BKGRND P 9 WDTH P 8 LFT P 7 X P 6 CLIPREG P 5 FONT P 4 ROTATION P 3 Y P 2 AMOUNT/BELOW P 1 BTM P 0 DD I 1 DISPLAY-STREAM I 0 CHARCODE F 16 \SOFTCURSORP F 17 \SCREENBITMAPS F 18 \SOFTCURSORUPP F 19 \CURSORDESTINATION F 20 \TERM.OFD) �AdW(���`�A	�A�0QH���KH��\j�5H�
 @l
�AH�2[�AkK�LdlZ�N
�n
�N
N
�m�؉o	A
 �H�LdlZ�jH�ٰn
�H��o	�_�H���
�LdlZ�,�OH��H�#H��	��Zj�5n
�*H�"H��	�OH���Zj���
=`
H�"_�H�_�H�$�H�%I�_�H�#O�_�H�6_� W �-W$�hA
 W&�_�`�_�`j���A`�hA
@@ -201,7 +633,15 @@ ZH
 W&�_�`�_�`j���A`�hA
 W"�A	�JO�hjdOOIOO�0OOIOOIJ�OOJ�gg
 �hjdOOIOJggO
�O��`O��KJ�[�KA
-h(975 DSPYPOSITION 950 \SOFTCURSORUPCURRENT 941 BKBITBLT 911 BKBITBLT 857 \TOTOPWDS 847 DSPDESTINATION 830 \SOFTCURSORDOWN 799 DSPDESTINATION 664 DSPXPOSITION 629 DSPXPOSITION 591 \SOFTCURSORUPCURRENT 582 BKBITBLT 552 BKBITBLT 505 BKBITBLT 445 \TOTOPWDS 435 DSPDESTINATION 418 \SOFTCURSORDOWN 387 DSPDESTINATION 303 SHOULDNT 187 ERROR 145 DSPYPOSITION 139 ERROR 25 \CARET.DOWN 12 \STOPSCROLL?)
(956 \EM.DISPINTERRUPT 933 REPLACE 928 TEXTURE 905 REPLACE 900 INPUT 837 \TOPWDS 821 \EM.DISPINTERRUPT 811 \EM.DISPINTERRUPT 767 \DISPLAYDATA 748 \DISPLAYDATA 737 \DISPLAYDATA 717 \DISPLAYDATA 707 FONTDESCRIPTOR 700 \DISPLAYDATA 691 \DISPLAYDATA 679 \DISPLAYDATA 645 \DISPLAYDATA 597 \EM.DISPINTERRUPT 574 REPLACE 569 TEXTURE 546 REPLACE 541 INPUT 499 REPLACE 494 INPUT 425 \TOPWDS 409 \EM.DISPINTERRUPT 399 \EM.DISPINTERRUPT 355 \DISPLAYDATA 338 \DISPLAYDATA 327 \DISPLAYDATA 316 \DISPLAYDATA 290 \DISPLAYDATA 279 FONTDESCRIPTOR 272 \DISPLAYDATA 264 \DISPLAYDATA 243 FONTDESCRIPTOR 236 \DISPLAYDATA 228 \DISPLAYDATA 219 \DISPLAYDATA 197 \DISPLAYDATA 152 \DISPLAYDATA 89 \DISPLAYDATA 62 FONTDESCRIPTOR 55 \DISPLAYDATA 43 \DISPLAYDATA 32 STREAM 18 \CARET.UP)
( 182 "Only rotations supported are 0, 90 and 270" 134 "Only rotations supported are 0, 90 and 270")
\TTYBACKGROUND :D8
(P 0 X F 1 \LINEBUF.OFD) D

Q�`�/`�``��`�d

jH��(65 \BACKGROUND 39 WAIT.FOR.TTY)
(45 TTYBACKGROUNDFNS 32 \TTY.PROCESS 27 \RUNNING.PROCESS 20 \RUNNING.PROCESS 12 \KEYBOARD.STREAM 5 STREAM)
()
DSPBACKUP :D8
(P 4 XPOS P 3 BLTWIDTH P 2 ROTATION P 1 FONT P 0 DD I 1 DISPLAYSTREAM I 0 WIDTH) 
fA	�Ag
+h(975 DSPYPOSITION 950 \SOFTCURSORUPCURRENT 941 BKBITBLT 911 BKBITBLT 857 \TOTOPWDS 847 DSPDESTINATION 830 \SOFTCURSORDOWN 799 DSPDESTINATION 664 DSPXPOSITION 629 DSPXPOSITION 591 \SOFTCURSORUPCURRENT 582 BKBITBLT 552 BKBITBLT 505 BKBITBLT 445 \TOTOPWDS 435 DSPDESTINATION 418 \SOFTCURSORDOWN 387 DSPDESTINATION 303 SHOULDNT 187 ERROR 145 DSPYPOSITION 139 ERROR 25 \CARET.DOWN 12 \STOPSCROLL?)
+(956 \EM.DISPINTERRUPT 933 REPLACE 928 TEXTURE 905 REPLACE 900 INPUT 837 \TOPWDS 821 \EM.DISPINTERRUPT 811 \EM.DISPINTERRUPT 767 \DISPLAYDATA 748 \DISPLAYDATA 737 \DISPLAYDATA 717 \DISPLAYDATA 707 FONTDESCRIPTOR 700 \DISPLAYDATA 691 \DISPLAYDATA 679 \DISPLAYDATA 645 \DISPLAYDATA 597 \EM.DISPINTERRUPT 574 REPLACE 569 TEXTURE 546 REPLACE 541 INPUT 499 REPLACE 494 INPUT 425 \TOPWDS 409 \EM.DISPINTERRUPT 399 \EM.DISPINTERRUPT 355 \DISPLAYDATA 338 \DISPLAYDATA 327 \DISPLAYDATA 316 \DISPLAYDATA 290 \DISPLAYDATA 279 FONTDESCRIPTOR 272 \DISPLAYDATA 264 \DISPLAYDATA 243 FONTDESCRIPTOR 236 \DISPLAYDATA 228 \DISPLAYDATA 219 \DISPLAYDATA 197 \DISPLAYDATA 152 \DISPLAYDATA 89 \DISPLAYDATA 62 FONTDESCRIPTOR 55 \DISPLAYDATA 43 \DISPLAYDATA 32 STREAM 18 \CARET.UP)
+( 182 "Only rotations supported are 0, 90 and 270" 134 "Only rotations supported are 0, 90 and 270")
+\TTYBACKGROUND :D8
+(P 0 X F 1 \LINEBUF.OFD) D

Q�`�/`�``��`�d

jH��(65 \BACKGROUND 39 WAIT.FOR.TTY)
+(45 TTYBACKGROUNDFNS 32 \TTY.PROCESS 27 \RUNNING.PROCESS 20 \RUNNING.PROCESS 12 \KEYBOARD.STREAM 5 STREAM)
+()
+DSPBACKUP :D8
+(P 4 XPOS P 3 BLTWIDTH P 2 ROTATION P 1 FONT P 0 DD I 1 DISPLAYSTREAM I 0 WIDTH) 
fA	�Ag
 b	��
Aghb�0q@H�\H�ٽdM�M[H�YH��I��jZKj����`�A	�Jdj�0�LK�A
 �hjdAH�H�I�	�KI�
 �qlZ�0hjdAH�I��HH�jK��^�N�5Jn
�GhjdAH�I�	�HH�K�_�OI�
@@ -209,10 +649,94 @@ Kgg
 i@Mj�#Al
 �Al 
 �Al
-�Mk�]��N(347 BOUT 338 BOUT 329 BOUT 310 BKBITBLT 147 DSPXPOSITION 130 \CARET.DOWN 41 \GETSTREAM 25 DISPLAYSTREAMP 18 GETSTREAM 5 DISPLAYSTREAMP)
(304 REPLACE 299 TEXTURE 291 FONTDESCRIPTOR 274 \DISPLAYDATA 268 \DISPLAYDATA 259 FONTDESCRIPTOR 251 \DISPLAYDATA 221 \DISPLAYDATA 215 \DISPLAYDATA 206 FONTDESCRIPTOR 198 \DISPLAYDATA 179 FONTDESCRIPTOR 169 FONTDESCRIPTOR 158 \DISPLAYDATA 123 \CARET.UP 104 FONTDESCRIPTOR 95 \DISPLAYDATA 86 \DISPLAYDATA 65 \DISPLAYDATA 55 \DISPLAYDATA 48 STREAM 35 OUTPUT 13 OUTPUT)
()
(RPAQ? \CARET.UP)
(RPAQQ BELLCNT 2)
(RPAQQ BELLRATE 60)
(RPAQQ \DisplayStoppedForLogout NIL)
(RPAQQ TtyDisplayStream NIL)
COLORDISPLAYP :D8
(F 0 ColorScreenBitMap) 
Ph�h�NIL
NIL
()
DISPLAYBEFOREEXIT :D8
(I 0 EXITFN F 0 \TERM.OFD) L

`�E@dg�dg�P	g�h(73 SHOULDNT 58 CLRPROMPT 53 DSPRESET 37 SHOWDISPLAY 16 CHANGEBACKGROUNDBORDER 11 CURSOR)
(64 SYSOUT 44 MAKESYS 29 LOGOUT 22 \DisplayStoppedForLogout 4 \DisplayStarted)
()
DISPLAYAFTERENTRY :D8
(I 0 ENTRYFN F 0 \VideoColor) \

```�.�P	�`
	�`	�h�g	�	(89 CARETRATE 84 CARETRATE 77 \DEFINEDP 59 CHANGEBACKGROUNDBORDER 47 CURSOR 35 VIDEOCOLOR 28 \STARTDISPLAY)
(72 CARETRATE 66 \DisplayStoppedForLogout 53 \DisplayStoppedForLogout 41 \DisplayStoppedForLogout 21 \DisplayStoppedForLogout 14 \EM.CURSORBITMAP 9 BITMAP 4 CursorBitMap)
()
(PUTPROPS \CHECKCARET MACRO ((X) (AND \CARET.UP (\CARET.DOWN X))))
\DSPCLIPTRANSFORMX :D8
(P 0 TX I 1 DD I 0 X) *
@A��
A�"H�h�A�#H�HNIL
(32 \DISPLAYDATA 18 \DISPLAYDATA 6 \DISPLAYDATA)
()
\DSPCLIPTRANSFORMY :D8
(P 0 TY I 1 DD I 0 Y) *
@A��
A�$H�h�A�%H�HNIL
(32 \DISPLAYDATA 18 \DISPLAYDATA 6 \DISPLAYDATA)
()
\DSPTRANSFORMREGION :D8
(I 1 DS I 0 REGION) '@
A��@
A��@
@
hNIL
(19 \DISPLAYDATA 7 \DISPLAYDATA)
()
\DSPUNTRANSFORMY :D8
(I 1 DD I 0 Y) @A��NIL
(6 \DISPLAYDATA)
()
\DSPUNTRANSFORMX :D8
(I 1 DD I 0 X) @A��NIL
(6 \DISPLAYDATA)
()
\OFFSETCLIPPINGREGION :D8
(P 0 CREG I 1 OLDREGION I 0 DD) ~
@�
-
A�@�j�?@�j�3HH
@��AH
@��AH
AH
AH
@��H
@��H
H
hNIL
(106 \DISPLAYDATA 94 \DISPLAYDATA 62 \DISPLAYDATA 47 \DISPLAYDATA 31 \DISPLAYDATA 19 \DISPLAYDATA 5 \DISPLAYDATA)
()
UPDATESCREENDIMENSIONS :D8
NIL ``dl�dl�dl��nn(dl��l�}C}D(93 SHOULDNT 60 \DoveDisplay.ScreenHeight 50 \DoveDisplay.ScreenWidth)
(87 SCREENHEIGHT 79 SCREENWIDTH 65 SCREENHEIGHT 55 SCREENWIDTH 37 SCREENHEIGHT 29 SCREENWIDTH 4 \MACHINETYPE)
()
\CreateScreenBitMap :D8
(P 3 I P 1 MAXPAGE# P 0 RASTERWIDTH I 1 HEIGHT I 0 WIDTH) �@l�����
HA�l���k�Y`�I`k�KJ�vI�`��`�#ld`�dH��d@��dA��dk��``@�`H�`A�``K��id�Kk�[��t(175 \NEWPAGE)
(165 \DISPLAYREGION 159 ScreenBitMap 151 BITMAP 146 ScreenBitMap 138 BITMAP 133 ScreenBitMap 125 BITMAP 120 ScreenBitMap 113 \DISPLAYREGION 108 BITMAP 79 \DISPLAYREGION 68 ScreenBitMap 62 BITMAP 57 ScreenBitMap 51 \MaxScreenPage 34 \MaxScreenPage 25 \MaxScreenPage)
()
(UPDATESCREENDIMENSIONS)
(RPAQ? SCREENHEIGHT 808)
(RPAQ? SCREENWIDTH 1024)
(RPAQ? \OLDSCREENHEIGHT 808)
(RPAQ? \OLDSCREENWIDTH 1024)
(RPAQ? \MaxScreenPage -1)
(RPAQ? ScreenBitMap (\CreateScreenBitMap SCREENWIDTH SCREENHEIGHT))
(RPAQ? ColorScreenBitMap NIL)
(CURSOR.INIT)
(RPAQ? \DISPLAYINFOALIST)
\CoerceToDisplayDevice :D8
(P 0 DEV I 0 NameOrDevice) *

@�`
H��HHid�o	(39 ERROR 27 \GETDEVICEFROMNAME)
(16 FDEV 7 LastCreatedDisplayDevice)
( 34 "No color drivers have been loaded")
\CREATEDISPLAYA0014 :D8
(L (4 FDEV 3 OTHERINFO 2 RECOG 1 ACCESS 0 NAME)) @NIL
NIL
()
\CREATEDISPLAYA0021 :D8
(L (2 FDEV 1 RECOG 0 NAME)) @NIL
NIL
()
\CREATEDISPLAYA0023 :D8
(L (0 NAME)) 
@NIL
NIL
()
\CREATEDISPLAY :D8
(P 0 FDEV I 0 DISPLAYNAME) 
X
 
`d@�dj��dj��dj�0�dg�dg�dgD�dg�dg^�dgF�dg�dgb�dg`�dg�dg�dg
+�Mk�]��N(347 BOUT 338 BOUT 329 BOUT 310 BKBITBLT 147 DSPXPOSITION 130 \CARET.DOWN 41 \GETSTREAM 25 DISPLAYSTREAMP 18 GETSTREAM 5 DISPLAYSTREAMP)
+(304 REPLACE 299 TEXTURE 291 FONTDESCRIPTOR 274 \DISPLAYDATA 268 \DISPLAYDATA 259 FONTDESCRIPTOR 251 \DISPLAYDATA 221 \DISPLAYDATA 215 \DISPLAYDATA 206 FONTDESCRIPTOR 198 \DISPLAYDATA 179 FONTDESCRIPTOR 169 FONTDESCRIPTOR 158 \DISPLAYDATA 123 \CARET.UP 104 FONTDESCRIPTOR 95 \DISPLAYDATA 86 \DISPLAYDATA 65 \DISPLAYDATA 55 \DISPLAYDATA 48 STREAM 35 OUTPUT 13 OUTPUT)
+()
+(RPAQ? \CARET.UP)
+(RPAQQ BELLCNT 2)
+(RPAQQ BELLRATE 60)
+(RPAQQ \DisplayStoppedForLogout NIL)
+(RPAQQ TtyDisplayStream NIL)
+COLORDISPLAYP :D8
+(F 0 ColorScreenBitMap) 
Ph�h�NIL
+NIL
+()
+DISPLAYBEFOREEXIT :D8
+(I 0 EXITFN F 0 \TERM.OFD) L

`�E@dg�dg�P	g�h(73 SHOULDNT 58 CLRPROMPT 53 DSPRESET 37 SHOWDISPLAY 16 CHANGEBACKGROUNDBORDER 11 CURSOR)
+(64 SYSOUT 44 MAKESYS 29 LOGOUT 22 \DisplayStoppedForLogout 4 \DisplayStarted)
+()
+DISPLAYAFTERENTRY :D8
+(I 0 ENTRYFN F 0 \VideoColor) \

```�.�P	�`
	�`	�h�g	�	(89 CARETRATE 84 CARETRATE 77 \DEFINEDP 59 CHANGEBACKGROUNDBORDER 47 CURSOR 35 VIDEOCOLOR 28 \STARTDISPLAY)
+(72 CARETRATE 66 \DisplayStoppedForLogout 53 \DisplayStoppedForLogout 41 \DisplayStoppedForLogout 21 \DisplayStoppedForLogout 14 \EM.CURSORBITMAP 9 BITMAP 4 CursorBitMap)
+()
+(PUTPROPS \CHECKCARET MACRO ((X) (AND \CARET.UP (\CARET.DOWN X))))
+\DSPCLIPTRANSFORMX :D8
+(P 0 TX I 1 DD I 0 X) *
@A��
A�"H�h�A�#H�HNIL
+(32 \DISPLAYDATA 18 \DISPLAYDATA 6 \DISPLAYDATA)
+()
+\DSPCLIPTRANSFORMY :D8
+(P 0 TY I 1 DD I 0 Y) *
@A��
A�$H�h�A�%H�HNIL
+(32 \DISPLAYDATA 18 \DISPLAYDATA 6 \DISPLAYDATA)
+()
+\DSPTRANSFORMREGION :D8
+(I 1 DS I 0 REGION) '@
A��@
A��@
@
hNIL
+(19 \DISPLAYDATA 7 \DISPLAYDATA)
+()
+\DSPUNTRANSFORMY :D8
+(I 1 DD I 0 Y) @A��NIL
+(6 \DISPLAYDATA)
+()
+\DSPUNTRANSFORMX :D8
+(I 1 DD I 0 X) @A��NIL
+(6 \DISPLAYDATA)
+()
+\OFFSETCLIPPINGREGION :D8
+(P 0 CREG I 1 OLDREGION I 0 DD) ~
@�
+
A�@�j�?@�j�3HH
@��AH
@��AH
AH
AH
@��H
@��H
H
hNIL
+(106 \DISPLAYDATA 94 \DISPLAYDATA 62 \DISPLAYDATA 47 \DISPLAYDATA 31 \DISPLAYDATA 19 \DISPLAYDATA 5 \DISPLAYDATA)
+()
+UPDATESCREENDIMENSIONS :D8
+NIL ``dl�dl�dl��nn(dl��l�}C}D(93 SHOULDNT 60 \DoveDisplay.ScreenHeight 50 \DoveDisplay.ScreenWidth)
+(87 SCREENHEIGHT 79 SCREENWIDTH 65 SCREENHEIGHT 55 SCREENWIDTH 37 SCREENHEIGHT 29 SCREENWIDTH 4 \MACHINETYPE)
+()
+\CreateScreenBitMap :D8
+(P 3 I P 1 MAXPAGE# P 0 RASTERWIDTH I 1 HEIGHT I 0 WIDTH) �@l�����
HA�l���k�Y`�I`k�KJ�vI�`��`�#ld`�dH��d@��dA��dk��``@�`H�`A�``K��id�Kk�[��t(175 \NEWPAGE)
+(165 \DISPLAYREGION 159 ScreenBitMap 151 BITMAP 146 ScreenBitMap 138 BITMAP 133 ScreenBitMap 125 BITMAP 120 ScreenBitMap 113 \DISPLAYREGION 108 BITMAP 79 \DISPLAYREGION 68 ScreenBitMap 62 BITMAP 57 ScreenBitMap 51 \MaxScreenPage 34 \MaxScreenPage 25 \MaxScreenPage)
+()
+(UPDATESCREENDIMENSIONS)
+(RPAQ? SCREENHEIGHT 808)
+(RPAQ? SCREENWIDTH 1024)
+(RPAQ? \OLDSCREENHEIGHT 808)
+(RPAQ? \OLDSCREENWIDTH 1024)
+(RPAQ? \MaxScreenPage -1)
+(RPAQ? ScreenBitMap (\CreateScreenBitMap SCREENWIDTH SCREENHEIGHT))
+(RPAQ? ColorScreenBitMap NIL)
+(CURSOR.INIT)
+(RPAQ? \DISPLAYINFOALIST)
+\CoerceToDisplayDevice :D8
+(P 0 DEV I 0 NameOrDevice) *

@�`
H��HHid�o	(39 ERROR 27 \GETDEVICEFROMNAME)
+(16 FDEV 7 LastCreatedDisplayDevice)
+( 34 "No color drivers have been loaded")
+\CREATEDISPLAYA0014 :D8
+(L (4 FDEV 3 OTHERINFO 2 RECOG 1 ACCESS 0 NAME)) @NIL
+NIL
+()
+\CREATEDISPLAYA0021 :D8
+(L (2 FDEV 1 RECOG 0 NAME)) @NIL
+NIL
+()
+\CREATEDISPLAYA0023 :D8
+(L (0 NAME)) 
@NIL
+NIL
+()
+\CREATEDISPLAY :D8
+(P 0 FDEV I 0 DISPLAYNAME) 
X
 
`d@�dj��dj��dj�0�dg�dg�dgD�dg�dg^�dgF�dg�dgb�dg`�dg�dg�dg
 �dg�dg�dg,�dg.�dg0�dgT�dg>�dg@�gh�dI�dgR�dgP�dgN�dgH�dgB�dg<�dg:�dg*�dg �dg�dg�dg�X@H
-H(340 \DEFINEDEVICE)
(329 \GENERIC.RENAMEFILE 320 NILL 311 NILL 302 NILL 293 NILL 284 \GENERIC.READP 275 \ILLEGAL.DEVICEOP 266 NILL 257 \GENERIC.CHARSET 248 \ILLEGAL.DEVICEOP 239 \IS.NOT.RANDACCESSP 230 \IS.NO.RANDACCESSP 216 OFF 208 \NONPAGEDBOUTS 199 \ILLEGAL.DEVICEOP 190 \PAGEDBACKFILEPTR 181 \ILLEGAL.DEVICEOP 172 \DSPPRINTCHAR 163 \ILLEGAL.DEVICEOP 154 NILL 145 NILL 136 NILL 127 \CREATEDISPLAYA0023 118 \CREATEDISPLAYA0021 109 \ILLEGAL.DEVICEOP 100 NILL 91 \GENERATENOFILES 82 NILL 73 \ILLEGAL.DEVICEOP 64 \CREATEDISPLAYA0014 55 NILL 46 NILL 37 NILL 7 |FDEVTYPE#|)
()
DISPLAYSTREAMINIT :D8
(P 2 TTYFONTHEIGHT P 1 TTYHEIGHT P 0 TTYFONT I 0 N F 3 TtyDisplayStream) �

chS
+H(340 \DEFINEDEVICE)
+(329 \GENERIC.RENAMEFILE 320 NILL 311 NILL 302 NILL 293 NILL 284 \GENERIC.READP 275 \ILLEGAL.DEVICEOP 266 NILL 257 \GENERIC.CHARSET 248 \ILLEGAL.DEVICEOP 239 \IS.NOT.RANDACCESSP 230 \IS.NO.RANDACCESSP 216 OFF 208 \NONPAGEDBOUTS 199 \ILLEGAL.DEVICEOP 190 \PAGEDBACKFILEPTR 181 \ILLEGAL.DEVICEOP 172 \DSPPRINTCHAR 163 \ILLEGAL.DEVICEOP 154 NILL 145 NILL 136 NILL 127 \CREATEDISPLAYA0023 118 \CREATEDISPLAYA0021 109 \ILLEGAL.DEVICEOP 100 NILL 91 \GENERATENOFILES 82 NILL 73 \ILLEGAL.DEVICEOP 64 \CREATEDISPLAYA0014 55 NILL 46 NILL 37 NILL 7 |FDEVTYPE#|)
+()
+DISPLAYSTREAMINIT :D8
+(P 2 TTYFONTHEIGHT P 1 TTYHEIGHT P 0 TTYFONT I 0 N F 3 TtyDisplayStream) �

chS
 !H�
 Z`S
 S	`@3�LdJڹ`I�S
@@ -220,13 +744,46 @@ Z`S
 �jS
 �jd`IhS
 �`S
-�J�`�`J�lـ@��(139 DSPRIGHTMARGIN 127 DSPCLIPPINGREGION 107 DSPXOFFSET 99 DSPYPOSITION 84 DSPYOFFSET 57 TERMINAL-OUTPUT 41 DSPDESTINATION 18 DSPFONT 9 DSPCREATE 4 \STARTDISPLAY)
(167 \LastTTYLines 155 SCREENHEIGHT 148 SCREENHEIGHT 133 SCREENWIDTH 115 SCREENWIDTH 91 FONTDESCRIPTOR 76 SCREENHEIGHT 62 \LastTTYLines 52 \TopLevelTtyWindow 47 \DEFAULTTTYDISPLAYSTREAM 35 ScreenBitMap 27 FONTDESCRIPTOR)
()
\STARTDISPLAY :D8
(P 2 \INTERRUPTABLE P 1 W P 0 OLDWINDOWS F 3 \MAINSCREEN F 4 \WINDOWWORLD F 5 \CURSORDESTINATION F 6 \CURSORDESTRASTERWIDTH F 7 \CURSORDESTWIDTH F 8 \CURSORDESTHEIGHT) 
@``�``�AT�>	�``�``�H	�H�d


I	��``
+�J�`�`J�lـ@��(139 DSPRIGHTMARGIN 127 DSPCLIPPINGREGION 107 DSPXOFFSET 99 DSPYPOSITION 84 DSPYOFFSET 57 TERMINAL-OUTPUT 41 DSPDESTINATION 18 DSPFONT 9 DSPCREATE 4 \STARTDISPLAY)
+(167 \LastTTYLines 155 SCREENHEIGHT 148 SCREENHEIGHT 133 SCREENWIDTH 115 SCREENWIDTH 91 FONTDESCRIPTOR 76 SCREENHEIGHT 62 \LastTTYLines 52 \TopLevelTtyWindow 47 \DEFAULTTTYDISPLAYSTREAM 35 ScreenBitMap 27 FONTDESCRIPTOR)
+()
+\STARTDISPLAY :D8
+(P 2 \INTERRUPTABLE P 1 W P 0 OLDWINDOWS F 3 \MAINSCREEN F 4 \WINDOWWORLD F 5 \CURSORDESTINATION F 6 WINDOWBACKGROUNDSHADE F 7 \CURSORDESTWIDTH F 8 \CURSORDESTHEIGHT F 9 \CURSORDESTRASTERWIDTH) 
<``�``�AT�>	�``�``�H	�H�d


I	��``
 �`�
-�ijd``hS�;`c
-`c`c`�cH�P`	�H	�:`�S`�S`���d


I	��``h(291 \OPENW1 235 REVERSE 228 CHANGEBACKGROUND 142 SHOWDISPLAY 113 \CreateScreenBitMap 90 \CLOSEW1 76 \MOVE.WINDOWS.ONTO.SCREEN 45 REVERSE 40 OPENWINDOWS 7 UPDATESCREENDIMENSIONS)
(316 \OLDSCREENWIDTH 311 SCREENWIDTH 306 \OLDSCREENHEIGHT 301 SCREENHEIGHT 275 SCREENHEIGHT 270 SCREEN 261 SCREENWIDTH 256 SCREEN 247 ScreenBitMap 242 SCREEN 223 WINDOWBACKGROUNDSHADE 211 BITMAP 206 ScreenBitMap 199 SCREENHEIGHT 192 SCREENWIDTH 185 ScreenBitMap 177 WHOLESCREEN 172 WHOLEDISPLAY 162 SCREENHEIGHT 157 SCREENWIDTH 149 \DisplayStarted 135 BITMAP 130 ScreenBitMap 123 BITMAP 118 ScreenBitMap 108 SCREENHEIGHT 103 SCREENWIDTH 68 SCREENHEIGHT 63 \OLDSCREENHEIGHT 56 SCREENWIDTH 51 \OLDSCREENWIDTH 29 \OLDSCREENHEIGHT 24 SCREENHEIGHT 17 \OLDSCREENWIDTH 12 SCREENWIDTH)
()
\MOVE.WINDOWS.ONTO.SCREEN :D8
(P 4 REG P 3 YFACTOR P 2 XFACTOR P 1 W I 0 WINDOWS) �
@
H�+h�&```�Z``�[@
H�Ah
Y�
L
L
�m��`�L
L
�m��`��I��i��HX��
Yd	�\Ii
-YJI�\]
M
�m���	L
پjN�N�jKL
L
�m���	L
�_�jO�O�j�HX��V(209 MOVEW 186 FIXR 154 FIXR 127 MAINWINDOW 117 MAINWINDOW)
(135 WINDOW 95 SCREENHEIGHT 75 SCREENWIDTH 55 WINDOW 36 \OLDSCREENHEIGHT 31 SCREENHEIGHT 24 \OLDSCREENWIDTH 19 SCREENWIDTH)
()
\STOPDISPLAY :D8
(P 0 \INTERRUPTABLE) :
�`�`k�
-�m��hl:	(55 PAGEHEIGHT 32 \UNLOCKPAGES 7 SHOWDISPLAY)
(47 \DisplayStarted 40 \MaxScreenPage 25 \MaxScreenPage 18 BITMAP 13 ScreenBitMap)
()
\DEFINEDISPLAYINFO :D8
(P 0 BUCKET I 0 DISPLAYINFO F 1 \DISPLAYINFOALIST) 


@
QXd�dQ
-�@Qch(16 DREMOVE)
NIL
()
(PUTPROPS DISPLAYINITIALIZEDP MACRO (NIL (* always initialized now) T))
(PUTPROPS DISPLAYSTARTEDP MACRO (NIL \DisplayStarted))
(ADDTOVAR GLOBALVARS WHOLESCREEN)
INITIALIZEDISPLAYSTREAMS :D8
(F 0 \GUARANTEEDDISPLAYFONT F 1 DEFAULTFONT) Uodn�dh`ld
+�ijd``hS�7`c
+`c`c`�cH�LV	�H	�:`�S`�S`���d


I	��``h(287 \OPENW1 231 REVERSE 224 CHANGEBACKGROUND 142 SHOWDISPLAY 113 \CreateScreenBitMap 90 \CLOSEW1 76 \MOVE.WINDOWS.ONTO.SCREEN 45 REVERSE 40 OPENWINDOWS 7 UPDATESCREENDIMENSIONS)
+(312 \OLDSCREENWIDTH 307 SCREENWIDTH 302 \OLDSCREENHEIGHT 297 SCREENHEIGHT 271 SCREENHEIGHT 266 SCREEN 257 SCREENWIDTH 252 SCREEN 243 ScreenBitMap 238 SCREEN 211 BITMAP 206 ScreenBitMap 199 SCREENHEIGHT 192 SCREENWIDTH 185 ScreenBitMap 177 WHOLESCREEN 172 WHOLEDISPLAY 162 SCREENHEIGHT 157 SCREENWIDTH 149 \DisplayStarted 135 BITMAP 130 ScreenBitMap 123 BITMAP 118 ScreenBitMap 108 SCREENHEIGHT 103 SCREENWIDTH 68 SCREENHEIGHT 63 \OLDSCREENHEIGHT 56 SCREENWIDTH 51 \OLDSCREENWIDTH 29 \OLDSCREENHEIGHT 24 SCREENHEIGHT 17 \OLDSCREENWIDTH 12 SCREENWIDTH)
+()
+\MOVE.WINDOWS.ONTO.SCREEN :D8
+(P 4 REG P 3 YFACTOR P 2 XFACTOR P 1 W I 0 WINDOWS) �
@
H�+h�&```�Z``�[@
H�Ah
Y�
L
L
�m��`�L
L
�m��`��I��i��HX��
Yd	�\Ii
+YJI�\]
M
�m���	L
پjN�N�jKL
L
�m���	L
�_�jO�O�j�HX��V(209 MOVEW 186 FIXR 154 FIXR 127 MAINWINDOW 117 MAINWINDOW)
+(135 WINDOW 95 SCREENHEIGHT 75 SCREENWIDTH 55 WINDOW 36 \OLDSCREENHEIGHT 31 SCREENHEIGHT 24 \OLDSCREENWIDTH 19 SCREENWIDTH)
+()
+\STOPDISPLAY :D8
+(P 0 \INTERRUPTABLE) :
�`�`k�
+�m��hl:	(55 PAGEHEIGHT 32 \UNLOCKPAGES 7 SHOWDISPLAY)
+(47 \DisplayStarted 40 \MaxScreenPage 25 \MaxScreenPage 18 BITMAP 13 ScreenBitMap)
+()
+\DEFINEDISPLAYINFO :D8
+(P 0 BUCKET I 0 DISPLAYINFO F 1 \DISPLAYINFOALIST) 


@
QXd�dQ
+�@Qch(16 DREMOVE)
+NIL
+()
+(PUTPROPS DISPLAYINITIALIZEDP MACRO (NIL (* always initialized now) T))
+(PUTPROPS DISPLAYSTARTEDP MACRO (NIL \DisplayStarted))
+(ADDTOVAR GLOBALVARS WHOLESCREEN)
+INITIALIZEDISPLAYSTREAMS :D8
+(F 0 \GUARANTEEDDISPLAYFONT F 1 DEFAULTFONT) Uodn�dh`ld
 gl
 hdg
cgkPh
-c(80 FONTCLASS 63 FONTCREATE 38 BITMAPCREATE)
(70 DEFAULTFONT 57 DISPLAY 48 GACHA 43 \SYSBBTEXTURE 30 \SYSPILOTBBT 24 |PILOTBBTTYPE#| 19 WHOLEDISPLAY)
( 4 -16383)
(RPAQQ \DisplayStarted NIL)
(RPAQQ \LastTTYLines 12)
(INITIALIZEDISPLAYSTREAMS)
(DISPLAYSTREAMINIT 1000)
(PUTPROPS LLDISPLAY FILETYPE COMPILE-FILE)
(PUTPROPS LLDISPLAY COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 
1989 1990 1993 1994))
NIL
\ No newline at end of file
+c(80 FONTCLASS 63 FONTCREATE 38 BITMAPCREATE)
+(70 DEFAULTFONT 57 DISPLAY 48 GACHA 43 \SYSBBTEXTURE 30 \SYSPILOTBBT 24 |PILOTBBTTYPE#| 19 WHOLEDISPLAY)
+( 4 -16383)
+(RPAQQ \DisplayStarted NIL)
+(RPAQQ \LastTTYLines 12)
+(INITIALIZEDISPLAYSTREAMS)
+(DISPLAYSTREAMINIT 1000)
+(PUTPROPS LLDISPLAY FILETYPE COMPILE-FILE)
+(PUTPROPS LLDISPLAY COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 
+1989 1990 1993 1994 2021))
+NIL
diff --git a/sources/WINDOW b/sources/WINDOW
index dcc34320..e430bf6f 100644
--- a/sources/WINDOW
+++ b/sources/WINDOW
@@ -1,11 +1,11 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED "13-Jun-2021 10:14:32" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WINDOW.;2
 224540 
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
+
(FILECREATED " 2-Aug-2021 00:44:48" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WINDOW.;3
 224604 
 
-      changes to%:  (FNS \TTY.CREATING.DISPLAYSTREAM)
+      changes to%:  (FNS \MEDW.DSPCREATE)
 
-      previous date%: " 9-Apr-2000 17:36:29" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WINDOW.;1)
+      previous date%: "13-Jun-2021 10:14:32" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WINDOW.;2)
 
 
 (* ; "
@@ -3258,38 +3258,39 @@ Middle button down moves closest corner.")
     WINDOW])
 
 (\MEDW.DSPCREATE

-  [LAMBDA (SCREEN DESTINATION OLDSTREAM)
               (* ; "Edited 28-Dec-93 14:09 by nilsson")

+  [LAMBDA (SCREEN DESTINATION OLDSTREAM)
                (* ; "Edited  2-Aug-2021 00:44 by rmk:")

 
-    (* ;; "MEDLEY-WINDOW-SPECIFIC version of DSPCREATE.  This is what gets called by dispatch from \GENERIC.DSPCREATE.")

+    (* ;; "MEDLEY-WINDOW-SPECIFIC version of DSPCREATE.  This is what gets called by dispatch from \GENERIC.DSPCREATE.")

 
-    (* ;; "Creates a stream-of-type-display on the DESTINATION bitmap or display device")

+    (* ;; "Creates a stream-of-type-display on the DESTINATION bitmap or display device")

 
     (LET ([DSTRM (OR OLDSTREAM (create
 STREAM
                                       USERCLOSEABLE _ NIL
+                                      EOLCONVENTION _ CR.EOLC
                                       IMAGEDATA _ (create
 \DISPLAYDATA]
           (DESTINATION (OR (BITMAPP (fetch
 (SCREEN SCDESTINATION) of
 SCREEN))
                            (BITMAPP DESTINATION)
-                           ScreenBitMap)))                   (* ; 
-
                                        "initial x and y positions are 0 when the data is created.")

+                           ScreenBitMap)))                   (* ; 
+
                                        "initial x and y positions are 0 when the data is created.")

          (with
 STREAM DSTRM (SETQ DEVICE (fetch
 (SCREEN WINFDEV) of
 SCREEN))
                 (SETQ ACCESS 'OUTPUT)
                 (SETQ STRMBOUTFN (FUNCTION \DSPPRINTCHAR))
                 (SETQ OUTCHARFN (FUNCTION \DSPPRINTCHAR))
                 (SETQ IMAGEOPS (fetch
 (SCREEN WINIMAGEOPS) of
 SCREEN))
                 (replace
 (\DISPLAYDATA DDDestination) of
 IMAGEDATA with
 DESTINATION))
-         (DSPFONT DEFAULTFONT DSTRM)                         (* ; 
-
                    "dspfont can win since the (default) display imageops are filled in the stream")

-         (DSPDESTINATION DESTINATION DSTRM)                  (* ; 
-
                         "dspdestination calls \SFFixFont, which presumes there is a font present.")

+         (DSPFONT DEFAULTFONT DSTRM)                         (* ; 
+
                    "dspfont can win since the (default) display imageops are filled in the stream")

+         (DSPDESTINATION DESTINATION DSTRM)                  (* ; 
+
                         "dspdestination calls \SFFixFont, which presumes there is a font present.")

          (DSPFONT DEFAULTFONT DSTRM)
 
-         (* ;; "the reference to SCREENWIDTH here is for historic reasons: until 3-feb-86 the default right margin was always SCREENWIDTH.  It should be the width of the destination and for any destination larger than the screen this is a serious bug and was fixed.  The MAX of the right value and SCREENWIDTH was left in because existing code might be assumine a large right margin for small bitmaps and auto-CR in without it.  rrb")

+         (* ;; "the reference to SCREENWIDTH here is for historic reasons: until 3-feb-86 the default right margin was always SCREENWIDTH.  It should be the width of the destination and for any destination larger than the screen this is a serious bug and was fixed.  The MAX of the right value and SCREENWIDTH was left in because existing code might be assumine a large right margin for small bitmaps and auto-CR in without it.  rrb")

 
          (DSPRIGHTMARGIN (MAX SCREENWIDTH (fetch
 (BITMAP BITMAPWIDTH) of
 DESTINATION))
                 DSTRM)
          (DSPSOURCETYPE 'INPUT DSTRM)
-         (DSPOPERATION 'REPLACE DSTRM)                       (* ; 
-
            "called to cause the updating of the bitblt table from the fields initialized earlier.")

+         (DSPOPERATION 'REPLACE DSTRM)                       (* ; 
+
            "called to cause the updating of the bitblt table from the fields initialized earlier.")

          DSTRM])
 
 (\GENERIC.DSPCREATE

@@ -4031,41 +4032,41 @@ Middle button down moves closest corner.")
 (PUTPROPS WINDOW COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991 
 1992 1993 1994 1999 2000 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (11546 26186 (WINDOWWORLD 11556 . 15309) (WINDOWWORLDP 15311 . 15611) (CHANGEBACKGROUND 
-15613 . 16650) (CHANGEBACKGROUNDBORDER 16652 . 17203) (TILE 17205 . 17797) (
-\TTY.CREATING.DISPLAYSTREAM 17799 . 18346) (\CREATE.TTY.OUTCHARFN 18348 . 18648) (
-\CREATE.TTYDISPLAYSTREAM 18650 . 21689) (HASTTYWINDOWP 21691 . 21971) (TTYINFOSTREAM 21973 . 22497) (
-CREATESCREEN 22499 . 25442) (\INSURESCREEN 25444 . 25693) (\BITMAPTOSCREEN 25695 . 26056) (MAINSCREEN 
-26058 . 26184)) (26845 44128 (WINDOW.MOUSE.HANDLER 26855 . 39650) (\PROTECTED.APPLY 39652 . 39900) (
-DOWINDOWCOM 39902 . 41922) (DOBACKGROUNDCOM 41924 . 43082) (DEFAULT.BACKGROUND.COPYFN 43084 . 44126)) 
-(44209 76092 (BURYW 44219 . 44507) (CLEARW 44509 . 44899) (CLOSEW 44901 . 45675) (\CLOSEW1 45677 . 
-46030) (\OKTOCLOSEW 46032 . 46391) (\INTERACTIVE.CLOSEW 46393 . 47216) (OPENW 47218 . 48273) (
-DOUSERFNS 48275 . 49436) (DOUSERFNS2 49438 . 49934) (\USERFNISDON'T 49936 . 50207) (\OPENW1 50209 . 
-50559) (CREATEW 50561 . 51825) (CREATEW1 51827 . 54105) (\CREATEW1 54107 . 55326) (OPENDISPLAYSTREAM 
-55328 . 55651) (MOVEW 55653 . 55868) (PPROMPT3 55870 . 56198) (\ONSCREENCLIPPINGREGION 56200 . 56751) 
-(RELMOVEW 56753 . 57051) (SHAPEW 57053 . 61972) (SHAPEW1 61974 . 64676) (\SHAPEW2 64678 . 67364) (
-RESHOWBORDER 67366 . 67877) (\RESHOWBORDER1 67879 . 72805) (TRACKW 72807 . 73922) (SNAPW 73924 . 75597
-) (WINDOWREGION 75599 . 76090)) (76093 76789 (MINIMUMWINDOWSIZE 76103 . 76787)) (78546 101811 (
-ADVISEWDS 78556 . 86499) (SHOWWFRAME 86501 . 88253) (SHOWWTITLE 88255 . 92289) (\STRINGWIDTHGUESS 
-92291 . 92650) (RESHOWTITLE 92652 . 97293) (TOTOPW 97295 . 97534) (\INTERNALTOTOPW 97536 . 98626) (
-\TTW1 98628 . 101228) (WHICHW 101230 . 101809)) (101940 104778 (WFROMDS 101950 . 103948) (NU\TOTOPWDS 
-103950 . 104386) (\COERCETODS 104388 . 104776)) (105469 112269 (WINDOWP 105479 . 105625) (
-INSURE.WINDOW 105627 . 105966) (WINDOWPROP 105968 . 106400) (WINDOWADDPROP 106402 . 108136) (
-WINDOWDELPROP 108138 . 108564) (GETWINDOWPROP 108566 . 109116) (GETWINDOWUSERPROP 109118 . 109545) (
-PUTWINDOWPROP 109547 . 110012) (REMWINDOWPROP 110014 . 111069) (WINDOWADDFNPROP 111071 . 112267)) (
-112477 120041 (CWINDOWPROP 112487 . 113492) (CGETWINDOWPROP 113494 . 118712) (\GETWINDOWHEIGHT 118714
- . 119622) (\GETWINDOWWIDTH 119624 . 120039)) (120042 135490 (OPENWP 120052 . 120330) (TOPWP 120332 . 
-120615) (RESHAPEBYREPAINTFN 120617 . 130869) (\INBETWEENP 130871 . 131087) (
-DECODE/WINDOW/OR/DISPLAYSTREAM 131089 . 133129) (GROW/REGION 133131 . 133694) (CLRPROMPT 133696 . 
-134100) (PROMPTPRINT 134102 . 134366) (OPENWINDOWS 134368 . 135152) (\INSUREWINDOW 135154 . 135488)) (
-135621 138870 (OVERLAPPINGWINDOWS 135631 . 137913) (WOVERLAPP 137915 . 138170) (ORDERFROMBOTTOMTOTOP 
-138172 . 138868)) (138919 143702 (\ONSCREENW 138929 . 139635) (\PUTONSCREENW 139637 . 140464) (
-\UPDATECACHEDFIELDS 140466 . 140730) (\WWCHANGESCREENSIZE 140732 . 142121) (CREATEWFROMIMAGE 142123 . 
-143086) (UPDATEWFROMIMAGE 143088 . 143700)) (144259 200061 (\MEDW.CREATEW 144269 . 148943) (
-\MEDW.OPENW 148945 . 151303) (\MEDW.CLOSEW 151305 . 152671) (\MEDW.MOVEW 152673 . 163285) (
-\MEDW.RELMOVEW 163287 . 163666) (\MEDW.SHRINKW 163668 . 171852) (\MEDW.EXPANDW 171854 . 174121) (
-\MEDW.SHAPEW 174123 . 178729) (\MEDW.REDISPLAYW 178731 . 180686) (\MEDW.BURYW 180688 . 181970) (
-\MEDW.TOTOPW 181972 . 183320) (\MEDW.DSPCREATE 183322 . 185764) (\GENERIC.DSPCREATE 185766 . 189230) (
-\MEDW.GETWINDOWPROP 189232 . 191470) (\MEDW.PUTWINDOWPROP 191472 . 198257) (\MEDW.CURSOR 198259 . 
-200059)) (200062 200682 (\GENERIC.CURSOR 200072 . 200680)))))
+  (FILEMAP (NIL (11548 26188 (WINDOWWORLD 11558 . 15311) (WINDOWWORLDP 15313 . 15613) (CHANGEBACKGROUND 
+15615 . 16652) (CHANGEBACKGROUNDBORDER 16654 . 17205) (TILE 17207 . 17799) (
+\TTY.CREATING.DISPLAYSTREAM 17801 . 18348) (\CREATE.TTY.OUTCHARFN 18350 . 18650) (
+\CREATE.TTYDISPLAYSTREAM 18652 . 21691) (HASTTYWINDOWP 21693 . 21973) (TTYINFOSTREAM 21975 . 22499) (
+CREATESCREEN 22501 . 25444) (\INSURESCREEN 25446 . 25695) (\BITMAPTOSCREEN 25697 . 26058) (MAINSCREEN 
+26060 . 26186)) (26847 44130 (WINDOW.MOUSE.HANDLER 26857 . 39652) (\PROTECTED.APPLY 39654 . 39902) (
+DOWINDOWCOM 39904 . 41924) (DOBACKGROUNDCOM 41926 . 43084) (DEFAULT.BACKGROUND.COPYFN 43086 . 44128)) 
+(44211 76094 (BURYW 44221 . 44509) (CLEARW 44511 . 44901) (CLOSEW 44903 . 45677) (\CLOSEW1 45679 . 
+46032) (\OKTOCLOSEW 46034 . 46393) (\INTERACTIVE.CLOSEW 46395 . 47218) (OPENW 47220 . 48275) (
+DOUSERFNS 48277 . 49438) (DOUSERFNS2 49440 . 49936) (\USERFNISDON'T 49938 . 50209) (\OPENW1 50211 . 
+50561) (CREATEW 50563 . 51827) (CREATEW1 51829 . 54107) (\CREATEW1 54109 . 55328) (OPENDISPLAYSTREAM 
+55330 . 55653) (MOVEW 55655 . 55870) (PPROMPT3 55872 . 56200) (\ONSCREENCLIPPINGREGION 56202 . 56753) 
+(RELMOVEW 56755 . 57053) (SHAPEW 57055 . 61974) (SHAPEW1 61976 . 64678) (\SHAPEW2 64680 . 67366) (
+RESHOWBORDER 67368 . 67879) (\RESHOWBORDER1 67881 . 72807) (TRACKW 72809 . 73924) (SNAPW 73926 . 75599
+) (WINDOWREGION 75601 . 76092)) (76095 76791 (MINIMUMWINDOWSIZE 76105 . 76789)) (78548 101813 (
+ADVISEWDS 78558 . 86501) (SHOWWFRAME 86503 . 88255) (SHOWWTITLE 88257 . 92291) (\STRINGWIDTHGUESS 
+92293 . 92652) (RESHOWTITLE 92654 . 97295) (TOTOPW 97297 . 97536) (\INTERNALTOTOPW 97538 . 98628) (
+\TTW1 98630 . 101230) (WHICHW 101232 . 101811)) (101942 104780 (WFROMDS 101952 . 103950) (NU\TOTOPWDS 
+103952 . 104388) (\COERCETODS 104390 . 104778)) (105471 112271 (WINDOWP 105481 . 105627) (
+INSURE.WINDOW 105629 . 105968) (WINDOWPROP 105970 . 106402) (WINDOWADDPROP 106404 . 108138) (
+WINDOWDELPROP 108140 . 108566) (GETWINDOWPROP 108568 . 109118) (GETWINDOWUSERPROP 109120 . 109547) (
+PUTWINDOWPROP 109549 . 110014) (REMWINDOWPROP 110016 . 111071) (WINDOWADDFNPROP 111073 . 112269)) (
+112479 120043 (CWINDOWPROP 112489 . 113494) (CGETWINDOWPROP 113496 . 118714) (\GETWINDOWHEIGHT 118716
+ . 119624) (\GETWINDOWWIDTH 119626 . 120041)) (120044 135492 (OPENWP 120054 . 120332) (TOPWP 120334 . 
+120617) (RESHAPEBYREPAINTFN 120619 . 130871) (\INBETWEENP 130873 . 131089) (
+DECODE/WINDOW/OR/DISPLAYSTREAM 131091 . 133131) (GROW/REGION 133133 . 133696) (CLRPROMPT 133698 . 
+134102) (PROMPTPRINT 134104 . 134368) (OPENWINDOWS 134370 . 135154) (\INSUREWINDOW 135156 . 135490)) (
+135623 138872 (OVERLAPPINGWINDOWS 135633 . 137915) (WOVERLAPP 137917 . 138172) (ORDERFROMBOTTOMTOTOP 
+138174 . 138870)) (138921 143704 (\ONSCREENW 138931 . 139637) (\PUTONSCREENW 139639 . 140466) (
+\UPDATECACHEDFIELDS 140468 . 140732) (\WWCHANGESCREENSIZE 140734 . 142123) (CREATEWFROMIMAGE 142125 . 
+143088) (UPDATEWFROMIMAGE 143090 . 143702)) (144261 200125 (\MEDW.CREATEW 144271 . 148945) (
+\MEDW.OPENW 148947 . 151305) (\MEDW.CLOSEW 151307 . 152673) (\MEDW.MOVEW 152675 . 163287) (
+\MEDW.RELMOVEW 163289 . 163668) (\MEDW.SHRINKW 163670 . 171854) (\MEDW.EXPANDW 171856 . 174123) (
+\MEDW.SHAPEW 174125 . 178731) (\MEDW.REDISPLAYW 178733 . 180688) (\MEDW.BURYW 180690 . 181972) (
+\MEDW.TOTOPW 181974 . 183322) (\MEDW.DSPCREATE 183324 . 185828) (\GENERIC.DSPCREATE 185830 . 189294) (
+\MEDW.GETWINDOWPROP 189296 . 191534) (\MEDW.PUTWINDOWPROP 191536 . 198321) (\MEDW.CURSOR 198323 . 
+200123)) (200126 200746 (\GENERIC.CURSOR 200136 . 200744)))))
 STOP
diff --git a/sources/WINDOW.LCOM b/sources/WINDOW.LCOM
index 0cb9f36e7db2d596ac462d7ffee764da85be1424..f882b161da44c757f47c7945324b0b8bb0439d83 100644
GIT binary patch
delta 21151
zcmdsfdw5&rnWrQ>j!A;CY{hY$+lh0NAu&4V=w?Ge7t666*-|7qjuWROK_N~^6YjJ-
zOa%;-nNm8Gk6u!CC}mm-rPFb2JS`OPcDm0HPfICVU=!#C+GU2_&a!4`cc#x$*x&nI
z&N-4iZRgqlHqR65(|5l6_g;VRd-Te$>puBl{k{E$wzfZ;ABq>XwR@7uLe~<1e>#&&
z=2P)vs!!|GjBW87k8CpnhOPwyy}@8_F#73ZyUJ!4p6T{8!|V;3y}H?{E$K{VhjJKW
z8x2(I)Q+CeI{Qa58O_<gySuwnD;>PyaB0DDqMg5cAq`?BEar~oO>K!`1jB)#cICvu
z6GskTuibERQ?KUlA1-L)L#e*e?!H1!Y^Y1S=DNc-9X)yD^?Yu$>eS6`gEyWK8`J~6
zda&0t*iYSYw=u1GN~>4sT23>yq8`Afp%r`Zp=-r3dtmM7j(lQKy{j&Mo(umDd15n5
zOAS<<b2Z0hVgA0;?xV3IR6GAf-R-B{`@PLB`OtHKs+Z88Sy46NYn<K9N1L5k;izY~
zt=rbYN8}^<T(b!p%=MP&#-3gG=pz1@U8RM~(U6wf9nWZ{8Pswk#nJR|Uv@N?&te<8
zsU<V1cz#qf14h+DBdTjSr$REH#Z?*M5Pi$$Qu%l>ogLPUU=LLkQ+tXd`IKgu0Zkm~
zsAlLPt&l2a(!;4tYS_P{IG`DU9<5j$>q{4MnfO?t2x=PA^qwB8j~><81Mbypv?!J|
z5Fg%=O2m^pcjU7p!+nWtzAu&6!eMsH`ZaBlh$gl$Qb^^AQVW_H(b+rk<#lG*U_VUy
z%4R5}jb{#Ce?$7j=+P6UlQ(N-FsxzALpiy9ROlMEmP!q4rqQDfr?E%VzyZZ~q=+{A
zQLp1}EBXYYl@&%$MC;2AZz*a<kD(O?^6BB7=vX$Qk*bD~s_Bi0uF)ZeK}F6f46Ga{
zT)=?_v6zZSW~izH1U_Coc}?c<O^1&cZ}_O(svdQR*$bVkJdqIlr_NQQ;i%fE9x`ZB
zJs7cSf&pz@9793V4a5F|oyp_rL6c%OH`-UwBBrVg>#TcI+vQp)sA|k8-w<wIoT?s{
zCGf3g7^c>lyYA$Nuem`J%Y>}x39@4w{L7Yuu-!3E<qhoAhR*XNe31dsojto@)O|l|
z+n8_sVoZ|v)f+p!>lD)newq9q?9&^UZ!mkbaggZnsE*x)v?An<rh`-a@~PdaJWjR8
zU~?O@>vY{dlt4gBq>DrGoCZb_i=SS<={N4B{+x!Mg)YtIXWABDi-Y0(1A@IS-LmO?
z6Ne(`88fnvZD~8tz}k7u^hdYM*Db-<oQB2d#`N_UJzBqu<b^z>G-eQ!W0p-G9K-=)
zbFbGuP&ZRQ(d-`M^UQf-^Y^D`>W(%Kc=k;GqYKo!#80z`qn<7XZeM)<ALZ&@uF;1{
z5H#Gtei7O3X=rAh(TMvuY;Sap|0zE5%x?ZMbq)XEhdx!Z%d?ZC?2A#e;X1LsA4NB<
zyVQO<6|l>*lN&^vmL7BE&w2gv#cv+>%s+hE-8eY4d{8{y)AN@5*DT(<qWLgy!~Z}C
zdbY8N-b0H%ICk3g9($qp#Vx$~Twu?`r{90m+q{Ff8-1w5>rH3x<;!eoZ9VNd$^Q0|
z`?s%iO!s*)(cF@|WTA1-%mw^87nrBrrv^ENoOb`EXfS=prKjCPV6Gjh;!qYcq)>!n
z)ATS1cpMB@OeLY`y5qTAW(>7PSR3z4^+S~P;od?$q3V92Xq34xZ$A<=@E8Kb*&3AR
z_!@+W9N(E58;%d9irL|jp#+4QZbGou)*3xnO-)-PM02gKGxQ#&UGDQhB3{c{1E6rM
zvZi$aB5r|N-K6!hdoQmq8<E-uQHZ3PUXdPifl3H9$n<U;S~68A<g^G(g4(VDRHlau
zP!d9HYvCT8Qvcpm{sdG|7=pRx*u&6N_Q8d9NCaYPw8loEytoE~Q33IThSeJnMj!=h
zDvcn!E!OG@hH3X*&~~N{aaVoeCZvHqvk~EU%l=pF7EdSy)v~-J913WectMa(Vx)+R
zgyalE2(WF7S1d;nqQz=J6om7BC*IadOSkIxpgur4YXwQ^6T3P#gmCQ6$05k-itoV?
zdm*%<0YnBurMVVSQD?U%*4Bme2>Vi^qb?LMX_4(gP><EwT4b<?J(O7Oi3ZVU-F^tG
zWHyHd1|dkssWpyF@`8!Q<O>7o{vzm;>(YwH2B;w;9~)5+YGrRD!dJ1<faa-Pg@KJ=
z!xtDvRO)evYCS;fE*pW+0zGsvog^K|?XX>jI;tHX2hKMpwhggAT!cyni->AX5A=ZI
zDpwpZ!?fQHzTtogf~|TUV5j>#$~{mJav?p?mHha6K%AAWqc|{mcu^2b<--V$OCDVW
zmQK|}=uGucuU<qr(zd{M!(lpWUwb&Tz*&cbI{R3vb4!@SQiVAbCfcv43H3zLc0(B&
zl<zA<ELd?0!AMZ;D;NfcRX&8RB$po4t9zO_ad~bgtT*b&C9k4PlMe@TZS*KRn_PAw
zkzZ{im>QK!Hcb<hw6e(r0juEy5q4|;3Qtc6AMNfa{}LvGTiIlQqhvD!2LpR?`WOAX
zm-d5KNDYfeP{S9yEqmmUOQ<D7e1yGjmoQYU2eIRxfu?4c-(=V1*LV3%Wt+mfQQ8?t
zEyrHs?^+_vZT6K@>%C%77uRkW!U(YM<yV=0*yI)MvxU^C*4r0d!tIfGfUM?<1t*xd
z(As5)l|6Bx{OpWXtbHS`o!79-3YV|*gGl9JK!i#=!diV7yS321!+<QTnCRa=89qAS
z$igSH?)RJw`&FScwaP^YFIK%Vc62Gex`e0n>51kTP6&k6M;bd1M-Emcj#wDqYAdMg
zV)wTB*n#4@r6#{dvEw_77xzZs>F}e3$t&#Y9L)71`albcaln2x18Qc7l}qi@zb*dA
zgA)n;p(oP$duZkNoyhdoJtsYNMj*@{-1~%k6)Ws}Pr7v3@%8Q=cJ27%ONpZ8)v?w4
zUqtH&o8SM1*3x2^YjM(Sp2>4V2!$N`iw|v<{lEL6&hEeAcQyIfE<ac^o+xP19`OMO
zfi$fK=Ps4cXY)9oP?)XTznrbT;x$YVW$#_lwR0oRw!V_SHe2*HXT;)(<ncws7s60g
z1Pwv2)@xlE>pyT)IYoCh5#xrM8W!UnD+x1uu3mmNOmyI1i=gm1mmrk@@5cXtM#5nY
zw@S8t5+?W#c&Y^r8etr+>d0_0A0IA|%P5{`aD>P-VOtKaEBncn5q3OT^un@+l9Z)N
zF3zViL)qPxd`T{D8m4_NTc{+G0CwjQYqq#UEZuJtNsHVK4)1uKEmAi89>yV&!fyFH
zKl|r{TRyZJqt>a3O8koF8oav}$s_ggng>o2U-2Tiihqv9XJP`A;HNlsGVM-#92KHJ
z`|zPvE5=J6k2~%D?Ym!}jiZRN=eO@p^|LP?+O$Pmu-n{)vGW(vlw+lVU)^{5gHiSm
zhjyGF5!OeXBMZ!ZZ7UFlU{n)_3aTe7TV9ghqf1exDxipPJ+RtU1q6emeZU~AxFxFO
zu51N0@WzwAO#y8vJ)9mI84}{JklvfpV7og+0xU!Jzpo6I!*GEI;<*%@Npj2kviutv
z6L5~D@FaUgG}2Isfs4s(ei-D3W>EFA6_lQA1kG022&!2$0;d7T&^n6~N3Yjz25P}R
zQQGBxmHoK1>T*FX4HNPr1x6&lZ1tMzf{lG~+z9@A+&e`V5C358hu608Qry=tEBa;R
zrEWj0<ieGQH<t~kh=oG~3rolY9eibZ)*;$Xc678q4^IYGXh4hi?M_2Y0V2?$zQ%>5
zg%2K({c~`<rK2luP79iZ9wjsBTrNGlLtYX4#*ywaL{UD)k1H{jPvzoZXFBt!QqeF;
z?c;|_rEbEu0$`>|k3M3#`8asl5TZ?%VD-roRDdXfn|5Axspo|T_LEXa`FEfD21^9~
z8|Qvz5!Yek-sVLy!H%Dw6&xooq2@Z~>Yw)2&&CEgAI`F0Uv+^L+Vw|pIXF#A|KV~V
zx+~cr45Ln=A0Sxg9f7x;cLag>@4h4U)gz%Y4s@Z*fdMB^68?f!bXfRsie!WTx666=
z$hN^X5GEdp1<h@ppYdAdI6rT)r9iE;&g`hb4s~#sy##gbT`W8CudRR52+TGiuUdSv
z+|lI~yhbbqQ}5NYvYmgbeL@zcZMckI*{#RU?avIQ1=rnubazw?E8BPmWS{zpWh4=2
z#n(YxxhTbaTV;v;pQHX(-uX=ZaZmi!b8<Si_1GE`^8l6ApmNLx@yT`_TW6Y(kmH4H
ze=#|dFJ$v0Ieg~f2x(@R9*i1^A%LA>EwK}PlE|Pw!1RNyt(p-b7}H{HfWA!onXgPd
zEqdvYsz3uJ9;l-^xVR4(N_tqp!thC*Q^Q#Y??T8`H-jZ5cvQ**$Wb&Q$hbd+FauBl
zTRgDs2hS_}O-O+8)KE8J$Xvx^Us!oa-6kMii^xnEdCI7THkYJFjshe~CZ0?|#>12w
z1{@CP)*@cRCQbt*$ZiB}kCr*+03g$@#ugOOgB6vX0P&@2$?i}mML<Q(;sO3FPz#4d
zi7(5Eh+M3+8Cf%GKlW7C9@U!Ib5~#I{v_)?9`XrtX%Nujxg!6{K6*UehLaHrmmpG(
z$N-Ruva`n%2VnSE9vCnJC#JE7WV!WF`EX9ZZcKycFV~3GT5b1eAP!MKebt9Ace`(4
zkDTak5$p2|x(AisVn05S*o>1_s|zYEL;!q61fz!~Pxkhap6M+N1H#4G6~}TZ4dkS5
z8et4^(NJNdiIdlr4qvB*tdj$wiJP1L`pND^Wm2_u-UCXbHhfEofhT2Q>)zL&j!*3y
zKs@MNT8QZZ(z({R#C@k-|1u#S?Q`$+xCbCRGUxD@KIAC=sVkH+uaF;}$u!%3<CYcT
zNJz@a4x$yi`o@o!iE>ABeK3D6#>x?!xft3L9L!@A1jKdoXpaG!l*pW{sA4e#Lc-=T
zrGf!5THOHd!72lZI^nx6gnD@7C!gLi0N6agBaJu)`C<h)RE{bxQZ9p<;xfYGY(2;W
zNn_dme#D5N%()@3M|}l^=#T?!vfNh2Wx?J?t?GjjM1|}{J{*iS3f&B(XbG?uY{MNY
z%VJ2S=0VYx*Q*DtS{#{d3gM_awOfzXK-^RV)E2$@?(WB7K`W=#uV_SmN{4%{-dk)G
zRqX7|cdX%dC1h+dU8L{?c*2syx<PWd48zG5&ZN3<35uL`pt>sP29r}&<CImcLvmSU
zj$>8(Q7nj%gs8#<T}!ys=PQZ_rq6w(<X(Q&Qnzc7_o4Ip1ThK<oF4cOd)#HXO4gE1
zlH^K{7%&8IQG4J6rDc>5=bY~Cg)&YRM}}!aPCw&AyEEwmgfCzw=hOjkG8v)VH_rgQ
z%YcA-xF9HIVUNOL>)%^WQSeeHKnNZi%*WAmUvXf^2xy<+%mt`gM~F|zRNhp>km9SP
z7eS*=Jq8R}o+oha0J#_9un2x&&DYkCz$c)I`m-EEFyTt7t1z(ybr*!=t9pV>t$Hk|
z=3D|j>@weqeFoxs75fipGz(Uj%%^k3EP@7*$5mB`B8Ua@JB0b%N2H~+lA>I;`;Y&n
z%!6%pGJe*8Sd%O&N%Z6~DZb8mcP*CB{8u!|nDpG%XD9ZLe>*X~SD9UY#B*HpqG8PE
zpUpN+ZH`TC7~~>vLJlB&77~Kt<DTJH&z_r~?vRhRTA$o}n?R7u;~u>F>|R+fW#4x`
zwr`n}6xrJHMOT}^Y;5Wafi<{o0zFNBnZ;y8QdTqa*(z)g#Ga|5fY^2}y@yB+16A6O
zIC8<6pjU@{BFRI}9gG+Rk_`}wxCF$zNk$1%gK#u;?>dC8Y^_5M$ksZ%AystP&j1u;
zEyNiwT{?;&i>j=E@MJ^8S*_u%cCx_UF0Vl7D99Rb-4NVrgA&d|or_wKgsisk2qVg_
z&1=A|?6q1uhy5TH(8aF5b+nwVgN5$ZWK{Q%OQt~>dt{+;ES8?1-dcK8dP9@zz0IDO
zRHrcs_B75v8h<2ql<U|D*z|x5pork~563g|mPrB>i}24O6NR6OU_^SD_1?B@ogdzi
zx)+NNKrL#W>DwODj@Q?_Jd(;h2wWCu&2rykUagKTx_y^&0%fy?V<lnU&(+IM0ZMVw
z-7~dCR(b|x`+8Mq;2RNkzv3Lv{M4nQot)L<^GMfFj??Jd<(U=b7?MGhV&SpPd#quk
z9WoV^&+7+dK}=e;6n5rzy==lT6Gvu}5xStWK;c2<EI_0Yc$N{U3(O7Bw6lV&32_%X
zEMUu92v)WttbpHP*@@5TU>4h{0Neu(tB}R8PVEJ9mqNe?jz-`_)3Pq%3cyXNF}KNb
zl6+D&p<xxzKrX9dRKYPw&9K<hfCZuq`HColO<{-`DPn_OP@_TWs3OcWS>))EbSFrm
zscPG1MwnTRrX$#=7#ePfD%xI%ZUK`p8gNe1-++iyMMP;;ksK0nD%%|{6nSj5X9Z4@
zW7(6bow3Xvp~6l`kh%m15D(Q0M*fd6cg%ChGkeH2J3ILg(lKp>L>VYeEf;*%5ED-N
z{R2FmK~y5C;dK`Q&Hwq1Enr;hsGwBk=|Jd+y?3#<?>Ky(bzyARosqzI>fJ60uzorw
zF-@Ki^%>%49zx(8@}O8{1N-Yc+ay~D_yUw%@{i4Ih#esBdVZ>_C<|JAdQ~IU75QG9
z#gbjI`KedZ%@fT>d9Bx5H&{30n`jxEX^Kz(a-vi^%2~bH{q2~<;#~8e**WvZ(aE0<
zdiGAf+>LMs91`LEj&iewvm<viDHjJ4wIAs}98wEv?42zuR}sDgLj*PtWlu>vFq;?z
zxwB7xynCgNt5($HFkoS+zR=m>LAnh-;uLk1X;|<f;u?{M^E)g!IRQND>`0MZWSF0%
zz-TI?hc(^xjox;ghdcINI+o8Xp(Ib9;1|#t5~@-=;+bwZ2xP%pT5I|r@0zHC8Va%8
zr+iIXKM->yr;Vf#c^hIk+<me1eWWpBkUHWg&K|!zy~eU~9EnF3k+9rr?QH2M^%Y*M
zO45V4toHa8tctC_s@1{^xzStcOFCj~1{6ga*?oLvSm=uLhltw6hNm~OYwuaTf#185
z$a1+sYq>lM!Y1$T`vcZ|$vv$dIgO0I)NYYn7*A(VK=u)Ch^F`4u!voC&&4}z{nWmv
z<XvAsxKE@B#pkECWM*1-dOTCUoxtVC-0f-4%GpnOP_yz+#Q{$E+T+bT$333O@3SA=
zb6G1aZAmOvV3ba9y7N<OmS*~Jgw^W1fvmUV9(mncUzLR#FLh2~VK2XoQ%9!QwWrpa
zJiH>zB<sQeN2w)P04y9rS=YtxJGEI`zwkn=b+8|tYF|!xpCWv_`+q;RrkAinNvBUJ
zNY5jJiW5k{L{w4bQgJ-A&z_#?Us%b0bL#v+D<49cFoK{O=VeE%R?1|xg0ATkU%0qo
z(<`7CDHUfDLhejmB0dvS9SL!E?3stwZ<F$*IX1IjWR8-&<is@<5}&iwLuQ=0zobji
z<!ToDm}-wtB$C|z;8ISF$KyP)I6`K;nzN-YqI&R;p;pNIrff?dN`VL>SfA=Z4pton
zODg~uq}8#{eCY!6YlQiL^gwa+fR0GLfMs^;8bnoPzhH#D^`%JJR<$}ZAcqk_L+*@y
zcd*h$uBQ$_LHftG6>Ou-5KXcnNkQ&MLj#L-fU{wK>sn{}`0>L>4j$JIUU%erWDg^k
zbaeXY!w<RLSF$Bv?%ybHa!+aIytI()>5eC*?FohSOP4=tuw!2i`rsT&;(~oIZ+rT|
zFJJCnejfs@Zf~qka)NYJ-ulYT@`^Cbry%E%%Q1>*VLpSTGD4{GDFU`MLN2XpU@AkY
zp#*uA2#Upv#dvZ6naV;PkN`ykxr$o1jtet;tlmEM%p<Kk$VgP&+Mvu=ixvn9<>66o
zkC8c+<I|{Fl&<e$?>(}%OgW3AxniD6CD?%?!kH-)A-1<s-XcjRD0#OyRVfY|$7bpW
znq#Y3dZ6Q5$}*n(C&6=$4cX?7I%>Y7aRhI<$QWfG`fAhQTF!_S6VxAXJ|~!JuEG5d
zkvOzl1zN>bkGwQ{OAmZ?U3sgMuNy48UyNUG4eN1R`~zAOh$LkQRn3BYAUTU|WLhGD
z0G4rq*(LeC_NP-U_gFn^ee@dlpRhX~HD#FRn~&~_U?jm=Iz}1?7g?tO3lCPA{S|pp
zDz6nuU6()B)*|BBj#N979eHd7c`!)UZPDP>iZ$}n#mV0H_;NP?nC3prykFbfB6rU1
zmI0h)PlSEsYd0;i7+hm-e{DyrLANalzCnty%O2kp1}IknslZVd-#Oy4FljCEvlsRC
z?6JrHQ)@&6z>-W!u12PxmS@*q)yn?->wlDr!u(p?|6r_NtWZD+cZz%W##M4aV61<p
zZ~&L;T34dLniUI`i;VqMPd6VR<}*Yp=zz~9i1KMf=rW}<{uA@AHwXXAi3>h>^S?ds
zpUtq({?%6H{v}`cdKM46lV@dYZrEd&kCld@8M962@WDUjLP;~qqGSlA8PD=W1~F9Y
z<o(DW0tgAOrz#!_#Hj3q8+cMUnkgXEFge(zz*D4WDAEDI<%r`D21}G%%#P#$a%57J
z*au9(4hh1!u7E@!=>#HDmXHXjlGev{1p!Oe7u>7?Z$lEl0o+WADN6rSMVluG>Zq_c
zbr6aYY_{t}w9lRV1JDqZ4v^lR>UJcXQnX!aZ0HX;Ih?**>g&W{6b0CD3&K3gnpKMt
zl7+to!r6@FZ`-z901FgQiYI`{a?`7iJ$`y6`|@o=W!JBqIDyc*+`o9k+wAf-OZ-go
zM59m2+_<k%3SAdTVg-T(l(TW6AVxvc9{zF0^E&>W_~3&#pRWV_P@LL2^27xbY}xJU
zvI0ev9G9OmlDP8;FLzO957115&$|dPF-T0=ezP3~q-=cUp@TBu=cy<auyS0i!>#64
z0R}0nSfU8%!HlkKM^u2Ye61fz?}8{Quz_~MbStR<Z%inEld=x1GH#d34Lr9X$kv}m
zG!jNh?L?ICuX;hp3ToB>CP?A{x#JzAY%!52YS?DQ?6%J%r=!_OJ&T|p3|2V^wpi%o
zDv2n|B3ng@YO8GG^w-wBQU`De1j4UGQNsK;M2T&h8dpZb!dI%`R*wup4FLWbD1BCt
zi=ZgkgcGFCGgv_bX-NYxgchU$Js2!oL_qOfn+O0SR9>zIrgjX%NdQJ-RU@J{H3*Rd
zZhL`S!i6YHy9}|Rj*w=sh)@{;lq9WAo*-G(*mfIqM~VSFW_e3oP0G=rBh|p509Ax|
z8&4&xW69)S*8m~7eANqVV=Y0JroTPi=Gpqk>+4<h>a{QFDJY9;voz|z+az!P?U^m-
zi(9N0$iQ^_-@spcc{bzDc(Tpe7Ooqf@iu!0A3p8+1pBjZ4mU|5A+bdE+BdgKgJJQv
zGVYgI@mqgi7GurMww`|fJ(#ZGp?pgE^`i)fMk{kgqR<@9=kULTY?qlhQ4oRSc?8E;
z@jSwVa@P2fP)k)#RyY!1Lk%l6N=$YPL}r4O!=i;vBr>wra+m`K74HZDFtD{#h_VhA
zl4Kzg6#}9R5lAPCz|e7Lk^({y3{|8WB0I_+uPh)%U~yILf=KRGp)9;DhXe%2H;VFz
zU<0L6IPnh120C4`u5%jY6xh8C&=??`MAi<G={>&MI`W!XYm<&-B{>Q5*7<?zcy*yL
zl2F6Li*lx}0iMzRw!<IAq>>rvU5a==U~@76kVqBA%}Of9+ax4ULpE!LuqoLu1i`Hc
zKS<)bmNN+Gt*s?XhQAYMQg(<aA?-wzD3?N(5HrZchZ21qapZj<6sQwZa=k2!Y#n&u
z`lnmdus`LJKm}@X2s84Lv2;0w((ec#s{Pqe0$f78D?@p_S3bSo?QUjwKGVO&ALo)Y
zv5$LyQVJW~K{`~={ps1nY1bp{e?HUhzK1nDyU~4wUG(fFZ5Jgt?lrZdqUZEY&vv-W
z$aE3Ldk7&qE5|AXdXU!`0@hvS8540ky$PhHhNPnr1mC8UAR`%1?IuXDTV7v~;M~fN
z%@E6~Ef6KVYC-HpFCIB+aX^l56l|>U@J*;<F+;qsuYVZS1=0tf)zkqmsHv;L3rwB#
zOvNfGRiU~gy+2vG41>6>VqpftJwga^WHdd5ct0#+9=pTqd;GNp19qwyI|oAGFKdmm
zn^==qhfQGb8U`_)Odard`pn`zud2x?j}15|g3EAyajTU}p@bPV4S1vSA;y00J2#Y3
z@4PzP24WwMy99s>%BBoT6HWWF^h}INZ#J2DNeW_#8zA@&#x()2r1s?E!?+Y6XCSX(
zysQQYrD9MM77XX~G8z$*LrL%U(141?%TzQ5wn$GZ-;^;yELAli7$xZd8uAf`kd`SH
z2SgaUg=WE!<O$G_$gwUX92(?bR69pN#fAXMg^{)z-U8z7;hG?o);bLc215*rOfoy>
zsl$<=Mm!kK3y^toD(W!(m*3q`w{{gYr}aX%BPCku;-CH9nhh}_1~}h~)MrP9Y}fHz
zMe1|Hnfjc0Zj(rTuIV;+VZ18!nLXG4|5fU<kk@}u0(3=F*mb`v4cZ-ntll`iZ*H?^
z=|>veu&uZO#P0gujeVqD<U1h9fdx2-9~H=qri%mi`{LvrRwq}GpCfZlq7fGR{t9{n
z+o?HW?psKhM8@d-0EenIDFa|TjM7SZ23waDQ+1L{RO9cIE1E<rsG#W|e*d4{>#v57
zW)o#KvOJxQvvWVlt)!$j{tgB?G1i{(k}^rGi{P>dMI)3zby(bPA4J%m`P>HC1>KOT
zoRh(-U>{Wke@ne;1uSW~J?zX2AK#|+1B<~Mu<?;hkte%o?pJUnb%`1J`GSVyOV^c-
zz0eq##ouLK_Pv)n*<C+;YMl$;pKq8g9dCT0e(`K+0&#6L@U+Ny2|M`WM&bTQuX(L+
z$?PCk$D9vm1wbP_o6Qy9{PLUZxZ2k(E9OKjZ>O(uw|M1ur}&WHxEm&n<TLfpj1Rrb
ze)i&~GD2{$`EZi*R}F#?FsLYGNAk%O&m;^Ya}zbr)HX5;QAMZ0g*eJimpO=wQ;+F4
z7si3A$CH$qhf~GRQouA6i6L;opd)w^Y7mZ$6oWwvN))+DCNT2~Z`CBYMZT#5OF>>8
zy+o&KF$cZy!jp*bV+wg_0<O&{Y)HR^U_C60r_iCQEAo<L(9eVgqsE5)q8eaxg)6T+
zeE3A-=nX>$uYveiKp&*PEz7}OvNMTw`r!}xa}eU!AjqD_783EHZfLP?B4s3ckulFV
z=BPwOemn*3LT@8M6~HJR&T`eC%^^%03bK<wTDuEdcdp4g6>)-KW8gx{`<KWNY<5&S
z4^})N%8#1tr$5?wfv&{^lt=^%fNW59-b=wUOj?^4z#HT`OE<_`6>32<N3Xx;_`#3%
z_oa4sY3}!z)d38+w=p);!wC@)a{lS{F3Gmk%`{B3OeWn|_-12SnXc=Z|7_Mb^UI@?
zZ)ICNSF}w2gxj3=ZH!H>7L;GnpIC96g3nZlv8P@#>z*nNviX;^x^I_uvbLAC^-q^F
zK5*%12N<R_x*Gge0?_n)NR0DLX^8EA*<bf;X_(#pa<V+yE^$uvE`n9Tmo1iXrv8fN
z*(;i|&F@Za&o)h7BD~aouX|~lvWBv4P0dw%dH{RE65nS>Prv`?d}F8IFK3(OT%6r`
znQec?TMhyD0~I@%lWd|&<^;u|#>t$f$RFX%X^O{A=A_hk^bn7EHoSv5L)`0?%vnZ^
zOfo03RwOY8VG61uI6<<kNeYL<LXu_Si%Kq{G~8<H$G|moPQYnprB7y*+0<`@Oi=r3
zya<BzIO&~SC+GZ>FIr3Sgpe&r@-U$Qa^O^KfkB}>F(Q8TLt(>k=4qM+%5@7G?AQO*
z@4*Z5>&_<KlkCc~Bjr;HvsxlUlb@GPRbz9a#4mT=YO<`VNmFf;=Bg&H+9rmxNf|Fi
ztgUV1bGAW~w%R5wRZTY6HrZI!Bv9MraCcRkhT1k4RyFb0HrZO$q`o<xP*J-e{CjAB
z_V?#X<sd?&(%uas!pNmhlH!T<`UGfGJ|jm$MpaBZyUC>AZV+)(8>Tlww(uu}^+OJV
z<5elB2vHBWfsaj~iTK4F@$(M=JuD#KPOidBC;2gQ4B#XvKLD_S<u5qG1<)80qA=jY
zsK)U5pf2T0VDy_f>H#v?;10n7LK3l!0#YKnd_jq3wPVK=5eDrdT^{wMY2-LM&O{J8
zl#4YwrRIPipkJ(I6BHv}r=eB$^^ap1M+g(>r+5m!rx_erA<jiSN)OW$INWk>h=xi}
z%X(vwZGG(#Pu(u|(re-JRGY<Cf}N6(-I7M8mMacZj~Zt!in2RyR8Ke7blj{SZC<G3
zvUo$>g?~xkvYMU}&rJH77V0T~@ha(So@L!XS<O!U*jKhz>r<2Z7V6rfp0-$XZW2{<
zZOOk#a<t|V@gYwp>1%Tgv__rRS~bwxSps31=O>@D*KnbFc%h@KPj&St<H8VC2Q9~%
z+nOwy&7V^b`C1(Pt*h!*qjy_-;8#U5DxjVPW}CeMm5ALwR+>td5?h{1ejzQ>Ic6s>
z9(*F6F1Zu)Q<_{^+T-!H&rY^^Q29AZ^+B4?$C2fOM4-0^Cw<8$ykhi35->7aPKd8_
ze*Cb`aN-E&M{*m=NmU;gFWS!{U=-yqR#4nfh=vG~4=GC@@CHObY)VH?7k;>f5N2vD
zrArueE-FNC0%WCUNC=|<^~xdcKH0fpS_nL<z)aG=l~@t|mWwd`$Z(b=EK8PPqAu_%
z3?xa#QcdW2IYkpUQblk4_!is$v%YfFjweK|2qfQwNTZKhI3fZemOO~qq9KB1NS2P+
z+#R;xCJ9@Rnv#cMJMj}fh$YCwI5YXu4#07RF(I1<Aea0RG~kDFF8VPddDKYbQI*iv
zst6(G6z4&#Ldx(U9!c96?>TGoEr=j?U!_K@jRkQva$Hj&vO<)a_Ukn!WVLDnN|M5v
zP$pGtXL*^hIHX)JLnzWqB(f3xrkW~39y)|M6qS_J1}u6K&lGZ0ZQ;16B6NULQj;FA
z+EL_Dw$rf>v@7EcNh!499;;`7kW>-api_Q>5!4f)<*Ep!D79CG=(n~-InGM!+1iI7
zs|!Vt5em6d8SpEjpX$>rN@HhU_j`g7w)c%S?1DFZ?jU>T^|dVVMq6DFzfrjFjbNP-
z3A6j&*jNXwls);zSCHy-#n0Cd^oZcFv?G*^tG}{d6<yqPKT~)0IVlzz&Ry9sdwZPH
zcZ7_a{8uD|uqS>V^Mi85acBVaqyY@xly#Pt)Yz|n9;-8q2#fq;`}QsmrRYv=62C|>
nxw7P@-#8NvL+r@`au?D~t)9A>x0>@RC(rUAryu@BaK--xRICnj

delta 15519
zcmd5@dz2ejdDlqm_4+M&wf5THb;kDEUOUcOGoz<dk{P`$t+kRYX}w;v;FsL29mjSY
zhx7pz1ez2|LYy0t0L_D(goXlTA6`f(L21iLEvSLCCAAZv4vpI!ASatbNDD3L@4I(K
z(rDA3{#l>notgW--~ArH@B6Mk{&3q1Z@TVD_H9|%pG;>Gu|mQqCF1gWMZ0G3))UvL
zK2?zw-wwsULsQTG&hBn?3+mLSy2uVCvLm3JeYt0MbNRr)z<RlS@XV32y}hdLPy#!&
z$ol`wge)uRYgBoms`>+dpL}@y;E5ZK+#;Vjxp9ZwpUf87@pV0$x5%eXA9>%=legZ&
z=R?(cIdYA0>NFPb^T|qRhZfwSM%ZP^kd*25&T`MnfSi{#xup2<ROJ#q6uIPM53PM5
zcX(c#!(}XR;NKyqKGR;VIoxHV=9p#GNonu~DxW>)x_wf*-s5%{HRk~;SxA4X#<;hm
zx`%hIj;|C&>@!zg<L14*j%t)TI(}rZA7Aw(`-B{<_=9p{kCBlzEHpn{8cAp4xsiM!
zhh>E#ax9ZD3L~-_47XPLLvp;BFUAVFOh#5Ug}!q6M8PPfb6Htc0#r~+>@5u!60#Br
z%Hmu{WF@S~#Y8ES&L%R6Z2!(u3IqzsrP63TUCd{U(P9Z4FeEF%K%<X81VZ=bf_^!c
zGO{}pQ6si%XCXJ7jYo5Zc%mQ&RC$aqHaa8+<gs+Nh<UNPL?Vl0*0iuJb~ap06q32Z
zP*K)2_1?i1lFIIhcU3ecD34_h-f|{=V&v$F^2yskkB|&94CPId$Z8}YXVbLV2q<Oj
zOeBXhnIyIv##!1LhH#p;f}keHbJ@)$Sq+5cVyckN?xKzX&1zTSRF_r1YL%D;T1X~p
zs==0Why+MoOn}f>jBPTXVlPlaK6$Kk@>J%?`;Htho%vmJe+p47o=6(QnNo?}c=fV2
zS@A1O-mvDds?nqhkwj3iC`ZDL_mG0|a`};XQ3ewTvNq16m@?v6Rs=(U@Hp*=ygq;W
z<V~l}$YSR8I9VV2*A4yi-QZ72U%=M%t#4D&p3QFTVh8#R>0|7%zJlx1y21XlZ*_b%
zSX^-T#Or0rBS~q_-<?j^%)gDh9sLR>8w2ZQN1!LbcO@thC=4)QA+aY>0FlBWwtr)8
z0S+*lE)5y^=?feGLu$ui%8s?{`OV%AAsziG_SWW&-74rMm~{Y5IglGJf#(Xz>~yMs
z*0oTHKvXe_5}uB3d$KK(k^6n-uv@ms4%vx49U#H;c%+nTrfu9Ujn<s{?0xAO*HL%M
zxp(4c4$Qo;fBIVG_W4Uj@@)>s$YUgx?RoaC@VnaQ{p_em(%IYBtz><X9_e*vM0)%0
z=R?ly;g6{s`GZqoYJcOsI#FPEL^LVOs*#PWLyd~5s~hjtiM7nNL+d=xi;mB~a@;xl
z*renfd}xs6cD&mEvKaP9jUE#h2Opbs?&byj&+NUE&b4g+wTI^Y>e!^?E%w~C&#$lf
z_C7ZGo1b{xJ9(3lM^}41>D)bhu;rbdlg<O|8^3kmKo_qSv$Db3!rKRH9eZb%@lvj?
zCZ+oZ`C(5=4-Za%;$4%{kS{FnOq7Ol5Zz)4rh)heybG=`C1S7?14cfd8I_d)<dQfV
ziX{$h8VE#M`vn3jyX*R%kUtD|ZnX46V4FU*2tIcuMzh9HqLj-H4@IG06pi%v^<HOC
z<qwrc>RzL%U^yCX&T164`@3D+6(6+2+`)XrW35v}B7Dqwswzhm_J-amh1o&F>kNh1
zXZ6lXDCi?4Ie?jBiDEG?hrr@<1_{!9Li-8Hl!GBGFS##4Dm|!S-qxiCm1b%Lp+C4V
zfy+Tq7z3_~V(}altBRJb%l1RN%`L>C%_-D0_F1EMBNXeLHIQ;`9Dy3rh`Q|8#`~R0
zgq@9dxq^zHosD+70+A5=&~4paINz`;XN;m?3_AW$=-$CDFP^?e`CgO<11N7(0$PMs
z<E#4us^4A@Jy#!x+WR6ho0z|19=)nG8Q%Pn0Q>B1J@gh<*q36fUH)K*FU${ypoRGZ
z0a5M`Q_BP37^uEjE{~;YVQ>`90os`?tYH;}Vk(_1p&B}+rCJSy<cwLZlBTxzRyCS@
zg;NuAt3JLpml6`hQbK}Q(DAgkVFk#ARuUa9fuW%kvnALc@TMrn8w_yE6h3HDYk@u(
z8GCgEGgafODiI$HJMA$7wy`$}YY}UJu-3Z&PzZ-7_7@6*A8gwT0g9NFLE;NrWsoRi
z9s44&qoN!HK$uK-t%L!sSJvy)0J}N4VH2^W&BO<QN?J<7Dw?jpDF745w-q4Su+8s>
z2{-BDhXHS?^l8@0H8PpDo*FhfXK`A9j?BA73p8=9wQ|i*bhDun9O%w9L(qQ>iyIp*
z6m!571Sue~?_3eq{)Y<KVjQGP^(&B)X+5=PQ3xlWmVKsWCz~d5JMF-~LynqS3wk7n
z&NVxI>c^d_r7*)Pdt`W>3#N_rlzKNTM`PG_(FXvQzmc)#xDe1RQDU<{T*YoLbzTPn
zw9ThA&sXL>&utK6om*o*J9R9ij~2pyT)Li5s}FaF6(wXJt99+X%m1?We;Qt|uHb90
z_31|!(fS48K0EH#vHl1&BFB)~BH#_+I|p_wx+l~=z?aQFvS+)Z0yyW2i4j?|uwfnt
zR6-9ZcL4<zAZEgZ1d=o#`@{|1)AL6D-WgWV!bXkO9jyP~sXx7c-$|!SQ8o7b*g0th
zyW>6o$?kmbI?2yI|K2aK{rjIsou6q3KHa&0zQZv;rnzT^4$wC7vWs0lu!$`?xPIGT
za1u?N!-f^vh!$mNFnWZ5M+s@k{s;hQAy>fi+2Mn)V$cA~9@?_53q)w6v)M$;1a}zG
z*ztM9AOw1dJO1j>`zi{NYFy`r9*xlSSUFW|OV!%PSL5GuamY1C&BvSYKOjDQ6;P2N
zT?{_LPB<EXpwK(;G={UKf{`r}v==opOmmANB#$JPN$2zI+lLo%mU;Vdx1j)Br{R3%
zb45Gh*I|)Pu@cVq{dU3|$6YOa|EJ~RswM3Xhs)|Dc(>N>**#BZ-A8)!*Xo>^_<p92
zrKPm9sX(u7)ys|guj@BvmMx|69FB>RvePN0rT_Z*7pn$d@$USupHCU=V@EcwU-J&*
zESX2$M$4&R+&lU9LH5Ftor?h<NTnI%!4Nh{shTDa<@SI}6&x}kmPt5r(1g*q3drr^
zUb$7^^Eb6;ANpR`axjLi57dgGcW&|r<e_vnJv2NdYK!T82^mfeFbF&=E);Ms*{}c6
zKMX4e-yxp>idSK;;yM0Bb}AG!YXIcI0O?XJSIB}3PzN(2I>`Yjt>!8&S1ROcOnQ?2
z?1nY#z*~AvxXF5Ln@5`m#(TE`QsTc;+EsJ1<oMe8hPS<{XLR=Lu`c$BaSwZ9eA6)n
z`>#tq03T405CR2mSi|$6rQ}9Nk_F&K?td8ZJ!vQb_({;d@J>l1C~^qi6^Rhg7_>O|
zM+9-<k+Q$Mqm$iz<3JbL&II3CbhMDj8({lnmc4oOI_E>}?6n(Kx9(;G$((&RcOUC%
z+D$L}@v%)6fFRpWAW-&$h5Br4$Y<Y>CO2&e8~?v-s4jBp?9M`hefN%ee0!kaJ8Um<
zeEarJu&q-!YTIUK7SqGvDwqrhY&G@CjR=ol*}}ES)bW3hZ|Fe0BwA~a*4jMLdAf1w
z-6=ZJ<IWc^j*UmnGp9p_se18ZwATL_l&ZDGTns;W?9zKOLut1B#GchCbfz%M_+pZt
zYIM-sR*mZ3ZPh4y^hE!H^KHkS#*3H6qwJ*<y<4fVnAB{ZTYApZ!8;zHzu5~8@=n!I
zm|Z@<Vhx2*#)=~<;u9)teRLO&KAJ&D0LmYyUQvOhn)xRZk%#kfxI5cLjAc7y51tQ{
znixdE*})Ar9dShq5~<_xkkVNZf+15lR?H<!0v`a#XJvRQEv<qP!Go2&$%K$2G@<BB
zGJz<Z2<&jJ$&ZkfE}1bxw27es3fXX#To}${FTg9{){GHD1OP0Y&LW}&c>#vA)=402
zPCv!xTRyj#4c~lPx}BZBIk2$SE_~`sCFVJuUIBDwDlQ;J%eM)!Q>UXD;EOuO0`kUm
z_0PR>v&UdztY%O)DhHZ<f$8P9TrWwdS>en;N6k4X4T7oIy=S5u0f(*m{iZ4a+OtQ`
z!t7UPc5IJm@{VHG$P?vDqxpmkU1m`TaTGxyOga)hdAfY$^z`rCIxugQhir)F02EaF
zQ&3q?LtX8={B>h0!@l!-Yo&|qwclIqsr64KpwBEWo`|r`zrT4tu{H|Xk>9^#mx`mE
z%RwqQ$n+owc-)Ve(Oy8xw}}H(HB1b;O9iU28p02i5!!4qunKmIo`v+z6rwDJooUkD
zbBkaaFy8gVz|Hee=my`TxnvUH5J$&*?lnJQp_&^9LNrE%^IN8=7yR2of(p!j#Hvuz
z6s}7pXkBC$;9Rk@ANb?0djWDJz19!<g3LO!N2x<+gMaXmwQwW2ESAzGiX}l^)#X+3
zDKz!9Fp^do#w1H%oht>-tiUJilT{2xGfStBS8kOSjV+QK^E{6(h}YEVUw&|}RKaGf
z5qYq&@qtJNZ3ze^EuyRNr;6zvJ2;FU&XQ?Gj1W%b(4I`X2swmv*;v1U7_^4tqNpTf
zH3R=I!{c(q!=)UQ3KT_h-&!6aP{`##1Qx<Rl8%>BJBJZ#py&r}T36ty3X{bvWq7#a
zQxKN~3=3`6LSRC3*RXel3A{yq%*h;w!y2%FMIZ!Zt+oiNl7%oe39P3@PZbMj-MJEp
zFx|T{r66u&+o4aUS+JT|A)PPf5X6BxXeola6Uc-gH7ssC!B&3ct%~DKFo(+kcJoLE
ziP_V~#?#zjT=MLmZ`AttFRj8neIq)p!%X!fB<A=VY_7kWTRJ7{Q@w*QK~8BLQG4Er
zK8`!HFJ8Pf`z5k!mSG!5M9?V>-gt2zP2%LJn=Bst&L8HT5ag|QTzw3#S%Wc@Fqn&L
zeViKt>4Z2;E(Ij7vkdX04O<XXqM(QfeLlSx3_!lG&7J~F(HZxH!Z<_A01$6OAy{Xj
zz@ahEg57=RN*7`m?8!SfZ0v1dW$YtdN6O>?m^fJpvqy(z4!f`Wqmhd4f}!`wO+KQ!
zw_NKO)zh=no6AoM2wk1%@wlD3AbeF%)jDRMG(M*v<uoPh3Q!A>50@ZoWK6OU1D8qw
zS}<J#rorSiN5lkhxc;M`@08lw98N@+ADeW%=FwfyoTKdMGx-V>FHZhgIbCZ@n=T25
zA$zB~(?AFYJQdXQMF^yzBR%7sow}-O=ryO;S=H0E4m{F2vN2FCJhFLbJ&c_KhhPZI
z!iShM91HyM#wBXNGA)p7LJ$>|f`%r7fUe~JP6hyhfPo4Lw-qRW%7P4t>Ra6iCD>b$
zyWHwgMSwBtzyiTTQ=*Zh5WoTfm{wc?wQHAq(!0>_LbQMdfB@!NeF{vPxPY%#<P=~r
ztWt_BTA2o@mbpWKGv^jI;09xN1*B_P?XGp}Y8~LoRQaJ=yDlK*eJLJ~uOT4+Q+SpE
zw&w25oH-BPeS|%KccAh}o8&Ovzq7hq@Z-7n6Pq-Av`>lR+H%P)O2;{$z+LolzYQGS
zKRUBPKLC+-%ue-{%$GIB^a>6YOI+gJus*X>FQwh%?xVb5pKE4!=lJN%Qe*n{@pAbn
z=Q6kS7y2$_0YABG=3kFayfWyVcnPo=nJt0b;Km_X#W|iwY@xLglY={w8-fRdI2wDl
zf7KcaS;5tVhNm1Gv@c0>E;>jth->Z{aEATt;MJ>KawtI0Uh+}K%)A`Hs6iPYBt!_-
z!QubuJ%4^R0d`6MYuX?KtDA%}0Xx!ViJeAf0AK(d!JeO3J^k9*tP5&GWiLPIT`DKx
zcq98boIsfAI(Fcb+dH5>C?24*&wVn@q}PxHxnG%2`^Q<ZgZKCFGy0?ZdohN_p1gmZ
zbRGNF{k)r>cXK}=y50RiC)@ZZ?hfEyjQ!hf>>nQ39?@&vWsl-Yjf%vKF*~(>aHccu
zbWVBGaI4=fb?<Vns(#dol2sqp$GzQ#JH5~8oOqrMK6o8-zP4g|`oZ2s>Q*eLNpZCc
z?G706BG3d!V0Gu>``-sCv;gaQd@W!3O^<J4k<!v-HFSbSpgz=sz460t_R8a{mUi=@
zIXTa{b>@D;n}n=$S1XRRlMpD-a?3&zjJ&)f9$whbb5Ld#HcKod>19x|W40c5nZE0Z
z?d|e2JUqjBY$hz2cS;e@=u}r!XD@$Y-3B_vnW9KQlhp9$Q$F#mQo9t}{zat=?YJn+
zPIVgN(HLj_g{<<$RTZ*QJUj#=g^VY`ImmLIPYGU88Q8C02C20JXoWJHwuCe=fvM1~
z;3SeDP;P`{_b4*-lG%QNnZfp}O#V_R5K!bSML7t(h-|R}FeI!d>dZ3IjRf~VTnaf%
z|K*ovBx#i0_T}Vi<fzIs3q;z{onHNPinPY8qaT@>m%r?v-ZF8$wCKb0L3Ck6*as$W
z3s4gV`6L+x&MIV(r6Mn&kRaG4lX9#V1G)_*hN7~<2BubUHaR@CVcQZMBN&8C5w{a0
zQ)G#G+^ep&^TM26m|7bYY>+9IC=uC9iAb`q<p(9=gwdI{lw0p%>D20{V8kZgs0ZZ6
zrh7tO&N67%cHDi*RBG+g8#E;p#vJQO{5J+-vxCzs6TK$8wF66IfO>bQwAxxXLTskP
z1k~}4qp_Qpcv<<}Dd`W`_s?l;$;|E$Y?C-{;slxv;XbenMIXsI7;AhY>TRWZk(W5N
zq^lFS+cu9J2(xEqh9!-?xUt8HNW{sncCq|dWa$9A`78UD)Y`a)O<})C!u{|o?_=-z
z>dpoIL_!>Z&c6E9jT>OYY*-f<TYPgUEKb4w)IYBT8;zu636rZRS6o2G*v}R|{jqft
zm}GwPQ+m>bg?}hWO)9D88%@q2bNh4`yYzIVSNE!eDX+uhZcCTX_n(+`Tp9ek6U*Md
z^2&w&YMSX^+g7Nx$1Z!E?L$)RVv5tbI^=A;A1e<*!DKJtFFlf^my$RhE9h~N2U<nP
z&WSG|PJvtz;9o_BL21H&Ko<O>N8K%hAwjj}mQifZJS2D#&G8E$GvQwh=Ycsh2}*Rq
z_%uRDXkbIAK;rnWG!QDzA2SIBffH|hKtd5QuwXF7F4KDwJXde}r{ss2Dic1%``cV5
z#D@dE;r(2BjtwQ^BLiaPT!qqY9B@o&5!4n!8AcR-ANy!^vojvQ_nWKO<6qB?Oq*y?
z=sbRp<_V9_>2bS&`T+NI!`lJ8&%s_9`S3F0xi#l`=Vkmm@%GzSF1W@=zgC*sHhgZ`
z_yNd_@C^2_k!Lrsho9-$R6}nFyBU2Nv;~vWBABEEgB%JX`B}$wP^JyIMy@J|*6e{H
zxi<%|A@OH#MI<GenG4dOqb&@Eq=I;-kfuV4!31ZN>YCG&vhi~YDbHwj0-ss0Fas1E
zjkD9$KkNLw3!vQNc5o8Wt*6f$Eb{DFUkymTK^{0?&ZqPg@O7$u)+Bn>U_W@a$Ayfq
zAQJSw6)YotQOC5D*0$3KUTQ0(1zB4fQLxt<gXl%jXwC*Hsv$OW2=)!bHj&7Dr3}6K
z+C&cWWaf-Uncq2ujT4z3{;L(v-t4+IN1JtBtV}f8WZLe(UTUxhzPZ^|Yuh#b?Qf1s
z-Op7sQpTBc=azHvf5zkX;BJTGgY37S%eIkc!ybHY8>>B+k-o!L{LQy2)y~PcU5@@R
zG6jW%2?IwUT^8mv^8q2a3{CYRpm`y-Ry{V?Tn|yV*W;v`>ycLD^$W?jq3dKpjh#Bb
zW-ah-Q?npl@v)L|xU9fl&UE%c(c_q!O$=~>+N5>@$P`~bzp_H?C!8s|5MaHMrLoRf
z4nWDY@PMBp`7J?JKTfHonFfMb(HdwL?6>I)daaZL=*}ZO2y`&k1d<W=pm+%FIgh*u
z0FW8-!55Alz&)C4gn=k<(^{l4UGG|q9f@5aZ^v#vziJcGGsWSkH8KK@(3JHA45-gF
zVV)f<b$S8_qZmoJm88CrVu2%YS69VP;%ss)zb`X~E&a%nyaTgRNQmEk)9A*ac!OMs
zH<ceD-HcNp6&YhF8aEJoKnP1g=13@M4jcv`Oo|*cGO=OP<pqhbI5_*}m<T3X>C}M2
z)2Sc-_Bu(L$Nv0plh<xAxYCZkn?qTITDZYH)W#ueH9F~dG%7%Dr`fPxaVPU%=#vhz
z(F@nQH%2)wf5aMQ`p+(`mMYML!j1$;(Q?^G@F9ScHIKkgaVZ;+^%H8f@hA~bAS6Fv
zY&wSXH&1?m9Jm3~k@h24+tP6v+<U7nV1~w|hrJa)j<l%|T;2H65T&&*M}rX;6BzM$
zG7HuK&qBM+DXV+*P3?ePTSoI~m6k=S5i2{`=%_+Y?Hws#-BRMOI}JpI^bo?hJeXht
z2fBEoLY%}xAtTr*1Y(3G^<{3_W?gy^4x!ki6EQA4vJF?k^b{0CFhtZ7H^+#0w)3LP
zgw`B$4ih8)`g>;%0NOVno9qW+Yy}!JIz>tiYG@kIQJokwhMQFy^h*7zRc;8Jt>GF|
zVsGBa;zXc9LhQTGudG1Rm{O_X*g3B?#zFp2fHCR-4L~&_%VFL4p^HYXC3PI7LTB+2
zhmdU)E92^jmtjaX6sYhqkz<E$()hd8j#3!rl~pxl;yOS_<Yci32siFD)c4B+&h&{v
zamC8&NRbTD8WP1{ptt!GvLOz9`ak||g-cq@+%I&qYhLJGd##XGF3cjG-c(?)n_gJ6
zvMF&MZBCp&@`9N-Z|+gsYP2NIfBHi5|9j&6Aechrz~3oxE_A4wBZqOZ<;W?0ZfgKT
zWorPK16G>;^2I@C`z`GfU<PY@>DD-@bn_An(&6x>ac@5}k}jnhcaLOnQ){4}f_!F%
z0{5(*d1<8<v>PHg<8{AQ*ecxbz&H)dg>W;R6b+YWY-$keBn#J?64CgDZQ4Xoncnk*
zf0I@o1njO~tuL2FjN~3SJNl#iN+=8wvw&u*?@vae=^wkcnif*V3NdkOyt&a@3)8iS
z1-Qf0u&Apc$=no>Tp~<M(fcI7935si{nH&Qx5&~LDdQKNp*#KU#}{2yKK9)XACoWt
zfW39)D%=HL^KxHFudVeitcu(J!rc?^-c4p9au0)gt;ai19jy6wc{@0M7I$fPiAPfj
zf8E8Ndim-KGzHKLmTO+!_e1<pP|OV%VhNtJ^y9i2N}BU}n(!bfnF3S6GX~8*2U!pF
z5Y<pRV+i*cF}k*j!|-z$CvrP}Uxj!Q>J}<6Ae;U@C7z%Fu`qEzU5o=AWBaC{GA7|E
zAG)CpPDOOVUIHX(g)8Bt6c3+1a^ytx=$WB|r=Z(-@~VRS;LvSNN{h2|!u)*#|9JxC
zN<_qTAe$?3w-Gvx+$tVMZ7QUYb^@*pU5$dC!_KogZnkoHxJ-V+oT7`llYyaa#@^^~
zGKuRfJgQ+^BKkK|1lRK~|FgH(M;>i+P?ipf`?a{9#XPU{&4-)qQve0xulRBA>qFbT
z<CI%HddsQf2Y)viPwWB5U0Ldcm-W5H`pjm|3x^z4{zT-tZ9?ObW+z3Ow;Y|=gh=yG
zIP$qypID{yz_w^S{>+$*Gwor-s)>1r*qSSv>l@`P+kHiDM~bYRTguK{kq7p>@#^;a
zs^t;l(DDc|a~WRog@71p|8g`~e!*WYk9(mTF0X6f??s81UA_`~FJGA%<j~D$a~Xfv
z&$sRGuI^uv>;C!Fw%m$|t+k{_T9T&xQ*QNAxAcrYgdEMMhiIX{`Q*{b-<-`jCx7$d
zTsJ%WFY7C~*4rWmf~%Xw0H|S(7;tx6@F!3ds_kOXR1Mu~7XvtdR$9$pA$uys005);
z&@}?k&0;{J)%*<$YOy#jWza9EnpjuGqAZrHv#v@BUpwno=;tWSyh~vqt4*C(n^+aA
zvau>|NZXc8mp;Iz`E({%ibio?fLN5<ig#q*tvnxTlU+*w2tpJov?~w*@(=8{U+s4S
z58d->Ov<o-cy+jPAA$i3%}_KmY8~#VxJEZi6^k1cOKlbIMuo#xp*AYk+A6$_iWN;2
z6{EJiQM0M3#;El*Dtxwzfks8Utzv7VqTg1rtx?hDHlo}HAYMtCluRdk_$NpBkC?c!
ziBV*kF7LoJn{h}LVKNc%rk`~o94_oD;W`*$@c|a#zg!|cjk`S7EkN8BFN{({Alf<@
zL^|0-qI9tUd~BpE;#N5(LP`mp5Jj)wVk4-Bd2pWixfp$5CULmXid^z=%L2pmtIRYo
zp<c>aixMz6ePbr^%`ZD+A{&@xKls__oX-2$M_vn7K1D2H#GqtMsyzt4z;{QrPE%^q
zhoZiwCY$iR$=+l!iWWCDS&Hwa_9ku=xveIjIq5(qEc|-k5T^8^#%pi997W5m##3vI
z+KSjiG46bRPCTk;u%gjtsuSy6Yp`{%Ke7cQZbj|ZM(v-VvOi`BKwxflYL&s>etm6}
zHaLLh1J-Ql?!&jQ>h}0>wV`{oJoT<}bo19@pH7?Eo9e{Y!E?cMS&Gh1twA`gGTU4E
zc<kI_T;fH*$lF~V$8`9e&!?gy2#VLcQDTUT(p9iy5LQ}TD=_mb^lJ><Ng)eQzpSuD
zJMjAov$4sge%R0E-hSW%6WqeJ70wT$CU7Th<7hkqAfhJPocNE1IEpaH<TROY043s0
zeaDM-Tt)K0j4aZZJQ`!gPsp(`O?+5m-+Cin3D%{BZ=2sEkpn;|!Yi^wh<;9B#i;$j
zJJz=GQ%6BAKY}F9!l@yBW(p_8PsFVo4K7xS-)4e@<MQ&5QQ4WWWS;!$x|mT8-V{cX
zUM{9wN>w0eA~f#Xl3+oUENR4fK@Ia*eTy_=H#TX+UMy+c!lhG0{P7BB)>0JMnO#Vy
zf6<RD%(6GvvS0ne>(Y=K^}MONG)2R+haGye+eP<zKJaEAe$5hMkH7hZlw*UxT<71|
z0lC5tT!rETYquS4!(YdF*NvAD7`}A4y?VPrIW8_s)ro&cdX7#165#nQ-Gy6C?7eTj
tYoO0bIsGZQaDWDz@RlX|m0nGMIz=!cy_9}a_?o*QlBWIB7vJ)){BKKsL(l*K

diff --git a/sources/XCCS b/sources/XCCS
index 059bd67a..2d3074cc 100644
--- a/sources/XCCS
+++ b/sources/XCCS
@@ -1,10 +1,10 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
-
(FILECREATED "24-Jun-2021 23:15:05" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCCS.;36
 13925  
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
+
(FILECREATED " 1-Aug-2021 23:16:58" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCCS.;37
 13678  
 
-      changes to%:  (VARS XCCSCOMS)
+      changes to%:  (FNS \CREATE.XCCS.EXTERNALFORMAT)
 
-      previous date%: "24-Jun-2021 16:47:37" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCCS.;35)
+      previous date%: "24-Jun-2021 23:15:05" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCCS.;36)
 
 
 (PRETTYCOMPRINT XCCSCOMS)
@@ -210,19 +210,19 @@
 (DEFINEQ
 
 (\CREATE.XCCS.EXTERNALFORMAT

-  [LAMBDA NIL
                                           (* ; "Edited 24-Jun-2021 16:45 by rmk:")

+  [LAMBDA (NAME EOL)
                                    (* ; "Edited  1-Aug-2021 23:13 by rmk:")

 
 (* ;;; "Create the :XCCS external format.  Stream's EOL overrides the (vacuous) default here")

 
-    (\INSTALL.EXTERNALFORMAT (create
 EXTERNALFORMAT
-                                    NAME _ :XCCS
-                                    INCCODEFN _ (FUNCTION \XCCSINCCODE)
-                                    PEEKCCODEFN _ (FUNCTION \XCCSPEEKCCODE)
-                                    BACKCCODEFN _ (FUNCTION \XCCSBACKCCODE)
-                                    OUTCHARFN _ (FUNCTION \XCCSOUTCHAR)
-                                    FORMATBYTESTREAMFN _ (FUNCTION \XCCSFORMATBYTESTREAM)
-                                    EOL _ LF.EOLC
-                                    EOLVALID _ NIL])
+    (CL:UNLESS NAME (SETQ NAME :XCCS))
+    (CL:UNLESS EOL
+        (SETQ EOL 'LF))
+    (MAKE-EXTERNALFORMAT NAME (FUNCTION \XCCSINCCODE)
+           (FUNCTION \XCCSPEEKCCODE)
+           (FUNCTION \XCCSBACKCCODE)
+           (FUNCTION \XCCSOUTCHAR)
+           (FUNCTION \XCCSFORMATBYTESTREAM)
+           EOL])
 )
 (DEFINEQ
 
@@ -290,8 +290,8 @@
 (\CREATE.XCCS.EXTERNALFORMAT
)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1292 1521 (ACCESS-CHARSET 1302 . 1519)) (1522 10652 (\XCCSINCCODE 1532 . 4344) (
-\XCCSPEEKCCODE 4346 . 6882) (\XCCSOUTCHAR 6884 . 9422) (\XCCSBACKCCODE 9424 . 10323) (
-\XCCSFORMATBYTESTREAM 10325 . 10650)) (10653 11497 (\CREATE.XCCS.EXTERNALFORMAT 10663 . 11495)) (11498
- 12329 (\NSIN.24BITENCODING.ERROR 11508 . 12327)))))
+  (FILEMAP (NIL (1333 1562 (ACCESS-CHARSET 1343 . 1560)) (1563 10693 (\XCCSINCCODE 1573 . 4385) (
+\XCCSPEEKCCODE 4387 . 6923) (\XCCSOUTCHAR 6925 . 9463) (\XCCSBACKCCODE 9465 . 10364) (
+\XCCSFORMATBYTESTREAM 10366 . 10691)) (10694 11250 (\CREATE.XCCS.EXTERNALFORMAT 10704 . 11248)) (11251
+ 12082 (\NSIN.24BITENCODING.ERROR 11261 . 12080)))))
 STOP
diff --git a/sources/XCCS.LCOM b/sources/XCCS.LCOM
index faf2592c5e83eb6d636f827e77124fe4e26078a4..9c87b891d162078097d3d02fa3f7dd674d70fde2 100644
GIT binary patch
delta 503
zcma)3OHRU26fMMPXoAt12GZQTL{kREer$_POn8)6t(3NDAz`2cJ`Iu}5I%_xoVWw*
z%mwHISO80K2W~}M%fJBxC--yixu195ckV5J%2tVC+JrMqi*TlGIKa4Aui+~K$g~^8
zvrOMb%fsV~3ib&IJTQji)o}xumah8+nvFYkkKhKW0s?`<i#{jvq5z_#35q6{mTmV;
zEdY{u?q)GeYC=>KHL--CGYz`qhsj_V^neZ?C)3%92H{sWcL#$JAfstn@VB#AEF$Q&
z=MjC&L`g#bISE1dnYzrWKns$hmY{pz9`%D6%*WAk*0BBff_(U%VnQuNFK6Y|e)?&5
z$eJJkaV#)_2OHN(0VtKCsC4<GA33T+t??#GugkyCHiNT!G5dgGWfAJQMmW-nl(w;z
zNE^N2Tz<_Qxjfv)B0J57evLhl<Rq^|AEfI}l|;fMh)c)@5jPyuP8fm$mH`TA@u1an
H=4Iyx3d(rE

delta 557
zcma)2T}#4H7@lU4yUHkvih5ZE^FncRA32Da^NeQ4ZEQ0Py2zaP5zR=A2%+B~-t{-U
z=+d9yU+ACI)*2*q(YZM1d7t;;dEWQD?S1ajbP1`Njxwr-QAX2M1NJQ>mmIl>5m1`$
zAPZ}@NsUvRM`@A{WQs3vPzflO%an&+hRv}Iuz88$r5rzgHn)ZJVvi9ePLNn({IPZG
z^#<*Z*Mg1*lv>3Yew$>oSqj|xpy~c)z~!j_Ofb2Ro#_IQOuoSK&}i4aR<jR--mwJq
zrEJ+yQxsb<Ds~zk9-B{{-mw3j>Gu~lVg!j3rMyT1IqAhtWBjxne_46eH4KD7_~$0L
z4%}AoY^=_H01<(B1QHQgi2yls@8(2m=62@<F-rypYXmI{aINXKBV(LJHUHyv8LNg>
zksW_+-fsqjPlV)pR}8UHb(C}2g8WHX7iHx_QH&A-wh%HVLJ^Y-8BGrr3<FZ&2ONwN
YON(*Nm5B~VerTGUn9DoU_hcjS1rgSXfdBvi