From 388d54b7133248149bc13836e735366a52569a35 Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Wed, 29 Sep 2021 22:23:45 -0700
Subject: [PATCH] TEDITSCREEN:  Cleanup \DISPLAYLINE

Test argument validity at top so ffetch can be used consistently.  Remove unused variables, and move some other variable bindings to their proper scope
---
 library/TEDITSCREEN      | 421 +++++++++++++++++++--------------------
 library/TEDITSCREEN.LCOM | Bin 35927 -> 34908 bytes
 2 files changed, 209 insertions(+), 212 deletions(-)

diff --git a/library/TEDITSCREEN b/library/TEDITSCREEN
index 772d9832..7ea78f69 100644
--- a/library/TEDITSCREEN
+++ b/library/TEDITSCREEN
@@ -1,13 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED "21-Sep-2021 12:53:40" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITSCREEN.;4
 214736 
 
-      changes to%:  (MACROS MI-TEDIT.BLTCHAR)
-                    (VARS TEDITSCREENCOMS)
-                    (FNS \MAIKO.DISPLAYLINE \DISPLAYLINE)
+
(FILECREATED "29-Sep-2021 22:03:57" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITSCREEN.;8
 214517 
 
-      previous date%: "30-Apr-2021 14:42:15" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITSCREEN.;1)
+      changes to%:  (FNS \DISPLAYLINE)
+
+      previous date%: "21-Sep-2021 12:53:40" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITSCREEN.;7)
 
 
 (* ; "
@@ -1094,247 +1093,245 @@ Copyright (c) 1983-1994, 2021 by Venue & Xerox Corporation.
 (DEFINEQ
 
 (\DISPLAYLINE

-  [LAMBDA (TEXTOBJ LINE WINDOW)
                         (* ; "Edited 21-Sep-2021 12:47 by rmk:")

+  [LAMBDA (TEXTOBJ LINE WINDOW)
                         (* ; "Edited 28-Sep-2021 15:00 by rmk:")

 
     (* ;; "Display the line of text LINE in the edit window where it belongs.")

 
-    (PROG ((CH 0)
-           (CHLIST (fetch
 (THISLINE CHARS) of
 (fetch
 (TEXTOBJ THISLINE) of
 TEXTOBJ)))
-           (WLIST (fetch
 (THISLINE WIDTHS) of
 (fetch
 (TEXTOBJ THISLINE) of
 TEXTOBJ)))
-           (LOOKS (fetch
 (THISLINE LOOKS) of
 (fetch
 (TEXTOBJ THISLINE) of
 TEXTOBJ)))
-           (WINDOWDS (WINDOWPROP (OR WINDOW (CAR (fetch
 (TEXTOBJ \WINDOW) of
 TEXTOBJ)))
-                            'DSP))
-           (TEXTLEN (fetch
 (TEXTOBJ TEXTLEN) of
 TEXTOBJ))
-           (THISLINE (fetch
 (TEXTOBJ THISLINE) of
 TEXTOBJ))
-           (TERMSA (fetch
 (TEXTOBJ TXTTERMSA) of
 TEXTOBJ))
-           (STREAM (fetch
 (TEXTOBJ STREAMHINT) of
 TEXTOBJ))
-           (OLDCACHE (fetch
 LCBITMAP of
 (fetch
 (TEXTOBJ DISPLAYCACHE) of
 TEXTOBJ)))
-           (DS (fetch
 (TEXTOBJ DISPLAYCACHEDS) of
 TEXTOBJ))
-           (HCPYDS (fetch
 (TEXTOBJ DISPLAYHCPYDS) of
 TEXTOBJ))
-           (HARDCOPYMODE (fetch
 (FMTSPEC FMTHARDCOPY) of
 (fetch
 (LINEDESCRIPTOR LFMTSPEC)
-                                                                    of
 LINE)))
-           LOOKSTARTX CACHE \PCHARSLEFT \PSTRING \PFILE FONT OFONT OLOOKS XOFFSET CLIPLEFT CLIPRIGHT
-           DISPLAYDATA DDPILOTBBT DDWIDTHCACHE DDOFFSETCACHE CURY LHEIGHT SCALE)
-          [SETQ LHEIGHT (COND
-                           ((fetch
 (LINEDESCRIPTOR PREVLINE) of
 LINE)
+    (* ;; "Validate the incoming arguments so ffetch can be used consistently for all their field extractions.")

+
+    (\DTEST TEXTOBJ 'TEXTOBJ)
+    (\DTEST LINE 'LINEDESCRIPTOR)
+    (LET ((LOOKS (ffetch
 (THISLINE LOOKS) of
 (ffetch
 (TEXTOBJ THISLINE) of
 TEXTOBJ)))
+          (WINDOWDS (WINDOWPROP (OR WINDOW (CAR (ffetch
 (TEXTOBJ \WINDOW) of
 TEXTOBJ)))
+                           'DSP))
+          (THISLINE (\DTEST (ffetch
 (TEXTOBJ THISLINE) of
 TEXTOBJ)
+                           'THISLINE))
+          (OLDCACHE (fetch
 (LINECACHE LCBITMAP) of
 (ffetch
 (TEXTOBJ DISPLAYCACHE)
+                                                              of
 TEXTOBJ)))
+          (DS (ffetch
 (TEXTOBJ DISPLAYCACHEDS) of
 TEXTOBJ))
+          (HCPYDS (ffetch
 (TEXTOBJ DISPLAYHCPYDS) of
 TEXTOBJ))
+          (HARDCOPYMODE (fetch
 (FMTSPEC FMTHARDCOPY) of
 (ffetch
 (LINEDESCRIPTOR LFMTSPEC)
+                                                                   of
 LINE)))
+          CACHE OFONT OLOOKS XOFFSET CLIPLEFT CLIPRIGHT DISPLAYDATA DDPILOTBBT DDWIDTHCACHE 
+          DDOFFSETCACHE CURY LHEIGHT SCALE)
+         [SETQ LHEIGHT (COND
+                          ((ffetch
 (LINEDESCRIPTOR PREVLINE) of
 LINE)
                                                              (* ; 
 
                                  "So if theres a base-to-base measure, we clear everything right.")

-                            (IMAX (IDIFFERENCE (fetch
 (LINEDESCRIPTOR YBOT)
-                                                  of
 (fetch
 (LINEDESCRIPTOR PREVLINE)
-                                                            of
 LINE))
-                                         (fetch
 (LINEDESCRIPTOR YBOT) of
 LINE))
-                                  (fetch
 (LINEDESCRIPTOR LHEIGHT) of
 LINE)))
-                           (T (fetch
 (LINEDESCRIPTOR LHEIGHT) of
 LINE]
-          (COND
-             (HARDCOPYMODE                                   (* ; 
+                           (IMAX (IDIFFERENCE (ffetch
 (LINEDESCRIPTOR YBOT)
+                                                 of
 (ffetch
 (LINEDESCRIPTOR PREVLINE)
+                                                           of
 LINE))
+                                        (ffetch
 (LINEDESCRIPTOR YBOT) of
 LINE))
+                                 (ffetch
 (LINEDESCRIPTOR LHEIGHT) of
 LINE)))
+                          (T (ffetch
 (LINEDESCRIPTOR LHEIGHT) of
 LINE]
+         (SETQ SCALE (COND
+                        (HARDCOPYMODE                        (* ; 
 
                                                     "This is a hardcopy-mode line.  Scale things.")

-                                                             (* ; "(SETQ DS HCPYDS)")

-                    (SETQ SCALE (DSPSCALE NIL HCPYDS)))
-             (T (SETQ SCALE 1)))
-          (SETQ CACHE (\TEDIT.LINECACHE
 (fetch
 (TEXTOBJ DISPLAYCACHE) of
 TEXTOBJ)
-                             (COND
-                                (HARDCOPYMODE (FIXR (FQUOTIENT (fetch
 (LINEDESCRIPTOR RIGHTMARGIN
+                               (DSPSCALE NIL HCPYDS))
+                        (T 1)))
+         (SETQ CACHE (\TEDIT.LINECACHE
 (ffetch
 (TEXTOBJ DISPLAYCACHE) of
 TEXTOBJ)
+                            (COND
+                               (HARDCOPYMODE (FIXR (FQUOTIENT (ffetch
 (LINEDESCRIPTOR RIGHTMARGIN
                                                                                  ) of
 LINE)
-                                                           SCALE)))
-                                (T (fetch
 (LINEDESCRIPTOR RIGHTMARGIN) of
 LINE)))
-                             LHEIGHT))
-          (COND
-             ((NEQ CACHE OLDCACHE)                           (* ; 
+                                                          SCALE)))
+                               (T (ffetch
 (LINEDESCRIPTOR RIGHTMARGIN) of
 LINE)))
+                            LHEIGHT))
+         (COND
+            ((NEQ CACHE OLDCACHE)                            (* ; 
 
               "We changed the bitmaps because this line was bigger--update the displaystream, too")

-              (DSPDESTINATION CACHE DS)
-              (DSPCLIPPINGREGION (create
 REGION
-                                        LEFT _ 0
-                                        BOTTOM _ 0
-                                        WIDTH _ (fetch
 BITMAPWIDTH of
 CACHE)
-                                        HEIGHT _ (fetch
 BITMAPHEIGHT of
 CACHE))
-                     DS)))
-          (BITBLT NIL 0 0 CACHE 0 0 NIL NIL 'TEXTURE 'REPLACE WHITESHADE)
+             (DSPDESTINATION CACHE DS)
+             (DSPCLIPPINGREGION (create
 REGION
+                                       LEFT _ 0
+                                       BOTTOM _ 0
+                                       WIDTH _ (fetch
 BITMAPWIDTH of
 CACHE)
+                                       HEIGHT _ (fetch
 BITMAPHEIGHT of
 CACHE))
+                    DS)))
+         (BITBLT NIL 0 0 CACHE 0 0 NIL NIL 'TEXTURE 'REPLACE WHITESHADE)
                                                              (* ; "Clear the line cache")

-          (COND
-             (HARDCOPYMODE                                   (* ; 
-
                                                     "This is a hardcopy-mode line.  Scale things.")

-                                                             (* ; "(SETQ DS HCPYDS)")

-                    (SETQ SCALE (DSPSCALE NIL HCPYDS)))
-             (T (SETQ SCALE 1)))
-          [COND
-             ((AND (NOT (ZEROP (fetch
 (LINEDESCRIPTOR CHAR1) of
 LINE)))
-                   (ILEQ (fetch
 (LINEDESCRIPTOR CHAR1) of
 LINE)
-                         TEXTLEN)
-                   (IGEQ (fetch
 (LINEDESCRIPTOR YBOT) of
 LINE)
-                         (fetch
 (TEXTOBJ WBOTTOM) of
 TEXTOBJ)))
+         [COND
+            ((AND (NOT (ZEROP (fetch
 (LINEDESCRIPTOR CHAR1) of
 LINE)))
+                  (ILEQ (ffetch
 (LINEDESCRIPTOR CHAR1) of
 LINE)
+                        (ffetch
 (TEXTOBJ TEXTLEN) of
 TEXTOBJ))
+                  (IGEQ (ffetch
 (LINEDESCRIPTOR YBOT) of
 LINE)
+                        (ffetch
 (TEXTOBJ WBOTTOM) of
 TEXTOBJ)))
 
-              (* ;; "Only display the line of it contains text (CHAR1 > 0), appears before the end of the test, and is on-screen.")

+             (* ;; "Only display the line of it contains text (CHAR1 > 0), appears before the end of the test, and is on-screen.")

 
-              (COND
-                 ((NEQ (fetch
 (THISLINE DESC) of
 THISLINE)
-                       LINE)                                 (* ; 
+             (COND
+                ((NEQ (fetch
 (THISLINE DESC) of
 THISLINE)
+                      LINE)                                  (* ; 
 
                                                          "No image cache -- re-format and display")

-                  (\FORMATLINE
 TEXTOBJ NIL (fetch
 (LINEDESCRIPTOR CHAR1) of
 LINE)
-                         LINE)))
-              (MOVETO (fetch
 (LINEDESCRIPTOR LEFTMARGIN) of
 LINE)
-                     (fetch
 (LINEDESCRIPTOR DESCENT) of
 LINE)
-                     DS)
-              (SETQ DISPLAYDATA (fetch
 (STREAM IMAGEDATA) of
 DS))
-              (SETQ DDPILOTBBT (ffetch
 DDPILOTBBT of
 DISPLAYDATA))
-              (SETQ XOFFSET (fetch
 DDXOFFSET of
 DISPLAYDATA))
+                 (\FORMATLINE
 TEXTOBJ NIL (ffetch
 (LINEDESCRIPTOR CHAR1) of
 LINE)
+                        LINE)))
+             (MOVETO (ffetch
 (LINEDESCRIPTOR LEFTMARGIN) of
 LINE)
+                    (ffetch
 (LINEDESCRIPTOR DESCENT) of
 LINE)
+                    DS)
+             (SETQ DISPLAYDATA (fetch
 (STREAM IMAGEDATA) of
 DS))
+             (SETQ DDPILOTBBT (ffetch
 DDPILOTBBT of
 DISPLAYDATA))
+             (SETQ XOFFSET (fetch
 DDXOFFSET of
 DISPLAYDATA))
 
-              (* ;; "The X position of the left edge of the window, since \TEDIT.BLTCHAR works on the screen bitmap itself.")

+             (* ;; "The X position of the left edge of the window, since \TEDIT.BLTCHAR works on the screen bitmap itself.")

 
-              (SETQ CLIPLEFT (fetch
 DDClippingLeft of
 DISPLAYDATA))
+             (SETQ CLIPLEFT (fetch
 DDClippingLeft of
 DISPLAYDATA))
                                                              (* ; 
 
                     "The left and right edges of the clipping region for the text display window.")

-              (SETQ CLIPRIGHT (fetch
 DDClippingRight of
 DISPLAYDATA))
-              (SETQ OFONT (DSPFONT (fetch
 CLFONT of
 (SETQ OLOOKS (\EDITELT LOOKS 0)))
-                                 DS))                        (* ; "The starting font")

-              (SETQ DDWIDTHCACHE (ffetch
 DDWIDTHSCACHE of
 DISPLAYDATA))
+             (SETQ CLIPRIGHT (fetch
 DDClippingRight of
 DISPLAYDATA))
+             (SETQ OFONT (DSPFONT (fetch
 CLFONT of
 (SETQ OLOOKS (\EDITELT LOOKS 0)))
+                                DS))                         (* ; "The starting font")

+             (SETQ DDWIDTHCACHE (ffetch
 DDWIDTHSCACHE of
 DISPLAYDATA))
                                                              (* ; 
 
                                                           "Cache the character-image widths")

-              (SETQ DDOFFSETCACHE (ffetch
 DDOFFSETSCACHE of
 DISPLAYDATA))
+             (SETQ DDOFFSETCACHE (ffetch
 DDOFFSETSCACHE of
 DISPLAYDATA))
                                                              (* ; 
 
                                                          "And the offset-into-strike-bitmap array")

-              (SETQ LOOKSTARTX (fetch
 (LINEDESCRIPTOR LEFTMARGIN) of
 LINE))
                                                              (* ; 
-
                                                  "Starting X position for the current-looks text.")

-              (AND (fetch
 CLOFFSET of
 OLOOKS)
-                   (RELMOVETO 0 (FIXR (FTIMES SCALE (fetch
 CLOFFSET of
 OLOOKS)))
-                          DS))                               (* ; 
+
                                      "LOOKSTARTX: Starting X position for the current-looks text.")

+             (AND (fetch
 CLOFFSET of
 OLOOKS)
+                  (RELMOVETO 0 (FIXR (FTIMES SCALE (fetch
 CLOFFSET of
 OLOOKS)))
+                         DS))                                (* ; 
 
                                                      "Any sub- or superscripting at start of line")

-              (bind
 (LOOKNO _ 1)
-                     DX
-                     (TX _ (IPLUS XOFFSET (fetch
 (LINEDESCRIPTOR LEFTMARGIN) of
 LINE)))
-                 for
 I from
 0 to
 (fetch
 (THISLINE LEN) of
 THISLINE)
-                 do
 
+             (bind
 (LOOKNO _ 1)
+                    DX CH (CHLIST _ (fetch
 (THISLINE CHARS) of
 (ffetch
 (TEXTOBJ THISLINE)
+                                                                          of
 TEXTOBJ)))
+                    (WLIST _ (fetch
 (THISLINE WIDTHS) of
 (ffetch
 (TEXTOBJ THISLINE)
+                                                                    of
 TEXTOBJ)))
+                    (TX _ (IPLUS XOFFSET (ffetch
 (LINEDESCRIPTOR LEFTMARGIN) of
 LINE)))
+                    (TERMSA _ (ffetch
 (TEXTOBJ TXTTERMSA) of
 TEXTOBJ))
+                    (LOOKSTARTX _ (ffetch
 (LINEDESCRIPTOR LEFTMARGIN) of
 LINE)) for

+                                                                                        I
+                from
 0 to
 (ffetch
 (THISLINE LEN) of
 THISLINE)
+                do
 
 
-                       (* ;; "Display the line character by character")

+                      (* ;; "Display the line character by character")

 
-                       (SETQ CH (\EDITELT CHLIST I))         (* ; 
+                      (SETQ CH (\EDITELT CHLIST I))          (* ; 
 
                                                      "Grab the character (or IMAGEOBJ) to display")

-                       (SETQ DX (\EDITELT WLIST I))          (* ; "And its width")

-                       [SELECTC CH
-                           (LMInvisibleRun                   (* ; 
+                      (SETQ DX (\EDITELT WLIST I))           (* ; "And its width")

+                      [SELECTC CH
+                          (LMInvisibleRun                    (* ; 
 
                                        "An INVISIBLE run -- skip it, and skip over the char count")

-                                (add
 LOOKNO 1))
-                           (LMLooksChange                    (* ; "A LOOKS change")

-                                          (replace
 DDXPOSITION of
 DISPLAYDATA
-                                             with
 (IDIFFERENCE TX XOFFSET))
+                               (add
 LOOKNO 1))
+                          (LMLooksChange                     (* ; "A LOOKS change")

+                                         (replace
 DDXPOSITION of
 DISPLAYDATA
+                                            with
 (IDIFFERENCE TX XOFFSET))
                                                              (* ; 
 
                                            "Make the displaystream reflect our current X position")

-                                          (TEDIT.MODIFYLOOKS LINE LOOKSTARTX DS OLOOKS
-                                                 (fetch
 (LINEDESCRIPTOR DESCENT) of
 LINE))
+                                         (TEDIT.MODIFYLOOKS LINE LOOKSTARTX DS OLOOKS
+                                                (ffetch
 (LINEDESCRIPTOR DESCENT) of
 LINE))
                                                              (* ; 
 
                "Make any necessary changes to the preceding characters (underline, strike-out &c)")

-                                          (DSPFONT (fetch
 CLFONT of
 (SETQ OLOOKS
-                                                                             (\EDITELT LOOKS LOOKNO))
-                                                          )
-                                                 DS)         (* ; "Set the new font")

-                                          (add
 LOOKNO 1) (* ; "Grab the next set of char looks")

-                                          (AND (fetch
 CLOFFSET of
 OLOOKS)
-                                               (RELMOVETO 0 (fetch
 CLOFFSET of
 OLOOKS)
-                                                      DS))   (* ; "Account for super/subscripting")

-                                          (SETQ LOOKSTARTX (IDIFFERENCE TX XOFFSET))
+                                         (DSPFONT (fetch
 CLFONT of
 (SETQ OLOOKS
+                                                                            (\EDITELT LOOKS LOOKNO)))
+                                                DS)          (* ; "Set the new font")

+                                         (add
 LOOKNO 1)  (* ; "Grab the next set of char looks")

+                                         (AND (fetch
 CLOFFSET of
 OLOOKS)
+                                              (RELMOVETO 0 (fetch
 CLOFFSET of
 OLOOKS)
+                                                     DS))    (* ; "Account for super/subscripting")

+                                         (SETQ LOOKSTARTX (IDIFFERENCE TX XOFFSET))
                                                              (* ; 
 
                                     "Remember the starting Xpos for possible later underlining &c")

-                                          )
-                           ((CHARCODE (TAB %#^I))            (* ; 
+                                         )
+                          ((CHARCODE (TAB %#^I))             (* ; 
 
                                "TAB: use the width from the cache to decide the right formatting.")

-                                [COND
-                                   ((OR (IEQP CH (CHARCODE %#^I))
-                                        (fetch
 CLLEADER of
 OLOOKS)
-                                        (EQ (fetch
 CLUSERINFO of
 OLOOKS)
-                                            'DOTTEDLEADER))
-                                    (LET* [[LEADERFONT (COND
-                                                          (HARDCOPYMODE (FONTCOPY (fetch
 CLFONT
-                                                                                     of
 OLOOKS)
-                                                                               'DEVICE HCPYDS))
-                                                          (T (fetch
 CLFONT of
 OLOOKS]
-                                           (DOTWIDTH (CHARWIDTH (CHARCODE %.)
-                                                            LEADERFONT))
-                                           (TTX (IPLUS TX DOTWIDTH (IDIFFERENCE DOTWIDTH
-                                                                          (IREMAINDER TX DOTWIDTH]
-                                          (while
 (ILEQ TTX (IPLUS TX DX))
-                                             do
 (COND
-                                                       (HARDCOPYMODE
-                                                        (MI-TEDIT.BLTCHAR (CHARCODE %.)
-                                                               DS
-                                                               (FIXR (FQUOTIENT (IDIFFERENCE TTX 
-                                                                                       DOTWIDTH)
-                                                                            SCALE))
-                                                               DISPLAYDATA DDPILOTBBT CLIPRIGHT))
-                                                       ((OR TERMSA HARDCOPYMODE)
+                               [COND
+                                  ((OR (IEQP CH (CHARCODE %#^I))
+                                       (fetch
 CLLEADER of
 OLOOKS)
+                                       (EQ (fetch
 CLUSERINFO of
 OLOOKS)
+                                           'DOTTEDLEADER))
+                                   (LET* [[LEADERFONT (COND
+                                                         (HARDCOPYMODE (FONTCOPY (fetch
 CLFONT
+                                                                                    of
 OLOOKS)
+                                                                              'DEVICE HCPYDS))
+                                                         (T (fetch
 CLFONT of
 OLOOKS]
+                                          (DOTWIDTH (CHARWIDTH (CHARCODE %.)
+                                                           LEADERFONT))
+                                          (TTX (IPLUS TX DOTWIDTH (IDIFFERENCE DOTWIDTH
+                                                                         (IREMAINDER TX DOTWIDTH]
+                                         (while
 (ILEQ TTX (IPLUS TX DX))
+                                            do
 (COND
+                                                      (HARDCOPYMODE (MI-TEDIT.BLTCHAR
+                                                                     (CHARCODE %.)
+                                                                     DS
+                                                                     (FIXR (FQUOTIENT (IDIFFERENCE
+                                                                                       TTX DOTWIDTH)
+                                                                                  SCALE))
+                                                                     DISPLAYDATA DDPILOTBBT CLIPRIGHT
+                                                                     ))
+                                                      ((OR TERMSA HARDCOPYMODE)
                                                              (* ; 
 
                                                           "Using special instrns from TERMSA")

-                                                        (\DSPPRINTCHAR DS (CHARCODE %.)))
-                                                       (T    (* ; "Native charcodes")

-                                                          (MI-TEDIT.BLTCHAR (CHARCODE %.)
-                                                                 DS
-                                                                 (IDIFFERENCE TTX DOTWIDTH)
-                                                                 DISPLAYDATA DDPILOTBBT CLIPRIGHT)))
-                                                   (add
 TTX DOTWIDTH])
-                           ((CHARCODE (EOL LF CR))           (* ; "It's a CR")

-                                NIL)
-                           (NIL                              (* ; "NIL signifies a character we've suppressed as part of line formatting (e.g., a discretionary hyphen we didn't use to break the line).  Show it as a thin black line.")

-                                (BLTSHADE BLACKSHADE DS TX 0 1 100 'PAINT))
-                           (COND
-                              [(SMALLP CH)                   (* ; 
+                                                       (\DSPPRINTCHAR DS (CHARCODE %.)))
+                                                      (T     (* ; "Native charcodes")

+                                                         (MI-TEDIT.BLTCHAR (CHARCODE %.)
+                                                                DS
+                                                                (IDIFFERENCE TTX DOTWIDTH)
+                                                                DISPLAYDATA DDPILOTBBT CLIPRIGHT)))
+                                                  (add
 TTX DOTWIDTH])
+                          ((CHARCODE (EOL LF CR))            (* ; "It's a CR")

+                               NIL)
+                          (NIL                               (* ; "NIL signifies a character we've suppressed as part of line formatting (e.g., a discretionary hyphen we didn't use to break the line).  Show it as a thin black line.")

+                               (BLTSHADE BLACKSHADE DS TX 0 1 100 'PAINT))
+                          (COND
+                             [(SMALLP CH)                    (* ; 
 
                                                           "Normal character -- just display it.")

-                               (COND
-                                  (HARDCOPYMODE (MI-TEDIT.BLTCHAR CH DS (FIXR (FQUOTIENT TX SCALE))
-                                                       DISPLAYDATA DDPILOTBBT CLIPRIGHT))
-                                  ((OR TERMSA HARDCOPYMODE)  (* ; 
+                              (COND
+                                 (HARDCOPYMODE (MI-TEDIT.BLTCHAR CH DS (FIXR (FQUOTIENT TX SCALE))
+                                                      DISPLAYDATA DDPILOTBBT CLIPRIGHT))
+                                 ((OR TERMSA HARDCOPYMODE)   (* ; 
 
                                                           "Using special instrns from TERMSA")

-                                   (\DSPPRINTCHAR DS CH))
-                                  (T                         (* ; "Native charcodes")

-                                     (MI-TEDIT.BLTCHAR CH DS TX DISPLAYDATA DDPILOTBBT CLIPRIGHT]
-                              (T                             (* ; "CH is an object.")

-                                 (MOVETO (IDIFFERENCE (FIXR (FQUOTIENT TX SCALE))
-                                                XOFFSET)
-                                        (SETQ CURY (DSPYPOSITION NIL DS))
-                                        DS)                  (* ; 
+                                  (\DSPPRINTCHAR DS CH))
+                                 (T                          (* ; "Native charcodes")

+                                    (MI-TEDIT.BLTCHAR CH DS TX DISPLAYDATA DDPILOTBBT CLIPRIGHT]
+                             (T                              (* ; "CH is an object.")

+                                (MOVETO (IDIFFERENCE (FIXR (FQUOTIENT TX SCALE))
+                                               XOFFSET)
+                                       (SETQ CURY (DSPYPOSITION NIL DS))
+                                       DS)                   (* ; 
 
                                              "Go to the base line, left edge of the image region.")

-                                 (APPLY* (IMAGEOBJPROP CH 'DISPLAYFN)
-                                        CH DS 'DISPLAY (fetch
 (TEXTOBJ STREAMHINT) of
 TEXTOBJ
-                                                              ))
+                                (APPLY* (IMAGEOBJPROP CH 'DISPLAYFN)
+                                       CH DS 'DISPLAY (ffetch
 (TEXTOBJ STREAMHINT) of
 TEXTOBJ
+                                                             ))
                                                              (* ; 
 
                                                           "Tell him to display himself here.")

-                                 (DSPFONT (fetch
 CLFONT of
 OLOOKS)
-                                        DS)
-                                 (MOVETO (IDIFFERENCE (FIXR (FQUOTIENT TX SCALE))
-                                                XOFFSET)
-                                        CURY DS)             (* ; 
+                                (DSPFONT (fetch
 CLFONT of
 OLOOKS)
+                                       DS)
+                                (MOVETO (IDIFFERENCE (FIXR (FQUOTIENT TX SCALE))
+                                               XOFFSET)
+                                       CURY DS)              (* ; 
 
                                                           "Move to after the object's image")

-                                 ]
-                       (add
 TX DX)                       (* ; "Update our X position")

-                 finally
 (replace
 DDXPOSITION of
 DISPLAYDATA
-                                with
 (IDIFFERENCE (FIXR (FQUOTIENT TX SCALE))
-                                                XOFFSET))    (* ; 
+                                ]
+                      (add
 TX DX)                        (* ; "Update our X position")

+                finally
 (replace
 DDXPOSITION of
 DISPLAYDATA
+                               with
 (IDIFFERENCE (FIXR (FQUOTIENT TX SCALE))
+                                               XOFFSET))     (* ; 
 
                                      "Make any necessary looks mods to the last run of characters")

-                       (TEDIT.MODIFYLOOKS LINE LOOKSTARTX DS OLOOKS (fetch
 (LINEDESCRIPTOR 
+                      (TEDIT.MODIFYLOOKS LINE LOOKSTARTX DS OLOOKS (ffetch
 (LINEDESCRIPTOR 
                                                                                       DESCENT)
-                                                                       of
 LINE]
-          (BITBLT CACHE 0 0 WINDOWDS 0 (fetch
 (LINEDESCRIPTOR YBOT) of
 LINE)
-                 (fetch
 (TEXTOBJ WRIGHT) of
 TEXTOBJ)
-                 LHEIGHT
-                 'INPUT
-                 'REPLACE)                                   (* ; 
+                                                                      of
 LINE]
+         (BITBLT CACHE 0 0 WINDOWDS 0 (ffetch
 (LINEDESCRIPTOR YBOT) of
 LINE)
+                (ffetch
 (TEXTOBJ WRIGHT) of
 TEXTOBJ)
+                LHEIGHT
+                'INPUT
+                'REPLACE)                                    (* ; 
 
                        "Paint the cached image on the screen (this lessens flicker during update)")

-          (COND
-             ((fetch
 (FMTSPEC FMTREVISED) of
 (fetch
 (LINEDESCRIPTOR LFMTSPEC)
-                                                        of
 LINE))
+         (COND
+            ((fetch
 (FMTSPEC FMTREVISED) of
 (ffetch
 (LINEDESCRIPTOR LFMTSPEC)
+                                                       of
 LINE))
                                                              (* ; 
 
                                                     "This paragraph has been revised, so mark it.")

-              (\TEDIT.MARK.REVISION TEXTOBJ (fetch
 (LINEDESCRIPTOR LFMTSPEC) of
 LINE)
-                     WINDOWDS LINE)))
-          (SELECTQ (fetch
 (LINEDESCRIPTOR LMARK) of
 LINE)
-              (GREY                                          (* ; 
+             (\TEDIT.MARK.REVISION TEXTOBJ (ffetch
 (LINEDESCRIPTOR LFMTSPEC) of
 LINE)
+                    WINDOWDS LINE)))
+         (SELECTQ (ffetch
 (LINEDESCRIPTOR LMARK) of
 LINE)
+             (GREY                                           (* ; 
 
              "This line has some property that isn't visible to the user.  Tell him to be careful")

-                    (BITBLT NIL 0 0 WINDOWDS 0 (fetch
 (LINEDESCRIPTOR YBASE) of
 LINE)
-                           6 6 'TEXTURE 'PAINT 42405))
-              (SOLID                                         (* ; 
+                   (BITBLT NIL 0 0 WINDOWDS 0 (ffetch
 (LINEDESCRIPTOR YBASE) of
 LINE)
+                          6 6 'TEXTURE 'PAINT 42405))
+             (SOLID                                          (* ; 
 
              "This line has some property that isn't visible to the user.  Tell him to be careful")

-                     (BITBLT NIL 0 0 WINDOWDS 0 (fetch
 (LINEDESCRIPTOR YBASE) of
 LINE)
-                            6 6 'TEXTURE 'PAINT BLACKSHADE))
-              (BITBLT NIL 0 0 WINDOWDS 0 (fetch
 (LINEDESCRIPTOR YBASE) of
 LINE)
-                     6 6 'TEXTURE 'REPLACE WHITESHADE])
+                    (BITBLT NIL 0 0 WINDOWDS 0 (ffetch
 (LINEDESCRIPTOR YBASE) of
 LINE)
+                           6 6 'TEXTURE 'PAINT BLACKSHADE))
+             (BITBLT NIL 0 0 WINDOWDS 0 (ffetch
 (LINEDESCRIPTOR YBASE) of
 LINE)
+                    6 6 'TEXTURE 'REPLACE WHITESHADE])
 
 (\TEDIT.LINECACHE

   (LAMBDA (CACHE WIDTH HEIGHT)
                               (* jds "21-Apr-84 00:52")

@@ -2991,16 +2988,16 @@ Copyright (c) 1983-1994, 2021 by Venue & Xerox Corporation.
 (PUTPROPS TEDITSCREEN COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 
 1991 1992 1993 1994 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2874 76866 (\FORMATLINE 2884 . 56612) (\TEDIT.NSCHAR.RUN 56614 . 63431) (
-\TEDIT.PURGE.SPACES 63433 . 63891) (\DOFORMATTING 63893 . 76864)) (76867 98847 (\DISPLAYLINE 76877 . 
-94847) (\TEDIT.LINECACHE 94849 . 95600) (\TEDIT.CREATE.LINECACHE 95602 . 96346) (\TEDIT.BLTCHAR 96348
- . 98845)) (99561 214016 (TEDIT.CR.UPDATESCREEN 99571 . 100822) (TEDIT.DELETELINE 100824 . 101858) (
-TEDIT.INSERT.DISPLAYTEXT 101860 . 117099) (TEDIT.INSERT.UPDATESCREEN 117101 . 123853) (
-TEDIT.UPDATE.SCREEN 123855 . 125073) (\BACKFORMAT 125075 . 129386) (\FILLWINDOW 129388 . 144492) (
-\FIXDLINES 144494 . 151731) (\FIXILINES 151733 . 159708) (\SHOWTEXT 159710 . 162966) (
-\TEDIT.ADJUST.LINES 162968 . 170435) (\TEDIT.CLEAR.SCREEN.BELOW.LINE 170437 . 171167) (
-\TEDIT.CLOSEUPLINES 171169 . 179685) (\TEDIT.COPY.LINEDESCRIPTOR 179687 . 185253) (
-\TEDIT.FIXCHANGEDLINE 185255 . 196434) (\TEDIT.FIXCHANGEDPART 196436 . 208863) (\TEDIT.INSERTLINE 
-208865 . 209685) (\TEDIT.LINE.LIST 209687 . 210013) (\TEDIT.MARK.LINES.DIRTY 210015 . 211701) (
-\TEDIT.NEXT.LINE.BOTTOM 211703 . 214014)))))
+  (FILEMAP (NIL (2767 76759 (\FORMATLINE 2777 . 56505) (\TEDIT.NSCHAR.RUN 56507 . 63324) (
+\TEDIT.PURGE.SPACES 63326 . 63784) (\DOFORMATTING 63786 . 76757)) (76760 98628 (\DISPLAYLINE 76770 . 
+94628) (\TEDIT.LINECACHE 94630 . 95381) (\TEDIT.CREATE.LINECACHE 95383 . 96127) (\TEDIT.BLTCHAR 96129
+ . 98626)) (99342 213797 (TEDIT.CR.UPDATESCREEN 99352 . 100603) (TEDIT.DELETELINE 100605 . 101639) (
+TEDIT.INSERT.DISPLAYTEXT 101641 . 116880) (TEDIT.INSERT.UPDATESCREEN 116882 . 123634) (
+TEDIT.UPDATE.SCREEN 123636 . 124854) (\BACKFORMAT 124856 . 129167) (\FILLWINDOW 129169 . 144273) (
+\FIXDLINES 144275 . 151512) (\FIXILINES 151514 . 159489) (\SHOWTEXT 159491 . 162747) (
+\TEDIT.ADJUST.LINES 162749 . 170216) (\TEDIT.CLEAR.SCREEN.BELOW.LINE 170218 . 170948) (
+\TEDIT.CLOSEUPLINES 170950 . 179466) (\TEDIT.COPY.LINEDESCRIPTOR 179468 . 185034) (
+\TEDIT.FIXCHANGEDLINE 185036 . 196215) (\TEDIT.FIXCHANGEDPART 196217 . 208644) (\TEDIT.INSERTLINE 
+208646 . 209466) (\TEDIT.LINE.LIST 209468 . 209794) (\TEDIT.MARK.LINES.DIRTY 209796 . 211482) (
+\TEDIT.NEXT.LINE.BOTTOM 211484 . 213795)))))
 STOP
diff --git a/library/TEDITSCREEN.LCOM b/library/TEDITSCREEN.LCOM
index 55c75801fc38d1321b3fc56a92e56e7f6cdcc2ab..da9f570104616b9dbdf5c8d01770fa460c3d23fa 100644
GIT binary patch
delta 3464
zcma)9&2JmW6(=cKbr{RlmsLY?jj^m4wBWG&{UNw1SKOtz)^caDySBtuz#<KWs5Gk>
zNe)4PVvAndTngJl(Iz<*4d5m~E~eC+iQck3<zS!|kiVe4&`5xu4E4?I2bW3;lpwh8
zy?OJ#cjm``{;BlU{nGvB)pDg_T1MS9G~dwCGN-=c?cRHZV>lLZ+#18LiSmQ)og2z^
zSd&L<th&atYrL?G%0GW=_w_e_dG8m!-45D)_ugA?KNv1KIn`>lx{Nxny#veNVM1V*
zum3+Wyw|v-AdVG8Rz|Pyy|(|x?%U{{H(y>um4@x1^25^Q1Ect}qI~pT$-WWtBJ%xh
z<RD%^I`+3r-ER_(N0y=KhTFilPk0X1shmYR)n<@|@uuf%F5S(k$T!@Ur-3e~pjalO
zEz9)Cc20urDJ{~iHYV~=Kqfp{6?t{dG6<<4t7(`UO|lPCsNZ(mgp!c1<3__X{JK_e
zQcV#=G~i4EIp~gQVSjy{Zs(D1dXA;Fb<HQCv5<ykI&Ny74JmIK4XVzd?brpVstD5z
zfm9Gq$^hXc&Lz~;T)mE+b_?qy8WA<?PFweYgeb^^2Mc<t&mq5QdX{O^$kCQ*>v&7|
z%Al8&@_^|qgis9zD!J|B^;_4`nNL>=g^Ai!0X`c2twl<7cK!3IS~ORDfrz65h>|6n
zK8eJsMXnZADF2VjOn109oc+&**_lNxx_r0<KT$!83ddS>E~pGTxbp0;16=uy7KP`6
z75k5StuitF>$}0VT4dWFY0(tE_HXJAbf)mii)1-C-`N}<t#&M`Jm_}tdFt<r$&{Gb
zTY^urzDE?goxRQ*WHbHgPE$j1X3=7>+6{*f`;!;(>Y0fT@hWu){8=qptVN|~5Bn3(
zA?jLGc~0nOw~}<V;b*ly(9zBj%L6T%)S?-SnjToO4ihXztHGrKUW)n2U?HWySPm95
zI=mWO95fTVQ6ZR1$T){!1{9;2;4*p41!#bi^{K;`y7*eg{fkDPL~tuAb?>G<iY7B^
z3NJvUPixUlc+6H1W^ncE@L|974HgownE4XE5Jqi)rPH!k2e{VRFFqK4Fu>g1Cjr+l
zeY#(~KRnz|lEeyLI9`By;F}hngOW_2q4i1A!`zqf9ZxbO1&qz*lAG^lsU=BK+riC#
zNrE7HFAP8F^xhwS+%Hb`-aqaRk5H<A?&v~FmTAjDsWf39{vegcgV3VQ`W>DNlPqV8
zS9(>vPA6-&xD4*}r&uSCua2M27O%qlsNh$h!Wa~OZy(+~OA?FiAO5gcwP0C4PDd6m
z;Y;}9uQsM0Z=GIxtm3u5*dJKED)sbO3iFmOWa^oP#c|Oz4R=7?Jqa59ll}Sm`F`=`
z-ZYGH@iMOU%7nN;YD7il&zJU3PAsf+@Al&NVETI`^nPJ@rucEc@Y~Qn)bk;{glnMv
ztxWobzkkO<98JIQh$Qu)g=;jae&G)}i+_&yWeL5T<6%GP|Kr`9$A#m)WcHWS*4JpE
zsqNqf453B&T2$>#;v3&TpUq7ndGW`r;mi#5?@6ExFaxv8^q;>-rxyH=segNX=gA>r
zcIi2=f>)?-`ZG-<N)Nqg^`jclW_Bi^xZcCVD{v5z{iWVi?kL)S^oSfrKPnVvsI}qW
z{)gVlNqlI{P%8&Dd9giHsIY<{qV>&n(_goI#0qe4jW}Lb@*Lc_JAfcezuMB=&8lnM
zF+CI8h~-&6r^hMW!4-8rWI2gN4RhOt%L}g27QSQn7-&{Zr3|@m9C|~stfU~brEM5+
ze>g6N8;=#mY!fTUM78Z;&-AHJmX{MVESJRvIn?2HLoB0+A!@;m2iKP0b_|fnGTH$X
zaE02b62zAzG}<VriCKmdQi|cnY^jQbV1w5Ln1NJ|Ic-FdiGDb8u1L};--?)&MoGOW
z3^V3LmKZ=Dnj7O9nO6|06S=mLByz|#tfZh4v@ETnr~oL6JA@Bb)p95ZY)(~x4$_A3
zikj`=0a_%cI8{YE4eYiwpWgSJ2)Q+WYLIqt9GB~{3JAt?2qJMzd&4z0Xip?SEuNzr
zo^RS3X;TOj1t#N=h{+gKup}Eg7=W2zM~t8VeeIaGciS~$i~*RD6+qK900-5fg#utZ
zf-pb>7)C*k2E8O?PR=U=@~~y<FqTrNraHVNjP~*{^AL0!Q~(1vTE6EPbzm5I<cw!H
zWZKScu+KrWcJgqHWmN(TH8;jtEGt7fW4H!mOR5kvjSyZAMkS3kH(~S{h&d)zg-Ie)
z;2n!)3Ip>_6=flBUIqxO!@CA0kYUtEer1*+$QP;`BVHs!Ax6uR$^l5sqLc(7&rw{Q
zW*{+YZcS7<q`9uv25cyC<Ee|#v1Cn9N2COEm!d=g-rIx;4J2>?J+mMLI4MRPudsPe
zW>V9<2vd`<I1lgtxPTl+V;TgB`|uy91u!1wfkqPoXyst8$mqdX)?L%_u?zn(#H`UA
u6fqkr1!mmzTN=UdaHPc~lpq}u=*wt|VKlRxS@yIK@*-{@{rD$Kt^Wf5PHDve

delta 4318
zcmaJ^OKcm*875^}aTF`DELj$8!x*b|N~<=pZ$9c8T9He0C6cq)T|ZO^U{X`HOf!y~
z7)5&sw#}stda=V6NP_|e3<N#&B1#R=o>-ulsOTXFqqTqlxwk0Fpy(}u`_1eONl``x
zLi5i*|NQTn{pPcWV}Ji(>|uE!RdOp%!FTM?DUt<Ey%cQRzoaReN>nXx>UqO@boaVq
zT)>(#w5H}&Bd=-;Wb&<zTW`K`|4wV8K{kGPzjf!<od>NSJ^I(F{E&D$on9b~*B?OU
zd1|r?7bb`OX#Xv_{+dBF)yU`;xwZNFz1tgalLv2}&y!TuF8DMclU4T;Ja)tMawRO3
zZT|vEUAO&!aAtsjoLYfa1F%cAfUH+-ca^4#Zs1kywTfGFNc)e;v-6V+x^l_B|CWf@
z$QxQ-H5W+x-^oH!-O<Nt7b8O@VR(~x#860)hBw?|SjJ4xk&0s%9lu0tA)9AOkxA(p
z!lmJPh0@g;WjvF(Y*0v0uqzHo4ZF*Zd$r8AYFSda=C3g-LyARODg{nhunT1-8EF=H
z+^S@0CODp3q2cl}-)|5RS<wz{rbZ`)itG7Ozs9E(r^KaIax*r;Bo#uLn*nGwN2mx!
z%@RpP8M5xNCSej5=pgjn+Eq3)F=M$8gl5$s(nVG0(FdXJ^K7UZfnc#fy|pSWa$PDZ
z7reD1w~WlP5e`&}Qbm@)l4IYjVgWgI{A$2rvq)HW171RpnBd<GD^3jy2D#zZiu4B8
zB+P@YksB2^V1cWoP!^;DvVBBZh$eoqm`EIIE=?rxx0{WJ@%__@{nI1MAHO6x$CEGe
zeF-rilagY*EXK4LYq5SQ?kz<z!?)ux#fQJ7jx~Fmz3Hz`Prr6fteo9WOG@Yv)5M-2
zj@GYq8}!N-zw6Q~Kkf7KbpC@)IycGO{PErT<*xLE&Tr4y6A^cRf?ob74@B;pp!t{B
zO8rcO9`Eg3Y|vS*q1$ZGGu-|s<B~YEc?y40V3SES8=H;WY(M|koZ`Ah9pNrUiQT#S
zQnUAdXWXMphYx*7m$)OCFNqlDs$XEHiJ44Y>MO=QBNJ-(c4n3~<qrEOGu{=`aWNjF
zv)qv`osCnd)Rky=v95Kg5;Ml@i<16ip?<MXf32SGu8OqpChBpOb`v7z`l}G!Jyti^
zaJ+8y?bc6qsgRx6KGUR^`?G)WAmI<se^*2?*1Ss>rPEKRXJ5r>EdJ;H&Y?+H7^kIA
z@!L)OVP%9-uXM|ed&x(=Uv+8u?vr}CGxq0u$%nn|ABfoK3SHcrMNTM6MN={*(bQp{
zDj6Lue~RD17=_lMcxIdZX!?0&HtMH3V{W<8da?K0M(e%a<4*FG)_Z%+-VTxSM|Vz0
zax&r_0;#c+XvlfVj~j>1@p}EN&z(+wqm`yL-ip)76k_t8QjZOv?LD1NUZ6hc%2RYk
z;+If&<p_%{wy=E`J7*!_?a5}R3e_T-e&_1M*7||Pt#8wpAJh2{>1->_?QLa;wapDS
zKufIT<Opwy*Qm>EKB@biXSZi&W;#iwHHB_ZUMROFF-FOA$Q9?D{P^^}XV2i{O7m_j
zK0Z?~umC!VFApalcM?BGNX20%PM4YVa5&tNPU5f6S%|&qB(`K+WfoQh?Y|k;ITLS{
zL3I*88Dhjbw%!;ry12I~k3m-UL7AtVXRW^6#eP1QS7B?MF2C}!=p>wfd5pUIw9>vd
zR?;W+l`buzuS=aT|2ybtace!dv*X5|VV6;*DcW6L9$%+<?$T|<pGZt`Plbp$uZ!C=
z^8QIx_FpF?u1#-yp^M9|uY0UDF?8qM`{<*s0=Loo{ki`m_VTl5TSFeU|76ZZo5vC<
z)ygVld3D(h0dMf3HFIP=hC5Z;UrqbYbvJNn4J$wg134qhK8Oqz;Unvo*5WU_YMA((
zyElEJ8bAhBdff>rXjPS5g?)cL{>4`#9nx;qzUt8B6%WlzRNb)pyL8|i$gX)ba6|5b
z4i{qWIskxhQ=l?{$c#pS*~)-i;hN`wVL=EQfKF;0xq)Q>V@Na?NhUy3tX5MML8;l?
zer0M#B`_6~0mO)^D!?aFk5HqSnf+T7QyI0d=(;eVC}tFsITT>n?;P+R!#Xki%c&U-
zkQkmJS>QU~sffI0azJAunHdY%@jyK+T^o|OfaZ9drUe8Uco8py!6J<dWmv#jCF)o0
zkfR<whisL;<FL}`NGA5gs8ToeK`*eXV1>az4{*(QuCiijIh}EfP7t~^o7Ydv^pnrj
z7gjm$)ZjVyN&`6UTd*{;?$&~9z7s<&z;@Nj=!gcex_}B;h=Cz8NMK^N&%HY{Z|KCc
zQEM=Okq4`7^6qSejtOYREn-nIq@0<{4dhH@f;k4C3%=`x6m4u~41$o>Kv{s<qpPU!
z0UpX%s)m8*6tD>ehy|h{oq)pqI80z$x8_}AXAe!qoW^OunaO1js5X$mQFDfoMU%y^
z4UWlGJ;&gu?TaI+XE=0?Vzs)JlL#KC4P_KtOE}@IKK%89{zhv_5=|kps-P+{H;3ad
zC^Xf;S`G)Oh${mX$|-mn^xeotS)67XqDSMm49TMHht}cO&<u~lp_wwgmVxQPS_W-k
z`@X#f<c?@YvXepjMRKAwo*fG{7V;ME3rU*l=vE75?8AQxhj3ui+83FLbdQ*2m*_y;
zM1^cW;y#+V)Am)%MEdqK@SfSnFmMR@^Q1})q-?~Lfgna%xQ9krhJIoYje#ej=(G0c
z-#l?mIUvt^W<&+MnPt=J?4c^oo{skxJ|0z@JvwnK#H41mfBp9PDV9Ug(3;x*ZkReg
zqE*dU?H5+gCv)xZzcX9t9~<0~qk_njRHdRCeHy*NMB}HNs<c1fnET$~7-iyXfSss}
k(%)nneG*qjzsh(=OSQO)`fT)~WTQ5HwzYHRTW72P16d6uXaE2J