diff --git a/greetfiles/MEDLEYDIR-INIT b/greetfiles/MEDLEYDIR-INIT
index bc274aea..5b04619c 100644
--- a/greetfiles/MEDLEYDIR-INIT
+++ b/greetfiles/MEDLEYDIR-INIT
@@ -1,11 +1,8 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED " 2-Dec-2021 21:13:55" {DSK}<home>larry>medley>greetfiles>MEDLEYDIR-INIT.;3 2392   
+(FILECREATED "28-Feb-2022 21:13:20" {DSK}<home>larry>medley>greetfiles>MEDLEYDIR-INIT.;2 4677   
 
-      changes to%:  (VARS MEDLEYDIR-INITCOMS)
-                    (FNS INTERLISPMODE)
-
-      previous date%: "14-Nov-2021 22:34:49" {DSK}<home>larry>medley>greetfiles>MEDLEYDIR-INIT.;1)
+      :PREVIOUS-DATE "20-Feb-2022 11:47:18" {DSK}<home>larry>medley>greetfiles>MEDLEYDIR-INIT.;1)
 
 
 (PRETTYCOMPRINT MEDLEYDIR-INITCOMS)
@@ -16,14 +13,24 @@
                          "/sources/MEDLEYDIR.LCOM"))
            (MEDLEY-INIT-VARS)
            (KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE]
-        (FILES BACKGROUND-YIELD)
-        (VARS (FILING.ENUMERATION.DEPTH 1)
+        (FILES BACKGROUND-YIELD PAGEHOLD VTCHAT)
+        (VARS 
+              (* ;; "settings for new users")
+
+              (DWIMWAIT 180)
+              (HELPDEPTH 4)
+              (HELPTIME 10)
+              (FILING.ENUMERATION.DEPTH 1)
               [LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
                                            (UNIX-GETENV "HOME"]
               [USERGREETFILES `((,LOGINDIR "INIT" COM)
                                 (,LOGINDIR "INIT"]
-              (COPYRIGHTSRESERVED NIL))
-        (FNS INTERLISPMODE)))
+              (COPYRIGHTSRESERVED NIL)
+              (AUTOBACKTRACEFLG 'ALWAYS)
+              (MAXLEVEL 30000)
+              (MAXLOOP 30000))
+        (FNS INTERLISPMODE)
+        (ALISTS (FONTDEFS LARGER))))
 
 (LOAD? (CONCAT (OR (UNIX-GETENV "MEDLEYDIR")
                    "")
@@ -33,17 +40,29 @@
 
 (KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE))
 
-(FILESLOAD BACKGROUND-YIELD)
+(FILESLOAD BACKGROUND-YIELD PAGEHOLD VTCHAT)
+
+(RPAQQ DWIMWAIT 180)
+
+(RPAQQ HELPDEPTH 4)
+
+(RPAQQ HELPTIME 10)
 
 (RPAQQ FILING.ENUMERATION.DEPTH 1)
 
 (RPAQ LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
-                                      (UNIX-GETENV "HOME"))))
+                                  (UNIX-GETENV "HOME"))))
 
 (RPAQ USERGREETFILES `((,LOGINDIR "INIT" COM)
-                           (,LOGINDIR "INIT")))
+                       (,LOGINDIR "INIT")))
 
 (RPAQQ COPYRIGHTSRESERVED NIL)
+
+(RPAQQ AUTOBACKTRACEFLG ALWAYS)
+
+(RPAQQ MAXLEVEL 30000)
+
+(RPAQQ MAXLOOP 30000)
 (DEFINEQ
 
 (INTERLISPMODE
@@ -59,6 +78,45 @@
                                                             else "INTERLISP")
                                                :PACKAGE "INTERLISP"])
 )
+
+(ADDTOVAR FONTDEFS
+          [LARGER (FONTCHANGEFLG . ALL)
+                 (FILELINELENGTH . 102)
+                 (FONTPROFILE (DEFAULTFONT 1 (GACHA 12)
+                                     (GACHA 10)
+                                     (TERMINAL 10)
+                                     (POSTSCRIPT (TERMINAL 10)))
+                        (ITALICFONT 1 (HELVETICA 12 MIR)
+                               (GACHA 10 MIR)
+                               (MODERN 10 MIR)
+                               (POSTSCRIPT (MODERN 10 MIR)))
+                        (BOLDFONT 2 (HELVETICA 12 BRR)
+                               (HELVETICA 10 BRR)
+                               (MODERN 10 BRR)
+                               (POSTSCRIPT (HELVETICA 12 BRR)))
+                        (LITTLEFONT 3 (HELVETICA 10)
+                               (HELVETICA 6 MIR)
+                               (MODERN 10 MIR)
+                               (POSTSCRIPT (MODERN 10 MIR)))
+                        (TINYFONT 6 (GACHA 10)
+                               (GACHA 6)
+                               (TERMINAL 6)
+                               (POSTSCRIPT (TERMINAL 6)))
+                        (BIGFONT 4 (HELVETICA 12 BRR)
+                               NIL
+                               (MODERN 12 BRR)
+                               (POSTSCRIPT (MODERN 12 BRR)))
+                        (MENUFONT 5 (HELVETICA 12)
+                               (HELVETICA 12)
+                               (POSTSCRIPT (HELVETICA 12)))
+                        (COMMENTFONT 6 (HELVETICA 12)
+                               (HELVETICA 10)
+                               (MODERN 10)
+                               (POSTSCRIPT (MODERN 10)))
+                        (TEXTFONT 7 (TIMESROMAN 12)
+                               NIL
+                               (CLASSIC 12)
+                               (POSTSCRIPT (CLASSIC 12])
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1544 2369 (INTERLISPMODE 1554 . 2367)))))
+  (FILEMAP (NIL (1936 2761 (INTERLISPMODE 1946 . 2759)))))
 STOP
diff --git a/greetfiles/MEDLEYDIR-INIT.LCOM b/greetfiles/MEDLEYDIR-INIT.LCOM
index 7d2293bf..2c38d61c 100644
Binary files a/greetfiles/MEDLEYDIR-INIT.LCOM and b/greetfiles/MEDLEYDIR-INIT.LCOM differ
diff --git a/lispusers/KOTOLOGO b/obsolete/lispusers/KOTOLOGO
similarity index 100%
rename from lispusers/KOTOLOGO
rename to obsolete/lispusers/KOTOLOGO
diff --git a/lispusers/KOTOLOGO.TEDIT b/obsolete/lispusers/KOTOLOGO.TEDIT
similarity index 100%
rename from lispusers/KOTOLOGO.TEDIT
rename to obsolete/lispusers/KOTOLOGO.TEDIT
diff --git a/sources/POSTLOADUP b/obsolete/sources/POSTLOADUP
similarity index 100%
rename from sources/POSTLOADUP
rename to obsolete/sources/POSTLOADUP
diff --git a/sources/POSTLOADUP.LCOM b/obsolete/sources/POSTLOADUP.LCOM
similarity index 100%
rename from sources/POSTLOADUP.LCOM
rename to obsolete/sources/POSTLOADUP.LCOM
diff --git a/sources/LOADUP-FULL b/sources/LOADUP-FULL
index b9e62112..43ac0b07 100644
--- a/sources/LOADUP-FULL
+++ b/sources/LOADUP-FULL
@@ -1,10 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "15-Jan-2022 15:49:06" {DSK}<home>larry>medley>sources>LOADUP-FULL.;2 4784   
+(FILECREATED " 4-Mar-2022 19:17:17" {DSK}<home>larry>medley>sources>LOADUP-FULL.;2 4746   
 
       :CHANGES-TO (FNS LOADUP-FULL)
 
-      :PREVIOUS-DATE "29-Apr-2021 22:31:24" {DSK}<home>larry>medley>sources>LOADUP-FULL.;1)
+      :PREVIOUS-DATE " 2-Mar-2022 13:58:38" {DSK}<home>larry>medley>sources>LOADUP-FULL.;1)
 
 
 (PRETTYCOMPRINT LOADUP-FULLCOMS)
@@ -13,18 +13,15 @@
                         (FNS LOADFULLFONTS LOADUP-FULL FIXMETA)
                         (P (FIXMETA))))
 
-(DEFCOMMAND "cd" (DIR)
-   (/CNDIR DIR))
+(DEFCOMMAND "cd" (DIR) (/CNDIR DIR))
 
-(DEFCOMMAND "pwd" ()
-   (DIRECTORYNAME T))
+(DEFCOMMAND "pwd" NIL (DIRECTORYNAME T))
 
-(DEFCOMMAND "ls" (FIRST . REST)
-   (DODIR (CONS FIRST REST)))
+(DEFCOMMAND "ls" (FIRST . REST) (DODIR (CONS FIRST REST)))
 (DEFINEQ
 
 (LOADFULLFONTS
-  [LAMBDA NIL                                          (* ; "Edited 13-Feb-2021 22:51 by larry")
+  [LAMBDA NIL                                              (* ; "Edited 13-Feb-2021 22:51 by larry")
 
     (* ;; " Don't do Interpress. Do character set 0 and the symbol character sets 41Q, 42Q, 356Q, 357Q and extended and accented Latin 43Q and 361Q")
 
@@ -33,24 +30,23 @@
     (SETQ *POSTSCRIPT-FILE-TYPE* 'TEXT)
     (RESETVARS ((MISSINGDISPLAYFONTCOERCIONS NIL)
                 (MISSINGCHARSETDISPLAYFONTCOERCIONS NIL))    (* ; 
-                  "Don't let the font loader substitute just because a server went catatonic on us")
+                    "Don't let the font loader substitute just because a server went catatonic on us")
                (for FAMILY in '(CLASSIC MODERN TERMINAL)
                   do (PRINTOUT T "  Loading " FAMILY " ")
-                        [for SIZE in '(8 10 12)
-                           do (PRINTOUT T SIZE " ")
-                                 (for FACE in '(MRR BRR MIR)
-                                    do (for CSET
-                                              in '(0 33 34 35 238 239 241)
-                                              do (NLSETQ (FONTCREATE FAMILY SIZE FACE NIL
-                                                                    'DISPLAY NIL CSET]
-                        (PRINTOUT T T))
+                     [for SIZE in '(8 10 12)
+                        do (PRINTOUT T SIZE " ")
+                           (for FACE in '(MRR BRR MIR)
+                              do (for CSET in '(0 33 34 35 238 239 241)
+                                    do (NLSETQ (FONTCREATE FAMILY SIZE FACE NIL 'DISPLAY NIL CSET]
+                     (PRINTOUT T T))
                (PRINTOUT T "  Loading postscript fonts" T)
                (for F in (FILDIR (CONCAT (CAR POSTSCRIPTFONTDIRECTORIES)
-                                                ">c0>*.*")) do (PSCFONT.READFONT F))
+                                        ">c0>*.*")) do (PSCFONT.READFONT F))
                (PRINTOUT T "FULL fonts loaded" T])
 
 (LOADUP-FULL
-  [LAMBDA (DOIT)                                             (* ; "Edited 15-Jan-2022 15:48 by larry")
+  [LAMBDA NIL                                              (* ; "Edited  2-Mar-2022 13:58 by larry")
+                                                             (* ; "Edited 15-Jan-2022 15:48 ")
                                                              (* ; "Edited 29-Apr-2021 22:27 by rmk:")
                                                              (* ; 
                                                              "Edited 14-May-2018 15:01 by kaplan")
@@ -77,6 +73,7 @@
            DEFAULTFILETYPELIST)
     (push DEFAULTFILETYPELIST '(DRIBBLE . TEXT)
           '(SH . TEXT)
+          '(TTY . TEXT)
           '(TXT . TEXT)
           '(TEXT . TEXT)
           '(TEX . TEXT)
@@ -97,7 +94,7 @@
     (DRIBBLE])
 
 (FIXMETA
-  [LAMBDA NIL                                           (* ; "Edited 25-Jun-2017 17:12 by rmk:")
+  [LAMBDA NIL                                               (* ; "Edited 25-Jun-2017 17:12 by rmk:")
     (KEYACTION 'BLANK-TOP '(METADOWN . METAUP)
            \CURRENTKEYACTION)
     (KEYACTION 'BLANK-TOP '(METADOWN . METAUP])
@@ -105,5 +102,5 @@
 
 (FIXMETA)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (659 4746 (LOADFULLFONTS 669 . 2257) (LOADUP-FULL 2259 . 4500) (FIXMETA 4502 . 4744)))))
+  (FILEMAP (NIL (639 4708 (LOADFULLFONTS 649 . 2090) (LOADUP-FULL 2092 . 4458) (FIXMETA 4460 . 4706)))))
 STOP
diff --git a/sources/LOADUP-FULL.LCOM b/sources/LOADUP-FULL.LCOM
index 65abc841..0a2bfc6b 100644
Binary files a/sources/LOADUP-FULL.LCOM and b/sources/LOADUP-FULL.LCOM differ
diff --git a/sources/LOADUP-LISP b/sources/LOADUP-LISP
index ca92ee1c..7e590ddf 100644
--- a/sources/LOADUP-LISP
+++ b/sources/LOADUP-LISP
@@ -1,10 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
 
-(FILECREATED "15-Jan-2022 15:47:28" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;2| 5105   
+(FILECREATED " 4-Mar-2022 19:17:17" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;2| 5132   
 
       :CHANGES-TO (FNS LOADUP-LISP)
 
-      :PREVIOUS-DATE "21-Aug-2021 18:03:35" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;1|)
+      :PREVIOUS-DATE " 2-Mar-2022 16:31:39" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;1|)
 
 
 (PRETTYCOMPRINT LOADUP-LISPCOMS)
@@ -17,9 +17,10 @@
 (DEFINEQ
 
 (LOADUP-LISP
-  (LAMBDA NIL                                                (* \; 
-                                                             "Edited 15-Jan-2022 15:47 by larry")
-                                                             (* \; "Edited 29-Apr-2021 22:30 by rmk:")
+  (LAMBDA NIL                                             (* \; "Edited  4-Mar-2022 19:13 by larry")
+                                                          (* \; "Edited  2-Mar-2022 16:31 by larry")
+                                                          (* \; "Edited 28-Feb-2022 15:02 by larry")
+                                                           (* \; "Edited 29-Apr-2021 22:30 by rmk:")
     (SETQQ COMPILE.EXT LCOM)                                 (* \; "should be set earlier")
     (DRIBBLE (MEDLEYDIR "tmp" "lisp.dribble" T))
     (FOR X IN BOOTLOADEDFILES DO (CL:UNLESS (MEMB X SYSFILES)
@@ -31,7 +32,7 @@
 
     (* |;;| "following files are really loaded earlier, this call to LOADUP just cleans up")
 
-    (LOADUP '(ACODE MACHINEINDEPENDENT POSTLOADUP))
+    (LOADUP '(ACODE MACHINEINDEPENDENT))
 
     (* |;;| "establish all package exports early")
 
@@ -81,16 +82,14 @@
     (* |;;| "the bytecompiler and Interlisp compiler interface functions")
 
     (LOADUP '(DLAP BYTECOMPILER COMPILE))
-    (LOADUP '(HARDCOPY LOGOW IDLER ICONW FREEMENU SEDIT))    (* \; "don't want LOGOW ")
-    (COND
-       ((WINDOWP (LOGOW))
-        (CLOSEW (LOGOW))
-        (MOVD 'NILL 'LOGOW)))
     (LOADUP '(DSK UFS UFSCALLC MAIKOBITBLT))
     (LOADUP '(TIME))
     (LOADUP '(BRKDWN))
-    (LOADUP '(XCL-EXTRAS))                                   (* 
-                                                             "CMLPACKAGE pushes onto INSPECTMACROS")
+    (LOADUP '(LOGOW IDLER HARDCOPY ICONW FREEMENU SEDIT))
+    (LOADUP '(XCL-EXTRAS))
+
+    (* |;;| "CMLPACKAGE pushes onto INSPECTMACROS")
+
     (LOADUP '(CMLPACKAGE))
 
     (* |;;| "Puts ARGNAME properties on CL and XCL functions that IL:SMARTARGLIST can't hack. Keep this last so everything will be defined when it runs")
@@ -101,6 +100,9 @@
     (* |;;| "Already enabled, but this time fixes tables that weren't defined in the init")
 
     (PACKAGE-ENABLE)
+
+    (* |;;| " networking code -- should make it optional but too many cross dependencies")
+
     (LOADUP '(PUP 10MBDRIVER LEAF LLETHER DPUPFTP LOCALFILE DSKDISPLAY COURIER LLNS TRSERVER SPP 
                   NSPRINT AUTHENTICATION BSP CLEARINGHOUSE NSFILING MAIKOETHER))
     (DRIBBLE)
@@ -115,5 +117,5 @@
 (GLOBALVARS LISPMAKESYSDATE MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST)
 )
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (642 4883 (LOADUP-LISP 652 . 4881)))))
+  (FILEMAP (NIL (642 4910 (LOADUP-LISP 652 . 4908)))))
 STOP
diff --git a/sources/LOADUP-LISP.LCOM b/sources/LOADUP-LISP.LCOM
index 055a12c5..6507ba95 100644
Binary files a/sources/LOADUP-LISP.LCOM and b/sources/LOADUP-LISP.LCOM differ
diff --git a/sources/LOGOW b/sources/LOGOW
index c84e2f88..2ccf9920 100644
--- a/sources/LOGOW
+++ b/sources/LOGOW
@@ -1,123 +1,112 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
-(FILECREATED "25-Mar-2021 21:49:00" |{DSK}<home>larry>ilisp>medley>sources>LOGOW.;3| 13507  
 
-      |changes| |to:|  (VARS LOGOWCOMS)
+(FILECREATED " 4-Mar-2022 19:31:19" |{DSK}<home>larry>medley>sources>LOGOW.;2| 13188  
 
-      |previous| |date:| " 9-Apr-2000 18:08:21" |{DSK}<home>larry>ilisp>medley>sources>LOGOW.;2|)
+      :CHANGES-TO (FNS LOGOW)
+
+      :PREVIOUS-DATE " 4-Mar-2022 19:17:17" |{DSK}<home>larry>medley>sources>LOGOW.;1|)
 
 
-; Copyright (c) 1986-1991, 2000, 2021 by Venue.  All rights reserved.
+; Copyright (c) 1986-1991, 2022 by Venue.
 
 (PRETTYCOMPRINT LOGOWCOMS)
 
-(RPAQQ LOGOWCOMS ((VARIABLES LOGOW)
-                      (FNS LOGOW)
-                      (VARS LOGOBITMAP (LOGOTITLEFONT (FONTCREATE '(HELVETICA 6)))
-                            (LOGONAMEFONT (FONTCREATE 'HELVETICA 36 'BOLD)))))
-
-(CL:DEFVAR LOGOW)
+(RPAQQ LOGOWCOMS ((FNS KOTOLOGOW LOGOW \\DRAWLOGOWINDOWIMAGE)
+                  (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 12-Jul-91 03:12 by jds")
-    (CL:WHEN (WINDOWP LOGOW)
-           (CLOSEW LOGOW))
-    (OR STRING (SETQ STRING (CL:STRING-CAPITALIZE MAKESYSNAME)))
-                                                             (* \; "(LOGOW NIL) gives default")
-    (OR TITLE-LOCATION (SETQ TITLE-LOCATION :LINE))
-    (OR TITLE (SETQ TITLE (CL:FORMAT NIL 
-                                 "Copyright (c) ~D Venue,  Oakland, CA.  All Rights Reserved."
-                                 (LOADTIMECONSTANT (CL:MULTIPLE-VALUE-BIND (A B C D E YEAR)
-                                                          (CL:GET-DECODED-TIME)
-                                                          YEAR)))))
-    (LET* ((SHADOWDX 2)
-           (SHADOWDY 2)
-           (TITLE-BOTTOM-HEIGHT (COND
-                                   ((EQ TITLE-LOCATION :BOTTOM)
-                                                             (* \; 
-                                   "Magic 4 again, just a little space above the copyright notice.")
-                                    (+ (FONTHEIGHT LOGOTITLEFONT)
-                                       4))
-                                   (T 0)))
-           (LINE (COND
-                    ((EQ TITLE-LOCATION :LINE)
-                     (FONTHEIGHT LOGOTITLEFONT))
-                    (T 4)))
-           (SLEN (STRINGWIDTH STRING LOGONAMEFONT))
-           (WLEN (+ (MAX SLEN (+ (BITMAPWIDTH LOGOBITMAP)
-                                 2 2)
-                         (STRINGWIDTH TITLE LOGOTITLEFONT))
-                    (PROG1 (+ 4 4)                           (* \; "left and right margin")
-                           )))
-           (WHT (+ (FONTHEIGHT LOGONAMEFONT)
-                   (PROG1 (+ 4 LINE 4 4)                     (* \; 
-                                                       "below line, line, above line, above bitmap")
-                          )
-                   (BITMAPHEIGHT LOGOBITMAP)
-                   TITLE-BOTTOM-HEIGHT))
-           (TEMP (BITMAPCREATE WLEN WHT))
-           (IMAGE (BITMAPCREATE WLEN WHT))
-           (MASK (BITMAPCREATE WLEN WHT))
-           (STREAM (DSPCREATE TEMP))
-           WINDOW LINEY LINEX TITLEWIDTH)
-          (BITBLT LOGOBITMAP NIL NIL STREAM (DIFFERENCE WLEN (+ (BITMAPWIDTH LOGOBITMAP)
-                                                                (PROG1 6 
-                                                             (* \; "right margin"))))
-                 (+ TITLE-BOTTOM-HEIGHT (FONTHEIGHT LOGONAMEFONT)
-                    4 LINE 4))
-          (DSPFONT LOGONAMEFONT STREAM)
-          (MOVETO (- WLEN 4 (STRINGWIDTH STRING STREAM))
-                 (+ (FONTDESCENT LOGONAMEFONT)
-                    TITLE-BOTTOM-HEIGHT)
-                 STREAM)
-          (PRIN3 STRING STREAM)
-          (BITBLT STREAM 0 0 IMAGE NIL NIL NIL NIL NIL 'ERASE)
-          (BITBLT STREAM 0 0 IMAGE SHADOWDX (- SHADOWDY)
-                 NIL NIL NIL 'PAINT)
-          (BITBLT STREAM 0 0 MASK SHADOWDX (- SHADOWDY)
-                 NIL NIL NIL 'PAINT)
-          (BITBLT STREAM 0 0 MASK NIL NIL NIL NIL NIL 'PAINT)
-          (SETQ TITLEWIDTH (STRINGWIDTH TITLE LOGOTITLEFONT))
-          (BITBLT NIL NIL NIL IMAGE (SETQ LINEX 6)
-                 (SETQ LINEY (+ TITLE-BOTTOM-HEIGHT (FONTHEIGHT LOGONAMEFONT)
-                                4))
-                 (IMAX TITLEWIDTH (BITMAPWIDTH LOGOBITMAP))
-                 LINE
-                 'TEXTURE
-                 'PAINT BLACKSHADE)
-          (BITBLT NIL NIL NIL MASK LINEX LINEY TITLEWIDTH LINE 'TEXTURE 'PAINT BLACKSHADE)
-          (SETQ STREAM (DSPCREATE IMAGE))
-          (DSPFONT LOGOTITLEFONT STREAM)
-          (DSPOPERATION 'ERASE STREAM)
-          (DSPTEXTURE BLACKSHADE STREAM)
-          (MOVETO (ADD1 LINEX)
-                 (+ (FONTDESCENT LOGOTITLEFONT)
-                    (COND
-                       ((EQ TITLE-LOCATION :BOTTOM)
-                        0)
-                       (T LINEY)))
-                 STREAM)
-          (PRIN3 TITLE STREAM)
-          (SETQ WINDOW (ICONW IMAGE MASK (OR WHERE (CREATEPOSITION (- SCREENWIDTH WLEN)
-                                                          (- SCREENHEIGHT WHT)))))
+  (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")
+                                                  (* |;;| "Set LOGOW to NIL when closing the window")
 
                                                   (SETQ LOGOW NIL))))
-          (SETQ LOGOW WINDOW))))
+          (RETURN (SETQ LOGOW WINDOW)))))
+
+(\\DRAWLOGOWINDOWIMAGE
+  (LAMBDA (XPOS YPOS WIDTH HEIGHT BORDER W)                  (* |rrb| "22-FEB-82 18:04")
+                                                             (* |makes| \a |window| |image.|
+                                                             |This| |is| |part| |of| |the| |logo| 
+                                                             |drawing.|)
+    (BITBLT NIL NIL NIL W XPOS YPOS WIDTH HEIGHT 'TEXTURE 'REPLACE BLACKSHADE)
+    (BITBLT NIL NIL NIL W (IPLUS BORDER XPOS)
+           (IPLUS BORDER YPOS)
+           (IDIFFERENCE WIDTH (ITIMES BORDER 2))
+           (IDIFFERENCE HEIGHT (ITIMES BORDER 3))
+           'TEXTURE
+           '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@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 )
 
-(RPAQ LOGOTITLEFONT (FONTCREATE '(HELVETICA 6)))
+(RPAQ? LOGOW NIL)
 
-(RPAQ LOGONAMEFONT (FONTCREATE 'HELVETICA 36 'BOLD))
-(PUTPROPS LOGOW COPYRIGHT ("Venue" 1986 1987 1988 1989 1990 1991 2000 2021))
+(ADDTOVAR AFTERMAKESYSFORMS (LOGOW))
+(PUTPROPS LOGOW COPYRIGHT ("Venue" 1986 1987 1988 1989 1990 1991 2022))
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (665 5338 (LOGOW 675 . 5336)))))
+  (FILEMAP (NIL (596 5071 (KOTOLOGOW 606 . 3400) (LOGOW 3402 . 4362) (\\DRAWLOGOWINDOWIMAGE 4364 . 5069)
+))))
 STOP
diff --git a/sources/LOGOW.DFASL b/sources/LOGOW.DFASL
deleted file mode 100644
index a4674f3f..00000000
Binary files a/sources/LOGOW.DFASL and /dev/null differ
diff --git a/sources/LOGOW.LCOM b/sources/LOGOW.LCOM
new file mode 100644
index 00000000..4863954a
Binary files /dev/null and b/sources/LOGOW.LCOM differ
