diff --git a/library/PRESS b/library/PRESS
index a29609f8..2dad0227 100644
--- a/library/PRESS
+++ b/library/PRESS
@@ -1,18 +1,21 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-(FILECREATED " 5-Feb-2021 22:18:06" {DSK}<home>larry>ilisp>medley>library>PRESS.;2 455434Q
 
-      changes to%:  (VARS PRESSCOMS)
+(FILECREATED "10-Apr-2023 07:15:37" {DSK}<home>larry>il>medley>library>PRESS.;2 452576Q
 
-      previous date%: "20-Jan-93 14:25:20" {DSK}<home>larry>ilisp>medley>library>PRESS.;1)
+      :EDIT-BY "lmm"
+
+      :CHANGES-TO (VARS PRESSCOMS)
+
+      :PREVIOUS-DATE " 5-Feb-2021 22:18:06" {DSK}<home>larry>il>medley>library>PRESS.;1)
 
 
 (* ; "
-Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2021 by Venue & Xerox Corporation.  All rights reserved.
+Copyright (c) 1981-1987, 1990, 1993, 2021 by Venue & Xerox Corporation.
 ")
 
 (PRETTYCOMPRINT PRESSCOMS)
 
-(RPAQQ PRESSCOMS
+(RPAQQ PRESSCOMS 
        [
 
 (* ;;; "PRESS printing support module")
@@ -28,7 +31,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2021 by Venu
         
         (* ;; "Bitmap printing support")
 
-        (FNS PRESSBITMAP FULLPRESSBITMAP SHOWREGION SHOWPRESSBITMAPREGION PRESSWINDOW WINDOW.BITMAP 
+        (FNS PRESSBITMAP FULLPRESSBITMAP SHOWREGION SHOWPRESSBITMAPREGION PRESSWINDOW 
              \WRITEPRESSBITMAP)
         
         (* ;; "Basic PRESS data structure output functions")
@@ -101,7 +104,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2021 by Venu
                                                          ROTATION TITLE)))
                               ((FULLPRESS RAVEN)
                                                              (* ; 
-                                                           "same as PRESS but can scale bitmaps")
+                                                             "same as PRESS but can scale bitmaps")
                                (CANPRINT (PRESS))
                                (STATUS TRUE)
                                (PROPERTIES NILL)
@@ -718,19 +721,6 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2021 by Venu
           (\WRITEPRESSBITMAP BITMAP NIL NIL PRSTREAM)
           (RETURN (CLOSEF PRSTREAM])
 
-(WINDOW.BITMAP
-  [LAMBDA (W)                                           (* ; "Edited 12-Jun-90 10:38 by mitani")
-                                                             (* Returns all of the bitmap of the 
-                                                           window)
-    (PROG [BM (REGION (WINDOWPROP W 'REGION]
-          (CLOSEW W)
-          (SETQ BM (BITMAPCREATE (fetch (REGION WIDTH) of REGION)
-                          (fetch (REGION HEIGHT) of REGION)))
-          (BITBLT (WINDOWPROP W 'IMAGECOVERED)
-                 NIL NIL BM)
-          (OPENW W)
-          (RETURN BM])
-
 (\WRITEPRESSBITMAP
   [LAMBDA (BITMAP XPOS YPOS SCALEFACTOR CLIPPINGREGION PRSTREAM)
                                                             (* ; "Edited 12-Jun-90 10:39 by mitani")
@@ -2344,7 +2334,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2021 by Venu
 (RPAQQ SPRUCEPAPERTOPSCANS 4096)
 
 (RPAQ SPRUCEPAPERTOPMICAS (FIX (FQUOTIENT (FTIMES SPRUCEPAPERTOPSCANS \MicasPerInch)
-                                          ScansPerIn)))
+                                      ScansPerIn)))
 
 (RPAQ SPRUCEPAPERRIGHTMICAS (FIX (FTIMES 8.5 \MicasPerInch)))
 
@@ -2427,85 +2417,74 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2021 by Venu
 (DECLARE%: DONTCOPY 
 (DECLARE%: EVAL@COMPILE
 
-(DATATYPE PRESSDATA (PRHEADING                           (* The string to be printed atop 
-                                                           each page.)
-                               PRHEADINGFONT                 (* Font to print the heading in)
-                               PRXPOS                        (* Current X position)
-                               PRYPOS                        (* Current Y position)
-                               PRFONT                        (* Current font)
-                               PRCURRFDE PRESSFONTDIR PRWIDTHSCACHE PRCOLOR PRLINEFEED PRPAGESTATE 
-                               PDSTREAM ELSTREAM XPRPAGEREGION PRDOCNAME (PRLEFT WORD)
+(DATATYPE PRESSDATA (PRHEADING                               (* The string to be printed atop each 
+                                                             page.)
+                           PRHEADINGFONT                     (* Font to print the heading in)
+                           PRXPOS                            (* Current X position)
+                           PRYPOS                            (* Current Y position)
+                           PRFONT                            (* Current font)
+                           PRCURRFDE PRESSFONTDIR PRWIDTHSCACHE PRCOLOR PRLINEFEED PRPAGESTATE 
+                           PDSTREAM ELSTREAM XPRPAGEREGION PRDOCNAME (PRLEFT WORD)
                                                              (* Page left margin)
-                               (PRBOTTOM WORD)               (* Page bottom margin)
-                               (PRRIGHT WORD)                (* Page right margin)
-                               (PRTOP WORD)                  (* Page top margin)
-                               (PRPAGENUM WORD)              (* Current Page number)
-                               (PRNEXTFONT# BYTE)
-                               (PRMAXFONTSET BYTE)
-                               (PRPARTSTART INTEGER)
-                               (DLSTARTBYTE INTEGER)
-                               (ELSTARTBYTE INTEGER)
-                               (STARTCHARBYTE INTEGER)
-                               (VECMOVINGRIGHT FLAG)         (* If we're drawing a curve with 
-                                                           vector fonts, are we moving to the 
-                                                           right?)
-                               (VECWASDISPLAYING FLAG)
+                           (PRBOTTOM WORD)                   (* Page bottom margin)
+                           (PRRIGHT WORD)                    (* Page right margin)
+                           (PRTOP WORD)                      (* Page top margin)
+                           (PRPAGENUM WORD)                  (* Current Page number)
+                           (PRNEXTFONT# BYTE)
+                           (PRMAXFONTSET BYTE)
+                           (PRPARTSTART INTEGER)
+                           (DLSTARTBYTE INTEGER)
+                           (ELSTARTBYTE INTEGER)
+                           (STARTCHARBYTE INTEGER)
+                           (VECMOVINGRIGHT FLAG)             (* If we're drawing a curve with 
+                                                             vector fonts, are we moving to the 
+                                                             right?)
+                           (VECWASDISPLAYING FLAG)
 
-         (* Used during curve/line clipping to remember whether we were on-screen or 
-       not, so we know when to force a SETXY.)
+         (* Used during curve/line clipping to remember whether we were on-screen or not, 
+         so we know when to force a SETXY.)
 
-                               VECSEGCHARS                   (* Cache for vector characters while 
-                                                           we're moving to the left.)
-                               VECCURX                       (* Current X position within vector 
-                                                           code, in Dover spots)
-                               VECCURY                       (* Current Y position with vector 
-                                                           code, in Dover spots)
-                               PRSPACEFACTOR PRSPACEWIDTH (CHARWASDISPLAYING FLAG)
-                                                             (* Says whether we have been 
-                                                           printing characters inside the 
-                                                           clipping region)
-                               PRClippingRegion
+                           VECSEGCHARS                       (* Cache for vector characters while 
+                                                             we're moving to the left.)
+                           VECCURX                           (* Current X position within vector 
+                                                             code, in Dover spots)
+                           VECCURY                           (* Current Y position with vector 
+                                                             code, in Dover spots)
+                           PRSPACEFACTOR PRSPACEWIDTH (CHARWASDISPLAYING FLAG)
+                                                             (* Says whether we have been printing 
+                                                             characters inside the clipping region)
+                           PRClippingRegion
 
          (* The edges of the paper, as far as PRESS is concerned.
-       Used to protect SPRUCE users who get killed when the image goes off-paper)
+         Used to protect SPRUCE users who get killed when the image goes off-paper)
 
-                               )
-                        PRSPACEFACTOR _ 1 PRXPOS _ 0 PRYPOS _ 0 
-                                                             (* We assume that the origin is 
-                                                           translated to the bottom-left of the 
-                                                           page region)
-                        PRClippingRegion _ (create REGION
-                                                  LEFT _ SPRUCEPAPERLEFTMICAS
-                                                  BOTTOM _ SPRUCEPAPERBOTTOMMICAS
-                                                  WIDTH _ (DIFFERENCE SPRUCEPAPERRIGHTMICAS 
-                                                                 SPRUCEPAPERLEFTMICAS)
-                                                  HEIGHT _ 29210)
-                        [ACCESSFNS ((PRWIDTH (IDIFFERENCE (fetch (PRESSDATA PRRIGHT) of
-                                                                                         DATUM)
-                                                    (fetch (PRESSDATA PRLEFT) of DATUM)))
-                                    (PRHEIGHT (IDIFFERENCE (fetch (PRESSDATA PRTOP) of DATUM)
-                                                     (fetch (PRESSDATA PRBOTTOM) of DATUM)))
-                                    (PRPAGEREGION (fetch (PRESSDATA XPRPAGEREGION) of DATUM)
-                                           (PROGN (replace (PRESSDATA XPRPAGEREGION) of
-                                                                                         DATUM
-                                                     with NEWVALUE)
-                                                  (replace (PRESSDATA PRLEFT) of DATUM
-                                                     with (fetch (REGION LEFT) of 
-                                                                                             NEWVALUE
-                                                                     ))
-                                                  (replace (PRESSDATA PRBOTTOM) of DATUM
-                                                     with (fetch (REGION BOTTOM) of
-                                                                                         NEWVALUE))
-                                                  (replace (PRESSDATA PRRIGHT) of DATUM
-                                                     with (IPLUS (fetch (REGION LEFT)
-                                                                        of NEWVALUE)
-                                                                     (fetch (REGION WIDTH)
-                                                                        of NEWVALUE)))
-                                                  (replace (PRESSDATA PRTOP) of DATUM
-                                                     with (IPLUS (fetch (REGION BOTTOM)
-                                                                        of NEWVALUE)
-                                                                     (fetch (REGION HEIGHT)
-                                                                        of NEWVALUE])
+                           )
+                    PRSPACEFACTOR _ 1 PRXPOS _ 0 PRYPOS _ 0  (* We assume that the origin is 
+                                                             translated to the bottom-left of the 
+                                                             page region)
+                    PRClippingRegion _ (create REGION
+                                              LEFT _ SPRUCEPAPERLEFTMICAS
+                                              BOTTOM _ SPRUCEPAPERBOTTOMMICAS
+                                              WIDTH _ (DIFFERENCE SPRUCEPAPERRIGHTMICAS 
+                                                             SPRUCEPAPERLEFTMICAS)
+                                              HEIGHT _ 29210)
+                    [ACCESSFNS ((PRWIDTH (IDIFFERENCE (fetch (PRESSDATA PRRIGHT) of DATUM)
+                                                (fetch (PRESSDATA PRLEFT) of DATUM)))
+                                (PRHEIGHT (IDIFFERENCE (fetch (PRESSDATA PRTOP) of DATUM)
+                                                 (fetch (PRESSDATA PRBOTTOM) of DATUM)))
+                                (PRPAGEREGION (fetch (PRESSDATA XPRPAGEREGION) of DATUM)
+                                       (PROGN (replace (PRESSDATA XPRPAGEREGION) of DATUM
+                                                 with NEWVALUE)
+                                              (replace (PRESSDATA PRLEFT) of DATUM
+                                                 with (fetch (REGION LEFT) of NEWVALUE))
+                                              (replace (PRESSDATA PRBOTTOM) of DATUM
+                                                 with (fetch (REGION BOTTOM) of NEWVALUE))
+                                              (replace (PRESSDATA PRRIGHT) of DATUM
+                                                 with (IPLUS (fetch (REGION LEFT) of NEWVALUE)
+                                                             (fetch (REGION WIDTH) of NEWVALUE)))
+                                              (replace (PRESSDATA PRTOP) of DATUM
+                                                 with (IPLUS (fetch (REGION BOTTOM) of NEWVALUE)
+                                                             (fetch (REGION HEIGHT) of NEWVALUE])
 
 (RECORD FONTDIRENTRY (DESCR FONT# FONTSET#))
 )
@@ -2596,7 +2575,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2021 by Venu
 (RPAQ? DEFAULTPAGEREGION (CREATEREGION 2794 1905 16256 24765))
 
 (RPAQ? PRESSBITMAPREGION (CREATEREGION 1270 1270 (FIX (TIMES 7.5 \MicasPerInch))
-                                    (TIMES 10 \MicasPerInch)))
+                                (TIMES 10 \MicasPerInch)))
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
 
 (GLOBALVARS DEFAULTPAGEREGION)
@@ -2618,7 +2597,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2021 by Venu
 
 
 
-(RPAQQ PRESSOPS
+(RPAQQ PRESSOPS 
        (SetX SetY ShowCharacters ShowCharactersShortCode SkipCharactersShortCode 
              ShowCharactersAndSkipCode SetSpaceXShortCode SetSpaceYShortCode FontCode 
              SkipControlBytesImmediateCode AlternativeCode OnlyOnCopyCode SetXCode SetYCode 
@@ -2739,65 +2718,64 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2021 by Venu
 )
 
 (ADDTOVAR IMAGESTREAMTYPES (PRESS (OPENSTREAM OPENPRSTREAM)
-                                      (FONTCREATE \CREATEPRESSFONT)
-                                      (CREATECHARSET \CREATECHARSET.PRESS)
-                                      (FONTSAVAILABLE \SEARCHPRESSFONTS)))
+                                  (FONTCREATE \CREATEPRESSFONT)
+                                  (CREATECHARSET \CREATECHARSET.PRESS)
+                                  (FONTSAVAILABLE \SEARCHPRESSFONTS)))
 
-(ADDTOVAR PRINTERTYPES
-          ((PRESS SPRUCE PENGUIN DOVER)
-           (CANPRINT (PRESS))
-           (STATUS PUP.PRINTER.STATUS)
-           (PROPERTIES PUP.PRINTER.PROPERTIES)
-           (SEND EFTP)
-           (BITMAPSCALE NIL)
-           (BITMAPFILE (PRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE)))
-          ((FULLPRESS RAVEN)
+(ADDTOVAR PRINTERTYPES ((PRESS SPRUCE PENGUIN DOVER)
+                        (CANPRINT (PRESS))
+                        (STATUS PUP.PRINTER.STATUS)
+                        (PROPERTIES PUP.PRINTER.PROPERTIES)
+                        (SEND EFTP)
+                        (BITMAPSCALE NIL)
+                        (BITMAPFILE (PRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE)))
+                       ((FULLPRESS RAVEN)
                                                              (* ; 
-                                                           "same as PRESS but can scale bitmaps")
-           (CANPRINT (PRESS))
-           (STATUS TRUE)
-           (PROPERTIES NILL)
-           (SEND EFTP)
-           (BITMAPSCALE PRESS.BITMAPSCALE)
-           (BITMAPFILE (FULLPRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE))))
+                                                             "same as PRESS but can scale bitmaps")
+                        (CANPRINT (PRESS))
+                        (STATUS TRUE)
+                        (PROPERTIES NILL)
+                        (SEND EFTP)
+                        (BITMAPSCALE PRESS.BITMAPSCALE)
+                        (BITMAPFILE (FULLPRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE))))
 
-(ADDTOVAR PRINTFILETYPES
-          [PRESS (TEST PRESSFILEP)
-                 (EXTENSION (PRESS))
-                 (CONVERSION (TEXT MAKEPRESS TEDIT (LAMBDA (FILE PFILE FONTS HEADING)
-                                                          (SETQ FILE (OPENTEXTSTREAM FILE))
-                                                          (TEDIT.FORMAT.HARDCOPY FILE PFILE T NIL NIL
-                                                                 NIL 'PRESS)
-                                                          (CLOSEF? FILE)
-                                                          PFILE])
+(ADDTOVAR PRINTFILETYPES [PRESS (TEST PRESSFILEP)
+                                (EXTENSION (PRESS))
+                                (CONVERSION (TEXT MAKEPRESS TEDIT
+                                                  (LAMBDA (FILE PFILE FONTS HEADING)
+                                                         (SETQ FILE (OPENTEXTSTREAM FILE))
+                                                         (TEDIT.FORMAT.HARDCOPY FILE PFILE T NIL NIL
+                                                                NIL 'PRESS)
+                                                         (CLOSEF? FILE)
+                                                         PFILE])
 (PUTPROPS PRESS COPYRIGHT ("Venue & Xerox Corporation" 3675Q 3676Q 3677Q 3700Q 3701Q 3702Q 3703Q 3706Q
  3711Q 3745Q))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (16032Q 73011Q (\SEARCHPRESSFONTS 16044Q . 20001Q) (\GETPRESSFONTNAMES 20003Q . 26641Q) 
-(\PRESSFAMILYCODELST 26643Q . 30565Q) (\DECODEPRESSFACEBYTE 30567Q . 33356Q) (\CREATEPRESSFONT 33360Q
- . 35625Q) (\CREATECHARSET.PRESS 35627Q . 73007Q)) (73446Q 130434Q (PRESSBITMAP 73460Q . 103062Q) (
-FULLPRESSBITMAP 103064Q . 111076Q) (SHOWREGION 111100Q . 112442Q) (SHOWPRESSBITMAPREGION 112444Q . 
-113106Q) (PRESSWINDOW 113110Q . 117247Q) (WINDOW.BITMAP 117251Q . 120432Q) (\WRITEPRESSBITMAP 120434Q
- . 130432Q)) (130532Q 160405Q (\BCPLSOUT.PRESS 130544Q . 131521Q) (\PAGEPAD.PRESS 131523Q . 132760Q) (
-\ENTITYEND.PRESS 132762Q . 140256Q) (\PARTEND.PRESS 140260Q . 142645Q) (\ENTITYSTART.PRESS 142647Q . 
-146260Q) (SETX.PRESS 146262Q . 150115Q) (SETXY.PRESS 150117Q . 153121Q) (SETY.PRESS 153123Q . 154523Q)
- (SHOW.PRESS 154525Q . 160403Q)) (160467Q 275304Q (OPENPRSTREAM 160501Q . 165630Q) (\BITBLT.PRESS 
-165632Q . 170244Q) (\BLTSHADE.PRESS 170246Q . 171701Q) (\SCALEDBITBLT.PRESS 171703Q . 174327Q) (
-\BITMAPSIZE.PRESS 174331Q . 175271Q) (\CHARWIDTH.PRESS 175273Q . 177342Q) (\CLOSEF.PRESS 177344Q . 
-207333Q) (\DRAWLINE.PRESS 207335Q . 210673Q) (\ENDPAGE.PRESS 210675Q . 212145Q) (NEWLINE.PRESS 212147Q
- . 213560Q) (NEWPAGE.PRESS 213562Q . 214054Q) (SETUPFONTS.PRESS 214056Q . 217607Q) (\DEFINEFONT.PRESS 
-217611Q . 221733Q) (\DSPBOTTOMMARGIN.PRESS 221735Q . 222531Q) (\DSPCLIPPINGREGION.PRESS 222533Q . 
-224125Q) (\DSPFONT.PRESS 224127Q . 231121Q) (\DSPLEFTMARGIN.PRESS 231123Q . 232003Q) (
-\DSPLINEFEED.PRESS 232005Q . 233315Q) (\DSPRIGHTMARGIN.PRESS 233317Q . 234202Q) (\DSPSPACEFACTOR.PRESS
- 234204Q . 235610Q) (\DSPTOPMARGIN.PRESS 235612Q . 236375Q) (\DSPXPOSITION.PRESS 236377Q . 237115Q) (
-\DSPYPOSITION.PRESS 237117Q . 237635Q) (\FIXLINELENGTH.PRESS 237637Q . 241734Q) (\OUTCHARFN.PRESS 
-241736Q . 250772Q) (\SETSPACE.PRESS 250774Q . 252270Q) (\STARTPAGE.PRESS 252272Q . 256633Q) (
-\STRINGWIDTH.PRESS 256635Q . 272213Q) (SHOWRECTANGLE.PRESS 272215Q . 272736Q) (
-\PRESS.CONVERT.NSCHARACTER 272740Q . 275302Q)) (275344Q 406406Q (\ENDVECRUN 275356Q . 305174Q) (
-\VECENCODE 305176Q . 306225Q) (\VECPUT 306227Q . 315655Q) (\VECSKIP 315657Q . 316412Q) (\VECFONTINIT 
-316414Q . 323537Q) (\DRAWCIRCLE.PRESS 323541Q . 326044Q) (\DRAWARC.PRESS 326046Q . 326637Q) (
-\DRAWCURVE.PRESS 326641Q . 334577Q) (\DRAWCURVE.PRESS.LINE 334601Q . 343446Q) (\DRAWELLIPSE.PRESS 
-343450Q . 347227Q) (\GETBRUSHFONT.PRESS 347231Q . 351133Q) (\PRESSCURVE2 351135Q . 406404Q)) (412244Q 
-417070Q (\PRESSINIT 412256Q . 417066Q)) (446754Q 452043Q (MAKEPRESS 446766Q . 447272Q) (PRESSFILEP 
-447274Q . 451051Q) (PRESS.BITMAPSCALE 451053Q . 452041Q)))))
+  (FILEMAP (NIL (15752Q 72731Q (\SEARCHPRESSFONTS 15764Q . 17721Q) (\GETPRESSFONTNAMES 17723Q . 26561Q) 
+(\PRESSFAMILYCODELST 26563Q . 30505Q) (\DECODEPRESSFACEBYTE 30507Q . 33276Q) (\CREATEPRESSFONT 33300Q
+ . 35545Q) (\CREATECHARSET.PRESS 35547Q . 72727Q)) (73366Q 127171Q (PRESSBITMAP 73400Q . 103002Q) (
+FULLPRESSBITMAP 103004Q . 111016Q) (SHOWREGION 111020Q . 112362Q) (SHOWPRESSBITMAPREGION 112364Q . 
+113026Q) (PRESSWINDOW 113030Q . 117167Q) (\WRITEPRESSBITMAP 117171Q . 127167Q)) (127267Q 157142Q (
+\BCPLSOUT.PRESS 127301Q . 130256Q) (\PAGEPAD.PRESS 130260Q . 131515Q) (\ENTITYEND.PRESS 131517Q . 
+137013Q) (\PARTEND.PRESS 137015Q . 141402Q) (\ENTITYSTART.PRESS 141404Q . 145015Q) (SETX.PRESS 145017Q
+ . 146652Q) (SETXY.PRESS 146654Q . 151656Q) (SETY.PRESS 151660Q . 153260Q) (SHOW.PRESS 153262Q . 
+157140Q)) (157224Q 274041Q (OPENPRSTREAM 157236Q . 164365Q) (\BITBLT.PRESS 164367Q . 167001Q) (
+\BLTSHADE.PRESS 167003Q . 170436Q) (\SCALEDBITBLT.PRESS 170440Q . 173064Q) (\BITMAPSIZE.PRESS 173066Q
+ . 174026Q) (\CHARWIDTH.PRESS 174030Q . 176077Q) (\CLOSEF.PRESS 176101Q . 206070Q) (\DRAWLINE.PRESS 
+206072Q . 207430Q) (\ENDPAGE.PRESS 207432Q . 210702Q) (NEWLINE.PRESS 210704Q . 212315Q) (NEWPAGE.PRESS
+ 212317Q . 212611Q) (SETUPFONTS.PRESS 212613Q . 216344Q) (\DEFINEFONT.PRESS 216346Q . 220470Q) (
+\DSPBOTTOMMARGIN.PRESS 220472Q . 221266Q) (\DSPCLIPPINGREGION.PRESS 221270Q . 222662Q) (\DSPFONT.PRESS
+ 222664Q . 227656Q) (\DSPLEFTMARGIN.PRESS 227660Q . 230540Q) (\DSPLINEFEED.PRESS 230542Q . 232052Q) (
+\DSPRIGHTMARGIN.PRESS 232054Q . 232737Q) (\DSPSPACEFACTOR.PRESS 232741Q . 234345Q) (
+\DSPTOPMARGIN.PRESS 234347Q . 235132Q) (\DSPXPOSITION.PRESS 235134Q . 235652Q) (\DSPYPOSITION.PRESS 
+235654Q . 236372Q) (\FIXLINELENGTH.PRESS 236374Q . 240471Q) (\OUTCHARFN.PRESS 240473Q . 247527Q) (
+\SETSPACE.PRESS 247531Q . 251025Q) (\STARTPAGE.PRESS 251027Q . 255370Q) (\STRINGWIDTH.PRESS 255372Q . 
+270750Q) (SHOWRECTANGLE.PRESS 270752Q . 271473Q) (\PRESS.CONVERT.NSCHARACTER 271475Q . 274037Q)) (
+274101Q 405143Q (\ENDVECRUN 274113Q . 303731Q) (\VECENCODE 303733Q . 304762Q) (\VECPUT 304764Q . 
+314412Q) (\VECSKIP 314414Q . 315147Q) (\VECFONTINIT 315151Q . 322274Q) (\DRAWCIRCLE.PRESS 322276Q . 
+324601Q) (\DRAWARC.PRESS 324603Q . 325374Q) (\DRAWCURVE.PRESS 325376Q . 333334Q) (
+\DRAWCURVE.PRESS.LINE 333336Q . 342203Q) (\DRAWELLIPSE.PRESS 342205Q . 345764Q) (\GETBRUSHFONT.PRESS 
+345766Q . 347670Q) (\PRESSCURVE2 347672Q . 405141Q)) (410775Q 415621Q (\PRESSINIT 411007Q . 415617Q)) 
+(443570Q 446657Q (MAKEPRESS 443602Q . 444106Q) (PRESSFILEP 444110Q . 445665Q) (PRESS.BITMAPSCALE 
+445667Q . 446655Q)))))
 STOP
diff --git a/library/PRESS.LCOM b/library/PRESS.LCOM
index fd5a8c92..511b8ded 100644
Binary files a/library/PRESS.LCOM and b/library/PRESS.LCOM differ
diff --git a/sources/LOGOW b/sources/LOGOW
index 2ccf9920..25c05acc 100644
--- a/sources/LOGOW
+++ b/sources/LOGOW
@@ -1,90 +1,27 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
 
-(FILECREATED " 4-Mar-2022 19:31:19" |{DSK}<home>larry>medley>sources>LOGOW.;2| 13188  
+(FILECREATED "18-Apr-2023 12:12:26" |{DSK}<home>frank>il>medley>tmedley>sources>LOGOW.;5| 18068  
 
-      :CHANGES-TO (FNS LOGOW)
+      :EDIT-BY "fgh"
 
-      :PREVIOUS-DATE " 4-Mar-2022 19:17:17" |{DSK}<home>larry>medley>sources>LOGOW.;1|)
+      :CHANGES-TO (FUNCTIONS LOGOW KERNED.PRIN3)
+                  (VARS LOGOWCOMS)
+
+      :PREVIOUS-DATE "16-Apr-2023 14:46:18" |{DSK}<home>frank>il>medley>tmedley>sources>LOGOW.;2|)
 
 
-; Copyright (c) 1986-1991, 2022 by Venue.
+; Copyright (c) 1986-1991, 2022-2023 by Venue.
 
 (PRETTYCOMPRINT LOGOWCOMS)
 
-(RPAQQ LOGOWCOMS ((FNS KOTOLOGOW LOGOW \\DRAWLOGOWINDOWIMAGE)
+(RPAQQ LOGOWCOMS ((FNS \\DRAWLOGOWINDOWIMAGE)
+                  (FUNCTIONS LOGOW KERNED.PRIN3)
                   (VARS LOGOBITMAP)
                   (INITVARS (LOGOW NIL))
                   (ADDVARS (AFTERMAKESYSFORMS (LOGOW)))
                   (PROP (LOGOW FILETYPE))))
 (DEFINEQ
 
-(KOTOLOGOW
-  (LAMBDA (STRING WHERE TITLE ANGLEDELTA)                 (* \; "Edited 28-Feb-2022 20:27 by larry")
-                                                             (* |edited:| " 1-AUG-83 22:55")
-                                                             (* |creates| \a |logo| |window.|)
-    (PROG ((CIRCLESIZE 60)
-           (LOGOXCENTER 70)
-           (LOGOYCENTER 65)
-           (LOGOWINDOWHEIGHT 180)
-           W LOGOWINDOWWIDTH WIMAGEWIDTH WIMAGEHEIGHT (STRING (OR STRING "Interlisp-D")))
-          (OR ANGLEDELTA (SETQ ANGLEDELTA 23))
-          (SETQ WIMAGEWIDTH (FIX (FTIMES CIRCLESIZE 0.62)))
-          (SETQ WIMAGEHEIGHT (FIX (FTIMES CIRCLESIZE 0.5)))
-          (SETQ LOGOWINDOWWIDTH (IPLUS LOGOXCENTER 30 WIMAGEWIDTH (STRINGWIDTH STRING
-                                                                         '(TIMESROMAND 36))))
-          (SETQ W (COND
-                     ((TYPENAMEP WHERE 'WINDOW)
-                      WHERE)
-                     (T (CREATEW (COND
-                                    ((POSITIONP WHERE)
-                                     (|create| REGION
-                                            LEFT _ (|fetch| (POSITION XCOORD) |of| WHERE)
-                                            BOTTOM _ (|fetch| (POSITION YCOORD) |of| WHERE)
-                                            WIDTH _ LOGOWINDOWWIDTH
-                                            HEIGHT _ LOGOWINDOWHEIGHT))
-                                    ((EQ WHERE T)
-                                     (|create| REGION
-                                            HEIGHT _ LOGOWINDOWHEIGHT
-                                            WIDTH _ LOGOWINDOWWIDTH
-                                            LEFT _ (- SCREENWIDTH LOGOWINDOWWIDTH)
-                                            BOTTOM _ (- SCREENHEIGHT LOGOWINDOWHEIGHT)))
-                                    (T (GETBOXREGION LOGOWINDOWWIDTH LOGOWINDOWHEIGHT NIL NIL NIL 
-                                              "Specify location for logo window.")))
-                               (OR TITLE (CONCAT "Copyright (c) by Xerox Corporation" "             "
-                                                (OR MAKESYSDATE (DATE))))))))
-          (|for| ANGLE |from| 0 |to| 270 |by| ANGLEDELTA
-             |do| (\\DRAWLOGOWINDOWIMAGE (IPLUS LOGOXCENTER (FTIMES CIRCLESIZE (COS ANGLE)))
-                         (IPLUS LOGOYCENTER (FTIMES CIRCLESIZE (SIN ANGLE)))
-                         WIMAGEWIDTH WIMAGEHEIGHT 2 W))
-          (MOVETO (IPLUS LOGOXCENTER 10 WIMAGEWIDTH)
-                 (IPLUS 2 (IDIFFERENCE LOGOYCENTER CIRCLESIZE))
-                 W)
-          (DSPFONT '(TIMESROMAND 36)
-                 W)
-          (PRIN3 STRING W)
-          (RETURN W))))
-
-(LOGOW
-  (LAMBDA (STRING WHERE TITLE TITLE-LOCATION)             (* \; "Edited  4-Mar-2022 19:05 by larry")
-                                                             (* \; "Edited 12-Jul-91 03:12 by jds")
-    (PROG (WINDOW)
-          (CL:WHEN (WINDOWP LOGOW)
-                 (CLOSEW LOGOW))
-          (OR STRING (SETQ STRING (OR "Medley" (CL:STRING-CAPITALIZE MAKESYSNAME))))
-          (OR TITLE (SETQ TITLE (CONCAT "https://Interlisp.org" " " MAKESYSDATE)))
-
-     (* |;;| "(LOGOW NIL) gives default")
-
-          (SETQ WINDOW (KOTOLOGOW STRING T TITLE))
-          (WINDOWPROP WINDOW 'BUTTONEVENTFN 'MOVEW)
-          (WINDOWPROP WINDOW 'TYPE 'LOGOW)
-          (WINDOWPROP WINDOW 'CLOSEFN (FUNCTION (LAMBDA NIL
-
-                                                  (* |;;| "Set LOGOW to NIL when closing the window")
-
-                                                  (SETQ LOGOW NIL))))
-          (RETURN (SETQ LOGOW WINDOW)))))
-
 (\\DRAWLOGOWINDOWIMAGE
   (LAMBDA (XPOS YPOS WIDTH HEIGHT BORDER W)                  (* |rrb| "22-FEB-82 18:04")
                                                              (* |makes| \a |window| |image.|
@@ -99,14 +36,147 @@
            'REPLACE WHITESHADE)))
 )
 
-(RPAQQ LOGOBITMAP #*(288 110)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOL@@COO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOL@@COO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AN@@@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AN@@@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AN@@@@N@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AN@@@@N@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@@@AL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@@@AL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@@@CH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@@@CH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GH@@N@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GH@@N@@@@CO@@@OL@OH@@GO@@GH@@@OL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GH@AL@@@@OOL@@OLGOL@@GO@@GH@@COO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GH@AL@@@AOON@@OLOON@@GO@@GH@@GOOH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GH@CH@@@CN@O@@OMO@N@@GN@@G@@@OHCL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GH@CH@@@GL@G@@COL@N@@AN@@O@@AO@AL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CL@G@@@@OH@CH@GOH@N@@AL@@O@@CN@@N@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CL@G@@@AO@@CH@GO@@N@@CL@@N@@GL@@N@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CL@N@@@CN@@CH@GL@@N@@CH@@N@@GH@@N@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CL@N@@@CL@@GH@GL@AN@@GH@AN@@G@@AN@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CLAL@@@CH@AOH@OH@AL@@G@@AL@@O@@GN@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CLAL@@@CH@GN@@O@@CL@@O@@AL@@N@AOH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ANCH@@@GH@OH@@O@@CH@@N@@CL@@N@CN@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ANCH@@@GHCN@@AO@@CH@@N@@CL@AN@OH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ANG@@@@GOOL@@AN@@GH@AN@@CH@AOOO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ANG@@@@GOO@@@AN@@G@@AL@@GH@AOOL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AON@@@@GOL@@@CN@@O@NAL@@G@@AOO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AON@@@@G@@@@@CL@@NANAL@@O@CIL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AOL@@@@G@@@N@CL@@NCLAL@@O@CIL@@CH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OL@@@@GH@AN@GL@ALCHAN@AO@GIL@@GH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OH@@@@GL@CL@GH@ALO@AN@GO@OAN@@O@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OH@@@@CN@GH@GH@AMN@@OOOOAN@O@AN@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@@@@@AOOO@@GH@AOL@@GOOCOL@GOOL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@@@@@@OON@@G@@AOH@@CONCOH@COOH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@COH@@G@@@O@@@AOHAO@@@ON@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+(CL:DEFUN LOGOW (&OPTIONAL (MAINTEXT (CL:STRING-CAPITALIZE MAKESYSNAME))
+                       &KEY
+                       (FONT '(TIMESROMAND 36))
+                       (ANGLEDELTA 30)
+                       (TITLE (CONCAT "Interlisp.org" " " MAKESYSDATE))
+                       TITLE-LOCATION
+                       (SUBTEXT1 "INTERLISP")
+                       (SUBTEXT2 "COMMON LISP")
+                       (WHERE T))                           (* \; "Edited 18-Apr-2023 12:11 by fgh")
+                                                            (* \; "Edited 16-Apr-2023 14:44 by fgh")
+                                                            (* \; "Edited 10-Apr-2023 07:22 by lmm")
+                                                            (* \; "Edited  2-Apr-2023 20:09 by lmm")
+                                                            (* \; "Edited 31-Mar-2023 19:22 by lmm")
+                                                             (* \; "Edited 12-Jul-91 03:12 by jds")
+   (PROG ((CIRCLESIZE 60)
+          (SQUASHFACTOR 0.9)
+          (LOGOWINDOWHEIGHT 170)
+          (LOGOWINDOW.MARGIN.X 7)
+          (LOGOWINDOW.MARGIN.Y 7)
+          (LOGOXCENTER 70)
+          (LOGOYCENTER 60)
+          (LOGOWINDOWWIDTH.ADJ -12)
+          (LMAR.ADJ -34)
+          (MAINTEXT.Y.ADJ 52)
+          (SUBTEXT1.X.ADJ 42)
+          (SUBTEXT2.X.ADJ 42)
+          (SUBTEXT1.Y 26)
+          (SUBTEXT2.Y 9)
+          (SUBTEXT1.FONT '(HELVETICA 12 BRR))
+          (SUBTEXT2.FONT '(HELVETICA 12 BRR))
+          (MAINTEXT.KERN 0)
+          (SUBTEXT1.KERN 1)
+          (SUBTEXT2.KERN 1)
+          (SUBTEXT1.SPACE 4)
+          (SUBTEXT2.SPACE 4)
+          W LOGOWINDOWWIDTH WIMAGEWIDTH WIMAGEHEIGHT LMAR W)
+
+    (* |;;| " COMPUTE SIZE FOR LOGO WINDOW")
+
+         (SETQ WIMAGEWIDTH (FIX (FTIMES CIRCLESIZE 0.62)))
+         (SETQ WIMAGEHEIGHT (FIX (FTIMES CIRCLESIZE 0.5)))
+         (SETQ LOGOWINDOWWIDTH (IPLUS LOGOXCENTER LOGOWINDOWWIDTH.ADJ WIMAGEWIDTH (STRINGWIDTH 
+                                                                                         MAINTEXT 
+                                                                                         FONT)))
+
+    (* |;;| "CREATE AND PLACE LOGO WINDOW")
+
+         (SELECTQ (TYPENAME WHERE)
+             ((WINDOW STREAM) 
+                  (SETQ W WHERE))
+             (SETQ W (CREATEW (COND
+                                 ((POSITIONP WHERE)
+                                  (|create| REGION
+                                         LEFT _ (|fetch| (POSITION XCOORD) |of| WHERE)
+                                         BOTTOM _ (|fetch| (POSITION YCOORD) |of| WHERE)
+                                         WIDTH _ LOGOWINDOWWIDTH
+                                         HEIGHT _ LOGOWINDOWHEIGHT))
+                                 ((EQ WHERE T)
+                                  (|create| REGION
+                                         HEIGHT _ LOGOWINDOWHEIGHT
+                                         WIDTH _ LOGOWINDOWWIDTH
+                                         LEFT _ (- SCREENWIDTH LOGOWINDOWWIDTH LOGOWINDOW.MARGIN.X)
+                                         BOTTOM _ (- SCREENHEIGHT LOGOWINDOWHEIGHT 
+                                                     LOGOWINDOW.MARGIN.Y)))
+                                 (T (GETBOXREGION LOGOWINDOWWIDTH LOGOWINDOWHEIGHT NIL NIL NIL 
+                                           "Specify location for logo window.")))
+                            TITLE)))
+         (PRIN1 (LIST LOGOWINDOWWIDTH LOGOWINDOWHEIGHT))
+         (PRIN1 (LIST WIMAGEWIDTH WIMAGEHEIGHT))
+
+    (* |;;| " PLACE MAIN TEXT")
+
+         (SETQ LMAR (+ LOGOXCENTER LMAR.ADJ WIMAGEWIDTH))
+         (MOVETO LMAR (+ MAINTEXT.Y.ADJ (- LOGOYCENTER CIRCLESIZE))
+                W)
+         (DSPFONT FONT W)
+         (KERNED.PRIN3 MAINTEXT MAINTEXT.KERN W)
+
+    (* |;;| " PLACE SUBTEXT1")
+
+         (CL:WHEN SUBTEXT1
+             (DSPFONT SUBTEXT1.FONT W)
+             (MOVETO (+ LMAR SUBTEXT1.X.ADJ)
+                    SUBTEXT1.Y W)
+             (KERNED.PRIN3 SUBTEXT1 SUBTEXT1.KERN W))
+
+    (* |;;| " PLACE SUBTEXT2")
+
+         (CL:WHEN SUBTEXT2
+             (DSPFONT SUBTEXT2.FONT W)
+             (MOVETO (+ LMAR SUBTEXT2.X.ADJ)
+                    SUBTEXT2.Y W)
+             (KERNED.PRIN3 SUBTEXT2 SUBTEXT2.KERN W SUBTEXT2.SPACE))
+                                                             (* \; " ")
+
+    (* |;;| " DRAW CIRCLE OF WINDOWS")
+
+         (|for| ANGLE |from| 30 |to| 270 |by| ANGLEDELTA
+            |do| (\\DRAWLOGOWINDOWIMAGE (+ LOGOXCENTER (FTIMES CIRCLESIZE (COS ANGLE)))
+                        (+ LOGOYCENTER (FTIMES CIRCLESIZE SQUASHFACTOR (SIN ANGLE)))
+                        WIMAGEWIDTH WIMAGEHEIGHT 2 W))
+
+    (* |;;| "SETUP AND OPEN LOGOW")
+
+         (IF (NEQ W WHERE)
+             THEN (CLOSEW W)
+                  (SETQ LOGOBITMAP (WINDOW.BITMAP W))
+                  (WINDOWPROP W 'BUTTONEVENTFN 'MOVEW)
+                  (WINDOWPROP W 'TYPE 'LOGOW)
+                  (WINDOWPROP W 'CLOSEFN (FUNCTION (LAMBDA NIL
+
+                                                     (* |;;| 
+                                                     "Set LOGOW to NIL when closing the window")
+
+                                                     (SETQ LOGOW NIL))))
+                  (CL:WHEN (WINDOWP LOGOW)
+                         (CLOSEW LOGOW))
+                  (OPENW W)
+                  (RETURN (SETQ LOGOW W)))))
+
+(CL:DEFUN KERNED.PRIN3 (STRING KERN W &OPTIONAL (SPACE.WIDTH NIL))
+                                                          (* \; "Edited 16-Apr-2023 22:43 by frank")
+   (PROG ((S (CONCAT STRING))
+          (C NIL))
+         (|while| (SETQ C (GNC S))
+            |do| (SETQ C (MKSTRING C))
+                 (|if| (AND (STREQUAL C " "))
+                     |then| (RELMOVETO (IDIFFERENCE (OR SPACE.WIDTH (STRINGWIDTH C (DSPFONT NIL W)))
+                                              KERN)
+                                   0 W)
+                   |else| (PRIN3 C W)
+                         (RELMOVETO KERN 0 W)))))
+
+(RPAQQ LOGOBITMAP #*(235 170)OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOON@OOOOOOOOOGOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOON@OMOOKOOOKGOOOOOOOOOOOKLCONOOOOONCLGHOAOLGHOOMNCOLGHGOOOOOON@OMOOKOOOKOOOOOOOOOOOOCMOONOOOOOMMKKGFNOKKGGOIMMOKKKOOOOOOON@OMJC@LGDKGAMAONAMCAGLCHGOMGJCJGOMKKOGNOOKGFNAOMKOK@OOOOOOON@OMIMKKKBKFNLNOMNLJNGOKKKOMGIMIGOMKKOGIOOKGFOMOCKOKGGOOOOOON@OMKMKHCGKGAMNOMNMNOGOKOKOKKKMKOOCKKLONONGGGOMOMONGOGOOOOOON@OMKMKKOGKGNMNOMNMNOGOKOKCHCKMKLNOKKKONOMOGGOMOMOMOOGOOOOOON@OMKMKKKGKFNLNMMNMNNGOKKKOGMIMKOMOKKGNNOKOGGOMMMOKOGGOOOOOON@OMKMLLGGKGAMAMNAMOAGOKLGOGMJCKOLALG@GAOHCHNOMNCKHCHOOOOOOON@OOOOOOOOOOOMOOOOONOGOOOOOOOKOOOOOOOOOOOOOONOOOOKOOOOOOOOOON@OOOOOOOOOOOMOOOOOO@OOOOOOOOKOOOOOOOOOOOOOOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOON@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@GOOOOOOOOL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@GOOOOOOOOL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@GOOOOOOOOL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@GOOOOOOOOL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@@@@@@@@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@@@@@@@@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@@@@@@@@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@AOOOOOOOOO@@@@@@@OOOOOOOO@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@AOOOOOOOOO@@@@@@@OOOOOOOO@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@AOOOOOOOOO@@@@@@@OOOOOOOO@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@AOOOOOOOOO@@@@@@@OOOOOOOO@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@AH@@@@@@@C@@@@@@@L@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@AH@@@@@@@C@@@@@@@L@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@AH@@@@@@@C@@@@@@@L@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@AH@@@@@@@C@@@@@@@L@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@AH@@@@@@@C@@@@@@@L@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@AH@@@@@@@C@@@@@@@L@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@AH@@@@@@@C@@@@@@@L@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@AH@@@@@@@C@@@@@@@L@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@AH@@@@@@@C@@@@@@@L@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@AH@@@@@@@C@@@@@@@L@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@AH@@@@@@@C@@@@@@@L@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@AH@@@@@@@C@@@@@@@L@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@AH@@@@@@@C@@@@@@@L@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@AH@@@@@@@C@@@@@@@L@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@AH@@@@@@@C@@@@@@@L@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@COOOOOOOON@@@@C@@@@@@@L@@@@@@COOOOOL@@@@@@@@@@@@@@@@@F@L@@@@COOOOOOOON@@@@C@@@@@@@L@@@@@@COOOOOL@@@@@@@@@@@@@@@@@F@L@@@@COOOOOOOON@@@@COOOOOOOL@@@@@@COOOOOL@@@@@@@@@@@@@@@@@F@L@@@@COOOOOOOON@@@@COOOOOOOL@@@@@@COOOOOL@@@@@@@@@@@@@@@@@F@L@@@@C@@@@@@@@F@@@@C@@@@@AH@@@@@@@C@@@@@L@@@@@@@@@@@@@@@@@F@L@@@@C@@@@@@@@F@@@@C@@@@@AH@@@@@@@C@@@@@L@@@@@@@@@@@@@@@@@F@L@@@@C@@@@@@@@F@@@@C@@@@@AH@@@@@@@C@@@@@L@@@@@@@@@@@@@@@@@F@L@@@@C@@@@@@@@F@@@@C@@@@@AH@@@@@@@C@@@@@L@@@@@@@@@@@@@@@@@F@L@@@@C@@@@@@@@F@@@@C@@@@@AH@@@@@@@C@@@@@L@@@@@@@@@@@@@@@@@F@L@@@@C@@@@@@@@GOOOOO@@@@@AOOOOOOOOO@@@@@L@@@@@@@@@@@@@@@@@F@L@@@@C@@@@@@@@GOOOOO@@@@@AOOOOOOOOO@@@@@L@@@@@@@@@@@@@@@@@F@L@@@@C@@@@@@@@F@@@@@@@@@@@@@@@@F@@@@@@@@L@@@@@@@@@@@@@@@@@F@L@@@@C@@@@@@@@F@@@@@@@@@@@@@@@@F@@@@@@@@L@@@@@@@@@@@@@@@@@F@L@@@@C@@@@@@@@F@@@@@@@@@@@@@@@@F@@@@@@@@L@@@@@@@@@@@@@@@@@F@L@@@@C@@@@@@@@F@@@@@@@@@@@@@@@@F@@@@@@@@L@@@@@@@@@@@@@@@@@F@L@@@@C@@@@@@@@F@@@@@@@@@@@@@@@@F@@@@@@@@L@@@@@@@@@@@@@@@@@F@L@@@@C@@@@@@@@F@@@@@@@@@@@@@@@@F@@@@@@@@L@@@@@@@@@@@@@@@@@F@L@@@@C@@@@@@@@F@@@@@@@@@@@@@@@@F@@@@@@@@L@@@@@@@@@@@@@@@@@F@L@@@@C@@@@@@@@F@@@@@@@@@@@@@@@@F@@@@@@@@L@@@@@@@@@@@@@@@@@F@L@@@@C@@@@@@@@F@@@@@@@@@@@@@@@@F@@@@@@@@L@@@@@@@@@@@@@@@@@F@L@@@@C@@@@@@@@F@@@@@@@@@@@@@@@@F@@@@@@@@L@@@@@@@@@@@@@@@@@F@L@@@@C@@@@@@@@F@@@@@@@@@@@@@@@@F@@@@@@@@L@@@@@@@@@@@@@@@@@F@L@@@@C@@@@@@@@F@@@@@@@@@@@@@@@@F@@@@@@@@L@@@@@@@@@@@@@@@@@F@L@@@@C@@@@@@@@F@@@@@@@@@@@@@@@@F@@@@@@@@L@@@@@@@@@@@@@@@@@F@L@@@@C@@@@@@@@F@@@@@@@@@@@@@@@@F@@@@@@@@L@@@@@@@@@@@@@@@@@F@L@@@@C@@@@@@@@F@@@@@@@@@@@@@@@@F@@@@@@@@L@@@@@@@@@@@@@@@@@F@L@@@@C@@@@@@@@F@@@@@@@@@@@@@@@@F@@@@@@@@L@@@@@@@@@@@@@@@@@F@L@@COOOOOOOON@F@@@@@@@@@@@@@@@@F@@@@@@@@L@@@@@@@@@@@@@@@@@F@L@@COOOOOOOOOON@@@@@@@@@@@@@@@@GOOOOOOOOL@@@@@@@@@@@@@@@@@F@L@@COOOOOOOOOON@@@@@@@@@@@@@@@@GOOOOOOOOL@@@@@@@@@@@@@@@@@F@L@@COOOOOOOON@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@C@@@@@@@@F@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@C@@@@@@@@F@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@C@@@@@@@@F@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@C@@@@@@@@F@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@C@@@@@@@@F@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@C@@@@@@@@F@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@C@@@@@@@@F@@@@@@@@@@@@@@@@@@@@@@@@COOAOOH@@@@@@@@@@@@@@F@L@@C@@@@@@@@F@@@@@@COON@@@COOL@@@@@@@AOO@OOH@@@@@@@@@@@@@@F@L@@C@@@@@@@@F@@@@@@@OOO@@@GOO@@@@@@@@@OO@GOH@@@@@@@@@@@@@@F@L@@C@@@@@@@@F@@@@@@@GOO@@@GON@@@@@@@@@OO@GOH@@@@@@@@@@@@@@F@L@@C@@@@@@@@F@@@@@@@GOOH@@OON@@@@@@@@@OO@GOH@@@@@@@@@@@@@@F@L@@C@@@@@@@@F@@@@@@@GOOH@@OON@@@@@@@@@OO@GOH@@@@@@@@@@@@@@F@L@@C@@@@@@@@F@@@@@@@GOOL@AOON@@@@@@@@@OO@GOH@@@@@@@@@@@@@@F@L@@C@@@@@@@@F@@@@@@@GOOL@AOON@@@@@@@@@OO@GOH@@@@@@@@@@@@@@F@L@@C@@@@@@@@F@@@@@@@GOON@COON@@@@@@@@@OO@GOH@@@@@@@@@@@@@@F@L@@C@@@@@@@@F@@@@@@@GGON@CKON@@COH@@GLOO@GOH@COH@OOOGOH@@@F@L@@C@@@@@@@@F@@@@@@@GGOO@GKON@@OON@AONOO@GOH@OON@GONCO@@@@F@L@@C@@@@@@@@F@@@@@@@GCOO@GCON@AOIO@COOOO@GOHAOIO@COLAN@@@@F@L@@C@@@@@@@@F@@@@@@@GCOOHOCON@CO@OHGOMOO@GOHCO@OHCONAN@@@@F@L@@C@@@@@@@@F@@@@@@@GAOOHNCON@CO@OHGOHOO@GOHCO@OHAONAL@@@@F@L@@C@@@@@@@@F@@@@@@@GAOOMNCON@GO@OLGOHOO@GOHGO@OLAOOCL@@@@F@L@@C@@@@@@@@F@@@@@@@G@OOMLCON@GO@OLOO@OO@GOHGO@OL@OOCL@@@@F@L@@C@@@@@@@@F@@@@@@@G@OOOLCON@GO@OLOO@OO@GOHGO@OL@OOCH@@@@F@L@@C@COOOOOOOON@@@@@G@GOOHCON@OOOOLOO@OO@GOHOOOOL@GOOH@@@@F@L@@COOOOOOOOOON@@@@@G@GOOHCON@OOOOLOO@OO@GOHOOOOL@GOO@@@@@F@L@@COOOOOOOOOON@@@@@G@COO@CON@OO@@@OO@OO@GOHOO@@@@GOO@@@@@F@L@@@@COOOOOOOON@@@@@G@COO@CON@OO@@@OO@OO@GOHOO@@@@COO@@@@@F@L@@@@C@@@@@@@@F@@@@@G@AON@CON@GO@@@OO@OO@GOHGO@@@@CON@@@@@F@L@@@@C@@@@@@@@F@@@@@G@AON@CON@GOH@@GOHOO@GOHGOH@@@AON@@@@@F@L@@@@C@@@@@@@@F@@@@@G@@OL@CON@GOHAHGOHOO@GOHGOHAH@AON@@@@@F@L@@@@C@@@@@@@@F@@@@@G@@OL@CON@CONCHGOLOO@GOHCONCH@AOL@@@@@F@L@@@@C@@@@@@@@F@@@@@G@@GH@CON@COOO@COOOO@GOHCOOO@@@OL@@@@@F@L@@@@C@@@@@@@@F@@@@@OH@GH@GOO@AOOO@COOOOHOOLAOOO@@@OL@@@@@F@L@@@@C@@@@@@@@F@@@@CON@C@AOOOL@OOL@AOLOOMOON@OOL@@@GH@@@@@F@L@@@@C@@@@@@@@F@@@@@@@@C@@@@@@@CO@@@G@N@@@@@@CO@@@@GH@@@@@F@L@@@@C@@@@@@@@F@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CLG@@@@@@F@L@@@@C@@@@@@@@F@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GNG@@@@@@F@L@@@@C@@@@@@@@F@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GNN@@@@@@F@L@@@@C@@@@@@@@F@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GLN@@@@@@F@L@@@@C@@@@@@@@F@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GOL@@@@@@F@L@@@@C@@@@@@@@F@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@COH@@@@@@F@L@@@@C@@@@@@@@F@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N@@@@@@@F@L@@@@C@@@@@@@@F@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@C@@@@AOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@C@@@@AOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@C@@@@AOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@C@@@@AOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@C@@@@AH@@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@C@@@@AH@@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@C@@@@AH@@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@C@@@@AH@@@@@@GOOOOOOOOL@AIHFGOIOLONC@CAOAOH@@@@@@@@@@F@L@@@@COOOOOH@@@@@@GOOOOOOOOL@AILF@LAH@LCC@CCAIHL@@@@@@@@@@F@L@@@@COOOOOH@@@@@@GOOOOOOOOL@AILF@LAH@LCC@CCAIHL@@@@@@@@@@F@L@@@@@@@@@AH@@@@@@GOOOOOOOOL@AINF@LAH@LCC@CCLAHL@@@@@@@@@@F@L@@@@@@@@@AH@@@@@@F@@@@@@@@L@AINF@LAOHONC@CAOAHL@@@@@@@@@@F@L@@@@@@@@@AH@@@@@@F@@@@@@@@L@AIKF@LAH@LCC@C@GIOH@@@@@@@@@@F@L@@@@@@@@@AH@@@@@@F@@@@@@@@L@AIKF@LAH@LCC@CCAIH@@@@@@@@@@@F@L@@@@@@@@@AH@@@@@@F@@@@@@@@L@AIIN@LAH@LCC@CCAIH@@@@@@@@@@@F@L@@@@@@@@@AH@@@@@@F@@@@@@@@L@AIIN@LAH@LCC@CCAIH@@@@@@@@@@@F@L@@@@@@@@@AH@@@@@@F@@@@@@@@L@AIHN@LAOLLCCOCAOAH@@@@@@@@@@@F@L@@@@@@@@@AH@@@@@@F@@@@@@@@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@AH@@@@@@F@@@@@@@@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@AH@@@@@@F@@@@@@@@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@AH@@@@@@F@@@@@@@@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@AH@@@@@@F@@@@@@@@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@AH@@@@@@F@@@@@@@@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@AH@@@@@@F@@@@@@@@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@AH@@@@@@F@@@@@@@@L@@GLAO@N@NG@G@OHFAHC@CAOAOH@@@F@L@@@@@@@@@AH@@@@@@F@@@@@@@@L@@LFCAHN@NG@GAHLGAHC@CCAIHL@@@F@L@@@@@@@@@AH@@@@@@F@@@@@@@@L@AHFF@LOANGHOC@FGAHC@CCAIHL@@@F@L@@@@@@@@@AH@@@@@@F@@@@@@@@L@AH@F@LOANGHOC@FGIHC@CCLAHL@@@F@L@@@@@@@@@AOOOOOOON@@@@@@@@L@AH@F@LMKFFMKC@FGIHC@CAOAHL@@@F@L@@@@@@@@@AOOOOOOON@@@@@@@@L@AH@F@LMKFFMKC@FFMHC@C@GIOH@@@F@L@@@@@@@@@@@@@@@@@F@@@@@@@@L@AHFF@LMKFFMKC@FFMHC@CCAIH@@@@F@L@@@@@@@@@@@@@@@@@F@@@@@@@@L@AHFF@LLNFFGCC@FFGHC@CCAIH@@@@F@L@@@@@@@@@@@@@@@@@F@@@@@@@@L@@LFCAHLNFFGCAHLFGHC@CCAIH@@@@F@L@@@@@@@@@@@@@@@@@F@@@@@@@@L@@GLAO@LDFFBC@OHFCHCOCAOAH@@@@F@L@@@@@@@@@@@@@@@@@F@@@@@@@@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@GOOOOOOOOL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@GOOOOOOOOL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOON@
 )
 
 (RPAQ? LOGOW NIL)
 
 (ADDTOVAR AFTERMAKESYSFORMS (LOGOW))
-(PUTPROPS LOGOW COPYRIGHT ("Venue" 1986 1987 1988 1989 1990 1991 2022))
+(PUTPROPS LOGOW COPYRIGHT ("Venue" 1986 1987 1988 1989 1990 1991 2022 2023))
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (596 5071 (KOTOLOGOW 606 . 3400) (LOGOW 3402 . 4362) (\\DRAWLOGOWINDOWIMAGE 4364 . 5069)
-))))
+  (FILEMAP (NIL (732 1449 (\\DRAWLOGOWINDOWIMAGE 742 . 1447)) (1451 7015 (LOGOW 1451 . 7015)) (7017 7666
+ (KERNED.PRIN3 7017 . 7666)))))
 STOP
diff --git a/sources/LOGOW.DFASL b/sources/LOGOW.DFASL
new file mode 100644
index 00000000..3152c170
Binary files /dev/null and b/sources/LOGOW.DFASL differ
diff --git a/sources/LOGOW.LCOM b/sources/LOGOW.LCOM
deleted file mode 100644
index 4863954a..00000000
Binary files a/sources/LOGOW.LCOM and /dev/null differ
diff --git a/sources/WINDOW b/sources/WINDOW
index dd5729f3..cef613b2 100644
--- a/sources/WINDOW
+++ b/sources/WINDOW
@@ -1,13 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED " 9-Jul-2022 11:10:09" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>sources>WINDOW.;19 221116 
+(FILECREATED "10-Apr-2023 07:05:18" {DSK}<home>larry>il>medley>sources>WINDOW.;2 222381 
+
+      :EDIT-BY "lmm"
 
       :CHANGES-TO (VARS WINDOWCOMS)
-                  (FNS \MEDW.DSPCREATE \GENERIC.DSPCREATE \GENERIC.DSPCREATE.DESTINATION.BITMAP?)
 
-      :PREVIOUS-DATE " 8-Jul-2022 23:54:16" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>sources>WINDOW.;15)
+      :PREVIOUS-DATE " 9-Jul-2022 11:10:09" {DSK}<home>larry>il>medley>sources>WINDOW.;1)
 
 
 (* ; "
@@ -16,7 +15,7 @@ Copyright (c) 1982-1988, 1990-1994, 1999-2000, 2021 by Venue & Xerox Corporation
 
 (PRETTYCOMPRINT WINDOWCOMS)
 
-(RPAQQ WINDOWCOMS
+(RPAQQ WINDOWCOMS 
        [(COMS (FNS WINDOWWORLD WINDOWWORLDP CHANGEBACKGROUND CHANGEBACKGROUNDBORDER TILE 
                    \TTY.CREATING.DISPLAYSTREAM \CREATE.TTY.OUTCHARFN \CREATE.TTYDISPLAYSTREAM 
                    HASTTYWINDOWP TTYINFOSTREAM CREATESCREEN \INSURESCREEN \BITMAPTOSCREEN MAINSCREEN)
@@ -73,6 +72,8 @@ Copyright (c) 1982-1988, 1990-1994, 1999-2000, 2021 by Venue & Xerox Corporation
               (PROP ARGNAMES WINDOWPROP)
               (OPTIMIZERS WINDOWPROP)
               (FNS CWINDOWPROP CGETWINDOWPROP \GETWINDOWHEIGHT \GETWINDOWWIDTH))
+        (FNS WINDOW.BITMAP)
+                                                             (* ; "lmm 4/23")
         (COMS (FNS OPENWP TOPWP RESHAPEBYREPAINTFN \INBETWEENP DECODE/WINDOW/OR/DISPLAYSTREAM 
                    GROW/REGION CLRPROMPT PROMPTPRINT OPENWINDOWS \INSUREWINDOW)
                                                              (* ; 
@@ -1389,23 +1390,23 @@ Middle button down moves closest corner.")
 )
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE 
 
-(PUTPROPS .COPYKEYDOWNP. MACRO [NIL (OR (KEYDOWNP 'LSHIFT)
+[PUTPROPS .COPYKEYDOWNP. MACRO (NIL (OR (KEYDOWNP 'LSHIFT)
                                         (KEYDOWNP 'RSHIFT)
-                                        (KEYDOWNP 'COPY])
+                                        (KEYDOWNP 'COPY]
 
-(PUTPROPS WSOP MACRO [ARGS (LET ((METHOD (CADR (CAR ARGS)))
+[PUTPROPS WSOP MACRO (ARGS (LET ((METHOD (CADR (CAR ARGS)))
                                  (DISPLAY (CADR ARGS))
                                  (OTHERARGS (CDDR ARGS)))
                                 `(SPREADAPPLY* (fetch (WSOPS ,METHOD) of (fetch (FDEV WINDOWOPS)
                                                                             of ,DISPLAY))
                                         ,DISPLAY
-                                        ,@OTHERARGS])
+                                        ,@OTHERARGS]
 )
 
 (* "END EXPORTED DEFINITIONS")
 
 
-(PUTPROPS WSOP ARGNAMES (METHOD DISPLAY . OTHERARGS))
+(PUTPROPS WSOP ARGNAMES (METHOD DISPLAY . OTHERARGS))
 (DECLARE%: EVAL@COMPILE
 
 (RECORD WSOPS (STARTBOARD STARTCOLOR STOPCOLOR EVENTFN SENDCOLORMAPENTRY SENDPAGE PILOTBITBLT))
@@ -1868,15 +1869,15 @@ Middle button down moves closest corner.")
 (DECLARE%: DONTCOPY 
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE 
 
-(PUTPROPS \COERCETODS MACRO [OPENLAMBDA (X)
+[PUTPROPS \COERCETODS MACRO (OPENLAMBDA (X)
                               (COND
                                  ((type? WINDOW X)
                                   (fetch (WINDOW DSP) of X))
-                                 (T (\ILLEGAL.ARG X])
+                                 (T (\ILLEGAL.ARG X]
 
-(PUTPROPS .WHILE.ON.TOP. MACRO ((FIRST . REST)
+[PUTPROPS .WHILE.ON.TOP. MACRO ((FIRST . REST)
                                 (UNINTERRUPTABLY
-                                    (\INTERNALTOTOPW FIRST) . REST)))
+                                    (\INTERNALTOTOPW FIRST) . REST)]
 )
 
 (* "END EXPORTED DEFINITIONS")
@@ -2042,7 +2043,7 @@ Middle button down moves closest corner.")
 (* ; "Compiled WINDOWPROP")
 
 
-(PUTPROPS WINDOWPROP ARGNAMES (NIL (WINDOW PROP {NEWVALUE}) . U))
+(PUTPROPS WINDOWPROP ARGNAMES (NIL (WINDOW PROP {NEWVALUE}) . U))
 
 (DEFOPTIMIZER WINDOWPROP (&REST ARGS)
                          (CWINDOWPROP ARGS))
@@ -2172,6 +2173,26 @@ Middle button down moves closest corner.")
 )
 (DEFINEQ
 
+(WINDOW.BITMAP
+  [LAMBDA (W)                                               (* ; "Edited 12-Jun-90 10:38 by mitani")
+                                                             (* Returns all of the bitmap of the 
+                                                             window)
+    (PROG [BM (REGION (WINDOWPROP W 'REGION]
+          (CLOSEW W)
+          (SETQ BM (BITMAPCREATE (fetch (REGION WIDTH) of REGION)
+                          (fetch (REGION HEIGHT) of REGION)))
+          (BITBLT (WINDOWPROP W 'IMAGECOVERED)
+                 NIL NIL BM)
+          (OPENW W)
+          (RETURN BM])
+)
+
+
+
+(* ; "lmm 4/23")
+
+(DEFINEQ
+
 (OPENWP
   [LAMBDA (WINDOW)                                       (* rrb "26-OCT-83 15:01")
 
@@ -3491,7 +3512,7 @@ Middle button down moves closest corner.")
 (DECLARE%: EVAL@COMPILE DONTCOPY 
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE 
 
-(PUTPROPS WINDOWOP DMACRO [ARGS (LET ((OPNAME (CAR ARGS))
+[PUTPROPS WINDOWOP DMACRO (ARGS (LET ((OPNAME (CAR ARGS))
                                       (METHOD-DEVICE (CADR ARGS))
                                       (TAIL (CDDR ARGS)))
                                      (COND
@@ -3502,7 +3523,7 @@ Middle button down moves closest corner.")
                                                            of ,METHOD-DEVICE)
                                                  ,METHOD-DEVICE
                                                  ,@TAIL]
-                                        (T (ERROR "OPNAME not quoted: " OPNAME])
+                                        (T (ERROR "OPNAME not quoted: " OPNAME]
 )
 
 (* "END EXPORTED DEFINITIONS")
@@ -3917,40 +3938,42 @@ Middle button down moves closest corner.")
 
 (FILESLOAD PAINTW)
 
-(ADDTOVAR WindowMenuCommands
-          (Close '\INTERACTIVE.CLOSEW "Closes a window")
-          (Snap 'SNAPW "Saves a snapshot of a region of the screen.")
-          (Paint 'PAINTW 
+(ADDTOVAR WindowMenuCommands (Close '\INTERACTIVE.CLOSEW "Closes a window")
+                             (Snap 'SNAPW "Saves a snapshot of a region of the screen.")
+                             (Paint 'PAINTW 
    "Starts a painting mode in which the mouse can be
 used to draw pictures or make notes on windows.")
-          (Clear 'CLEARW "Clears a window to its gray.")
-          (Bury 'BURYW "Puts a window on the bottom.")
-          (Redisplay 'REDISPLAYW "Redisplays a window using its REPAINTFN.")
-          (Hardcopy 'HARDCOPYIMAGEW "Prints a window using its HARDCOPYFN."
-                 (SUBITEMS ("To a file" 'HARDCOPYIMAGEW.TOFILE 
-                                  "Puts image on a file; prompts for filename and format")
-                        ("To a printer" 'HARDCOPYIMAGEW.TOPRINTER 
-                               "Sends image to a printer of your choosing")))
-          (Move 'MOVEW "Moves a window by a corner.")
-          (Shape 'SHAPEW "Gets a new region for a window.
+                             (Clear 'CLEARW "Clears a window to its gray.")
+                             (Bury 'BURYW "Puts a window on the bottom.")
+                             (Redisplay 'REDISPLAYW "Redisplays a window using its REPAINTFN.")
+                             (Hardcopy 'HARDCOPYIMAGEW "Prints a window using its HARDCOPYFN."
+                                    (SUBITEMS ("To a file" 'HARDCOPYIMAGEW.TOFILE 
+                                              "Puts image on a file; prompts for filename and format"
+                                                     )
+                                           ("To a printer" 'HARDCOPYIMAGEW.TOPRINTER 
+                                                  "Sends image to a printer of your choosing")))
+                             (Move 'MOVEW "Moves a window by a corner.")
+                             (Shape 'SHAPEW "Gets a new region for a window.
 Left button down marks fixed corner; sweep to other corner.
 Middle button down moves closest corner.")
-          (Shrink 'SHRINKW "Replaces this window with its icon (or title if it doesn't have an icon."
-                 ))
+                             (Shrink 'SHRINKW 
+                           "Replaces this window with its icon (or title if it doesn't have an icon."
+                                    ))
 
-(ADDTOVAR BackgroundMenuCommands
-          (SaveVM '(SAVEVM)
-                 "Updates the virtual memory.")
-          (Snap '(SNAPW)
-                "Saves a snapshot of a region of the screen.")
-          (Hardcopy '(HARDCOPYW)
-                 "Send hardcopy of screen region to printer."
-                 (SUBITEMS ("To a file" '(HARDCOPYREGION.TOFILE)
-                                  
+(ADDTOVAR BackgroundMenuCommands (SaveVM '(SAVEVM)
+                                        "Updates the virtual memory.")
+                                 (Snap '(SNAPW)
+                                       "Saves a snapshot of a region of the screen.")
+                                 (Hardcopy '(HARDCOPYW)
+                                        "Send hardcopy of screen region to printer."
+                                        (SUBITEMS ("To a file" '(HARDCOPYREGION.TOFILE)
+                                                         
                                "Writes a region of screen to a file; prompts for filename and format"
-                                  )
-                        ("To a printer" '(HARDCOPYREGION.TOPRINTER)
-                               "Sends a region of screen to a printer of your choosing"))))
+                                                         )
+                                               ("To a printer" '(HARDCOPYREGION.TOPRINTER)
+                                                      
+                                             "Sends a region of screen to a printer of your choosing"
+                                                      ))))
 
 (ADDTOVAR WINDOWUSERFORMS )
 
@@ -3975,7 +3998,7 @@ Middle button down moves closest corner.")
 (* ;; "Arrange for the proper compiler")
 
 
-(PUTPROPS WINDOW FILETYPE :FAKE-COMPILE-FILE)
+(PUTPROPS WINDOW FILETYPE :FAKE-COMPILE-FILE)
 (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 
 
 (ADDTOVAR NLAMA )
@@ -3987,42 +4010,42 @@ 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 (11550 26190 (WINDOWWORLD 11560 . 15313) (WINDOWWORLDP 15315 . 15615) (CHANGEBACKGROUND 
-15617 . 16654) (CHANGEBACKGROUNDBORDER 16656 . 17207) (TILE 17209 . 17801) (
-\TTY.CREATING.DISPLAYSTREAM 17803 . 18350) (\CREATE.TTY.OUTCHARFN 18352 . 18652) (
-\CREATE.TTYDISPLAYSTREAM 18654 . 21693) (HASTTYWINDOWP 21695 . 21975) (TTYINFOSTREAM 21977 . 22501) (
-CREATESCREEN 22503 . 25446) (\INSURESCREEN 25448 . 25697) (\BITMAPTOSCREEN 25699 . 26060) (MAINSCREEN 
-26062 . 26188)) (26837 44120 (WINDOW.MOUSE.HANDLER 26847 . 39642) (\PROTECTED.APPLY 39644 . 39892) (
-DOWINDOWCOM 39894 . 41914) (DOBACKGROUNDCOM 41916 . 43074) (DEFAULT.BACKGROUND.COPYFN 43076 . 44118)) 
-(44201 76084 (BURYW 44211 . 44499) (CLEARW 44501 . 44891) (CLOSEW 44893 . 45667) (\CLOSEW1 45669 . 
-46022) (\OKTOCLOSEW 46024 . 46383) (\INTERACTIVE.CLOSEW 46385 . 47208) (OPENW 47210 . 48265) (
-DOUSERFNS 48267 . 49428) (DOUSERFNS2 49430 . 49926) (\USERFNISDON'T 49928 . 50199) (\OPENW1 50201 . 
-50551) (CREATEW 50553 . 51817) (CREATEW1 51819 . 54097) (\CREATEW1 54099 . 55318) (OPENDISPLAYSTREAM 
-55320 . 55643) (MOVEW 55645 . 55860) (PPROMPT3 55862 . 56190) (\ONSCREENCLIPPINGREGION 56192 . 56743) 
-(RELMOVEW 56745 . 57043) (SHAPEW 57045 . 61964) (SHAPEW1 61966 . 64668) (\SHAPEW2 64670 . 67356) (
-RESHOWBORDER 67358 . 67869) (\RESHOWBORDER1 67871 . 72797) (TRACKW 72799 . 73914) (SNAPW 73916 . 75589
-) (WINDOWREGION 75591 . 76082)) (76085 76781 (MINIMUMWINDOWSIZE 76095 . 76779)) (78428 101693 (
-ADVISEWDS 78438 . 86381) (SHOWWFRAME 86383 . 88135) (SHOWWTITLE 88137 . 92171) (\STRINGWIDTHGUESS 
-92173 . 92532) (RESHOWTITLE 92534 . 97175) (TOTOPW 97177 . 97416) (\INTERNALTOTOPW 97418 . 98508) (
-\TTW1 98510 . 101110) (WHICHW 101112 . 101691)) (101822 104660 (WFROMDS 101832 . 103830) (NU\TOTOPWDS 
-103832 . 104268) (\COERCETODS 104270 . 104658)) (105303 112103 (WINDOWP 105313 . 105459) (
-INSURE.WINDOW 105461 . 105800) (WINDOWPROP 105802 . 106234) (WINDOWADDPROP 106236 . 107970) (
-WINDOWDELPROP 107972 . 108398) (GETWINDOWPROP 108400 . 108950) (GETWINDOWUSERPROP 108952 . 109379) (
-PUTWINDOWPROP 109381 . 109846) (REMWINDOWPROP 109848 . 110903) (WINDOWADDFNPROP 110905 . 112101)) (
-112307 119871 (CWINDOWPROP 112317 . 113322) (CGETWINDOWPROP 113324 . 118542) (\GETWINDOWHEIGHT 118544
- . 119452) (\GETWINDOWWIDTH 119454 . 119869)) (119872 135320 (OPENWP 119882 . 120160) (TOPWP 120162 . 
-120445) (RESHAPEBYREPAINTFN 120447 . 130699) (\INBETWEENP 130701 . 130917) (
-DECODE/WINDOW/OR/DISPLAYSTREAM 130919 . 132959) (GROW/REGION 132961 . 133524) (CLRPROMPT 133526 . 
-133930) (PROMPTPRINT 133932 . 134196) (OPENWINDOWS 134198 . 134982) (\INSUREWINDOW 134984 . 135318)) (
-135451 138700 (OVERLAPPINGWINDOWS 135461 . 137743) (WOVERLAPP 137745 . 138000) (ORDERFROMBOTTOMTOTOP 
-138002 . 138698)) (138749 143532 (\ONSCREENW 138759 . 139465) (\PUTONSCREENW 139467 . 140294) (
-\UPDATECACHEDFIELDS 140296 . 140560) (\WWCHANGESCREENSIZE 140562 . 141951) (CREATEWFROMIMAGE 141953 . 
-142916) (UPDATEWFROMIMAGE 142918 . 143530)) (144089 196691 (\MEDW.CREATEW 144099 . 148773) (
-\MEDW.OPENW 148775 . 151133) (\MEDW.CLOSEW 151135 . 152501) (\MEDW.MOVEW 152503 . 163115) (
-\MEDW.RELMOVEW 163117 . 163496) (\MEDW.SHRINKW 163498 . 171682) (\MEDW.EXPANDW 171684 . 173951) (
-\MEDW.SHAPEW 173953 . 178559) (\MEDW.REDISPLAYW 178561 . 180516) (\MEDW.BURYW 180518 . 181800) (
-\MEDW.TOTOPW 181802 . 183150) (\MEDW.DSPCREATE 183152 . 183953) (\GENERIC.DSPCREATE 183955 . 185672) (
-\GENERIC.DSPCREATE.DESTINATION.BITMAP? 185674 . 185860) (\MEDW.GETWINDOWPROP 185862 . 188100) (
-\MEDW.PUTWINDOWPROP 188102 . 194887) (\MEDW.CURSOR 194889 . 196689)) (196692 197312 (\GENERIC.CURSOR 
-196702 . 197310)))))
+  (FILEMAP (NIL (11535 26175 (WINDOWWORLD 11545 . 15298) (WINDOWWORLDP 15300 . 15600) (CHANGEBACKGROUND 
+15602 . 16639) (CHANGEBACKGROUNDBORDER 16641 . 17192) (TILE 17194 . 17786) (
+\TTY.CREATING.DISPLAYSTREAM 17788 . 18335) (\CREATE.TTY.OUTCHARFN 18337 . 18637) (
+\CREATE.TTYDISPLAYSTREAM 18639 . 21678) (HASTTYWINDOWP 21680 . 21960) (TTYINFOSTREAM 21962 . 22486) (
+CREATESCREEN 22488 . 25431) (\INSURESCREEN 25433 . 25682) (\BITMAPTOSCREEN 25684 . 26045) (MAINSCREEN 
+26047 . 26173)) (26822 44105 (WINDOW.MOUSE.HANDLER 26832 . 39627) (\PROTECTED.APPLY 39629 . 39877) (
+DOWINDOWCOM 39879 . 41899) (DOBACKGROUNDCOM 41901 . 43059) (DEFAULT.BACKGROUND.COPYFN 43061 . 44103)) 
+(44186 76069 (BURYW 44196 . 44484) (CLEARW 44486 . 44876) (CLOSEW 44878 . 45652) (\CLOSEW1 45654 . 
+46007) (\OKTOCLOSEW 46009 . 46368) (\INTERACTIVE.CLOSEW 46370 . 47193) (OPENW 47195 . 48250) (
+DOUSERFNS 48252 . 49413) (DOUSERFNS2 49415 . 49911) (\USERFNISDON'T 49913 . 50184) (\OPENW1 50186 . 
+50536) (CREATEW 50538 . 51802) (CREATEW1 51804 . 54082) (\CREATEW1 54084 . 55303) (OPENDISPLAYSTREAM 
+55305 . 55628) (MOVEW 55630 . 55845) (PPROMPT3 55847 . 56175) (\ONSCREENCLIPPINGREGION 56177 . 56728) 
+(RELMOVEW 56730 . 57028) (SHAPEW 57030 . 61949) (SHAPEW1 61951 . 64653) (\SHAPEW2 64655 . 67341) (
+RESHOWBORDER 67343 . 67854) (\RESHOWBORDER1 67856 . 72782) (TRACKW 72784 . 73899) (SNAPW 73901 . 75574
+) (WINDOWREGION 75576 . 76067)) (76070 76766 (MINIMUMWINDOWSIZE 76080 . 76764)) (78391 101656 (
+ADVISEWDS 78401 . 86344) (SHOWWFRAME 86346 . 88098) (SHOWWTITLE 88100 . 92134) (\STRINGWIDTHGUESS 
+92136 . 92495) (RESHOWTITLE 92497 . 97138) (TOTOPW 97140 . 97379) (\INTERNALTOTOPW 97381 . 98471) (
+\TTW1 98473 . 101073) (WHICHW 101075 . 101654)) (101785 104623 (WFROMDS 101795 . 103793) (NU\TOTOPWDS 
+103795 . 104231) (\COERCETODS 104233 . 104621)) (105248 112048 (WINDOWP 105258 . 105404) (
+INSURE.WINDOW 105406 . 105745) (WINDOWPROP 105747 . 106179) (WINDOWADDPROP 106181 . 107915) (
+WINDOWDELPROP 107917 . 108343) (GETWINDOWPROP 108345 . 108895) (GETWINDOWUSERPROP 108897 . 109324) (
+PUTWINDOWPROP 109326 . 109791) (REMWINDOWPROP 109793 . 110848) (WINDOWADDFNPROP 110850 . 112046)) (
+112248 119812 (CWINDOWPROP 112258 . 113263) (CGETWINDOWPROP 113265 . 118483) (\GETWINDOWHEIGHT 118485
+ . 119393) (\GETWINDOWWIDTH 119395 . 119810)) (119813 120472 (WINDOW.BITMAP 119823 . 120470)) (120498 
+135946 (OPENWP 120508 . 120786) (TOPWP 120788 . 121071) (RESHAPEBYREPAINTFN 121073 . 131325) (
+\INBETWEENP 131327 . 131543) (DECODE/WINDOW/OR/DISPLAYSTREAM 131545 . 133585) (GROW/REGION 133587 . 
+134150) (CLRPROMPT 134152 . 134556) (PROMPTPRINT 134558 . 134822) (OPENWINDOWS 134824 . 135608) (
+\INSUREWINDOW 135610 . 135944)) (136077 139326 (OVERLAPPINGWINDOWS 136087 . 138369) (WOVERLAPP 138371
+ . 138626) (ORDERFROMBOTTOMTOTOP 138628 . 139324)) (139375 144158 (\ONSCREENW 139385 . 140091) (
+\PUTONSCREENW 140093 . 140920) (\UPDATECACHEDFIELDS 140922 . 141186) (\WWCHANGESCREENSIZE 141188 . 
+142577) (CREATEWFROMIMAGE 142579 . 143542) (UPDATEWFROMIMAGE 143544 . 144156)) (144715 197317 (
+\MEDW.CREATEW 144725 . 149399) (\MEDW.OPENW 149401 . 151759) (\MEDW.CLOSEW 151761 . 153127) (
+\MEDW.MOVEW 153129 . 163741) (\MEDW.RELMOVEW 163743 . 164122) (\MEDW.SHRINKW 164124 . 172308) (
+\MEDW.EXPANDW 172310 . 174577) (\MEDW.SHAPEW 174579 . 179185) (\MEDW.REDISPLAYW 179187 . 181142) (
+\MEDW.BURYW 181144 . 182426) (\MEDW.TOTOPW 182428 . 183776) (\MEDW.DSPCREATE 183778 . 184579) (
+\GENERIC.DSPCREATE 184581 . 186298) (\GENERIC.DSPCREATE.DESTINATION.BITMAP? 186300 . 186486) (
+\MEDW.GETWINDOWPROP 186488 . 188726) (\MEDW.PUTWINDOWPROP 188728 . 195513) (\MEDW.CURSOR 195515 . 
+197315)) (197318 197938 (\GENERIC.CURSOR 197328 . 197936)))))
 STOP
diff --git a/sources/WINDOW.LCOM b/sources/WINDOW.LCOM
index 3337412b..8faf1ae6 100644
Binary files a/sources/WINDOW.LCOM and b/sources/WINDOW.LCOM differ
