github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-02-25 08:39:51 +00:00
Code Issues Projects Releases Wiki Activity

Merge branch 'master' into TEDIT3-Refactor-TEDIT.BUILD.PCTB

Browse Source
This commit is contained in:
Nick Briggs
2022-07-17 15:51:41 -07:00
parent efa4ae1019 c1fb892333
commit e2748dc556
50 changed files with 2064 additions and 1255 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
library/CLIPBOARD
View File

@@ -1,22 +1,23 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
(FILECREATED " 3-Jul-2021 13:16:26" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CLIPBOARD.;6 9185
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
changes to%: (VARS CLIPBOARDCOMS)
(FILECREATED " 7-Jul-2022 23:53:01" 
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>CLIPBOARD.;7 9243
previous date%: "24-Jun-2021 21:14:38"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CLIPBOARD.;5)
:CHANGES-TO (VARS CLIPBOARDCOMS)
(FNS CLIPBOARD-COPY-STREAM CLIPBOARD-PASTE-STREAM)
:PREVIOUS-DATE " 3-Jul-2021 13:16:26"
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>CLIPBOARD.;6)
(PRETTYCOMPRINT CLIPBOARDCOMS)
(RPAQQ CLIPBOARDCOMS
[ (* ; "Enable copy and paste")
[ (* ; "Enable copy and paste")
(FNS INSTALL-CLIPBOARD GETCLIPBOARD PUTCLIPBOARD PASTEFROMCLIPBOARD LISPINTERRUPTS.PASTE
CLIPBOARD-COPY-STREAM CLIPBOARD-PASTE-STREAM)
(FNS TEDIT.COPYTOCLIPBOARD TEDIT.EXTRACTTOCLIPBOARD)
(FNS SEDIT.COPYTOCLIPBOARD)
(INITVARS (CLIPBOARD-FORMAT :UTF-8))
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DOCOPY (FILES (SYSLOAD)
UNIXCOMM UNICODE)
(P (INSTALL-CLIPBOARD)))
@@ -116,24 +117,21 @@
(LISPINTERRUPTS.ORIG])
(CLIPBOARD-COPY-STREAM
[LAMBDA NIL (* ; "Edited 23-Feb-2021 22:11 by rmk:")
(* ;; "Clipboard is UNICODE and UTF8")
[LAMBDA NIL (* ; "Edited 7-Jul-2022 23:51 by rmk")
(* ; "Edited 23-Feb-2021 22:11 by rmk:")
(LET (STRM (OST (UNIX-GETENV "OSTYPE")))
(SETQ STRM (CREATE-PROCESS-STREAM (CL:IF (STRPOS "darwin" OST)
"pbcopy"
"xclip -i -selection clipboard")))
(\EXTERNALFORMAT STRM CLIPBOARD-FORMAT)
STRM])
(CLIPBOARD-PASTE-STREAM
[LAMBDA NIL (* ; "Edited 23-Feb-2021 17:29 by rmk:")
[LAMBDA NIL (* ; "Edited 7-Jul-2022 23:51 by rmk")
(* ; "Edited 23-Feb-2021 17:29 by rmk:")
(LET (STRM (OST (UNIX-GETENV "OSTYPE")))
(SETQ STRM (CREATE-PROCESS-STREAM (CL:IF (STRPOS "darwin" OST)
"pbpaste"
"xclip -o -selection clipboard")))
(\EXTERNALFORMAT STRM CLIPBOARD-FORMAT)
[SETFILEINFO STRM 'ENDOFSTREAMOP #'(CL:LAMBDA (s)
(RETFROM (FUNCTION READCCODE)
NIL]
@@ -183,8 +181,6 @@
NIL STREAM])]
T])
)
(RPAQ? CLIPBOARD-FORMAT :UTF-8)
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DOCOPY
(FILESLOAD (SYSLOAD)
@@ -203,8 +199,8 @@
)
(PUTPROPS CLIPBOARD COPYRIGHT (NONE))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (1301 6531 (INSTALL-CLIPBOARD 1311 . 3243) (GETCLIPBOARD 3245 . 3619) (PUTCLIPBOARD 3621
. 4026) (PASTEFROMCLIPBOARD 4028 . 4946) (LISPINTERRUPTS.PASTE 4948 . 5369) (CLIPBOARD-COPY-STREAM
5371 . 5871) (CLIPBOARD-PASTE-STREAM 5873 . 6529)) (6532 7291 (TEDIT.COPYTOCLIPBOARD 6542 . 6823) (
TEDIT.EXTRACTTOCLIPBOARD 6825 . 7289)) (7292 8831 (SEDIT.COPYTOCLIPBOARD 7302 . 8829)))))
(FILEMAP (NIL (1317 6626 (INSTALL-CLIPBOARD 1327 . 3259) (GETCLIPBOARD 3261 . 3635) (PUTCLIPBOARD 3637
. 4042) (PASTEFROMCLIPBOARD 4044 . 4962) (LISPINTERRUPTS.PASTE 4964 . 5385) (CLIPBOARD-COPY-STREAM
5387 . 5902) (CLIPBOARD-PASTE-STREAM 5904 . 6624)) (6627 7386 (TEDIT.COPYTOCLIPBOARD 6637 . 6918) (
TEDIT.EXTRACTTOCLIPBOARD 6920 . 7384)) (7387 8926 (SEDIT.COPYTOCLIPBOARD 7397 . 8924)))))
STOP

BIN
library/CLIPBOARD.LCOM
View File

Binary file not shown.

101
library/SKETCHOBJ
View File

@@ -1,13 +1,14 @@
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED "20-Jan-93 14:48:59" {DSK}<python>lde>lispcore>library>SKETCHOBJ.;2 55463
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
changes to%: (RECORDS SKETCHIMAGEOBJ SKETCHDOCUMENTINFO LOCALSKIMAGEOBJ SKIMAGEOBJ ANNO)
(FILECREATED "15-Jul-2022 14:33:25" {DSK}<home>larry>winhome>DROPBOX>TEDIT-VERSIONS>SKETCHOBJ.;1 55347
previous date%: "12-Jun-90 15:07:54" {DSK}<python>lde>lispcore>library>SKETCHOBJ.;1)
:CHANGES-TO (FNS SKETCH.DISPLAYFN)
:PREVIOUS-DATE "20-Jan-93 14:48:59" {DSK}<home>larry>medley>library>SKETCHOBJ.;1)
(* ; "
Copyright (c) 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xerox Corporation. All rights reserved.
Copyright (c) 1984-1988, 1990, 1993 by Venue & Xerox Corporation.
")
(PRETTYCOMPRINT SKETCHOBJCOMS)
@@ -105,9 +106,10 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xerox Corporat
SKETCHIMAGEFNS])
(SKETCH.DISPLAYFN
[LAMBDA (SKETCHIMAGEOBJ STREAM) (* ; "Edited 27-Feb-87 18:15 by rrb")
(* * display function for a sketch image object)
[LAMBDA (SKETCHIMAGEOBJ STREAM) (* ; "Edited 15-Jul-2022 14:30 by larry")
(* ; "Edited 27-Feb-87 18:15 by rrb")
(* * display function for a sketch image object)
(PROG ((SKIO (IMAGEOBJPROP SKETCHIMAGEOBJ 'OBJECTDATUM))
REGION TYPE)
@@ -119,9 +121,9 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xerox Corporat
(BITBLT [COND
((fetch (SKETCHIMAGEOBJ SKIO.LOCALSPECS) of SKIO))
(T
(* SKIO.LOCALSPECS is used to cache the local bitmap of the sketch as it is
 being display now.)
(* SKIO.LOCALSPECS is used to cache the local bitmap of the sketch as it is being
 display now.)
(replace (SKETCHIMAGEOBJ SKIO.LOCALSPECS) of SKIO
with (SKETCH.BITMAP.IMAGE (fetch (SKETCHIMAGEOBJ SKIO.SKETCH)
@@ -133,9 +135,9 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xerox Corporat
(T (PROG ((SKSCALE (fetch (SKETCHIMAGEOBJ SKIO.SCALE) of SKIO))
(STRMSCALE (DSPSCALE NIL STREAM))
SKTOSTRMSCALE SKXOFFSET SKYOFFSET)
(* the TRANSLATE.SKETCH is to move the sketch to the right place on the page.
 When all streams support tranlation, this should be taken out.)
(* the TRANSLATE.SKETCH is to move the sketch to the right place on the page.
 When all streams support tranlation, this should be taken out.)
(SETQ SKTOSTRMSCALE (QUOTIENT SKSCALE STRMSCALE))
(SETQ SKXOFFSET (DIFFERENCE (TIMES (DSPXPOSITION NIL STREAM)
@@ -144,23 +146,22 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xerox Corporat
(SETQ SKYOFFSET (DIFFERENCE (TIMES (DSPYPOSITION NIL STREAM)
SKTOSTRMSCALE)
(fetch (REGION BOTTOM) of REGION)))
(* save and restore the font as Tedit assumes that it is preserved over the
 call.)
(* save and restore the font as Tedit assumes that it is preserved over the call.)
(RETURN (DSPFONT (PROG1 (DSPFONT NIL STREAM)
(DRAW.LOCAL.SKETCH
(MAKE.LOCAL.SKETCH (TRANSLATE.SKETCH
(COPY (fetch (SKETCHIMAGEOBJ
SKIO.SKETCH)
of SKIO))
(IMINUS SKXOFFSET)
(IMINUS SKYOFFSET))
(SETQ REGION (TRANSLATE.REGION REGION SKXOFFSET
SKYOFFSET))
SKTOSTRMSCALE STREAM)
STREAM
(SK.SCALE.REGION REGION SKTOSTRMSCALE)))
(DRAW.LOCAL.SKETCH
(MAKE.LOCAL.SKETCH (TRANSLATE.SKETCH
(COPY (fetch (SKETCHIMAGEOBJ
SKIO.SKETCH)
of SKIO))
(IMINUS SKXOFFSET)
(IMINUS SKYOFFSET))
(SETQ REGION (TRANSLATE.REGION REGION SKXOFFSET
SKYOFFSET))
SKTOSTRMSCALE STREAM T)
STREAM
(SK.SCALE.REGION REGION SKTOSTRMSCALE)))
STREAM])
(SKETCH.BITMAP.IMAGE
@@ -935,14 +936,12 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xerox Corporat
(DECLARE%: EVAL@COMPILE
(RECORD LOCALSKIMAGEOBJ ((SKIMOBJLOCALPOS)
LOCALHOTREGION SKIMOBJLOCALSCALE SKIMOBJLOCALREGION
SKIMOBJLOCALOFFSETPOS))
LOCALHOTREGION SKIMOBJLOCALSCALE SKIMOBJLOCALREGION SKIMOBJLOCALOFFSETPOS))
(TYPERECORD SKIMAGEOBJ (SKIMAGEOBJ SKIMOBJ.GLOBALREGION SKIMOBJ.ORIGSCALE SKIMOBJ.OFFSETPOS))
(DATATYPE ANNO (ANNO\SUBSTANCE ANNO\ID ANNO\WINDOW ANNO\DATE ANNO\PARENTS ANNO\NEXTSUBID
ANNO\TYPE ANNO\SUMMARIZED\IN ANNO\UPDATE\DATE ANNO\CREATE\BY ANNO\UPDATE\BY
ANNO\FONT))
(DATATYPE ANNO (ANNO\SUBSTANCE ANNO\ID ANNO\WINDOW ANNO\DATE ANNO\PARENTS ANNO\NEXTSUBID ANNO\TYPE
ANNO\SUMMARIZED\IN ANNO\UPDATE\DATE ANNO\CREATE\BY ANNO\UPDATE\BY ANNO\FONT))
)
(/DECLAREDATATYPE 'ANNO '(POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER
@@ -964,21 +963,21 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xerox Corporat
(CREATE.SKIMAGEOBJ.TYPE)
(PUTPROPS SKETCHOBJ COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1986 1987 1988 1990 1993))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (2157 31523 (MAKE.IMAGE.OBJECT.OF.SKETCH 2167 . 3331) (SK.ELEMENT.FROM.IMAGEOBJ 3333 .
3632) (SKETCHIMAGEOBJ.FROM.VIEWER 3634 . 4046) (SKETCH.IMAGEOBJ 4048 . 4884) (SKETCH.DISPLAYFN 4886 .
8497) (SKETCH.BITMAP.IMAGE 8499 . 10170) (SKIO.IMAGEBOXFN 10172 . 12177) (SKIO.GETFN.2 12179 . 13648)
(SKIO.UPDATE.FROM.OLD.FORM 13650 . 14334) (SKIO.GETFN 14336 . 14854) (SKIO.PUTFN 14856 . 15853) (
SKIO.COPYFN 15855 . 16557) (SKIO.BUTTONEVENTINFN 16559 . 21616) (TRANSLATE.REGION 21618 . 22147) (
UPDATE.IMAGE.IN.DOCUMENT 22149 . 24668) (SK.COPY.IMAGEOBJ 24670 . 26341) (COPY.IMAGE.OBJECT 26343 .
26880) (\CREATE.SKETCH.IMAGEFNS 26882 . 28019) (\SKIO.IN.TOO.SMALL.TEDITP 28021 . 28713) (
SKETCH.VIEWER.GRID 28715 . 30012) (SKETCH.VIEWER.SCALE 30014 . 31521)) (31886 39876 (
SKETCH.IMAGE.OBJECT.ELEMENT 31896 . 32309) (SKETCH.IMAGEOBJ.OF.ELEMENT 32311 . 32637) (
SKETCH.SCALE.OF.ELEMENT 32639 . 33067) (SKETCH.POSITION.OF.ELEMENT 33069 . 33716) (
CREATE.SKIMAGEOBJ.TYPE 33718 . 34643) (IMAGEBOXSIZE 34645 . 34996) (SK.UPDATE.IMAGEOBJECT.AFTER.CHANGE
34998 . 37125) (SKETCH.CREATE.IMAGE.OBJECT 37127 . 37849) (SKETCH.CREATE.IMAGE.OBJECT1 37851 . 39874)
) (39877 54282 (SK.IMAGEOBJ.DRAWFN 39887 . 41559) (SK.IMAGEOBJ.REGIONFN 41561 . 41986) (
SK.IMAGEOBJ.GLOBALREGIONFN 41988 . 42389) (SK.IMAGEOBJ.TRANSLATEFN 42391 . 44674) (
SK.IMAGEOBJ.EXPANDFN 44676 . 46862) (SK.IMAGEOBJ.INSIDEFN 46864 . 47398) (SK.IMAGEOBJ.MOVEFN 47400 .
49631) (SK.IMAGEOBJ.CHANGEFN 49633 . 52708) (SK.IMAGEOBJ.READCHANGEFN 52710 . 52939) (
SK.IMAGEOBJ.TRANSFORMFN 52941 . 54280)))))
(FILEMAP (NIL (2084 31471 (MAKE.IMAGE.OBJECT.OF.SKETCH 2094 . 3258) (SK.ELEMENT.FROM.IMAGEOBJ 3260 .
3559) (SKETCHIMAGEOBJ.FROM.VIEWER 3561 . 3973) (SKETCH.IMAGEOBJ 3975 . 4811) (SKETCH.DISPLAYFN 4813 .
8445) (SKETCH.BITMAP.IMAGE 8447 . 10118) (SKIO.IMAGEBOXFN 10120 . 12125) (SKIO.GETFN.2 12127 . 13596)
(SKIO.UPDATE.FROM.OLD.FORM 13598 . 14282) (SKIO.GETFN 14284 . 14802) (SKIO.PUTFN 14804 . 15801) (
SKIO.COPYFN 15803 . 16505) (SKIO.BUTTONEVENTINFN 16507 . 21564) (TRANSLATE.REGION 21566 . 22095) (
UPDATE.IMAGE.IN.DOCUMENT 22097 . 24616) (SK.COPY.IMAGEOBJ 24618 . 26289) (COPY.IMAGE.OBJECT 26291 .
26828) (\CREATE.SKETCH.IMAGEFNS 26830 . 27967) (\SKIO.IN.TOO.SMALL.TEDITP 27969 . 28661) (
SKETCH.VIEWER.GRID 28663 . 29960) (SKETCH.VIEWER.SCALE 29962 . 31469)) (31834 39824 (
SKETCH.IMAGE.OBJECT.ELEMENT 31844 . 32257) (SKETCH.IMAGEOBJ.OF.ELEMENT 32259 . 32585) (
SKETCH.SCALE.OF.ELEMENT 32587 . 33015) (SKETCH.POSITION.OF.ELEMENT 33017 . 33664) (
CREATE.SKIMAGEOBJ.TYPE 33666 . 34591) (IMAGEBOXSIZE 34593 . 34944) (SK.UPDATE.IMAGEOBJECT.AFTER.CHANGE
34946 . 37073) (SKETCH.CREATE.IMAGE.OBJECT 37075 . 37797) (SKETCH.CREATE.IMAGE.OBJECT1 37799 . 39822)
) (39825 54230 (SK.IMAGEOBJ.DRAWFN 39835 . 41507) (SK.IMAGEOBJ.REGIONFN 41509 . 41934) (
SK.IMAGEOBJ.GLOBALREGIONFN 41936 . 42337) (SK.IMAGEOBJ.TRANSLATEFN 42339 . 44622) (
SK.IMAGEOBJ.EXPANDFN 44624 . 46810) (SK.IMAGEOBJ.INSIDEFN 46812 . 47346) (SK.IMAGEOBJ.MOVEFN 47348 .
49579) (SK.IMAGEOBJ.CHANGEFN 49581 . 52656) (SK.IMAGEOBJ.READCHANGEFN 52658 . 52887) (
SK.IMAGEOBJ.TRANSFORMFN 52889 . 54228)))))
STOP

BIN
library/SKETCHOBJ.LCOM
View File

Binary file not shown.

662
library/TEXEC
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
(FILECREATED " 1-Feb-2022 09:24:13" |{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>TEXEC.;2| 195948
(FILECREATED "16-Jul-2022 23:42:20" 
|{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>TEXEC.;3| 196212
:CHANGES-TO (VARS TEXECCOMS TEXEC.ICON TEXEC.ICON.MASK TEXEC.TITLED.ICON.TEMPLATE)
(FNS TEXEC.OPENTEXTSTREAM TEXEC.INCLUDE)
:PREVIOUS-DATE "30-May-91 19:21:21"
|{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>TEXEC.;1|)
:PREVIOUS-DATE " 1-Feb-2022 09:24:13"
|{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>TEXEC.;2|)
; Copyright (c) 1985, 1900, 1986-1991 by Venue & Xerox Corporation.
@@ -17,7 +17,7 @@
((COMS (* \;
 "To support development and compilation")
(DECLARE\: DONTCOPY EVAL@COMPILE (FILES (LOADCOMP)
ATERM TEDITDCL)))
ATERM TEDIT-DCL)))
(COMS
(* |;;| "THE FILLBUFFER REPLACEMENT CODE")
@@ -57,7 +57,7 @@
(DECLARE\: DONTCOPY EVAL@COMPILE
(FILESLOAD (LOADCOMP)
ATERM TEDITDCL)
ATERM TEDIT-DCL)
)
@@ -2833,314 +2833,314 @@
"Starts TEXEC in a new window."))
(READVARS-FROM-STRINGS '(TEXEC.ICON TEXEC.ICON.MASK TEXEC.TITLED.ICON.TEMPLATE)
" ( {(READBITMAP)(64 77
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@OH@@@@@@@@@\"
\"@@@@COL@@@@@@@@@\"
\"@@@@CON@@@@@@@@@\"
\"@@@@GHC@@@@@@@@@\"
\"@@@@O@AH@@@@@@@@\"
\"@@@AKBEL@@@@@@@@\"
\"@@@AC@BD@@@@@@@@\"
\"@@@AAHBD@@@@@@@@\"
\"@@@A@LBD@@@@@@@@\"
\"@@@A@NDD@@@@@@@@\"
\"@@@AGOOL@@@@@@@@\"
\"@@@AHFDF@@@@@@@@\"
\"@@@AHBDB@@@@@@@@\"
\"@@@A@BDC@@@@@@@@\"
\"@@@A@AHA@@@@@@@@\"
\"@@@A@AIAH@@@@@@@\"
\"@@@AA@I@H@@@@@@@\"
\"@@@CA@HHH@@@@@@@\"
\"@@@BA@HHHC@@@@@@\"
\"@@@CA@I@DB@@@@@@\"
\"@@@AAH@HBF@@@@@@\"
\"@@@AHF@HNL@@@@@@\"
\"@@@ALC@GIL@@@@@@\"
\"@@@ADNLC@H@@@@@@\"
\"OOOOOHGOMOOOH@@@\"
\"O@@@@HDDGH@@O@@@\"
\"ON@@@GHC@F@@AN@@\"
\"LOL@@@@AOOH@@CL@\"
\"LAOH@@@@@@@@@@GH\"
\"L@COOOOOOOOOOOOO\"
\"L@@GOOOOOOOOOOOO\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"O@@CH@@@@@@@@@@C\"
\"ON@CH@@@@@@@@@@C\"
\"LOLCH@@@@@@@@@@C\"
\"LAOKH@@@@@@@@@@C\"
\"@@COOOOOOOOOOOOO\"
\"@@@GH@@@@@@@@@@C\"
\"@@@CH@@@@@@@@@@C\"
\"@@@CH@@@@@@@@@@C\"
\"@@@AH@@@@@@@@@@C\")} {(READBITMAP)(64 77
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@OH@@@@@@@@@\"
\"@@@@COL@@@@@@@@@\"
\"@@@@CON@@@@@@@@@\"
\"@@@@GOO@@@@@@@@@\"
\"@@@@OOOH@@@@@@@@\"
\"@@@AOOOL@@@@@@@@\"
\"@@@AOOOL@@@@@@@@\"
\"@@@AOOOL@@@@@@@@\"
\"@@@AOOOL@@@@@@@@\"
\"@@@AOOOL@@@@@@@@\"
\"@@@AOOOL@@@@@@@@\"
\"@@@AOOON@@@@@@@@\"
\"@@@AOOON@@@@@@@@\"
\"@@@AOOOO@@@@@@@@\"
\"@@@AOOOO@@@@@@@@\"
\"@@@AOOOOH@@@@@@@\"
\"@@@AOOOOH@@@@@@@\"
\"@@@COOOOH@@@@@@@\"
\"@@@COOOOHC@@@@@@\"
\"@@@COOOOLB@@@@@@\"
\"@@@AOOOONF@@@@@@\"
\"@@@AOOOONL@@@@@@\"
\"@@@AOOOOOL@@@@@@\"
\"@@@AOOOOOH@@@@@@\"
\"OOOOOOOOOOOOH@@@\"
\"OOOOOOOOOOOOO@@@\"
\"OOOOOOOOOOOOON@@\"
\"OOOOOOOOOOOOOOL@\"
\"OOOOOOOOOOOOOOOH\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"LOOOOOOOOOOOOOOO\"
\"LAOOOOOOOOOOOOOO\"
\"@@COOOOOOOOOOOOO\"
\"@@@GH@@@@@@@@@@C\"
\"@@@CH@@@@@@@@@@C\"
\"@@@CH@@@@@@@@@@C\"
\"@@@AH@@@@@@@@@@C\")} ( {(READBITMAP)(64 77
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@OH@@@@@@@@@\"
\"@@@@COL@@@@@@@@@\"
\"@@@@CON@@@@@@@@@\"
\"@@@@GHC@@@@@@@@@\"
\"@@@@O@AH@@@@@@@@\"
\"@@@AKBEL@@@@@@@@\"
\"@@@AC@BD@@@@@@@@\"
\"@@@AAHBD@@@@@@@@\"
\"@@@A@LBD@@@@@@@@\"
\"@@@A@NDD@@@@@@@@\"
\"@@@AGOOL@@@@@@@@\"
\"@@@AHFDF@@@@@@@@\"
\"@@@AHBDB@@@@@@@@\"
\"@@@A@BDC@@@@@@@@\"
\"@@@A@AHA@@@@@@@@\"
\"@@@A@AIAH@@@@@@@\"
\"@@@AA@I@H@@@@@@@\"
\"@@@CA@HHH@@@@@@@\"
\"@@@BA@HHHC@@@@@@\"
\"@@@CA@I@DB@@@@@@\"
\"@@@AAH@HBF@@@@@@\"
\"@@@AHF@HNL@@@@@@\"
\"@@@ALC@GIL@@@@@@\"
\"@@@ADNLC@H@@@@@@\"
\"OOOOOHGOMOOOH@@@\"
\"O@@@@HDDGH@@O@@@\"
\"ON@@@GHC@F@@AN@@\"
\"LOL@@@@AOOH@@CL@\"
\"LAOH@@@@@@@@@@GH\"
\"L@COOOOOOOOOOOOO\"
\"L@@GOOOOOOOOOOOO\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"O@@CH@@@@@@@@@@C\"
\"ON@CH@@@@@@@@@@C\"
\"LOLCH@@@@@@@@@@C\"
\"LAOKH@@@@@@@@@@C\"
\"@@COOOOOOOOOOOOO\"
\"@@@GH@@@@@@@@@@C\"
\"@@@CH@@@@@@@@@@C\"
\"@@@CH@@@@@@@@@@C\"
\"@@@AH@@@@@@@@@@C\")} {(READBITMAP)(64 77
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@OH@@@@@@@@@\"
\"@@@@COL@@@@@@@@@\"
\"@@@@CON@@@@@@@@@\"
\"@@@@GOO@@@@@@@@@\"
\"@@@@OOOH@@@@@@@@\"
\"@@@AOOOL@@@@@@@@\"
\"@@@AOOOL@@@@@@@@\"
\"@@@AOOOL@@@@@@@@\"
\"@@@AOOOL@@@@@@@@\"
\"@@@AOOOL@@@@@@@@\"
\"@@@AOOOL@@@@@@@@\"
\"@@@AOOON@@@@@@@@\"
\"@@@AOOON@@@@@@@@\"
\"@@@AOOOO@@@@@@@@\"
\"@@@AOOOO@@@@@@@@\"
\"@@@AOOOOH@@@@@@@\"
\"@@@AOOOOH@@@@@@@\"
\"@@@COOOOH@@@@@@@\"
\"@@@COOOOHC@@@@@@\"
\"@@@COOOOLB@@@@@@\"
\"@@@AOOOONF@@@@@@\"
\"@@@AOOOONL@@@@@@\"
\"@@@AOOOOOL@@@@@@\"
\"@@@AOOOOOH@@@@@@\"
\"OOOOOOOOOOOOH@@@\"
\"OOOOOOOOOOOOO@@@\"
\"OOOOOOOOOOOOON@@\"
\"OOOOOOOOOOOOOOL@\"
\"OOOOOOOOOOOOOOOH\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"LOOOOOOOOOOOOOOO\"
\"LAOOOOOOOOOOOOOO\"
\"@@COOOOOOOOOOOOO\"
\"@@@GH@@@@@@@@@@C\"
\"@@@CH@@@@@@@@@@C\"
\"@@@CH@@@@@@@@@@C\"
" ( {(READBITMAP)(64 77\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@OH@@@@@@@@@\"\
\"@@@@COL@@@@@@@@@\"\
\"@@@@CON@@@@@@@@@\"\
\"@@@@GHC@@@@@@@@@\"\
\"@@@@O@AH@@@@@@@@\"\
\"@@@AKBEL@@@@@@@@\"\
\"@@@AC@BD@@@@@@@@\"\
\"@@@AAHBD@@@@@@@@\"\
\"@@@A@LBD@@@@@@@@\"\
\"@@@A@NDD@@@@@@@@\"\
\"@@@AGOOL@@@@@@@@\"\
\"@@@AHFDF@@@@@@@@\"\
\"@@@AHBDB@@@@@@@@\"\
\"@@@A@BDC@@@@@@@@\"\
\"@@@A@AHA@@@@@@@@\"\
\"@@@A@AIAH@@@@@@@\"\
\"@@@AA@I@H@@@@@@@\"\
\"@@@CA@HHH@@@@@@@\"\
\"@@@BA@HHHC@@@@@@\"\
\"@@@CA@I@DB@@@@@@\"\
\"@@@AAH@HBF@@@@@@\"\
\"@@@AHF@HNL@@@@@@\"\
\"@@@ALC@GIL@@@@@@\"\
\"@@@ADNLC@H@@@@@@\"\
\"OOOOOHGOMOOOH@@@\"\
\"O@@@@HDDGH@@O@@@\"\
\"ON@@@GHC@F@@AN@@\"\
\"LOL@@@@AOOH@@CL@\"\
\"LAOH@@@@@@@@@@GH\"\
\"L@COOOOOOOOOOOOO\"\
\"L@@GOOOOOOOOOOOO\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"O@@CH@@@@@@@@@@C\"\
\"ON@CH@@@@@@@@@@C\"\
\"LOLCH@@@@@@@@@@C\"\
\"LAOKH@@@@@@@@@@C\"\
\"@@COOOOOOOOOOOOO\"\
\"@@@GH@@@@@@@@@@C\"\
\"@@@CH@@@@@@@@@@C\"\
\"@@@CH@@@@@@@@@@C\"\
\"@@@AH@@@@@@@@@@C\")} {(READBITMAP)(64 77\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@OH@@@@@@@@@\"\
\"@@@@COL@@@@@@@@@\"\
\"@@@@CON@@@@@@@@@\"\
\"@@@@GOO@@@@@@@@@\"\
\"@@@@OOOH@@@@@@@@\"\
\"@@@AOOOL@@@@@@@@\"\
\"@@@AOOOL@@@@@@@@\"\
\"@@@AOOOL@@@@@@@@\"\
\"@@@AOOOL@@@@@@@@\"\
\"@@@AOOOL@@@@@@@@\"\
\"@@@AOOOL@@@@@@@@\"\
\"@@@AOOON@@@@@@@@\"\
\"@@@AOOON@@@@@@@@\"\
\"@@@AOOOO@@@@@@@@\"\
\"@@@AOOOO@@@@@@@@\"\
\"@@@AOOOOH@@@@@@@\"\
\"@@@AOOOOH@@@@@@@\"\
\"@@@COOOOH@@@@@@@\"\
\"@@@COOOOHC@@@@@@\"\
\"@@@COOOOLB@@@@@@\"\
\"@@@AOOOONF@@@@@@\"\
\"@@@AOOOONL@@@@@@\"\
\"@@@AOOOOOL@@@@@@\"\
\"@@@AOOOOOH@@@@@@\"\
\"OOOOOOOOOOOOH@@@\"\
\"OOOOOOOOOOOOO@@@\"\
\"OOOOOOOOOOOOON@@\"\
\"OOOOOOOOOOOOOOL@\"\
\"OOOOOOOOOOOOOOOH\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"LOOOOOOOOOOOOOOO\"\
\"LAOOOOOOOOOOOOOO\"\
\"@@COOOOOOOOOOOOO\"\
\"@@@GH@@@@@@@@@@C\"\
\"@@@CH@@@@@@@@@@C\"\
\"@@@CH@@@@@@@@@@C\"\
\"@@@AH@@@@@@@@@@C\")} ( {(READBITMAP)(64 77\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@OH@@@@@@@@@\"\
\"@@@@COL@@@@@@@@@\"\
\"@@@@CON@@@@@@@@@\"\
\"@@@@GHC@@@@@@@@@\"\
\"@@@@O@AH@@@@@@@@\"\
\"@@@AKBEL@@@@@@@@\"\
\"@@@AC@BD@@@@@@@@\"\
\"@@@AAHBD@@@@@@@@\"\
\"@@@A@LBD@@@@@@@@\"\
\"@@@A@NDD@@@@@@@@\"\
\"@@@AGOOL@@@@@@@@\"\
\"@@@AHFDF@@@@@@@@\"\
\"@@@AHBDB@@@@@@@@\"\
\"@@@A@BDC@@@@@@@@\"\
\"@@@A@AHA@@@@@@@@\"\
\"@@@A@AIAH@@@@@@@\"\
\"@@@AA@I@H@@@@@@@\"\
\"@@@CA@HHH@@@@@@@\"\
\"@@@BA@HHHC@@@@@@\"\
\"@@@CA@I@DB@@@@@@\"\
\"@@@AAH@HBF@@@@@@\"\
\"@@@AHF@HNL@@@@@@\"\
\"@@@ALC@GIL@@@@@@\"\
\"@@@ADNLC@H@@@@@@\"\
\"OOOOOHGOMOOOH@@@\"\
\"O@@@@HDDGH@@O@@@\"\
\"ON@@@GHC@F@@AN@@\"\
\"LOL@@@@AOOH@@CL@\"\
\"LAOH@@@@@@@@@@GH\"\
\"L@COOOOOOOOOOOOO\"\
\"L@@GOOOOOOOOOOOO\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"O@@CH@@@@@@@@@@C\"\
\"ON@CH@@@@@@@@@@C\"\
\"LOLCH@@@@@@@@@@C\"\
\"LAOKH@@@@@@@@@@C\"\
\"@@COOOOOOOOOOOOO\"\
\"@@@GH@@@@@@@@@@C\"\
\"@@@CH@@@@@@@@@@C\"\
\"@@@CH@@@@@@@@@@C\"\
\"@@@AH@@@@@@@@@@C\")} {(READBITMAP)(64 77\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@OH@@@@@@@@@\"\
\"@@@@COL@@@@@@@@@\"\
\"@@@@CON@@@@@@@@@\"\
\"@@@@GOO@@@@@@@@@\"\
\"@@@@OOOH@@@@@@@@\"\
\"@@@AOOOL@@@@@@@@\"\
\"@@@AOOOL@@@@@@@@\"\
\"@@@AOOOL@@@@@@@@\"\
\"@@@AOOOL@@@@@@@@\"\
\"@@@AOOOL@@@@@@@@\"\
\"@@@AOOOL@@@@@@@@\"\
\"@@@AOOON@@@@@@@@\"\
\"@@@AOOON@@@@@@@@\"\
\"@@@AOOOO@@@@@@@@\"\
\"@@@AOOOO@@@@@@@@\"\
\"@@@AOOOOH@@@@@@@\"\
\"@@@AOOOOH@@@@@@@\"\
\"@@@COOOOH@@@@@@@\"\
\"@@@COOOOHC@@@@@@\"\
\"@@@COOOOLB@@@@@@\"\
\"@@@AOOOONF@@@@@@\"\
\"@@@AOOOONL@@@@@@\"\
\"@@@AOOOOOL@@@@@@\"\
\"@@@AOOOOOH@@@@@@\"\
\"OOOOOOOOOOOOH@@@\"\
\"OOOOOOOOOOOOO@@@\"\
\"OOOOOOOOOOOOON@@\"\
\"OOOOOOOOOOOOOOL@\"\
\"OOOOOOOOOOOOOOOH\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"LOOOOOOOOOOOOOOO\"\
\"LAOOOOOOOOOOOOOO\"\
\"@@COOOOOOOOOOOOO\"\
\"@@@GH@@@@@@@@@@C\"\
\"@@@CH@@@@@@@@@@C\"\
\"@@@CH@@@@@@@@@@C\"\
\"@@@AH@@@@@@@@@@C\")} (8 30 60 60)))
")
@@ -3160,21 +3160,21 @@
(RPAQ? TEXEC.BUFFERLIMIT 10000)
(PUTPROPS TEXEC COPYRIGHT ("Venue & Xerox Corporation" 1985 1900 1986 1987 1988 1989 1990 1991))
(DECLARE\: DONTCOPY
(FILEMAP (NIL (3269 182029 (TEXEC.BACKSKREAD 3279 . 7903) (TEXEC.OPENTEXTSTREAM 7905 . 9963) (
TEXEC.DEFAULT.MENUFN 9965 . 14519) (TEXEC.DO?CMD 14521 . 19839) (TEXEC.CREATEMENU 19841 . 20299) (
TEXEC.GET 20301 . 29136) (TEXEC.INCLUDE 29138 . 42523) (TEXEC.FIND.FORWARD 42525 . 55413) (
TEXEC.FIND.BACKWARD 55415 . 68917) (TEDIT.FIND.BACKWARD 68919 . 74396) (TEDIT.BASICFIND.BACKWARD 74398
. 79052) (TEXEC.MENU.WHENHELDFN 79054 . 79713) (TEXEC.SHRINK.ICONCREATE 79715 . 82518) (
TEXEC.FILLBUFFER 82520 . 98954) (TEXEC.FILLBUFFER.TCLASS 98956 . 105296) (TEXEC.CHSELPENDING 105298 .
113788) (TEXEC.FILLBUFFER.CHARDELETE 113790 . 115845) (TEXEC.FILLBUFFER.WORDDELETE 115847 . 120975) (
TEXEC.FILLBUFFER.LINEDELETE 120977 . 123859) (TEXEC.PARENCOUNT 123861 . 125250) (TEXEC.PARENMATCH
125252 . 126792) (TEXEC.FLASHCARET 126794 . 129453) (TEXEC.TEXTSTREAM.TO.LINEBUF 129455 . 132142) (
TEXEC.FIX 132144 . 135313) (TEXEC.NTHBUFCHARBACK 135315 . 136378) (TEXEC.NTHBACKCHNUM 136380 . 137665)
(TEXEC.EOTP 137667 . 138400) (TEXEC.GETKEY 138402 . 141318) (TEXEC.INSERTCHAR 141320 . 143621) (
TEXEC.DELETE 143623 . 144398) (TEXEC.\\CHDEL1 144400 . 147525) (TEXEC.?EQUAL 147527 . 148576) (
TEDIT.SCROLL? 148578 . 153541) (TEXEC.DISPLAYTEXT 153543 . 160318) (\\TEXEC.TEXTBOUT 160320 . 163328)
(\\TEXEC.TEXTBOUT1 163330 . 168964) (\\TEXEC.TEXTBOUT2 168966 . 171297) (\\TEXEC.TEXTBOUT3 171299 .
172689) (\\TEXEC.TEXTBOUT4 172691 . 174734) (\\TEXEC.SELFN 174736 . 176111) (TEXEC.PRINTARGS 176113 .
181076) (TEXEC.PROCENTRYFN 181078 . 181619) (TEXEC.PROCEXITFN 181621 . 182027)) (182089 188464 (TEXEC
182099 . 186521) (TTEXEC 186523 . 188462)))))
(FILEMAP (NIL (3225 181985 (TEXEC.BACKSKREAD 3235 . 7859) (TEXEC.OPENTEXTSTREAM 7861 . 9919) (
TEXEC.DEFAULT.MENUFN 9921 . 14475) (TEXEC.DO?CMD 14477 . 19795) (TEXEC.CREATEMENU 19797 . 20255) (
TEXEC.GET 20257 . 29092) (TEXEC.INCLUDE 29094 . 42479) (TEXEC.FIND.FORWARD 42481 . 55369) (
TEXEC.FIND.BACKWARD 55371 . 68873) (TEDIT.FIND.BACKWARD 68875 . 74352) (TEDIT.BASICFIND.BACKWARD 74354
. 79008) (TEXEC.MENU.WHENHELDFN 79010 . 79669) (TEXEC.SHRINK.ICONCREATE 79671 . 82474) (
TEXEC.FILLBUFFER 82476 . 98910) (TEXEC.FILLBUFFER.TCLASS 98912 . 105252) (TEXEC.CHSELPENDING 105254 .
113744) (TEXEC.FILLBUFFER.CHARDELETE 113746 . 115801) (TEXEC.FILLBUFFER.WORDDELETE 115803 . 120931) (
TEXEC.FILLBUFFER.LINEDELETE 120933 . 123815) (TEXEC.PARENCOUNT 123817 . 125206) (TEXEC.PARENMATCH
125208 . 126748) (TEXEC.FLASHCARET 126750 . 129409) (TEXEC.TEXTSTREAM.TO.LINEBUF 129411 . 132098) (
TEXEC.FIX 132100 . 135269) (TEXEC.NTHBUFCHARBACK 135271 . 136334) (TEXEC.NTHBACKCHNUM 136336 . 137621)
(TEXEC.EOTP 137623 . 138356) (TEXEC.GETKEY 138358 . 141274) (TEXEC.INSERTCHAR 141276 . 143577) (
TEXEC.DELETE 143579 . 144354) (TEXEC.\\CHDEL1 144356 . 147481) (TEXEC.?EQUAL 147483 . 148532) (
TEDIT.SCROLL? 148534 . 153497) (TEXEC.DISPLAYTEXT 153499 . 160274) (\\TEXEC.TEXTBOUT 160276 . 163284)
(\\TEXEC.TEXTBOUT1 163286 . 168920) (\\TEXEC.TEXTBOUT2 168922 . 171253) (\\TEXEC.TEXTBOUT3 171255 .
172645) (\\TEXEC.TEXTBOUT4 172647 . 174690) (\\TEXEC.SELFN 174692 . 176067) (TEXEC.PRINTARGS 176069 .
181032) (TEXEC.PROCENTRYFN 181034 . 181575) (TEXEC.PROCEXITFN 181577 . 181983)) (182045 188420 (TEXEC
182055 . 186477) (TTEXEC 186479 . 188418)))))
STOP

BIN
library/TEXEC.LCOM
View File

Binary file not shown.

28
library/lafite/LAFITETEDIT
View File

@@ -1,14 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "30-Sep-2021 23:07:55" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>lafite>LAFITETEDIT.;3 12516
changes to%: (VARS LAFITETEDITCOMS)
(FNS LA.ADJUST.FORMATTING LA.SKIP.LOOKS.LIST LA.DETACH.TEDIT LA.TEDIT.INCLUDE
LA.WINDOW.FROM.TEXTSTREAM TEDIT.ASSURE.NO.BACKING.FILE)
(FILES LAFITEDECLS)
(FILECREATED "16-Jul-2022 23:37:24" 
{DSK}<users>kaplan>local>medley3.5>working-medley>library>lafite>LAFITETEDIT.;5 12306
previous date%: "30-Sep-2021 22:59:28"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>lafite>LAFITETEDIT.;2)
:CHANGES-TO (VARS LAFITETEDITCOMS)
:PREVIOUS-DATE "30-Sep-2021 23:07:55"
{DSK}<users>kaplan>local>medley3.5>working-medley>library>lafite>LAFITETEDIT.;4)
(* ; "
@@ -27,8 +25,8 @@ Copyright (c) 1988, 1990, 1992, 2021 by Xerox Corporation.
(* ;; "Need TEDIT internal declarations for LA.ADJUST.FORMATTING. Can't just do (FILES (SOURCE) TEDITDCL), because there is a compiled version that is already loaded that isn't enough.")
(P (CL:UNLESS (GET 'TEDITDCL 'FILE)
(FILESLOAD TEDITDCL)))
(P (CL:UNLESS (GET 'TEDIT-DCL 'FILE)
(FILESLOAD TEDIT-DCL)))
(FILES (SOURCE)
LAFITEDECLS)
(GLOBALVARS *TEDIT-FILE-READTABLE*)
@@ -185,8 +183,8 @@ Copyright (c) 1988, 1990, 1992, 2021 by Xerox Corporation.
)
(DECLARE%: EVAL@COMPILE DONTCOPY
(CL:UNLESS (GET 'TEDITDCL 'FILE)
(FILESLOAD TEDITDCL))
(CL:UNLESS (GET 'TEDIT-DCL 'FILE)
(FILESLOAD TEDIT-DCL))
(FILESLOAD (SOURCE)
@@ -204,7 +202,7 @@ Copyright (c) 1988, 1990, 1992, 2021 by Xerox Corporation.
)
(PUTPROPS LAFITETEDIT COPYRIGHT ("Xerox Corporation" 1988 1990 1992 2021))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (1549 12147 (LA.ADJUST.FORMATTING 1559 . 7695) (LA.SKIP.LOOKS.LIST 7697 . 8271) (
LA.DETACH.TEDIT 8273 . 8638) (LA.TEDIT.INCLUDE 8640 . 9129) (LA.WINDOW.FROM.TEXTSTREAM 9131 . 9577) (
TEDIT.ASSURE.NO.BACKING.FILE 9579 . 12145)))))
(FILEMAP (NIL (1337 11935 (LA.ADJUST.FORMATTING 1347 . 7483) (LA.SKIP.LOOKS.LIST 7485 . 8059) (
LA.DETACH.TEDIT 8061 . 8426) (LA.TEDIT.INCLUDE 8428 . 8917) (LA.WINDOW.FROM.TEXTSTREAM 8919 . 9365) (
TEDIT.ASSURE.NO.BACKING.FILE 9367 . 11933)))))
STOP

BIN
library/lafite/LAFITETEDIT.LCOM
View File

Binary file not shown.