diff --git a/internal/MAINTAIN.TXT b/internal/MAINTAIN.TXT
new file mode 100644
index 00000000..aa6ccee7
--- /dev/null
+++ b/internal/MAINTAIN.TXT
@@ -0,0 +1,2 @@
+MAINTAIN -- Network access to the PUP "Grapevine" server, which did
+            email, distribution lists. Written ~1985 mainly by Bill van Melle.
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/library/SYSEDIT b/library/SYSEDIT
index cb661c8c..0670ab15 100644
--- a/library/SYSEDIT
+++ b/library/SYSEDIT
@@ -1,16 +1,14 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "25-Jun-2022 18:22:01" {DSK}<home>larry>medley>library>SYSEDIT.;2 1373   
+(FILECREATED "17-Apr-2023 14:19:03" {DSK}<home>larry>il>medley>library>SYSEDIT.;2 1238   
+
+      :EDIT-BY "lmm"
 
       :CHANGES-TO (VARS SYSEDITCOMS)
 
-      :PREVIOUS-DATE "28-Sep-2021 10:16:44" {DSK}<home>larry>medley>library>SYSEDIT.;1)
+      :PREVIOUS-DATE "25-Jun-2022 18:22:01" {DSK}<home>larry>il>medley>library>SYSEDIT.;1)
 
 
-(* ; "
-Copyright (c) 1984, 1987, 1990, 2021 by Venue & Xerox Corporation.
-")
-
 (PRETTYCOMPRINT SYSEDITCOMS)
 
 (RPAQQ SYSEDITCOMS
@@ -22,7 +20,7 @@ Copyright (c) 1984, 1987, 1990, 2021 by Venue & Xerox Corporation.
               (CLISPIFTRANFLG T)
               (CROSSCOMPILING 'ASK)
               (*REPLACE-OLD-EDIT-DATES* NIL)
-              (COPYRIGHTFLG 'PRESERVE))
+              (COPYRIGHTFLG 'NEVER))
         (P (RESETVARS ((CROSSCOMPILING T))
                   (FILESLOAD (SOURCE)
                          EXPORTS.ALL])
@@ -43,12 +41,11 @@ Copyright (c) 1984, 1987, 1990, 2021 by Venue & Xerox Corporation.
 
 (RPAQQ *REPLACE-OLD-EDIT-DATES* NIL)
 
-(RPAQQ COPYRIGHTFLG PRESERVE)
+(RPAQQ COPYRIGHTFLG NEVER)
 
 (RESETVARS ((CROSSCOMPILING T))
            (FILESLOAD (SOURCE)
                   EXPORTS.ALL))
-(PUTPROPS SYSEDIT COPYRIGHT ("Venue & Xerox Corporation" 1984 1987 1990 2021))
 (DECLARE%: DONTCOPY
   (FILEMAP (NIL)))
 STOP
diff --git a/lispusers/WHO-LINE b/lispusers/WHO-LINE
index d2472342..930e21dc 100644
--- a/lispusers/WHO-LINE
+++ b/lispusers/WHO-LINE
@@ -1,13 +1,16 @@
-(DEFINE-FILE-INFO PACKAGE "IL" READTABLE "INTERLISP" BASE 10)
-(FILECREATED "26-Mar-2021 11:01:59" {DSK}<home>larry>ilisp>medley>lispusers>WHO-LINE.;4 74359  
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-      changes to%:  (VARS WHO-LINECOMS)
+(FILECREATED "12-Apr-2023 22:10:58" {DSK}<home>larry>il>medley>lispusers>WHO-LINE.;5 75086  
 
-      previous date%: "26-Mar-2021 10:48:40" {DSK}<home>larry>ilisp>medley>lispusers>WHO-LINE.;3)
+      :EDIT-BY "lmm"
+
+      :CHANGES-TO (FNS WHO-LINE-HOST-NAME SET-PACKAGE-INTERACTIVELY)
+
+      :PREVIOUS-DATE "12-Apr-2023 17:45:36" {DSK}<home>larry>il>medley>lispusers>WHO-LINE.;4)
 
 
 (* ; "
-Copyright (c) 1986-1989, 1994, 1998, 2001, 2021 by Xerox Corporation.
+Copyright (c) 1986-1989, 1994, 1998, 2001, 2021, 2023 by Xerox Corporation.
 ")
 
 (PRETTYCOMPRINT WHO-LINECOMS)
@@ -184,7 +187,7 @@ Copyright (c) 1986-1989, 1994, 1998, 2001, 2021 by Xerox Corporation.
         (FUNCTIONS INVERT-WHO-LINE-ENTRY)
         (DECLARE%: DONTCOPY (RECORDS WHO-LINE-ENTRY))
                                                              (* ; 
-                          "Macros that lets us lock down the Who-Line while we evaluate some forms")
+                            "Macros that lets us lock down the Who-Line while we evaluate some forms")
         (FUNCTIONS WITH-WHO-LINE WITH-AVAILABLE-WHO-LINE)
         
 
@@ -567,11 +570,10 @@ Copyright (c) 1986-1989, 1994, 1998, 2001, 2021 by Xerox Corporation.
    "Cached name of the current logged in user")
 
 (CL:DEFPARAMETER *WHO-LINE-USER-ENTRY* '("User" (WHO-LINE-USERNAME)
-                                                   10 WHO-LINE-CHANGE-USER (SETQ 
-                                                                            *WHO-LINE-CURRENT-USER* 
-                                                                            NIL)
-                                                   "Name of the currently logged in user")
-                                           
+                                               10 WHO-LINE-CHANGE-USER (SETQ *WHO-LINE-CURRENT-USER*
+                                                                        NIL)
+                                               "Name of the currently logged in user")
+                                       
                              "Who-Line entry for displaying the name of the currently logged in user")
 (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE 
 
@@ -591,18 +593,35 @@ Copyright (c) 1986-1989, 1994, 1998, 2001, 2021 by Xerox Corporation.
 
 (DEFINEQ
 
-(WHO-LINE-HOST-NAME
-(LAMBDA NIL (* ; "Edited 14-Jan-87 12:46 by smL") (* ;;; "") (* ;;; "Return the name of the curren workstation.  Avoid consing up a new string if possible.") (* ;;; "") (* ;; "") (* ;; "The cached value in *WHO-LINE-HOST-NAME* gets invalidated by an entry on the list of \SYSTEMCACHEVARS") (* ;; "") (DECLARE (GLOBALVARS *WHO-LINE-HOST-NAME*)) (if *WHO-LINE-HOST-NAME* then *WHO-LINE-HOST-NAME* else (SETQ *WHO-LINE-HOST-NAME* (ETHERHOSTNAME))))
-)
+(WHO-LINE-HOST-NAME
+  [LAMBDA NIL                                                (* ; "Edited 12-Apr-2023 22:09 by lmm")
+                                                             (* ; "Edited 14-Jan-87 12:46 by smL")
+
+(* ;;; "")
+
+(* ;;; "Return the name of the curren workstation.  Avoid consing up a new string if possible.")
+
+(* ;;; "")
+
+    (* ;; "")
+
+    (* ;; "The cached value in *WHO-LINE-HOST-NAME* gets invalidated by an entry on the list of \SYSTEMCACHEVARS")
+
+    (* ;; "")
+
+    (DECLARE (GLOBALVARS *WHO-LINE-HOST-NAME*))
+    (IF *WHO-LINE-HOST-NAME*
+        THEN *WHO-LINE-HOST-NAME*
+      ELSE (SETQ *WHO-LINE-HOST-NAME* (UNIX-GETPARM "HOSTNAME"])
 )
 
 (DEFGLOBALVAR *WHO-LINE-HOST-NAME* NIL
    "Cached name of the current machine, for the Who-Line")
 
 (CL:DEFPARAMETER *WHO-LINE-HOST-NAME-ENTRY* '("on" (WHO-LINE-HOST-NAME)
-                                                       10 NIL (SETQ *WHO-LINE-HOST-NAME* NIL)
-                                                       "Name of the currently running machine")
-                                                
+                                                   10 NIL (SETQ *WHO-LINE-HOST-NAME* NIL)
+                                                   "Name of the currently running machine")
+                                            
                                       "Who-Line entry for displaying the name of the current machine")
 (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE 
 
@@ -647,33 +666,41 @@ Copyright (c) 1986-1989, 1994, 1998, 2001, 2021 by Xerox Corporation.
                                       ":")
                     *WHO-LINE-PACKAGE-NAME-CACHE*)))))
 
-(SET-PACKAGE-INTERACTIVELY
-  (LAMBDA NIL                                                (* ; "Edited 18-Mar-87 13:13 by smL")
-          
-          (* ;; "")
-          
-          (* ;; "Let the user interactivly change the current package")
-          
-          (* ;; "")
+(SET-PACKAGE-INTERACTIVELY
+  [LAMBDA NIL                                                (* ; "Edited 12-Apr-2023 17:44 by lmm")
+                                                             (* ; "Edited 18-Mar-87 13:13 by smL")
 
-    (LET ((PACKAGE
-           (MENU (create MENU
-                        TITLE _ "Select package"
-                        ITEMS _ (SORT (for PACKAGE in (CL:LIST-ALL-PACKAGES) bind PACKAGE-NAME
-                                         collect (SETQ PACKAGE-NAME (CL:PACKAGE-NAME PACKAGE))
-                                               `(,(CONCAT (OR (CAR (CL:PACKAGE-NICKNAMES PACKAGE))
-                                                              PACKAGE-NAME)
-                                                         ":") ',PACKAGE-NAME
-                                                       ,(CONCAT "Set the current package to " 
-                                                               PACKAGE-NAME ":")))
-                                      (FUNCTION (LAMBDA (X Y)
-                                                  (ALPHORDER (CAR X)
-                                                         (CAR Y)))))
-                        CENTERFLG _ T))))
-         (if PACKAGE
-             then (if (SHIFTDOWNP 'SHIFT)
-                      then (WHO-LINE-COPY-INSERT (CONCAT PACKAGE ":"))
-                    else (CL:IN-PACKAGE PACKAGE))))))
+    (* ;; "")
+
+    (* ;; "Let the user interactivly change the current package")
+
+    (* ;; "")
+
+    (LET* [PKG (MAIN (FOR PN IN '("INTERLISP" "XCL-USER" "USER") WHEN (SETQ PKG (CL:FIND-PACKAGE
+                                                                                 PN))
+                        COLLECT (LIST PKG PN)))
+               (SYSPKG (FOR PN
+                          IN '("LISP" "XEROX-COMMON-LISP" "D-ASSEM" "FASL" "KEYWORD" "CASH-FILE" 
+                                     "SEDIT" "SYSTEM" "COMPILER" "HASH-FILE" "CONDITIONS" "DEBUGGER")
+                          WHEN (SETQ PKG (CL:FIND-PACKAGE PN)) COLLECT (LIST PKG PN)))
+               (BOTH (APPEND MAIN SYSPKG))
+               [UNSORTED (FOR PKG IN (CL:LIST-ALL-PACKAGES) WHEN (NOT (ASSOC PKG BOTH))
+                            COLLECT (LIST PKG (OR (CAR (CL:PACKAGE-NICKNAMES PKG))
+                                                  (CL:PACKAGE-NAME PKG]
+               [USERS (SORT UNSORTED (FUNCTION (LAMBDA (X Y)
+                                                 (ALPHORDER (CADR X)
+                                                        (CADR Y]
+               [ITEMS (FOR X IN (APPEND MAIN USERS SYSPKG) COLLECT (LIST (CADR X)
+                                                                         (CAR X]
+               (SELECTION (MENU (create MENU
+                                       TITLE _ "Select package"
+                                       ITEMS _ ITEMS
+                                       CENTERFLG _ T]
+          (IF SELECTION
+              THEN (IF (SHIFTDOWNP 'SHIFT)
+                       THEN (WHO-LINE-COPY-INSERT (CONCAT (CADR SELECTION)
+                                                         ":"))
+                     ELSE (CL:IN-PACKAGE (CAR SELECTION])
 
 (SET-TTY-PACKAGE-INTERACTIVELY
 (LAMBDA NIL (* smL "28-Oct-86 09:49") (* ;;; "") (* ;;; "Interactivly let the user change the package of the current TTY process") (* ;;; "") (PROCESS.EVAL (TTY.PROCESS) (QUOTE (SET-PACKAGE-INTERACTIVELY)) T))
@@ -681,15 +708,15 @@ Copyright (c) 1986-1989, 1994, 1998, 2001, 2021 by Xerox Corporation.
 )
 
 (DEFGLOBALVAR *WHO-LINE-PACKAGE-NAME-CACHE* (LIST NIL)
-                                                
+                                            
                          "An AList used to cache package names, together with their terminating ':'s")
 
 (CL:DEFPARAMETER *WHO-LINE-PACKAGE-ENTRY* '("Pkg" (CURRENT-TTY-PACKAGE)
-                                                      10 SET-TTY-PACKAGE-INTERACTIVELY (SETQ 
+                                                  10 SET-TTY-PACKAGE-INTERACTIVELY (SETQ 
                                                                         *WHO-LINE-PACKAGE-NAME-CACHE*
-                                                                                        (LIST NIL))
-                                                      "Package of the current TTY process")
-                                              
+                                                                                    (LIST NIL))
+                                                  "Package of the current TTY process")
+                                          
                                "Who-Line entry for displaying the package of the current TTY process")
 
 
@@ -717,9 +744,9 @@ Copyright (c) 1986-1989, 1994, 1998, 2001, 2021 by Xerox Corporation.
 )
 
 (CL:DEFPARAMETER *WHO-LINE-READTABLE-ENTRY* '("Rdtbl" (CURRENT-TTY-READTABLE-NAME)
-                                                        10 SET-TTY-READTABLE-INTERACTIVELY NIL 
-                                                        "Readtable of the current TTY process")
-                                                
+                                                    10 SET-TTY-READTABLE-INTERACTIVELY NIL 
+                                                    "Readtable of the current TTY process")
+                                            
                  "Who-Line entry for displaying the name of the ReadTable of the current TTY process")
 
 
@@ -743,9 +770,9 @@ Copyright (c) 1986-1989, 1994, 1998, 2001, 2021 by Xerox Corporation.
 )
 
 (CL:DEFPARAMETER *WHO-LINE-TTY-PROC-ENTRY* '("Tty" (WHO-LINE-TTY-PROCESS)
-                                                       15 CHANGE-TTY-PROCESS-INTERACTIVELY NIL 
-                                                       "The current TTY process")
-                                               
+                                                   15 CHANGE-TTY-PROCESS-INTERACTIVELY NIL 
+                                                   "The current TTY process")
+                                           
                                   "Who-Line entry for displaying the name of the current TTY process")
 
 
@@ -763,58 +790,59 @@ Copyright (c) 1986-1989, 1994, 1998, 2001, 2021 by Xerox Corporation.
 (LAMBDA NIL (* ; "Edited  3-Feb-89 14:52 by smL") (* ;;; "Get the currently connected directory") (* ;; "First, update the cached directory / namestring pair to reflect the current TTY proc") (DECLARE (GLOBALVARS *WHO-LINE-LAST-DIRECTORY*)) (* ;; "The connected directory is looked up in the TTY process, in case one day it becomes a per-process var") (LET ((CONNECTED-DIRECTORY (PROCESS.EVALV (TTY.PROCESS) (QUOTE *DEFAULT-PATHNAME-DEFAULTS*)))) (* ; "The CAR contains the path, the CDR contains a string version of the path") (if (NEQ CONNECTED-DIRECTORY (CAR *WHO-LINE-LAST-DIRECTORY*)) then (* ; "The connected directory has changed") (change (CAR *WHO-LINE-LAST-DIRECTORY*) CONNECTED-DIRECTORY) (* ; "Put the host name last, since that is least important") (change (CDR *WHO-LINE-LAST-DIRECTORY*) (if (CL:PATHNAME-DIRECTORY CONNECTED-DIRECTORY) then (CONCAT (CL:PATHNAME-DIRECTORY CONNECTED-DIRECTORY) " on {" (CL:PATHNAME-HOST CONNECTED-DIRECTORY) "}") else (CONCAT "{" (CL:PATHNAME-HOST CONNECTED-DIRECTORY) "}"))) (* ; "Update the list of known directories") (LET ((DIR-NAME (CL:NAMESTRING CONNECTED-DIRECTORY))) (if (NOT (CL:MEMBER DIR-NAME *WHO-LINE-DIRECTORIES* :TEST (CL:FUNCTION STRING-EQUAL))) then (MERGEINSERT DIR-NAME (SORT *WHO-LINE-DIRECTORIES* (CL:FUNCTION UALPHORDER))))))) (* ;; "Return the namestring of the current dir") (CDR *WHO-LINE-LAST-DIRECTORY*))
 )
 
-(SET-CONNECTED-DIRECTORY-INTERACTIVELY
-  (LAMBDA NIL                                                (* ; "Edited  9-Jun-87 08:57 by smL")
+(SET-CONNECTED-DIRECTORY-INTERACTIVELY
+  [LAMBDA NIL                                                (* ; "Edited 12-Apr-2023 08:00 by lmm")
+                                                             (* ; "Edited  9-Jun-87 08:57 by smL")
 
-(* ;;; "Let the user interactivly change the current connected directory")
+(* ;;; "Let the user interactivly change the current connected directory")
 
-    (DECLARE (GLOBALVARS *WHO-LINE-DIRECTORIES*))
-          
-          (* ;; "If the user selects an item while holding down a shift key, copy-insert the name of the directory instead of connecting to it")
+    (DECLARE (GLOBALVARS *WHO-LINE-DIRECTORIES*))
 
-    (if (SHIFTDOWNP 'SHIFT)
-        then (LET ((NEW-DIRECTORY (MENU (create MENU
+    (* ;; "If the user selects an item while holding down a shift key, copy-insert the name of the directory instead of connecting to it")
+
+    (SETQ *WHO-LINE-DIRECTORIES* (SUBSET *WHO-LINE-DIRECTORIES* (FUNCTION DIRECTORYNAMEP)))
+    (IF (SHIFTDOWNP 'SHIFT)
+        THEN (LET [(NEW-DIRECTORY (MENU (create MENU
                                                TITLE _ "Type in directory name:"
-                                               ITEMS _ *WHO-LINE-DIRECTORIES*))))
-                  (if NEW-DIRECTORY
-                      then (WHO-LINE-COPY-INSERT NEW-DIRECTORY)))
-      else (LET ((NEW-DIRECTORY (MENU (create MENU
+                                               ITEMS _ *WHO-LINE-DIRECTORIES*]
+                  (IF NEW-DIRECTORY
+                      THEN (WHO-LINE-COPY-INSERT NEW-DIRECTORY)))
+      ELSE (LET [(NEW-DIRECTORY (MENU (create MENU
                                              TITLE _ "Connect to:"
-                                             ITEMS _ (CONS "* Other *" *WHO-LINE-DIRECTORIES*)))))
-                (if NEW-DIRECTORY
-                    then (if (STRING-EQUAL NEW-DIRECTORY "* Other *")
-                             then (CLEARW PROMPTWINDOW)
+                                             ITEMS _ (CONS "* Other *" *WHO-LINE-DIRECTORIES*]
+                (if NEW-DIRECTORY
+                    then (if (STRING-EQUAL NEW-DIRECTORY "* Other *")
+                             then (CLEARW PROMPTWINDOW)
                                   (SETQ NEW-DIRECTORY (PROMPTFORWORD "Connect to directory "
                                                              (CL:NAMESTRING (PROCESS.EVALV
                                                                              (TTY.PROCESS)
+                                                                             
                                                                              '
                                                                           *DEFAULT-PATHNAME-DEFAULTS*
                                                                              ))
                                                              NIL PROMPTWINDOW NIL 'TTY NIL)))
-                         (if NEW-DIRECTORY
-                             then (ALLOW.BUTTON.EVENTS)      (* ; 
-   "Should do this in the current TTY process, in case the conntected directory is a per-process var")
-
-                                  (CNDIR NEW-DIRECTORY)))))))
+                         (if NEW-DIRECTORY
+                             then (ALLOW.BUTTON.EVENTS)      (* ; 
+   "Should do this in the current TTY process, in case the conntected directory is a per-process var")
+                                  (CNDIR NEW-DIRECTORY])
 )
 
 (DEFGLOBALVAR *WHO-LINE-DIRECTORIES* `(,LOGINHOST/DIR)
-                                         
+                                     
                                   "Cached list of known directories for the Who-Line Directory entry")
 
-(DEFGLOBALVAR *WHO-LINE-LAST-DIRECTORY* (LET ((NAMESTRING (CL:NAMESTRING 
-                                                                     *DEFAULT-PATHNAME-DEFAULTS*)))
-                                                 (CONS (PATHNAME NAMESTRING)
-                                                       (MKSTRING NAMESTRING)))
-                                            
+(DEFGLOBALVAR *WHO-LINE-LAST-DIRECTORY* (LET ((NAMESTRING (CL:NAMESTRING *DEFAULT-PATHNAME-DEFAULTS*)
+                                                     ))
+                                             (CONS (PATHNAME NAMESTRING)
+                                                   (MKSTRING NAMESTRING)))
+                                        
                     "Cached name of the current connected directory for the Who-Line Directory entry")
 
 (CL:DEFPARAMETER *WHO-LINE-DIRECTORY-ENTRY* '("Dir" (WHO-LINE-CURRENT-DIRECTORY)
-                                                        30 SET-CONNECTED-DIRECTORY-INTERACTIVELY
-                                                        (SETQ *WHO-LINE-LAST-DIRECTORY*
-                                                         (CONS NIL NIL))
-                                                        "The currently connected directory")
-                                                
+                                                    30 SET-CONNECTED-DIRECTORY-INTERACTIVELY
+                                                    (SETQ *WHO-LINE-LAST-DIRECTORY* (CONS NIL NIL))
+                                                    "The currently connected directory")
+                                            
                         "Who-Line entry for displaying the name of the currently connected directory")
 
 
@@ -887,15 +915,14 @@ Copyright (c) 1986-1989, 1994, 1998, 2001, 2021 by Xerox Corporation.
 )
 
 (DEFGLOBALVAR *WHO-LINE-LAST-VMEM* (LIST 0 NIL NIL)
-                                       
+                                   
                      "Cached value for storing the last VMem information for the Who-Line VMem entry")
 
 (CL:DEFPARAMETER *WHO-LINE-VMEM-ENTRY* '("VMem" (WHO-LINE-VMEM)
-                                                   5 WHO-LINE-SAVE-VMEM (SETQ *WHO-LINE-LAST-VMEM*
-                                                                         (LIST 0 NIL NIL))
-                                                   "Percentage of VMem currently in use")
-                                           
-                                         "Who-Line entry for displaying the current VMem utilization")
+                                               5 WHO-LINE-SAVE-VMEM (SETQ *WHO-LINE-LAST-VMEM*
+                                                                     (LIST 0 NIL NIL))
+                                               "Percentage of VMem currently in use")
+                                       "Who-Line entry for displaying the current VMem utilization")
 (DECLARE%: EVAL@COMPILE DONTCOPY DONTEVAL@LOAD 
 
 (FILESLOAD (LOADCOMP)
@@ -938,15 +965,13 @@ Copyright (c) 1986-1989, 1994, 1998, 2001, 2021 by Xerox Corporation.
         (CL:THIRD *WHO-LINE-SYMBOL-SPACE*)))
 
 (DEFGLOBALVAR *WHO-LINE-SYMBOL-SPACE* (LIST NIL NIL NIL 
-                                                "Remembers the previous who-line symbol space"))
+                                            "Remembers the previous who-line symbol space"))
 
 (CL:DEFPARAMETER *WHO-LINE-SYMBOL-SPACE-ENTRY* '("Syms" (WHO-LINE-SYMBOL-SPACE)
-                                                           4 NIL (SETQ *WHO-LINE-SYMBOL-SPACE*
-                                                                  (LIST NIL NIL NIL))
-                                                           
-                                                        "Percentage of symbol space currently in use"
-                                                           )
-                                                   
+                                                       4 NIL (SETQ *WHO-LINE-SYMBOL-SPACE*
+                                                              (LIST NIL NIL NIL))
+                                                       "Percentage of symbol space currently in use")
+                                               
                                        "Who-line entry for displaying percent of symbol space in use")
 
 
@@ -991,13 +1016,13 @@ Copyright (c) 1986-1989, 1994, 1998, 2001, 2021 by Xerox Corporation.
 )
 
 (DEFGLOBALVAR *WHO-LINE-TIMER* (SETUPTIMER (DIFFERENCE 60 (REMAINDER (IDATE)
-                                                                     60))
-                                          NIL
-                                          'SECONDS)
-                                   "Timer for controlling updates of the Who-Line Time entry")
+                                                                 60))
+                                      NIL
+                                      'SECONDS)
+                               "Timer for controlling updates of the Who-Line Time entry")
 
 (DEFGLOBALVAR *WHO-LINE-OLD-TIME* (DATE (DATEFORMAT NO.SECONDS))
-                                      "Cached value for the Who-Line Time entry")
+                                  "Cached value for the Who-Line Time entry")
 
 (CL:DEFPARAMETER *WHO-LINE-TIME-ENTRY*
    '("Time" (WHO-LINE-TIME)
@@ -1082,15 +1107,14 @@ Copyright (c) 1986-1989, 1994, 1998, 2001, 2021 by Xerox Corporation.
    "Interval between updating the Who-Line activity entry")
 
 (DEFGLOBALVAR *WHO-LINE-ACTIVE-TIMER* (SETUPTIMER *WHO-LINE-ACTIVE-PERIOD* NIL 'MILLISECONDS)
-                                          
                                       "Timer for controlling updating of the Who-Line activity entry")
 
 (CL:DEFPARAMETER *WHO-LINE-SHOW-ACTIVE-ENTRY* '("" (WHO-LINE-SHOW-ACTIVE)
-                                                       2 NIL (SETQ *WHO-LINE-ACTIVE-TIMER*
-                                                              (SETUPTIMER *WHO-LINE-ACTIVE-PERIOD* 
-                                                                     NIL 'MILLISECONDS))
-                                                       "Indication of machine activity")
-                                                  
+                                                   2 NIL (SETQ *WHO-LINE-ACTIVE-TIMER*
+                                                          (SETUPTIMER *WHO-LINE-ACTIVE-PERIOD* NIL
+                                                                 'MILLISECONDS))
+                                                   "Indication of machine activity")
+                                              
                                           "Who-Line entry for displaying the activity of the machine")
 (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE 
 
@@ -1122,10 +1146,10 @@ Copyright (c) 1986-1989, 1994, 1998, 2001, 2021 by Xerox Corporation.
 )
 
 (CL:DEFPARAMETER *WHO-LINE-PROFILE-ENTRY* '("Profile" (CURRENT-PROFILE)
-                                                      10 SET-TTY-PROFILE-INTERACTIVELY NIL 
+                                                  10 SET-TTY-PROFILE-INTERACTIVELY NIL 
                                                   "The read/write profile of the current TTY process"
-                                                      )
-                                              
+                                                  )
+                                          
                                        "Who-Line entry for displaying the current read/write profile")
 
 
@@ -1176,15 +1200,15 @@ Copyright (c) 1986-1989, 1994, 1998, 2001, 2021 by Xerox Corporation.
    "Cached state shown in the Who-Line State entry")
 
 (DEFGLOBALVAR *WHO-LINE-STATE-UNINTERESTING-FNS* '(BLOCK ERRORSET OBTAIN.MONITORLOCK 
-                                                             MONITOR.AWAIT.EVENT AWAIT.EVENT 
-                                                             SI::*UNWIND-PROTECT*)
-                                                     
+                                                         MONITOR.AWAIT.EVENT AWAIT.EVENT 
+                                                         SI::*UNWIND-PROTECT*)
+                                                 
                                          "Uninteresting fns to skip over in the Who-Line State entry")
 
 (CL:DEFPARAMETER *WHO-LINE-TTY-STATE-ENTRY* '("State" (WHO-LINE-TTY-STATE)
-                                                        15 NIL (SETQ *WHO-LINE-STATE* NIL)
-                                                        "Running state of the current TTY process")
-                                                
+                                                    15 NIL (SETQ *WHO-LINE-STATE* NIL)
+                                                    "Running state of the current TTY process")
+                                            
                             "Who-Line entry for showing the running state of the current TTY process")
 
 (PUTPROPS AWAIT.EVENT WHO-LINE-STATE "Block")
@@ -1222,9 +1246,8 @@ Copyright (c) 1986-1989, 1994, 1998, 2001, 2021 by Xerox Corporation.
 
 
 (DEFGLOBALVAR *WHO-LINE-ENTRIES*
-   `(,*WHO-LINE-USER-ENTRY* ,*WHO-LINE-PACKAGE-ENTRY* ,*WHO-LINE-READTABLE-ENTRY* 
-           ,*WHO-LINE-TTY-PROC-ENTRY* ,*WHO-LINE-DIRECTORY-ENTRY* ,*WHO-LINE-VMEM-ENTRY* 
-           ,*WHO-LINE-TIME-ENTRY*)
+   `(,*WHO-LINE-PACKAGE-ENTRY* ,*WHO-LINE-READTABLE-ENTRY* ,*WHO-LINE-TTY-PROC-ENTRY* 
+           ,*WHO-LINE-DIRECTORY-ENTRY* ,*WHO-LINE-VMEM-ENTRY* ,*WHO-LINE-TIME-ENTRY*)
    "List of all the entries to show in the Who-Line")
 
 (DEFGLOBALVAR *WHO-LINE-ENTRY-REGISTRY*
@@ -1235,13 +1258,13 @@ Copyright (c) 1986-1989, 1994, 1998, 2001, 2021 by Xerox Corporation.
    "List of all known Who-Line entries.")
 
 (DEFGLOBALVAR *WHO-LINE-ANCHOR* '(:CENTER :TOP)
-                                    "Location to place the Who-Line")
+                                "Location to place the Who-Line")
 
 (DEFGLOBALVAR *WHO-LINE-NAME-FONT* (FONTCREATE '(HELVETICA 8 BOLD))
-                                       "Font to use to show entry labels in the Who-Line")
+                                   "Font to use to show entry labels in the Who-Line")
 
 (DEFGLOBALVAR *WHO-LINE-VALUE-FONT* (FONTCREATE '(GACHA 8))
-                                        "Font to use to show the entry values in the Who-Line")
+                                    "Font to use to show the entry values in the Who-Line")
 
 (DEFGLOBALVAR *WHO-LINE-DISPLAY-NAMES?* T
    "Flag for enabling or disabling the display of entry names in the Who-Line")
@@ -1578,15 +1601,15 @@ Copyright (c) 1986-1989, 1994, 1998, 2001, 2021 by Xerox Corporation.
 
 (DEFMACRO INVERT-WHO-LINE-ENTRY (ENTRY WINDOW)
    `(WITH WHO-LINE-ENTRY ,ENTRY (BLTSHADE BLACKSHADE ,WINDOW NAME-START 0 (DIFFERENCE VALUE-END 
-                                                                                     NAME-START)
-                                           NIL
-                                           'INVERT)
-           (CHANGE INVERTED? (NOT INVERTED?))))
+                                                                                 NAME-START)
+                                       NIL
+                                       'INVERT)
+          (CHANGE INVERTED? (NOT INVERTED?))))
 (DECLARE%: DONTCOPY 
 (DECLARE%: EVAL@COMPILE
 
 (RECORD WHO-LINE-ENTRY (NAME FORM NAME-START VALUE-START VALUE-END PREV-VALUE WHEN-SELECTED-FN 
-                                 INVERTED? RESET-FORM DESCRIPTION))
+                             INVERTED? RESET-FORM DESCRIPTION))
 )
 )
 
@@ -1606,7 +1629,7 @@ Copyright (c) 1986-1989, 1994, 1998, 2001, 2021 by Xerox Corporation.
         `(LET ((,LOCK (OBTAIN.MONITORLOCK (WINDOWPROP ,WHO-LINE 'LOCK)
                              T)))
               (CL:UNWIND-PROTECT                             (* ; 
-                                                           "Only eval the forms if we got the lock")
+                                                             "Only eval the forms if we got the lock")
                   (COND
                      (,LOCK ,@FORMS))
 
@@ -1614,13 +1637,13 @@ Copyright (c) 1986-1989, 1994, 1998, 2001, 2021 by Xerox Corporation.
 
                   [COND
                      ((EQ ,LOCK T)                           (* ; 
-                                                    "Had the lock before, so no need to release it")
+                                                      "Had the lock before, so no need to release it")
                       NIL)
                      ((NULL ,LOCK)                           (* ; 
-                                                  "Couldn't get the lock, so no need to release it")
+                                                    "Couldn't get the lock, so no need to release it")
                       NIL)
                      (T                                      (* ; 
-                                                          "We got the lock, and need to release it")
+                                                            "We got the lock, and need to release it")
                         (RELEASE.MONITORLOCK ,LOCK])])
 
 
@@ -1656,24 +1679,25 @@ Copyright (c) 1986-1989, 1994, 1998, 2001, 2021 by Xerox Corporation.
 
 (PUTPROPS WHO-LINE FILETYPE :COMPILE-FILE)
 )
-(PUTPROPS WHO-LINE COPYRIGHT ("Xerox Corporation" 1986 1987 1988 1989 1994 1998 2001 2021))
+(PUTPROPS WHO-LINE COPYRIGHT ("Xerox Corporation" 1986 1987 1988 1989 1994 1998 2001 2021 2023))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (7778 23157 (INSTALL-WHO-LINE-OPTIONS 7788 . 23155)) (23433 24602 (WHO-LINE-USERNAME 
-23443 . 24090) (WHO-LINE-CHANGE-USER 24092 . 24398) (WHO-LINE-USER-AFTER-LOGIN 24400 . 24600)) (25504 
-25983 (WHO-LINE-HOST-NAME 25514 . 25981)) (26695 29324 (CURRENT-TTY-PACKAGE 26705 . 27657) (
-SET-PACKAGE-INTERACTIVELY 27659 . 29078) (SET-TTY-PACKAGE-INTERACTIVELY 29080 . 29322)) (30244 31296 (
-CURRENT-TTY-READTABLE-NAME 30254 . 30508) (SET-READTABLE-INTERACTIVELY 30510 . 31044) (
-SET-TTY-READTABLE-INTERACTIVELY 31046 . 31294)) (31811 32383 (WHO-LINE-TTY-PROCESS 31821 . 31999) (
-CHANGE-TTY-PROCESS-INTERACTIVELY 32001 . 32381)) (32884 36355 (WHO-LINE-CURRENT-DIRECTORY 32894 . 
-34301) (SET-CONNECTED-DIRECTORY-INTERACTIVELY 34303 . 36353)) (37720 40173 (WHO-LINE-VMEM 37730 . 
-39920) (WHO-LINE-SAVE-VMEM 39922 . 40171)) (41097 42239 (WHO-LINE-SYMBOL-SPACE 41097 . 42239)) (43107 
-44545 (WHO-LINE-TIME 43117 . 43859) (WHO-LINE-SET-TIME 43861 . 44543)) (46079 48712 (
-WHO-LINE-SHOW-ACTIVE 46089 . 46867) (\UPDATE-WHO-LINE-ACTIVE-FLAG 46869 . 47837) (
-\PERIODICALLY-WHO-LINE-SHOW-ACTIVE 47839 . 48710)) (49873 50798 (CURRENT-PROFILE 49883 . 50128) (
-SET-PROFILE-INTERACTIVELY 50130 . 50533) (SET-TTY-PROFILE-INTERACTIVELY 50535 . 50796)) (51360 53343 (
-WHO-LINE-TTY-STATE 51370 . 52531) (WHO-LINE-WHAT-IS-RUNNING 52533 . 53341)) (56897 70023 (
-REDISPLAY-WHO-LINE 56907 . 59467) (PERIODICALLY-UPDATE-WHO-LINE 59469 . 60607) (SETUP-WHOLINE-TIMER 
-60609 . 60827) (UPDATE-WHO-LINE 60829 . 63897) (WHEN-WHO-LINE-SELECTED-FN 63899 . 67166) (
-WHO-LINE-CONTROL-SELECT 67168 . 69627) (WHO-LINE-COPY-INSERT 69629 . 70021)) (70024 71158 (
-WHO-LINE-REDISPLAY-INTERRUPT 70034 . 71156)))))
+  (FILEMAP (NIL (7838 23217 (INSTALL-WHO-LINE-OPTIONS 7848 . 23215)) (23493 24662 (WHO-LINE-USERNAME 
+23503 . 24150) (WHO-LINE-CHANGE-USER 24152 . 24458) (WHO-LINE-USER-AFTER-LOGIN 24460 . 24660)) (25470 
+26206 (WHO-LINE-HOST-NAME 25480 . 26204)) (26906 30232 (CURRENT-TTY-PACKAGE 26916 . 27868) (
+SET-PACKAGE-INTERACTIVELY 27870 . 29986) (SET-TTY-PACKAGE-INTERACTIVELY 29988 . 30230)) (31132 32184 (
+CURRENT-TTY-READTABLE-NAME 31142 . 31396) (SET-READTABLE-INTERACTIVELY 31398 . 31932) (
+SET-TTY-READTABLE-INTERACTIVELY 31934 . 32182)) (32687 33259 (WHO-LINE-TTY-PROCESS 32697 . 32875) (
+CHANGE-TTY-PROCESS-INTERACTIVELY 32877 . 33257)) (33748 37557 (WHO-LINE-CURRENT-DIRECTORY 33758 . 
+35165) (SET-CONNECTED-DIRECTORY-INTERACTIVELY 35167 . 37555)) (38817 41270 (WHO-LINE-VMEM 38827 . 
+41017) (WHO-LINE-SAVE-VMEM 41019 . 41268)) (42132 43274 (WHO-LINE-SYMBOL-SPACE 42132 . 43274)) (44005 
+45443 (WHO-LINE-TIME 44015 . 44757) (WHO-LINE-SET-TIME 44759 . 45441)) (46957 49590 (
+WHO-LINE-SHOW-ACTIVE 46967 . 47745) (\UPDATE-WHO-LINE-ACTIVE-FLAG 47747 . 48715) (
+\PERIODICALLY-WHO-LINE-SHOW-ACTIVE 48717 . 49588)) (50687 51612 (CURRENT-PROFILE 50697 . 50942) (
+SET-PROFILE-INTERACTIVELY 50944 . 51347) (SET-TTY-PROFILE-INTERACTIVELY 51349 . 51610)) (52162 54145 (
+WHO-LINE-TTY-STATE 52172 . 53333) (WHO-LINE-WHAT-IS-RUNNING 53335 . 54143)) (57628 70754 (
+REDISPLAY-WHO-LINE 57638 . 60198) (PERIODICALLY-UPDATE-WHO-LINE 60200 . 61338) (SETUP-WHOLINE-TIMER 
+61340 . 61558) (UPDATE-WHO-LINE 61560 . 64628) (WHEN-WHO-LINE-SELECTED-FN 64630 . 67897) (
+WHO-LINE-CONTROL-SELECT 67899 . 70358) (WHO-LINE-COPY-INSERT 70360 . 70752)) (70755 71889 (
+WHO-LINE-REDISPLAY-INTERRUPT 70765 . 71887)) (72291 72677 (INVERT-WHO-LINE-ENTRY 72291 . 72677)) (
+72981 73153 (WITH-WHO-LINE 72981 . 73153)) (73155 74399 (WITH-AVAILABLE-WHO-LINE 73155 . 74399)))))
 STOP
diff --git a/lispusers/WHO-LINE.DFASL b/lispusers/WHO-LINE.DFASL
index 5fdbe0ac..9ab904e6 100644
Binary files a/lispusers/WHO-LINE.DFASL and b/lispusers/WHO-LINE.DFASL differ
diff --git a/sources/DMISC b/sources/DMISC
index ebf93839..3d263a27 100644
--- a/sources/DMISC
+++ b/sources/DMISC
@@ -1,11 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED " 6-Jan-2022 19:08:15" {DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>DMISC.;3 45512  
+(FILECREATED " 8-Apr-2023 13:56:13" {DSK}<home>larry>il>medley>sources>DMISC.;2 45464  
 
-      :CHANGES-TO (FNS FLASHWINDOW)
+      :EDIT-BY "lmm"
 
-      :PREVIOUS-DATE "16-May-90 15:53:57" 
-{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>DMISC.;1)
+      :CHANGES-TO (FNS RINGBELLS)
+
+      :PREVIOUS-DATE " 6-Jan-2022 19:08:15" {DSK}<home>larry>il>medley>sources>DMISC.;1)
 
 
 (* ; "
@@ -216,16 +217,14 @@ with the terms of said license.
 (DEFINEQ
 
 (RINGBELLS
-  [LAMBDA (N)                                         (* ; "Edited 10-May-88 23:01 by MASINTER")
+  [LAMBDA (N)                                                (* ; "Edited  8-Apr-2023 13:30 by lmm")
+                                                          (* ; "Edited 10-May-88 23:01 by MASINTER")
     (DECLARE (GLOBALVARS RINGBELLS.L1 RINGBELLS.L2))
     (OR (FIXP N)
         (SETQ N 1))
-    (SELECTC \MACHINETYPE
-        ((LIST \DAYBREAK \DANDELION \MAIKO) 
-             (to N do (PLAYTUNE RINGBELLS.L1)
-                             (FLASHWINDOW NIL NIL 100)
-                             (PLAYTUNE RINGBELLS.L2)))
-        (FLASHWINDOW NIL N])
+    (to N do (PLAYTUNE RINGBELLS.L1)
+             (FLASHWINDOW NIL NIL 100)
+             (PLAYTUNE RINGBELLS.L2])
 
 (FLASHWINDOW
   [LAMBDA (WIN? N FLASHINTERVAL SHADE)                       (* ; "Edited  6-Jan-2022 19:08 by rmk")
@@ -951,22 +950,22 @@ with the terms of said license.
 (PUTPROPS DMISC COPYRIGHT ("Venue & Xerox Corporation" T 1982 1983 1984 1985 1986 1987 1988 1989 1990)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4747 5450 (BACKSPACEDEL 4757 . 5448)) (5545 5978 (PERIODICALLYRECLAIM 5555 . 5976)) (
-6208 7899 (\DIRTYBACKGROUND 6218 . 6640) (\SAVEVMBACKGROUND 6642 . 7426) (COPYVM 7428 . 7897)) (8320 
-9519 (SETTIME 8330 . 9517)) (9520 13551 (RINGBELLS 9530 . 10023) (FLASHWINDOW 10025 . 11953) (PLAYTUNE
- 11955 . 13549)) (13813 19345 (DISPLAYDOWN 13823 . 14211) (SETDISPLAYHEIGHT 14213 . 17013) (VIDEORATE 
-17015 . 19343)) (19769 20490 (DOAROUNDEXITFORMS 19779 . 20488)) (20693 22408 (REALMEMORYSIZE 20703 . 
-20861) (LISPVERSION 20863 . 21016) (MICROCODEVERSION 21018 . 21176) (BCPLVERSION 21178 . 21331) (
-REQUIREVERSION 21333 . 22406)) (22445 27023 (APROPOS 22455 . 26471) (APROPRINT 26473 . 27021)) (27049 
-30957 (READPRINTERPORT 27059 . 27200) (WRITEPRINTERPORT 27202 . 27357) (\READPRINTERPORT.UFN 27359 . 
-27548) (\WRITEPRINTERPORT.UFN 27550 . 27748) (\MISC1.UFN 27750 . 27903) (\MISC2.UFN 27905 . 28143) (
-\MISC3.UFN 28145 . 28878) (\MISC4.UFN 28880 . 29430) (\MISC5.UFN 29432 . 29585) (\MISC6.UFN 29587 . 
-29837) (\MISC7.UFN 29839 . 30324) (\MISC8.UFN 30326 . 30627) (\MISC10.UFN 30629 . 30955)) (31011 38460
- (\BLKFDIFF.UFN 31021 . 31586) (\BLKFPLUS.UFN 31588 . 32160) (\BLKFTIMES.UFN 32162 . 32737) (
-\BLKSEP.UFN 32739 . 33870) (\BLKPERM.UFN 33872 . 34341) (\BLKEXPONENT.UFN 34343 . 34753) (
-\BLKFLOATP2COMP.UFN 34755 . 35339) (\BLKSMALLP2FLOAT.UFN 35341 . 35700) (\BLKMAG.UFN 35702 . 36353) (
-\FLOATTOBYTE.UFN 36355 . 36934) (\BLKFMAX.UFN 36936 . 37328) (\BLKFMIN.UFN 37330 . 37719) (
-\BLKFABSMAX.UFN 37721 . 38090) (\BLKFABSMIN.UFN 38092 . 38458)) (38500 40318 (\P-MISC2.UFN 38510 . 
-38751) (\LINES-EQUAL-P 38753 . 39137) (\GET-NEXT-RUN 39139 . 40316)) (40319 44498 (IBLT1 40329 . 42331
-) (IBLT2 42333 . 44496)))))
+  (FILEMAP (NIL (4732 5435 (BACKSPACEDEL 4742 . 5433)) (5530 5963 (PERIODICALLYRECLAIM 5540 . 5961)) (
+6193 7884 (\DIRTYBACKGROUND 6203 . 6625) (\SAVEVMBACKGROUND 6627 . 7411) (COPYVM 7413 . 7882)) (8305 
+9504 (SETTIME 8315 . 9502)) (9505 13503 (RINGBELLS 9515 . 9975) (FLASHWINDOW 9977 . 11905) (PLAYTUNE 
+11907 . 13501)) (13765 19297 (DISPLAYDOWN 13775 . 14163) (SETDISPLAYHEIGHT 14165 . 16965) (VIDEORATE 
+16967 . 19295)) (19721 20442 (DOAROUNDEXITFORMS 19731 . 20440)) (20645 22360 (REALMEMORYSIZE 20655 . 
+20813) (LISPVERSION 20815 . 20968) (MICROCODEVERSION 20970 . 21128) (BCPLVERSION 21130 . 21283) (
+REQUIREVERSION 21285 . 22358)) (22397 26975 (APROPOS 22407 . 26423) (APROPRINT 26425 . 26973)) (27001 
+30909 (READPRINTERPORT 27011 . 27152) (WRITEPRINTERPORT 27154 . 27309) (\READPRINTERPORT.UFN 27311 . 
+27500) (\WRITEPRINTERPORT.UFN 27502 . 27700) (\MISC1.UFN 27702 . 27855) (\MISC2.UFN 27857 . 28095) (
+\MISC3.UFN 28097 . 28830) (\MISC4.UFN 28832 . 29382) (\MISC5.UFN 29384 . 29537) (\MISC6.UFN 29539 . 
+29789) (\MISC7.UFN 29791 . 30276) (\MISC8.UFN 30278 . 30579) (\MISC10.UFN 30581 . 30907)) (30963 38412
+ (\BLKFDIFF.UFN 30973 . 31538) (\BLKFPLUS.UFN 31540 . 32112) (\BLKFTIMES.UFN 32114 . 32689) (
+\BLKSEP.UFN 32691 . 33822) (\BLKPERM.UFN 33824 . 34293) (\BLKEXPONENT.UFN 34295 . 34705) (
+\BLKFLOATP2COMP.UFN 34707 . 35291) (\BLKSMALLP2FLOAT.UFN 35293 . 35652) (\BLKMAG.UFN 35654 . 36305) (
+\FLOATTOBYTE.UFN 36307 . 36886) (\BLKFMAX.UFN 36888 . 37280) (\BLKFMIN.UFN 37282 . 37671) (
+\BLKFABSMAX.UFN 37673 . 38042) (\BLKFABSMIN.UFN 38044 . 38410)) (38452 40270 (\P-MISC2.UFN 38462 . 
+38703) (\LINES-EQUAL-P 38705 . 39089) (\GET-NEXT-RUN 39091 . 40268)) (40271 44450 (IBLT1 40281 . 42283
+) (IBLT2 42285 . 44448)))))
 STOP
diff --git a/sources/DMISC.LCOM b/sources/DMISC.LCOM
index dc279688..dd5ff41c 100644
Binary files a/sources/DMISC.LCOM and b/sources/DMISC.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
