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/LOADUP-LISP b/sources/LOADUP-LISP
index ca92ee1c..6e9cc953 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 "28-Feb-2022 20:34:55" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;2| 5060   
 
       :CHANGES-TO (FNS LOADUP-LISP)
 
-      :PREVIOUS-DATE "21-Aug-2021 18:03:35" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;1|)
+      :PREVIOUS-DATE "15-Jan-2022 15:47:28" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;1|)
 
 
 (PRETTYCOMPRINT LOADUP-LISPCOMS)
@@ -17,9 +17,9 @@
 (DEFINEQ
 
 (LOADUP-LISP
-  (LAMBDA NIL                                                (* \; 
-                                                             "Edited 15-Jan-2022 15:47 by larry")
-                                                             (* \; "Edited 29-Apr-2021 22:30 by rmk:")
+  (LAMBDA NIL                                             (* \; "Edited 28-Feb-2022 15:02 by larry")
+                                                          (* \; "Edited 15-Jan-2022 15:47 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)
@@ -82,10 +82,6 @@
 
     (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))
@@ -115,5 +111,5 @@
 (GLOBALVARS LISPMAKESYSDATE MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST)
 )
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (642 4883 (LOADUP-LISP 652 . 4881)))))
+  (FILEMAP (NIL (642 4838 (LOADUP-LISP 652 . 4836)))))
 STOP
diff --git a/sources/LOADUP-LISP.LCOM b/sources/LOADUP-LISP.LCOM
index 055a12c5..17207fcb 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..8a243b16 100644
--- a/sources/LOGOW
+++ b/sources/LOGOW
@@ -1,114 +1,171 @@
 (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 "28-Feb-2022 21:05:05" |{DSK}<home>larry>medley>sources>LOGOW.;8| 17872  
 
-      |previous| |date:| " 9-Apr-2000 18:08:21" |{DSK}<home>larry>ilisp>medley>sources>LOGOW.;2|)
+      :CHANGES-TO (VARS LOGOWCOMS)
+                  (FNS LOGOW KOTOLOGOW)
+
+      :PREVIOUS-DATE "25-Mar-2021 21:49:00" |{DSK}<home>larry>medley>sources>LOGOW.;1|)
 
 
-; Copyright (c) 1986-1991, 2000, 2021 by Venue.  All rights reserved.
+; Copyright (c) 1986-1991 by Venue.
 
 (PRETTYCOMPRINT LOGOWCOMS)
 
-(RPAQQ LOGOWCOMS ((VARIABLES LOGOW)
-                      (FNS LOGOW)
-                      (VARS LOGOBITMAP (LOGOTITLEFONT (FONTCREATE '(HELVETICA 6)))
-                            (LOGONAMEFONT (FONTCREATE 'HELVETICA 36 'BOLD)))))
+(RPAQQ LOGOWCOMS
+       ((VARIABLES LOGOW)
+        (FNS KOTOLOGOW LOGOW)
+        (VARS LOGOBITMAP (LOGOTITLEFONT (FONTCREATE '(HELVETICA 6)))
+              (LOGONAMEFONT (FONTCREATE 'HELVETICA 36 'BOLD)))
+        (PROP (LOGOW FILETYPE))))
 
 (CL:DEFVAR LOGOW)
 (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)
+  (LAMBDA (STRING WHERE TITLE TITLE-LOCATION)             (* \; "Edited 28-Feb-2022 20:14 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 "https://Interlisp.org"))    (* \; "(LOGOW NIL) gives default")
+          (SETQ WINDOW (KOTOLOGOW STRING T TITLE))
+          (|if| NIL
+              |then| (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 
+                                     "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)))))
+                                 (+ 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)))))))
           (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)))))
 )
 
 (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@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@ -117,7 +174,7 @@
 (RPAQ LOGOTITLEFONT (FONTCREATE '(HELVETICA 6)))
 
 (RPAQ LOGONAMEFONT (FONTCREATE 'HELVETICA 36 'BOLD))
-(PUTPROPS LOGOW COPYRIGHT ("Venue" 1986 1987 1988 1989 1990 1991 2000 2021))
+(PUTPROPS LOGOW COPYRIGHT ("Venue" 1986 1987 1988 1989 1990 1991))
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (665 5338 (LOGOW 675 . 5336)))))
+  (FILEMAP (NIL (658 9713 (KOTOLOGOW 668 . 3462) (LOGOW 3464 . 9711)))))
 STOP
diff --git a/sources/LOGOW.DFASL b/sources/LOGOW.DFASL
index a4674f3f..0ecc3470 100644
Binary files a/sources/LOGOW.DFASL and b/sources/LOGOW.DFASL differ
