From f0f8b59ad8447e280c8d3829a24242139a4566d2 Mon Sep 17 00:00:00 2001 From: Larry Masinter Date: Mon, 28 Feb 2022 21:19:41 -0800 Subject: [PATCH] LOGOW now Medley / based on KOTOLOGOW --- {lispusers => obsolete/lispusers}/KOTOLOGO | 0 .../lispusers}/KOTOLOGO.TEDIT | Bin sources/LOADUP-LISP | 16 +- sources/LOADUP-LISP.LCOM | Bin 3601 -> 3601 bytes sources/LOGOW | 241 +++++++++++------- sources/LOGOW.DFASL | Bin 7122 -> 6580 bytes 6 files changed, 155 insertions(+), 102 deletions(-) rename {lispusers => obsolete/lispusers}/KOTOLOGO (100%) rename {lispusers => obsolete/lispusers}/KOTOLOGO.TEDIT (100%) 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}larry>medley>sources>LOADUP-LISP.;2| 5105 +(FILECREATED "28-Feb-2022 20:34:55" |{DSK}larry>medley>sources>LOADUP-LISP.;2| 5060 :CHANGES-TO (FNS LOADUP-LISP) - :PREVIOUS-DATE "21-Aug-2021 18:03:35" |{DSK}larry>medley>sources>LOADUP-LISP.;1|) + :PREVIOUS-DATE "15-Jan-2022 15:47:28" |{DSK}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 055a12c5bb72386c5a5577645debd30257fbb32a..17207fcbf353f108d3e1542f915ee1b0076f9512 100644 GIT binary patch delta 165 zcmbOzGf`$jpoo!$u3Ku7u91O}k%Ezdm9dGHsrkfIHxVO4gt&pFm8qGPvBkvw24TqJ zdU|?F3N* zdU{F=du3WgR|2F6y#rknRM2J-*_O?WJ$ 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}larry>ilisp>medley>sources>LOGOW.;3| 13507 - |changes| |to:| (VARS LOGOWCOMS) +(FILECREATED "28-Feb-2022 21:05:05" |{DSK}larry>medley>sources>LOGOW.;8| 17872 - |previous| |date:| " 9-Apr-2000 18:08:21" |{DSK}larry>ilisp>medley>sources>LOGOW.;2|) + :CHANGES-TO (VARS LOGOWCOMS) + (FNS LOGOW KOTOLOGOW) + + :PREVIOUS-DATE "25-Mar-2021 21:49:00" |{DSK}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 a4674f3fb56f39446105295b055c767433278016..0ecc3470e8224f0c3b9fb13446996981423f4456 100644 GIT binary patch delta 1747 zcmZuxTW=dh6rNq*5?>N0xNa3_vMC|7(6k{1H7%vhdcC$cS?{>sZJd+}H*uWUVaY~Y zSFKec_mWB=8PRro*%9!7gv0|c=>-W1frXHG;SEtK{DnSM$}=iw#%Uv@u2wVW`_5&~ z%$zfS9e#A^#`w+S@w4MW-8yfV%EDsREDI&OJXb3(2xH?Tsq*~D*yz}pF!s*T(f8mF zrbJ!+zggB=S(vNu2Xg_;?elYXU7$X|Ja@YP(B|Iqx(@H&X?9MFc|}a9vQFZz;{nE# z(sZhr!Uk4x8W)@dUn>oOIT6U<5Su~oO<*s+tDbzL&%N7y6(R1TdCW|iqWNgz=ERzX z;Omh)r0>j~^Zr(b;U~)*zrK)uQOy1gZ9`?6AT{48cD2OcspN?F(KWG?ire~))dUR(FM|3YKpravw7+$em$2!~_xlbL@uaFpfLV)^1I%dMq87aBMkMSK`8lQ%~B5X?SNORF;90U}r612A>7 z(onP{E)UM7h6+knOv`P;2Sm6{WMn0sF?g^0Wz(-4c|}X}w9=y6F}5sdMTXS( zq3UKOSu^B3&oKswnJoeV5tNj?1SPASmJtmUWa%Yk)exQjz^(>KkiG~)UgDu8?f78b z&S9K06s(CVC>4?+Y4=96Q=x09ik`a?q4j1#EME@tJ4DeUpg>a3rLbmDJPX*L#nZBZ zDLe`=b|#q@3)|aZ+rJ9;$L$BLM^`jzIY?y*>mZ{|kOOB@r)6jvivOfo%FCi57byM% zuwTNOB+@m}ZveeXP*U(MfN)wi5_l#rr(rWEf#}R(U71WDj z#VJ{z)t?9Yk$gy1*JwN)7MHd5`CnoY7{LOh0Q(EvnaiQWN%;_6hTKVWw($!^afXe##9cS<-no2RYqIsqpd9`=Xn9SuHAg+K51TzmHH EKP&$HOaK4? delta 2263 zcmZ`*O>7%g5Z+z?B#z_MPF%ODl5`u=Hi$aPPpke=RbAUJ@h0AVi+7WaQ-qr)rcUCf zmD3_3L`@J#AX#c!Q{o3)kPvV{6{tvX!d!YlTq@*9NWF0Bl^=;CD9pUIlY)vBy_xxD z=6mzr%(L_L=uam%PI(p!i>ucvhg|!l(ZFqEZ}LP`n=3{~hDL_vk>NAPPoEhY3XCac zN`85>AU}%7k=X>#bHKc96;aT!P0Pqp5_yS`n-7N!4o4LZZ}wHyiMJ!5tD^=Sy~f8#07McgjBEBuMpw zRFBzx+`;(^t@V)TvHKf@lXW14znAKbl==ktTQu6y;A-7feYwLr5YD7=eX@r+sYkF!l zvb01y^Z4Pn5^%B|IJu;5m7eAaqvxp(B>ERq^O~}~HSo~Rf;Zd!WcAqtwD-Hl$+B`* zuIW_%v|}Y(qiM5LD@ANIVI`#wusx-es*@QhfI6xfsU1|Wt?CJCOaAJuve&fIMA4)+ zz}=c+PD(xuRyAduNUaE3L^Gro&|G%Xk~|36DWXem)J)V|s3Ek&%QatQi6GJDjW(jVqQ)bpe??91}3rV<$oGZdaH^SR~}G{NmYPQdyFXv$5(%*{A9jNvBlPSdZeDz(XJk7*m#Wd?QT_M89P^ ziccMJ7dKPmRJRe_0IMSo7i1BGnkrU?a1n!yw5pGywFs71qtnEqV3wpQu>E6Hw-UsR z6WziX6|lC1X;@^&no1Ld&H>a85H(1epBcen09ydWbhHnH?E~AX0g)a+yfM{^r7%GJ zo6Vqj1gIZSO(_|?{|NpFU>h! z9A_6$9A(oedYs4(Hj9>2Vi}OaV}=(fU|sFJuH7RD57~?8d*BExsS&bMr|=196E>mW zE=|EB3U~Of!don}#x5+gS&Pk{!f_a*X-%>AgBrqvmGtpwTrpHjNvX5M59Ho>ikig6 zDQju8elHM8-y^_%W4x>PSp?yGz~r_v25-{G5aYq#@^SbGtUzoE23sf7&{-$%9YEVn z=n&E20411qq*({l@1V__mM*|hdilf9FythXL-S3(RTwQpftf`gKIfL*X%YWq%K(eN zu>y+E9qYCuUUfv4EnTW^^f^y)k}dYJD_vNGrc4quW9o`VTuA*x<=58JrP1n#)ruR= z+NDjUEY(Pn=(LiWBGDLpIaDiN$P^V^Vz|U{N#H_Yac78<#^2^!<={B6q6reG36h9f zsz%t_V72^w{OYx};^O7}b$MX^S@~u{p3be@$Q_eqI=5VyTUh`tt_;euQYgr2j9Zn{ zxz$|pmE6Lhh($iAqrCRY- d{_-6OLT1ZDTpqXMKN9l&fwp(|xXRnx{{We%UvvNf