(FILECREATED "23-SEP-83 10:14:46" {INDIGO}<LOOPS>SOURCES>LOOPSSCREEN.;16 18257
changes to: (VARS LOOPSSCREENCOMS ttyPos)
previous date: "22-SEP-83 18:34:07" {INDIGO}<LOOPS>SOURCES>LOOPSSCREEN.;15)
(PRETTYCOMPRINT LOOPSSCREENCOMS)
(RPAQQ LOOPSSCREENCOMS ((GLOBALVARS TTY)
(P (SETQ TTY \TopLevelTtyWindow))
(* Functions for setting up and manipulating the Loops screen)
(FNS HistIcon LoopsIcon SetUpScreen ClassLatticeFn UE PPW PrintScreen
PressScreen PrintWindow PrintLattice PromptEval PromptRead)
(* Positions and regions for various windows on Loops screen)
(VARS * SCREENVARS)
(USERMACROS EE UE OKCLOSE DE)
(LISPXMACROS OKCLOSE)
[P (ADVISE (QUOTE CNDIR)
(QUOTE AFTER)
(QUOTE (PROGN (WINDOWPROP TTY (QUOTE TITLE)
(CONCAT !VALUE
" is Connected Directory -- Top Level Window"))
(PrintStatus (CHARACTER 7)
"Connecting to " !VALUE]
(HORRIBLEVARS WhiteLoopsIconBM BlackLoopsIconBM LoopsIconShadow PalIconBM)
(* (c)
Copyright 1983 Xerox Corporation)))
(DECLARE: DOEVAL@COMPILE DONTCOPY
(ADDTOVAR GLOBALVARS TTY)
)
(SETQ TTY \TopLevelTtyWindow)
(* Functions for setting up and manipulating the Loops screen)
(DEFINEQ
(HistIcon
[LAMBDA NIL (* dgb: "21-MAR-83 14:18")
(* Puts up history icon at standard spot)
(SETQ HistItemsShown 51)
(HistoryIcon 50 histPosition histIconPosition])
(LoopsIcon
[LAMBDA (whiteFlg) (* dgb: "22-SEP-83 17:07")
(* * Displays the Loops icon. Window argument is optional.)
(SETQ LoopsIconWindow (ICONW (COND
(whiteFlg WhiteLoopsIconBM)
(T BlackLoopsIconBM))
LoopsIconShadow loopsIconPosition))
(WINDOWPROP LoopsIconWindow (QUOTE BUTTONEVENTFN)
(QUOTE ClassLatticeFn))
(WINDOWPROP LoopsIconWindow (QUOTE RIGHTBUTTONFN)
(QUOTE MOVEW))
LoopsIconWindow])
(SetUpScreen
[LAMBDA NIL (* dgb: "21-SEP-83 09:22")
(PROG (w)
(for W in (ACTIVEWINDOWS) do (CLOSEW W))
(CHANGEBACKGROUND BACKGROUNDSHADE) (* (Old code for EditCommand Window NIL)
(TMenu (QUOTE EditCommands) "Edit Commands" edComsPos))
(DSPOPERATION (QUOTE INVERT)
PROMPTWINDOW)
(WINDOWPROP PROMPTWINDOW (QUOTE TITLE)
(CONCAT "Prompt Window -- Lisp System: " LispDate " Loops Loadup: "
LoopsDate))
(CLEARW PROMPTWINDOW)
(SHAPEW PROMPTWINDOW promptPos)
(SETQ PrintStatusWindow PROMPTWINDOW)
(SETQ PPDefault (SETQ USEREXECDS (CREATEW uePos "User Exec -- PPDefault Window" NIL)))
(DSPSCROLL (QUOTE ON)
USEREXECDS)
(SHRINKW USEREXECDS NIL ueIconPos)
(SHAPEW TTY ttyPos)
(CLOSEW (SETQ DEditWindow (CREATEW deditPos "DEdit")))
(SHRINKW (SETQ TTYINEDITWINDOW (CREATEW eePos "Edit Work Area"))
NIL eeIconPos)
(HistIcon)
(LoopsIcon])
(ClassLatticeFn
[LAMBDA (window) (* dgb: "21-SEP-83 16:35")
(* BUTTONEVENTFN for LoopsIcon window)
(PROG ((leftButton (MOUSESTATE LEFT)))
(MENU (MenuGetOrCreate LoopsIconMenu
(QUOTE (("SetUpScreen" [MENU (MenuGetOrCreate
ScreenSetUpMenu
(QUOTE (("StandardScreen" (SetUpScreen
)
"Standard Loops Screen")
("Demo Screen" (DemoScreen)
"Screen for Demo"]
"Set screen up in initial configuration")
(VideoRate [VIDEORATE (MENU (MenuGetOrCreate
NormalTape
(QUOTE (NORMAL TAPE]
"Set Screen refresh rate for video taping or normal use")
(PrintFromScreen [MENU (MenuGetOrCreate
PrintFromScreenMenu
(QUOTE (("Screen to Press File"
(PressScreen)
"Will print screen to SCREEN.PRESS")
(PrintScreen (PrintScreen)
"Prints screen to FULLPRESSPRINTER")
(PrintWindow (PrintWindow)
" Will print a window <8.5 inches across.
Select the window by putting mouse over it and
pressing control"]
"Button gives selection of PrintScreen or PrintWindow")
("Class Inheritance Lattice" (←New
(GetObjectRec (QUOTE
ClassBrowser))
Show OBJECT)
"Show the inheritance lattice
of all classes now in the system."])
(UE
[LAMBDA NIL (* mjs: "29-JUL-83 16:24")
(RESETFORM [TTYDISPLAYSTREAM (OR (WINDOWP (EVALV (QUOTE USEREXECDS)))
(SETQ USEREXECDS (CREATEW NIL "User Exec -- PPDefault Window"]
(CURSOR T)
(CLOSEW USEREXECDS)
(USEREXEC)
(CLOSEW USEREXECDS])
(PPW
[LAMBDA (FN window) (* dgb: "29-NOV-82 01:27")
(* Prettyprint fn to specified or user exec window)
(RESETFORM (OUTPUT (COND
[window (COND
((EQ window T)
(PROG ((w (CREATEW)))
(DSPSCROLL (QUOTE ON)
w)
(RETURN w)))
((WINDOWP window)
window)
(T (EVAL window]
(T USEREXECDS)))
(PRETTYPRINT (CONS FN])
(PrintScreen
[LAMBDA (keepFlg) (* dgb: "13-JUN-83 17:03")
(* Creates a bit map from the contents of a window and stores it on file. If no window is given, uses SELECTW to
to allow user to specify window by putting the mouse over the window and then pressing CTRL.
If no file is given, it puts bitmap on WINDOW.PRESS, prints it and then deletes file. host defaults to
FULLPRESSPRINTER or if none then DEFAULTPRINTINGHOST. If file is given but no host, then does not print.)
(PROG (fullName)
(COND
((SETQ fullName
(PRESSBITMAP (QUOTE SCREEN.PRESS)
(SCREENBITMAP)
.5
(create REGION
LEFT ← 1
BOTTOM ← 1
WIDTH ← 1023
HEIGHT ← 807))) (* Just print it)
[EMPRESS fullName 1 (OR FULLPRESSPRINTER (SETQ FULLPRESSPRINTER (PromptRead
"Tell me your full press printer"))
(RETURN (PROMPT "No screen printed.
SCREEN.PRESS saved."]
(OR keepFlg (DELFILE fullName])
(PressScreen
[LAMBDA (name) (* dgb: "21-SEP-83 16:22")
(PrintScreen T)
(AND (OR name (SETQ name (PromptRead "Tell me a name for press file,
or NIL to use SCREEN.PRESS")))
(RENAMEFILE (QUOTE SCREEN.PRESS)
name])
(PrintWindow
[LAMBDA (window file host scaleFactor) (* dgb: "30-JAN-83 12:30")
(* Creates a bit map from the contents of a window and stores it on file. If no window is given, uses SELECTW to
to allow user to specify window by putting the mouse over the window and then pressing CTRL.
If no file is given, it puts bitmap on WINDOW.PRESS, prints it and then deletes file. host defaults to
FULLPRESSPRINTER or if none then DEFAULTPRINTINGHOST. If file is given but no host, then does not print.)
(PROG (fullName region)
(OR window (SETQ window (SELECTW)))
(SETQ region (WINDOWPROP window (QUOTE REGION)))
(TOTOPW window)
(SETQ fullName (PRESSBITMAP (OR file (QUOTE WINDOW.PRESS))
(SCREENBITMAP)
(OR scaleFactor (COND
((GREATERP (LLSH (fetch WIDTH of region)
1)
SCREENWIDTH)
.5)))
region))
[COND
((OR host (NULL file)) (* Just print it)
(EMPRESS fullName 1 (OR host FULLPRESSPRINTER DEFAULTPRINTINGHOST]
(OR file (DELFILE fullName))
(RETURN fullName])
(PrintLattice
[LAMBDA (window) (* dgb: "25-JAN-83 23:30")
(* Given a window which contains a graph produced by GRAPHER, sends a smooth copy of the graph to
DEFAULTPRINTINGHOST. If window is not given then allows selection by placing mouse over window and hitting CTRL.)
(OR window (SETQ window (SELECTW)))
(COND
((NULL (GETD (QUOTE HCG-HARDCOPY)))
(PRINTOUT T "LOAD PRESSGRAPHER.DCOM to make this work" T))
(T (HCG-HARDCOPY (WINDOWPROP window (QUOTE GRAPH))
1])
(PromptEval
[LAMBDA (promptString) (* dgb: " 2-MAR-83 10:55")
(* Printout promptString in promptwindow and return
value of expression read there)
(PROG (NEWVALUE)
(RESETLST (RESETSAVE (TTYDISPLAYSTREAM PROMPTWINDOW))
(RESETSAVE (TTY.PROCESS (THIS.PROCESS)))
(CLRPROMPT)
(RESETSAVE (PRINTLEVEL 4 3))
(printout T promptString T "The expression read will be EVALuated." T "> ")
(SETQ NEWVALUE (LISPX (LISPXREAD T T)
(QUOTE >))) (* clear tty buffer because it sometimes has stuff
left.)
(CLEARBUF T T))
(RETURN NEWVALUE])
(PromptRead
[LAMBDA (promptString) (* edited: "31-MAY-83 15:43")
(* Printout promptString in promptwindow and return
value of expression read there)
(PROG (NEWVALUE)
[RESETLST (RESETSAVE (TTYDISPLAYSTREAM PROMPTWINDOW))
(RESETSAVE (TTY.PROCESS (THIS.PROCESS)))
(CLRPROMPT)
(RESETSAVE (PRINTLEVEL 4 3))
(printout T promptString T "> ")
(CLEARBUF T T) (* clear tty buffer because it sometimes has stuff
left.)
(SETQ NEWVALUE (CAR (ERSETQ (LISPXREAD T T]
(RETURN NEWVALUE])
)
(* Positions and regions for various windows on Loops screen)
(RPAQQ SCREENVARS (EditCommands OtherCommands deditPos edComsPos eeIconPos eePos histIconPosition
histPosition loopsIconPosition promptPos ttyPos ueIconPos uePos
(BACKGROUNDSHADE 34850)
(DEditLinger)))
(RPAQQ EditCommands (("Others" (MENU (create MENU ITEMS ← OtherCommands))
"Pop up Menu of Other Commands")
("DE" "DE" "Enter display structure editor" "
")
("EE" "EE" "Enter display character editor." "
")
(% NIL "Leave edit window if parens balance")
(OK NIL "Finish Editing" "
")
(reprint (PROGN (BKSYSBUF (CHARACTER 193))
"P")
"Reprettyprints if parens balance" "")
(doneEdit " OKCLOSE
" "End editing if parens balance,and close edit window" "")))
(RPAQQ OtherCommands (("WindowShade" "MakeWindowShade(T)" "Make window shade of selected window" "")
("FileMenus" "MakeFileMenus(" "Display Typein menus for file objects" "")
("Patch File" "PatchUp(T)" "Make patch file of changes" "")
("Files Loaded" (PROGN (TMenu (QUOTE FILELST)
"FILELST" 1)
"")
"Put up TMenu of files loaded" "")
("Keep This" (PROGN (TMenu (QUOTE OtherCommands)
"Other Commands"
(QUOTE (297 330 94 92)))
"")
"Make permanent TMenu of Other commands")
("]" "]" "Type in Right Bracket" "")))
(RPAQQ deditPos (426 227 512 581))
(RPAQQ edComsPos (0 430 426 32))
(RPAQQ eeIconPos (851 . 789))
(RPAQQ eePos (426 0 598 812))
(RPAQQ histIconPosition (438 . 675))
(RPAQQ histPosition (426 . 0))
(RPAQQ loopsIconPosition (436 . 742))
(RPAQQ promptPos (0 748 426 60))
(RPAQQ ttyPos (0 430 426 318))
(RPAQQ ueIconPos (104 . 410))
(RPAQQ uePos (0 0 426 430))
(RPAQQ BACKGROUNDSHADE 34850)
(RPAQQ DEditLinger NIL)
(ADDTOVAR USERMACROS (UE NIL (E (UE)))
(OKCLOSE NIL (E (SHRINKW TTYINEDITWINDOW))
OK)
(EE NIL (E (CURSOR T)
T)
(E (WINDOWPROP TTYINEDITWINDOW (QUOTE TITLE)
(CONCAT "TtyInEdit of " TYPE " " ATM))
T)
(COMS (TTED DO.EE EE)))
(EE (DUMMY)
(E (CURSOR T)
T)
(E (WINDOWPROP TTYINEDITWINDOW (QUOTE TITLE)
(CONCAT "TtyInEdit of " TYPE " " ATM))
T)
(COMS (TTED DO.EE EE)))
(DE NIL (COMSQ (BI 1 -1)
(E (DEDITE (%#%# 1))
T)
(BO 1))))
(ADDTOVAR EDITCOMSA DE OKCLOSE EE)
(ADDTOVAR EDITCOMSL UE EE)
(ADDTOVAR LISPXMACROS (OKCLOSE (PROGN (SHRINKW TTYINEDITWINDOW)
(RETFROM (OR (STKPOS (QUOTE USEREXEC))
(QUOTE LISPX))
T T))))
[ADVISE (QUOTE CNDIR)
(QUOTE AFTER)
(QUOTE (PROGN (WINDOWPROP TTY (QUOTE TITLE)
(CONCAT !VALUE " is Connected Directory -- Top Level Window"))
(PrintStatus (CHARACTER 7)
"Connecting to " !VALUE]
(READVARS WhiteLoopsIconBM BlackLoopsIconBM LoopsIconShadow PalIconBM)
( {(READBITMAP)(64 64
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@AOOH@@@@@@"
"@@@@@AOOOOH@@@@@"
"@@@@@GO@@ON@@@@@"
"@@@@AO@@@@OH@@@@"
"@@@@CH@@@@CL@@@@"
"@@@@OG@B@@@O@@@@"
"@@@ANDHBFCHGH@@@"
"@@@CHDJJID@AL@@@"
"@@@GLGBJOC@@N@@@"
"@@@NFEJJH@H@G@@@"
"@@@LBDKJGG@@C@@@"
"@@ALC@@@@@@@CH@@"
"@@CHAH@@@CH@GL@@"
"@@C@@L@@@DDAIL@@"
"@@G@@CCOLHBB@N@@"
"@@F@@AN@C@AL@F@@"
"@AN@@@D@A@@@@GL@"
"@CLLHDD@@L@@@CO@"
"@LMBH@D@@F@LDKCH"
"AHMBNDDIGCABDK@L"
"B@MBJDDJDIABDK@F"
"FCHLNDDLGAINCALG"
"LGH@@DLJDHIBKENC"
"HMH@@LHIG@L@@AKA"
"HIH@F@@@@@D@@AIA"
"HMH@F@@@@@@@@EIA"
"HGH@F@NALEHG@AKA"
"LCN@FAOCNGLMHANC"
"D@ONFAKCFFNLAOLC"
"B@@NFAKCFFFGAN@F"
"CH@@FAKCFFFAH@@L"
"@L@@GMOCNGLMH@CH"
"@GO@GLNALGHG@AN@"
"@AON@@@@@F@@GOH@"
"@@FOON@@@FAOON@@"
"@@GAOOOOOFOOHF@@"
"@@C@@AOOO@N@@L@@"
"@@CHB@@@@@@LAH@@"
"@@ALD@@@@@@DCH@@"
"@@@LL@HDLN@FC@@@"
"@@@OH@HEBI@CG@@@"
"@@@G@@HDHI@@N@@@"
"@@@CH@HDDN@AL@@@"
"@@@AN@HEBH@GH@@@"
"@@@@O@ODLH@O@@@@"
"@@@@CL@@@@CL@@@@"
"@@@@AO@@@@OH@@@@"
"@@@@@GN@@ON@@@@@"
"@@@@@AOOOOH@@@@@"
"@@@@@@AOOH@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@")} {(READBITMAP)(64 64
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@AJJH@@@@@@"
"@@@@@AB@@BH@@@@@"
"@@@@@B@@@@F@@@@@"
"@@@@AH@OO@AH@@@@"
"@@@@B@OOOO@D@@@@"
"@@@@HGOOOOLC@@@@"
"@@@A@HOMOOO@H@@@"
"@@@BAKGMILGHD@@@"
"@@@DGKEEFKONB@@@"
"@@@@CHME@LOOA@@@"
"@@@IIJEEGOGOH@@@"
"@@ACMKDEHHOOLH@@"
"@@BCLOOOOOOOLF@@"
"@@@GNGOOOLGOHB@@"
"@@DOOCOOOKKNFC@@"
"@@HOOLL@CGMMOAH@"
"@@IOONAOLONCOIL@"
"@@AOOOKONOOOOHC@"
"@ACCGKKOOCOOOL@H"
"@CBMGOKOOIOCKDLD"
"@OBMAKKFHLNMKDOB"
"COBMEKKEKFNMKDOI"
"GLGCAKKCHNFALNCH"
"OHGOOKCEKGFMDJAL"
"OBGOOCGFHOCOONDN"
"OFGOIOOOOOKOONFN"
"OBGOIOOOOOOOOJFN"
"OHGOIOANCJGHONDN"
"OLAOIN@LAHCBGNAL"
"GO@AINDLIIACN@CL"
"AOOAINDLIIIHNAOI"
"@OOOINDLIIINGOOB"
"@GOOHB@LAHCBGOLD"
"@@AOHCANCHGHON@H"
"@B@AOOOOOIOOH@N@"
"@AI@@AOOOIN@@AH@"
"@@HN@@@@@I@@GH@@"
"@@DOON@@@OAOOB@@"
"@@DGMOOOOOOCNB@@"
"@@BCKOOOOOOKLD@@"
"@@@CCOGKCAOILH@@"
"@@@HGOGJMFOLHH@@"
"@@@@OOGKGFOOA@@@"
"@@@@GOGKKAONC@@@"
"@@@AAOGJMGOHD@@@"
"@@@@HO@KCGO@H@@@"
"@@@@DCOOOOLC@@@@"
"@@@@B@OOOO@D@@@@"
"@@@@AH@OO@AH@@@@"
"@@@@@F@@@@F@@@@@"
"@@@@@CN@@GH@@@@@"
"@@@@@@AOOH@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@")} {(READBITMAP)(64 64
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@GOOH@@@@@@"
"@@@@@AOOOOH@@@@@"
"@@@@@GOOOON@@@@@"
"@@@@AOOOOOOH@@@@"
"@@@@COOOOOOL@@@@"
"@@@@OOOOOOOO@@@@"
"@@@AOOOOOOOOH@@@"
"@@@COOOOOOOOL@@@"
"@@@GOOOOOOOON@@@"
"@@@OOOOOOOOOO@@@"
"@@@OOOOOOOOOO@@@"
"@@AOOOOOOOOOOH@@"
"@@COOOOOOOOOOL@@"
"@@COOOOOOOOOON@@"
"@@GOOOOOOOOOON@@"
"@@OOOOOOOOOOOO@@"
"@@OOOOOOOOOOOOL@"
"@AOOOOOOOOOOOOO@"
"@AOOOOOOOOOOOOOH"
"@OOOOOOOOOOOOOOL"
"AOOOOOOOOOOOOOON"
"COOOOOOOOOOOOOOO"
"GOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"GOOOOOOOOOOOOOOO"
"AOOOOOOOOOOOOOON"
"@GOOOOOOOOOOOOOL"
"@GOOOOOOOOOOOOOH"
"@COOOOOOOOOOOOO@"
"@AOOOOOOOOOOOOH@"
"@@OOOOOOOOOOON@@"
"@@GOOOOOOOOOON@@"
"@@GOOOOOOOOOON@@"
"@@COOOOOOOOOOL@@"
"@@AOOOOOOOOOOH@@"
"@@@OOOOOOOOOOH@@"
"@@@GOOOOOOOOO@@@"
"@@@COOOOOOOOO@@@"
"@@@AOOOOOOOOL@@@"
"@@@@OOOOOOOOH@@@"
"@@@@GOOOOOOO@@@@"
"@@@@COOOOOOL@@@@"
"@@@@AOOOOOOH@@@@"
"@@@@@GOOOON@@@@@"
"@@@@@COOOOH@@@@@"
"@@@@@@AOOH@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@")} {(READBITMAP)(64 64
"HHHHHHHHDHHHHHHH"
"HHHHHHHCHHHHHHHH"
"BBBBBBBNNBBBBBBB"
"BBBBBBG@ALBBBBBB"
"HHHHHIL@@CHHHHHH"
"HHHHHN@A@@G@HHHH"
"BBBBG@@CH@ALBBBB"
"BBBCH@@GL@@CJBBB"
"HHIL@@@CH@@@G@HH"
"HAN@@@@A@@@@@O@H"
"@N@@@@@@@@@@@@NB"
"COOOOOOOOOOOOOOJ"
"J@@@@@@@@@@@@@@H"
"KOOOOOOOOOOOOOOH"
"@IAAAAAAAAAAAABB"
"BHOH@@LF@@AHD@BB"
"HHFL@@DB@@@H@@BH"
"HHFLGHLFCLGILGBH"
"BHLLMHLFFLMHLMJB"
"BHOIIHLFLMK@MIJB"
"HHLAKAHLMIKAIIJH"
"HIHAKAHLMIKAIKBH"
"BKL@OILNGLOILNBB"
"BH@@@@@@@@@@@@BB"
"HOOOOOOOOOOOOONH"
"H@H@B@@@@@@H@BHH"
"BBH@COOOOOOH@BBB"
"BBOONBBBBBBOONBB"
"HHD@DHHHHHHD@DHH"
"HHGOLHHHHHHGOLHH"
"BBB@JBBBBBBB@JBB"
"BBB@JBBBBBBB@JBB"
"HHJ@I@@@@@@J@HHH"
"HHJ@HOOOOONJ@HHH"
"BBB@JD@@@@DB@JBB"
"BBB@JGOOOOLB@JBB"
"HHJ@HJJJJJHJ@HHH"
"HHJ@HKOOOOHJ@HHH"
"BBB@JBHA@BJB@JBB"
"BBB@JCHA@CJB@JBB"
"HHJ@HJHA@BHJ@HHH"
"HHJ@HKHA@CHJ@HHH"
"BBB@JBHA@BJB@JBB"
"BBB@JCHA@CJB@JBB"
"HHJ@HJHA@BHJ@HHH"
"HHJ@HKHA@CHJ@HHH"
"BBB@JBHA@BJB@JBB"
"BBB@JCHA@CJB@JBB"
"HHJ@HJHEDBHJ@HHH"
"HHJ@HKHEDCHJ@HHH"
"BBB@JBHEDBJB@JBB"
"BBGOLCHA@CJGOLBB"
"HHD@DJHA@BHD@DHH"
"HHOONKHA@CHOONHH"
"BBH@BBHA@BJH@BBB"
"BBH@BCHA@CJH@BBB"
"H@H@BJHA@BHH@BHH"
"HOOOOOOOOOOOOOOB"
"@H@@@@@@@@@@@@A@"
"COOOOOOOOOOOOOOL"
"J@@@@@@@@@@@@@@D"
"OOOOOOOOOOOOOOOO"
"H@@@@@@@@@@@@@@A"
"OOOOOOOOOOOOOOOO")})
(* (c) Copyright 1983 Xerox Corporation)
(DECLARE: DONTCOPY
(FILEMAP (NIL (1242 10254 (HistIcon 1252 . 1545) (LoopsIcon 1547 . 2047) (SetUpScreen 2049 . 3179) (
ClassLatticeFn 3181 . 4776) (UE 4778 . 5118) (PPW 5120 . 5636) (PrintScreen 5638 . 6711) (PressScreen
6713 . 7002) (PrintWindow 7004 . 8221) (PrintLattice 8223 . 8795) (PromptEval 8797 . 9541) (PromptRead
9543 . 10252)))))
STOP