1
0
mirror of synced 2026-05-10 09:25:44 +00:00
Files
Interlisp.medley/library/tedit/TEDIT-MENU.LCOM
2026-05-07 20:57:58 -07:00

638 lines
54 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "29-Apr-2026 15:35:33" ("compiled on " {MEDLEY}<library>TEDIT>TEDIT-MENU.;512)
"29-Apr-2026 08:42:52" brecompiled exprs%: \TEDIT.SHOW.PAGELOOKS in "FULL 29-Apr-2026 ..." dated
"29-Apr-2026 08:43:01")
(FILECREATED "29-Apr-2026 15:35:33" {MEDLEY}<library>TEDIT>TEDIT-MENU.;512 183159 :EDIT-BY rmk
:CHANGES-TO (FNS \TEDIT.SHOW.PAGELOOKS) :PREVIOUS-DATE " 9-Feb-2026 09:10:43"
{MEDLEY}<library>TEDIT>TEDIT-MENU.;510)
TEDIT.ADD.MENUITEM :D8
(P 0 OLDITM I 1 ITEM I 0 MENU) ¥A@É
’±Aµ1@@ÉAh
@Ékð²%@h°.@É
X²ÂHdA¿@Ékð™@h¿@É
n'@É
n'@h@ h(160 UPDATE/MENU/IMAGE 85 SASSOC 46 \NCONC2 13 MEMBER)
(151 MENU 136 MENU 122 MENU 112 MENU 101 MENU 78 MENU 66 MENU 54 MENU 36 MENU 30 MENU 6 MENU)
()
TEDIT.DEFAULT.MENUFNA0001A0002A0003 :D8
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SI::*RESETFORMS* F 1 TEXTOBJ) g` hhPcQ (29 TEDIT.SUBSTITUTE 14 CURSOR)
(9 WAITINGCURSOR 4 CURSOR)
()
TEDIT.DEFAULT.MENUFNA0001A0002 :D8
(NAME SI::*UNWIND-PROTECT* P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 SI::*CLEANUP-FORMS* F 3 TEXTOBJ F 4 TSTREAM F 5 ITEM F 6 PANE F 7 SI::*RESETFORMS* F 8 LISPXHIST) vUdgð¨dgð²¿ShdSg
dgðš¿Shdi dgð¨dgð²ShSg
dgð™¿Shi dgðS dgðS dgð² W!g ¿$dgðT dgðS dgðT dgðT dgðT dgðT dgð–¿dgð²¿SÉJµVi
gð²SÉJµV U´ oSi
hWcV kU(367 TEXTSTREAM 353 \TEDIT.MARKACTIVE 337 \TEDIT.UNSPLITW 312 \TEDIT.SPLITW 284 TEDIT.BUTTONS.BUILD 269 \TEDIT.PAGEMENU.START 254 \TEDIT.PARAMENU.START 239 \TEDIT.CHARMENU.START 224 \TEDIT.EXPANDEDMENU.START 209 TEDIT.HARDCOPY 194 \TEDIT.KEY.FIND 175 SI::RESETUNWIND 170 \MVLIST 165 TEDIT.DEFAULT.MENUFNA0001A0002A0003 140 \TEDIT.FINISHEDIT? 125 TEDIT.INCLUDE 110 TEDIT.GET 92 TEDIT.GET 87 GETTEXTPROP 56 TEDIT.PUT 37 TEDIT.PUT 32 GETTEXTPROP)
(327 TEXTOBJ 318 Unsplit% Window 301 TEXTOBJ 291 Split% Window 276 Buttons 261 Page% Layout 246 Paragraph% Formatting 231 Character% Looks 216 Expanded% Menu 201 Hardcopy 186 Find 160 SI::RESETUNWIND 147 Substitute 132 Quit 117 Include 99 Unformatted% Get 82 CLEARGET 71 |Get Formatted Document| 63 Get 44 Plain-Text 27 CLEARPUT 14 |Put Formatted Document| 6 Put)
( 346 (PROGN (\TEDIT.MARKINACTIVE OLDVALUE)))
TEDIT.DEFAULT.MENUFNA0001 :D8
(P 4 RESETSTATE P 3 SI::*RESETFORMS* P 2 LISPXHIST P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 5 LISPXHIST F 6 SI::NLSETQ-VALUE) -i@U!g ¿$hc g(28 SI::RESETUNWIND 23 \MVLIST 18 TEDIT.DEFAULT.MENUFNA0001A0002)
(42 :NORMAL 13 SI::RESETUNWIND)
()
TEDIT.DEFAULT.MENUFN :D8
(P 7 SI::*NLSETQFLAG* P 6 *PROCEED-CASES* P 5 SI::NLSETQ-VALUE P 4 THISMENU P 3 ITEM P 2 WMENU P 1 TEXTOBJ P 0 TSTREAM I 0 PANE F 8 *PROCEED-CASES*) ¨@ H‡Hɹ@g
!IÉ>²$IdÉ>ið•oIÉ>o
i h@g
Zµ.`\ »`WN gð´h Z@gJ ¿°Æ(163 PUTWINDOWPROP 150 \TEDIT.CREATEMENU 134 TEDIT.DEFAULT.MENUFNA0001 112 MENU 98 GETWINDOWUSERPROP 82 TEDIT.PROMPTPRINT 76 CONCAT 42 GETWINDOWUSERPROP 5 TEXTSTREAM)
(157 TEDIT.MENU 140 :NORMAL 122 SI::NLSETQ-PROCEED-CASE 106 TEDIT.DEFAULT.MENU 93 TEDIT.MENU.COMMANDS 37 TEDIT.MENU 30 TEXTOBJ 23 STREAM 14 TEXTOBJ)
( 71 " operation in progress; please wait" 62 "Edit")
TEDIT.REMOVE.MENUITEM :D8
(P 0 ITEMLIST I 1 ITEM I 0 MENU) k0Ad3@ð§A ²"@ÉYµ°ZµI°óAô²ùJb¿A@ÉX
´)@AH
@h@h@ (104 UPDATE/MENU/IMAGE 78 REMOVE 63 MEMBER 14 STRINGP)
(95 MENU 86 MENU 71 MENU 55 MENU 22 MENU)
()
\TEDIT.CREATEMENU :D8
(I 0 ITEMS) \`d@¿di ¿gl
g HdI¿dg¿dg¿dg ¿jdnÿdhHdI
¿(32 FONTCREATE)
(66 CLRPROMPT 57 \TEDIT.MENU.WHENSELECTEDFN 48 \TEDIT.MENU.WHENHELDFN 27 BOLD 20 HELVETICA 4 |MENUTYPE#|)
()
\TEDIT.MENU.WHENHELDFN :D8
(I 2 BUTTON I 1 MENU I 0 ITEM) Š@”@3²}@dgð—¿o°agðo°S@dgð—¿o°Bgðo°4@dgð—¿o°#gðo°@gð•o„o @ (135 DEFAULTMENUHELDFN 128 PROMPTPRINT 11 CLRPROMPT)
(110 Hardcopy% File 95 Hardcopy 80 Quit 64 Find 49 Looks 33 Get 18 Put)
( 123 "" 117 "Creates a hardcopy-format file of the document." 102 "Formats and sends the file to a printer."
88 "Ends the edit session" 71 "Searches for a string" 57 "Changes the font/size/etc. of characters" 40
"Gets a new file as the document to edit." 26 "Sends the document to a file")
\TEDIT.MENU.WHENSELECTEDFN :D8
(I 2 BUTTON I 1 MENU I 0 ITEM) @AB B(7 DEFAULTWHENSELECTEDFN)
NIL
()
DRAWMARGINSCALE :D8
(P 6 NOMX P 5 X P 1 OLDOP P 0 WREG I 1 UNIT I 0 W) Ñh@
g@
"jdHlhjg@ Adkð¢±<00>¿HlMLó“±MlÙlHÜZjð³+Jµnÿÿ@Mlklg
¿MlÔ]°Í ²Þnÿÿ@Mlklg
¿MdlÙ âÙl
@ ¿MlÙ@
°¼l 𢱕HljMLó±ƒNlÜ[jð³HKµ<nÿÿ@Mlklg
¿nÿÿ@MlØlklg
¿Ml Ô½NkÔ¾°³ ²Ánÿÿ@Mlklg
¿MN âÙl
@ ¿N@
°¥nÿÿ@llHkg
jd@ HlÙjkg@
jHlÙkg@
jHlÙÙjkg@
jdHlÙÙkg@
I@
h(461 DSPOPERATION 454 RELDRAWTO 430 RELDRAWTO 407 RELDRAWTO 385 RELDRAWTO 364 MOVETO 356 BLTSHADE 329 PRIN1 321 MOVETO 311 STRINGWIDTH 303 BLTSHADE 280 \FZEROP 263 BLTSHADE 238 BLTSHADE 177 PRIN1 166 MOVETO 156 STRINGWIDTH 145 BLTSHADE 122 \FZEROP 109 BLTSHADE 45 DSPFILL 17 DSPOPERATION 6 DSPCLIPPINGREGION)
(447 PAINT 423 PAINT 400 PAINT 378 PAINT 350 REPLACE 297 REPLACE 257 REPLACE 232 REPLACE 139 REPLACE 103 REPLACE 39 REPLACE 11 REPLACE)
()
MARGINBAR :D8
(P 8 TAB P 7 UNSETLN P 6 UNSETL1 P 5 EXTENDEDRIGHT P 4 FLOATINGRIGHT P 3 SCALEDR P 2 SCALEDLN P 1 SCALEDL1 P 0 OLDOP I 7 RIGHTLIM I 6 UPDATE I 5 UNIT I 4 TABS I 3 R I 2 LN I 1 L1 I 0 W F 9 TEDIT.EXTENDEDRIGHTMARK) » g@
AE
BE
CE
DG¥¿F§@E
¿gl
@
A bB bC blKñ™i¼ldKÙØ°Kdlñ¥¿i¼GŠGñ—i½GlÙ»l˜i¾ldIÙØ¹lJñši_¿ldJÙØºj@klh@
lÙl g
nÿÿ@Il*KIÙlg
nÿÿ@JlKJÙlg
N²On€ @Il*A@
lØlg
¿g@
¿IlØl,@ ¿A@
¿g@
°IlØl,@ ¿A@
¿O²On€ @JlB@
lØlg
¿g@
¿JlØl@ ¿B@
¿g@
°JlØl@ ¿B@
¿L²9n€ @KC@
lØÙlC@
lØl g
¿g@
°!M²Wjd@Klll gg
¿KC@
lØÙl$@ C@
H@
Dgð²*lkh@
lÙlhn€ g@ ¿°Alkh@
lÙlhjg@ ¿D°d@OEg µêh(690 MB.MARGINBAR.SHOWTAB 667 DSPFILL 642 DSPCLIPPINGREGION 629 DSPFILL 602 DSPCLIPPINGREGION 583 DSPOPERATION 576 PRIN1 569 MOVETO 557 STRINGWIDTH 548 BKBITBLT 515 DSPOPERATION 503 BLTSHADE 487 STRINGWIDTH 474 STRINGWIDTH 458 PRIN1 450 MOVETO 436 DSPOPERATION 424 PRIN1 416 MOVETO 403 DSPOPERATION 391 BLTSHADE 375 STRINGWIDTH 356 PRIN1 348 MOVETO 334 DSPOPERATION 322 PRIN1 314 MOVETO 301 DSPOPERATION 289 BLTSHADE 273 STRINGWIDTH 256 BLTSHADE 233 BLTSHADE 210 BLTSHADE 191 DSPCLIPPINGREGION 108 MKSTRING 103 ABS 95 MKSTRING 90 ABS 82 MKSTRING 77 ABS 71 DSPFONT 65 FONTCREATE 52 DRAWMARGINSCALE 42 \TEDIT.THELP 31 MSCALE 24 MSCALE 17 MSCALE 10 DSPOPERATION)
(685 PAINT 661 REPLACE 623 REPLACE 589 NEUTRAL 542 REPLACE 537 INPUT 509 PAINT 497 REPLACE 430 ERASE 397 PAINT 385 REPLACE 328 ERASE 295 PAINT 283 REPLACE 250 REPLACE 227 REPLACE 204 REPLACE 58 TERMINAL 4 ERASE)
()
MARGINBAR.CREATE :D8
(P 4 DS P 3 BITMAP P 2 OBJDATUM P 1 OBJ P 0 BOX I 6 MAINTSTREAM/WIDTH I 5 MARTABTYPE I 4 MARUNIT I 3 MARTABS I 2 MARR I 1 MARLN I 0 MARL1 F 5 MARGINBARIMAGEFNS) ñFd3 ³"²F ²hF
µ`lÙl>jlhA@ABCDEHhZU
YHH
[IgK K \IgL jL
jL
jdHHhL
LJJJJJhdL

Igg Igg Igg I(237 IMAGEOBJPROP 221 IMAGEOBJPROP 205 IMAGEOBJPROP 189 MARGINBAR 180 DSPCLIPPINGREGION 151 DSPCLIPPINGREGION 133 DSPYOFFSET 126 DSPXOFFSET 119 IMAGEOBJPROP 106 DSPCREATE 100 IMAGEOBJPROP 87 BITMAPCREATE 76 IMAGEOBJCREATE 27 DSPCLIPPINGREGION 22 \TEDIT.PRIMARYPANE 13 \TEDIT.PRIMARYPANE)
(232 MARGINBAR.SETSTATEFN 227 SETSTATEFN 216 MARGINBAR.GETSTATEFN 211 STATEFN 200 MARGINBAR 195 IDENTIFIER 113 DSPCACHE 94 BITCACHE 37 SCREENWIDTH)
()
MB.MARGINBAR.BUTTONEVENTINFN :D8
(P 18 RIGHTLIM P 17 PWIDTH P 16 L1 P 15 OL1 P 14 LN P 13 OLN P 12 RMARG P 11 OLDRMARG P 10 TABS P 9 UNIT P 8 CLIP P 7 IMAGEBOX P 0 OBJDATUM I 5 MENUTSTREAM I 4 RELY I 3 RELX I 2 SEL I 1 MENUDS I 0 OBJ) 3E @g
a@g
µ @E
H_ _¿H__¿H__¿H_¿H_¿jdOOh_¿hA
O"lÙ_$¿O O
lÙl*ldhCD ²|¿`låjð±`OE E ¢±IE O
¹jIój€I_ ¿`lðjO Õ_ ¿OO
³¤EO OOOOiO$
¿O _¿°ˆO O
lÙlldhCD ²|¿`låjð±ÂOE E ¢±«E O
ºjJój€J_¿`lðjOÕ_¿OO
³¤EO OOOOiO$
¿O_¿°ˆO O
O»dKñ¿KdO"ñ¿O"lÙlll hCD ’±ŸO ¼jLñ¡LjLÙ]jð³fMµZjdOlhCD ¢±ï¿`kåjð±ÎgEghi
g𢱱Eoi ±¯ ²£OdO"ñ¿O"lÙlll hCD ²<>¿`låjð³tOE E ²_E O
¾jNój€N_¿`lðjOÕ_¿OO
³¨EO OOOOiO$
¿O_¿°ŒHHAE ¿HO ¿HO¿HO¿E g(811 TEDIT.BACKTOMAIN 785 MB.MARGINBAR.SELFN.TABS 765 MARGINBAR 743 EQP 707 MDESCALE 700 LASTMOUSEX 692 INSIDE? 687 LASTMOUSEY 681 LASTMOUSEX 660 GETMOUSESTATE 653 INSIDE? 619 \FZEROP 611 TEDIT.PROMPTPRINT 589 MB.GET 556 GETMOUSESTATE 547 INSIDE? 506 FIXR 495 INSIDE? 456 MSCALE 449 ABS 434 MARGINBAR 412 EQP 376 MDESCALE 369 LASTMOUSEX 359 INSIDE? 354 LASTMOUSEY 348 LASTMOUSEX 325 GETMOUSESTATE 318 INSIDE? 298 MSCALE 291 ABS 276 MARGINBAR 254 EQP 218 MDESCALE 211 LASTMOUSEX 201 INSIDE? 196 LASTMOUSEY 190 LASTMOUSEX 167 GETMOUSESTATE 160 INSIDE? 140 MSCALE 133 ABS 112 DSPCLIPPINGREGION 107 WFROMDS 39 IMAGEBOX 30 IMAGEOBJPROP 16 IMAGEOBJPROP 5 TEDIT.PROMPTCLEAR)
(816 DON'T 723 LASTMOUSEBUTTONS 666 LASTMOUSEBUTTONS 594 OFF 581 STATE 575 TABTYPE 562 LASTMOUSEBUTTONS 392 LASTMOUSEBUTTONS 331 LASTMOUSEBUTTONS 234 LASTMOUSEBUTTONS 173 LASTMOUSEBUTTONS 25 BOUNDBOX 11 OBJECTDATUM)
( 605 "Please choose one of the tab types")
MB.MARGINBAR.SELFN.TABS :D8
(P 26 TAB P 25 TABX P 19 TAB P 18 TABX P 12 TAB P 11 TABX P 7 TABX P 6 SCALEDTABS P 5 TAB P 1 UNIT P 0 TABS I 2 STREAM I 1 SELWINDOW I 0 OBJDATUM) @@¹0@°"dM@
ºKµJh\<5C>J&»µßL¿`låjð³[HNROµˆ_¿OµO]—B@M H_¿OB Ù _¿O•OOó™O_¿O_¿O_¿O_¿°®¿`kåjð±!@gð²-@h¿lklhA
lÙ jgA ¿HNRO µˆ_$¿Oµ[O"]¢±¥MI
_²~B OlÙýñ³oB OlØñ³aBMIg ¿MA ¿BMIg ¿±ÿ _&¿O$B Ù _*¿O(•O(O*ó™O*_(¿O&_"¿O _ ¿O_¿±ÿdM²MB I
±þÂB I
A ]H¸BMIg ¿±þ’¿`låjð±þ†HNRO.µˆ_2¿O,µOO0]¢±þjMI
_¢±þ\B OlÙýñ±þKB OlØñ’±þ;BMIg ¿MH
_4¿O2B Ù _8¿O6•O6O8ó™O8_6¿O4_0¿O._.¿O,_,¿±ÿp(618 ABS 612 LASTMOUSEX 599 REMOVE 591 MB.MARGINBAR.SHOWTAB 568 LASTMOUSEX 551 LASTMOUSEX 539 MSCALE 488 GETMOUSESTATE 479 MB.MARGINBAR.SHOWTAB 461 MB.MARGINBAR.SELFN.TABS.KIND 455 MDESCALE 449 LASTMOUSEX 439 EQP 434 MDESCALE 428 LASTMOUSEX 380 ABS 374 LASTMOUSEX 358 MB.MARGINBAR.SHOWTAB 343 MB.MARGINBAR.SELFN.TABS.KIND 335 MB.MARGINBAR.SHOWTAB 314 LASTMOUSEX 299 LASTMOUSEX 289 MSCALE 252 DSPFILL 240 CREATEREGION 229 DSPCLIPPINGREGION 183 GETMOUSESTATE 142 ABS 136 LASTMOUSEX 122 MB.MARGINBAR.TABTRACK 76 GETMOUSESTATE 43 MSCALE)
(586 ERASE 494 LASTMOUSEBUTTONS 474 PAINT 353 PAINT 330 ERASE 246 REPLACE 207 NEUTRAL 189 LASTMOUSEBUTTONS 82 LASTMOUSEBUTTONS)
()
MB.MARGINBAR.SELFN.TABS.KIND :D8
(P 1 TABTYPE P 0 STATES I 0 SELWINDOW) Do@ghi
HggHg'gðgI
I(63 PACK* 18 MB.GET)
(57 DOTTED 50 ON 44 DOTTEDLEADER 35 LEFT 27 TABTYPE 10 STATE)
( 4 (DOTTEDLEADER TABTYPE))
MARGINBAR.GETSTATEFNA0001 :D8
(L (1 B 0 A)) @AñhðNIL
NIL
()
MARGINBAR.GETSTATEFN :D8
(P 7 LOOKS P 6 MARTABS P 5 R P 4 LN P 3 L1 P 1 MARUNIT P 0 OBJDATUM I 2 TEXTOBJ I 1 OBJ I 0 PC) aAg
!H¹HHH!H¾jKñ¬gKO_¿jLñ¬gLO_¿jMñ¬gMO_¿Ngð³gNI
g
O_¿HZgBg@i
dgð²K¿Jµgdgð—¿g°wdgð—¿g°gdgð—¿g°Wgð´Og°Hgð´@Jdgð—¿g°.dgð—¿g°dgð¿gŒgð´g¿AgOh @(349 IMAGEOBJPROP 180 MB.GET 147 SORT 137 \TEDIT.SCALE.TABS 56 FIXR 42 FIXR 29 FIXR 10 IMAGEOBJPROP)
(340 STATE 332 DECIMAL 324 DOTTEDDECIMAL 318 RIGHT 310 DOTTEDRIGHT 302 CENTERED 294 DOTTEDCENTERED 286 LEFT 278 DOTTEDLEFT 267 OFF 260 DOTTEDDECIMAL 252 DECIMAL 245 DOTTEDRIGHT 237 RIGHT 229 DOTTEDCENTERED 221 CENTERED 213 DOTTEDLEFT 205 LEFT 199 LEFT 186 ON 172 STATE 166 DOTTEDLEADER 142 MARGINBAR.GETSTATEFNA0001 130 TABS 122 NEUTRAL 108 RIGHTMARGIN 91 LEFTMARGIN 74 1STLEFTMARGIN 5 OBJECTDATUM)
()
MARGINBAR.SETSTATEFN :D8
(I 2 TSTREAM I 1 NEWVALUE I 0 PC) gA @(13 IMAGEOBJPROP)
(7 OBJECTDATUM)
()
MARGINBAR.NEUTRALIZE :D8
(I 0 OBJ) ]@g
aHoH^o¿N]o¿M\g¿L[l ¿KZh¿JY@g
¿IhH(77 IMAGEOBJPROP 10 IMAGEOBJPROP)
(72 OBJECTDATUM 48 NEUTRAL 5 OBJECTDATUM)
( 38 -39.5 28 -0.5 19 -0.5)
MARGINBAR.LOOKSA0001 :D8
(L (1 B 0 A)) @AñhðNIL
NIL
()
MARGINBAR.LOOKS :D8
(P 7 LOOKS P 6 MARTABS P 5 R P 4 LN P 3 L1 P 1 MARUNIT P 0 OBJDATUM I 1 DOTTEDLEADER I 0 OBJ) L@g
!H¹HHH!H¾jKñ¬gKO_¿jLñ¬gLO_¿jMñ¬gMO_¿No
³'gIgNI
g
O_¿HZAdgð²K¿dµgdgð—¿g°wdgð—¿g°gdgð—¿g°Wgð´Og°Hgð´@Jdgð—¿g°.dgð—¿g°dgð¿gŒgð´gO(157 SORT 147 \TEDIT.SCALE.TABS 127 MEMB 56 FIXR 42 FIXR 29 FIXR 10 IMAGEOBJPROP)
(326 DECIMAL 318 DOTTEDDECIMAL 312 RIGHT 304 DOTTEDRIGHT 296 CENTERED 288 DOTTEDCENTERED 280 LEFT 272 DOTTEDLEFT 261 OFF 254 DOTTEDDECIMAL 246 DECIMAL 239 DOTTEDRIGHT 231 RIGHT 223 DOTTEDCENTERED 215 CENTERED 207 DOTTEDLEFT 199 LEFT 193 LEFT 180 ON 152 MARGINBAR.LOOKSA0001 140 TABS 134 TABUNIT 108 RIGHTMARGIN 91 LEFTMARGIN 74 1STLEFTMARGIN 5 OBJECTDATUM)
( 122 (NIL NEUTRAL))
MB.MARGINBAR.SIZEFN :D8
(P 0 BOX I 0 OBJ) /@g
l>llh@gH H(43 IMAGEOBJPROP 10 IMAGEOBJPROP)
(37 BOUNDBOX 5 OBJECTDATUM)
()
MB.MARGINBAR.DISPLAYFN :D8
(P 3 DS P 2 BITMAP P 1 OBJDATUM P 0 IMAGEBOX I 1 STREAM I 0 OBJ) Ú@g
µ @A
@g
@g
J<>@g
[°RHH
º@gJ ¿J »@gK ¿jK
¿jK
¿jdHHhK
¿KIIIIIhdA

JjdAhA
lÙhA
HÙ
h(214 BKBITBLT 203 DSPYPOSITION 193 DSPXPOSITION 182 MARGINBAR 173 DSPCLIPPINGREGION 143 DSPCLIPPINGREGION 124 DSPYOFFSET 116 DSPXOFFSET 108 IMAGEOBJPROP 95 DSPCREATE 88 IMAGEOBJPROP 75 BITMAPCREATE 62 IMAGEOBJPROP 46 DSPCREATE 41 IMAGEOBJPROP 30 IMAGEOBJPROP 19 IMAGEBOX 10 IMAGEOBJPROP)
(102 DSPCACHE 82 BITCACHE 57 DSPCACHE 36 BITCACHE 25 OBJECTDATUM 5 BOUNDBOX)
()
MDESCALE :D8
(L (1 UNIT 0 VAL)) Al Ùjð<6A>@lÙàAÛo×@lÕA×NIL
NIL
( 18 2.0)
MSCALE :D8
(I 1 UNIT I 0 VAL) l@AµØ(12 FIXR)
NIL
()
MB.MARGINBAR.SHOWTAB :D8
(P 0 TABX I 3 MODE I 2 UNIT I 1 TAB I 0 W F 1 \TEDIT.LEFTTAB F 2 \TEDIT.CENTERTAB F 3 \TEDIT.DOTTED.DECIMALTAB F 4 \TEDIT.RIGHTTAB F 5 \TEDIT.DECIMALTAB F 6 \TEDIT.DOTTED.LEFTTAB F 7 \TEDIT.DOTTED.CENTERTAB F 8 \TEDIT.DOTTED.RIGHTTAB) 1AB
Adgð²¿Qjd@HlÙkhdgC
¿±ÿdgð²¿Rjd@HlÙkhdgC
¿±Údgð²¿Tjd@HlÙkhdgC
¿±µdgð²¿Ujd@HlÙkhdgC
¿±<00>dgð²¿Vjd@HlÙkhdgC
¿°kdgð²¿Wjd@HlÙkhdgC
¿°Fdgð²¿Wjd@HlÙkhdgC
¿°!gð´Sjd@HlÙkhdgC
h(301 BKBITBLT 267 BKBITBLT 230 BKBITBLT 193 BKBITBLT 156 BKBITBLT 119 BKBITBLT 82 BKBITBLT 45 BKBITBLT 7 MSCALE)
(294 INPUT 275 DOTTEDDECIMAL 260 INPUT 239 DOTTEDRIGHT 223 INPUT 202 DOTTEDCENTERED 186 INPUT 166 DOTTEDLEFT 149 INPUT 129 DECIMAL 112 INPUT 92 RIGHT 75 INPUT 55 CENTERED 38 INPUT 18 LEFT)
()
MB.MARGINBAR.TABTRACK :D8
(P 3 X P 2 OLDX P 1 CLIP P 0 UNIT I 2 TAB I 1 OBJ I 0 STREAM) |Ah@
BA
¿`låjð³I@ @ ¡hJ@ [Ùjð³Î@BHg ¿BKH
¿@BHg ¿Kº°¤(117 MB.MARGINBAR.SHOWTAB 102 MDESCALE 93 MB.MARGINBAR.SHOWTAB 74 LASTMOUSEX 64 INSIDE? 59 LASTMOUSEY 53 LASTMOUSEX 33 GETMOUSESTATE 25 MSCALE 12 DSPCLIPPINGREGION)
(112 PAINT 88 ERASE 39 LASTMOUSEBUTTONS)
()
MARGINBAR.INIT :D8
NIL Ggggggggdggdgdg
(63 IMAGEFNSCREATE)
(68 MARGINBARIMAGEFNS 57 MarginRuler 51 NILL 45 MB.DON'T 40 NILL 34 MB.DON'T 29 MB.MARGINBAR.BUTTONEVENTINFN 24 MB.COPYFN 19 MB.MARGINBAR.GETFN 14 MB.MARGINBAR.PUTFN 9 MB.MARGINBAR.SIZEFN 4 MB.MARGINBAR.DISPLAYFN)
()
\TEDIT.PARALOOKS.TO.MARBAR :D8
(L (1 UNIT 0 PARALOOKS)) F Aë@ÉAë@ÉAëA¸0@É0°dYA×IºKµJh\<5C>J&»µéLHh@ÉhNIL
NIL
()
TEDIT.MENUSTREAM :D8
(P 2 MTSTREAM P 1 W I 1 TITLE I 0 TSTREAM) FA§ob¿@ @ !Hµh¹AI É(
™Ii
ZµæHX°Ý(60 TEXTSTREAM 52 STRING.EQUAL 45 \INSUREWINDOW 26 ATTACHEDWINDOWS 21 \TEDIT.MAINW 15 \TEDIT.PRIMARYPANE)
NIL
( 6 "TEdit Menu")
TEDITMENUP :D8
(I 1 TITLE I 0 TSTREAM) F@i
bd²:ÉÊ8jð³&@ ´i´@@ É(
°êh(64 STRING.EQUAL 57 \INSUREWINDOW 52 \TEDIT.PRIMARYPANE 36 \TEDIT.PRIMARYPANE 6 TEXTSTREAM)
(23 TEXTOBJ 16 STREAM)
()
\TEDIT.MENU.START :D8
(P 3 MENUW P 2 WREG P 1 MENUTEXTOBJ P 0 MAINWINDOW I 4 TYPE I 3 HEIGHT I 2 TITLE I 1 TSTREAM I 0 MENUSTREAM) ŽB§ob¿AB
’±yA @É"H ÉZdJJØmÿØJl…hB
[dgg Kgo KHggg
K ÉbKgC KgjC IkÏ8¿kjðhðKgHg
@KhgggigA ÉLh K É.goDµao
g
Émöd Kgg IÉ¿jdðhð@ Ki
° h(392 L-CASE 384 TEDIT.BACKTOMAIN 350 PUTWINDOWPROP 334 \TEDIT.UPCARET 319 GETWINDOWPROP 306 PROCESSPROP 301 PACK* 276 \INSUREWINDOW 270 TEDIT 251 TEXTOBJ 221 PUTWINDOWPROP 216 GETWINDOWUSERPROP 183 PUTWINDOWPROP 169 PUTWINDOWPROP 145 \INSUREWINDOW 139 ATTACHWINDOW 116 PUTWINDOWPROP 97 WINDOWADDPROP 80 CREATEW 43 \INSUREWINDOW 26 \TEDIT.PRIMARYPANE 16 TEDIT.MENUSTREAM)
(368 SELECTION 363 SELECTION 356 TEXTOBJ 345 \TEDIT.MENU.BUTTONEVENTFN 340 BUTTONEVENTFN 324 PANEPROPS 314 PANEPROPS 283 NAME 256 TEXTOBJ 245 PROMPTWINDOW 239 NOTSPLITTABLE 234 DON'T 229 TITLEMENUFN 211 PROMPTWINDOW 205 PROMPTWINDOW 189 TEXTOBJ 175 MINSIZE 159 MAXSIZE 133 LOCALCLOSE 128 JUSTIFY 123 TOP 103 TEDITMENU 92 FREEATTACHEDWINDOW 87 CLOSEFN 32 STREAM)
( 296 "Menu" 288 "TEdit-" 111 "TEdit Menu" 6 "TEdit Menu")
\TEDIT.MENU.OPEN? :D8
(P 1 W I 1 MAINSTREAM I 0 MENUTITLE) :A Hµh¹@Ig
I ”IµiHX°Ø(45 OPENWP 38 STREQUAL 33 GETWINDOWUSERPROP 10 ATTACHEDWINDOWS 5 \TEDIT.PRIMARYPANE)
(28 TEDITMENU)
()
\TEDIT.MENU.BUTTONEVENTFN :D8
(I 0 MENUW) "@g
Éh@ (31 \TEDIT.BUTTONEVENTFN 10 GETWINDOWPROP)
(22 TEDITCARET 15 PANEPROPS 5 PANEPROPS)
()
\TEDIT.MENU.CREATE :D8
(P 0 MENUTSTREAM I 2 MAINTSTREAM I 1 MENUPROPS I 0 MENUDESC) ]hdddAµo
@HhdB
HÉÉ¿jdðhðHÉkÏ8¿kjðhðH(31 MB.ADD 17 OPENTEXTSTREAM)
(79 TEXTOBJ 72 STREAM 56 SELECTION 51 SELECTION 44 TEXTOBJ 37 STREAM)
( 11 (FONT (MODERN 10)))
\TEDIT.MENU.PARSE :D8
(P 5 STATEFN P 4 STATE P 3 PROP P 2 OBJ P 1 PC I 2 STOPIDENTIFIER I 1 STARTPIECE I 0 MENUTEXTSTREAM) Ï`Aµ>@É °1KLh€h
¸BKð²lðžAÉgI ¤IɵHlð´ôZd™g
[²±Jg
³¤HJg
]˜IJ@lM¹Jg
±ÿxJg
\gð±ÿbL¢±ÿULh
±ÿQ(202 \APPEND2 176 IMAGEOBJPROP 161 IMAGEOBJPROP 139 IMAGEOBJPROP 125 IMAGEOBJPROP 111 IMAGEOBJPROP 63 IMAGEOBJPROP 32 \NCONC2 18 \TEDIT.FIRSTPIECE)
(182 **EMPTY** 171 STATE 156 IGNORE 134 STATEFN 120 IGNORE 106 IDENTIFIER 93 IMAGEOBJ 76 PIECE 57 PARSEENDPIECE 11 STREAM)
()
\TEDIT.MENU.NEUTRALIZEA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 1 OBJ P 0 PC I 0 SI::*CLEANUP-FORMS* F 2 MENUSTREAM) ËR  R ±<00>g
dgð²¿Igg °bdgð²¿HIg
µgR X°>dgð²¿Igg ° dgð˜¿Ii
ŒgðI ¿Hɵ
R lð´ô±ÿM°Ñ(164 TEDIT.BACKTOMAIN 151 MARGINBAR.NEUTRALIZE 137 MB.NWAY.SELECT 119 IMAGEOBJPROP 90 MB.FIELD.SETSTATEFN 77 IMAGEOBJPROP 53 IMAGEOBJPROP 27 IMAGEOBJPROP 14 \TEDIT.FIRSTPIECE 5 TEDIT.DEFER.UPDATES)
(187 IMAGEOBJ 170 PIECE 143 MarginRuler 127 NWayButton 114 OFF 109 STATE 99 ToggleButton 84 **EMPTY** 72 INITSTATE 61 FieldPrefixButton 48 NEUTRAL 43 STATE 33 3StateMenuButton 22 IMAGECLASSNAME)
()
\TEDIT.MENU.NEUTRALIZE :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 MENUSTREAM I 2 MENUSEL I 1 MENUWINDOW I 0 OBJ F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 \TEDIT.MENU.NEUTRALIZEA0001)
(8 SI::RESETUNWIND)
()
\TEDITMENU.RECORD.UNFORMATTED :D8
(I 2 TEXTSTREAM I 1 NEWSTATE I 0 BUTTON) B gAgð (22 PUTTEXTPROP 5 TEXTOBJ)
(16 ON 10 UNFORMATTEDPUT/GET)
()
\TEDIT.EXPANDEDMENU.CREATE :D8
NIL go (14 \TEDIT.MENU.CREATE)
(4 \TEDIT.EXPANDEDMENU.FN)
( 9 ((ACTION (LABEL "Quit") (SELECTFN \TEDIT.EXPANDEDMENU.FN)) 12 (ACTION (IDENTIFIER PAGELAYOUT) (LABEL "Page layout") (SELECTFN \TEDIT.EXPANDEDMENU.FN)) 5 (ACTION (IDENTIFIER CHARLOOKS) (LABEL "Char looks") (SELECTFN \TEDIT.EXPANDEDMENU.FN)) 5 (ACTION (IDENTIFIER PARALOOKS) (LABEL "Para looks") (SELECTFN \TEDIT.EXPANDEDMENU.FN)) 12 (ACTION (LABEL "Select All") (SELECTFN \TEDIT.EXPANDEDMENU.FN)) EOL (ACTION (LABEL "Get") (SELECTFN \TEDIT.EXPANDEDMENU.FN)) (FIELD (IDENTIFIER GETFILE) (FIELDTYPE SYMBOL) (SELECTFN \TEDIT.EXPANDEDMENU.FN)) TAB (ACTION (LABEL "Put") (SELECTFN \TEDIT.EXPANDEDMENU.FN)) (FIELD (IDENTIFIER PUTFILE) (FIELDTYPE SYMBOL) (SELECTFN \TEDIT.EXPANDEDMENU.FN)) TAB (ACTION (LABEL "Include") (SELECTFN \TEDIT.EXPANDEDMENU.FN)) (FIELD (IDENTIFIER INCLUDEFILE) (FIELDTYPE SYMBOL) (SELECTFN \TEDIT.EXPANDEDMENU.FN)) 5 (TOGGLE (LABEL "Unformatted")) EOL (ACTION (LABEL "Find") (SELECTFN \TEDIT.EXPANDEDMENU.FN)) (FIELD (IDENTIFIER FINDPATTERN) (FIELDTYPE STRING)) TAB (ACTION (LABEL "Substitute") (SELECTFN \TEDIT.EXPANDEDMENU.FN)) (FIELD (IDENTIFIER REPLACEMENT) (FIELDTYPE SELECTION)) (FIELD (IDENTIFIER PATTERN) (PRELABEL "for") (FIELDTYPE STRING)) 3 (TOGGLE (LABEL "Confirm")) 3 (TOGGLE (IDENTIFIER USENEWLOOKS) (LABEL "Use New Looks")) EOL (ACTION (LABEL "Hardcopy") (SELECTFN \TEDIT.EXPANDEDMENU.FN)) TAB (FIELD (IDENTIFIER SERVER) (PRELABEL "server:") (FIELDTYPE SYMBOL) (EMPTYVALUE NIL)) (FIELD (IDENTIFIER COPIES) (PRELABEL "copies:") (EMPTYVALUE 1) (FIELDTYPE POSITIVENUMBER)) 3 (TOGGLE (IDENTIFIER DOUBLE-SIDED) (LABEL "Double-sided")) EOL TAB TAB (FIELD (IDENTIFIER MESSAGE/PHONE#) (PRELABEL "Message/Phone#:") (FIELDTYPE STRING))))
\TEDIT.EXPANDEDMENU.START :D8
(P 1 EXPANDEDMENU P 0 TEXTOBJ I 0 TSTREAM) bo@
³T@ Y@ol<i
g
Hg
¬Hg
´ggI h(93 MB.SET.TOGGLE 75 GETTEXTPROP 63 GETTEXTPROP 52 \TEDIT.MENU.START 41 HEIGHTIFWINDOW 26 \TEDIT.EXPANDEDMENU.CREATE 18 TEXTOBJ 10 \TEDIT.MENU.OPEN?)
(87 ON 82 UNFORMATTED 70 CLEARPUT 58 CLEARGET 46 EXPANDED)
( 33 "TEdit Menu" 4 "TEdit Menu")
\TEDIT.EXPANDEDMENU.FN :D8
(P 3 PROC P 2 FORM P 1 EDITOPACTIVE P 0 MAINTEXTSTREAM I 3 MENUSTREAM I 2 MENUW I 1 MENUSEL I 0 OBJ) ³C 1HÉÉ>¹hZ»Idiðž¿Hoi h²$HIo
i ¿I@g
ð´Ýg@ABCHhºBg
É.[ ˜KJ
°B É.[ —KJ
…J ¿C g(171 TEDIT.BACKTOMAIN 164 ADD.PROCESS 157 PROCESS.EVAL 149 PROCESSP 141 \INSUREWINDOW 133 PROCESS.EVAL 125 PROCESSP 117 \INSUREWINDOW 112 GETWINDOWUSERPROP 80 IMAGEOBJPROP 67 TEDIT.PROMPTPRINT 61 CONCAT 45 TEDIT.PROMPTPRINT 5 \TEDIT.MAINSTREAM)
(176 DON'T 107 MAINWINDOW 88 \TEDIT.EXPANDEDMENU.ACTIONFN 75 LABEL 21 TEXTOBJ 14 STREAM)
( 56 " operation in progress; please wait." 39 "Edit operation in progress; please wait.")
\TEDIT.EXPANDEDMENU.ACTIONFNA0001A0002A0003 :D8
(L (0 SEL))
@jÏ¿jdðhðNIL
NIL
()
\TEDIT.EXPANDEDMENU.ACTIONFNA0001A0002 :D8
(NAME SI::*UNWIND-PROTECT* P 8 PRINTOPTIONS P 7 MSG P 6 COPIES P 5 PATTERN P 4 REPLACEMENT P 2 STATE P 1 STATES P 0 MENUTEXTOBJ I 0 SI::*CLEANUP-FORMS* F 9 MAINSTREAM F 10 MENUSTREAM F 11 MENUSEL F 12 SI::*RESETFORMS* F 13 OBJ)  gWhhdWcWÃWˆWÉ1Wg
dgð—W dgð—W dgð—W dgð—W dgð²WkW Ég dgð²ToWgW Ydg'Zd²'WJhIg'gðµWg
Woi dgð²T¿oWgW Ydg'Zd²&WJIg'gðµWg
Woi dgð²X¿oWgW Ydg'Zd²*WJhddIg'gðµWg
Woi dgð²9¿gWgW ZkJ ñªWhdJ Woi dgð¢±<00>¿oWgW Ydg'Ig'M [jð³[K—K ³OIg'gð™HLhH ‡WL
\WMLµoIg'gðIg'gð
hgð²soWgW Ydg'Ig'NgNh_¿Ig'<27>glO_¿O²gO O_¿WIg'O (772 SHOULDNT 766 SEND.FILE.TO.PRINTER 743 \TEDIT.MAKEFILENAME 673 MB.GET 643 TEDIT.SUBSTITUTE 599 TEDIT.SEL.AS.STRING 590 \TEDIT.SELPIECES 565 \FZEROP 550 NCHARS 526 MB.GET 494 TEDIT.PROMPTPRINT 480 \TEDIT.KEY.FIND 468 NCHARS 460 MB.GET 430 TEDIT.PROMPTPRINT 416 TEDIT.INCLUDE 410 GETTEXTPROP 365 MB.GET 335 TEDIT.PROMPTPRINT 321 TEDIT.GET 316 GETTEXTPROP 274 MB.GET 244 TEDIT.PROMPTPRINT 230 TEDIT.PUT 225 GETTEXTPROP 182 MB.GET 153 TEDIT.SETSEL 141 TEXTOBJ 121 \TEDIT.CHARMENU.START 105 \TEDIT.PARAMENU.START 89 \TEDIT.PAGEMENU.START 73 \TEDIT.FINISHEDIT? 58 IMAGEOBJPROP)
(758 SERVER 736 MESSAGE 718 %#SIDES 711 DOUBLE-SIDED 698 %#COPIES 687 MESSAGE/PHONE# 680 COPIES 666 STATE 651 HARDCOPY 636 ON 630 USENEWLOOKS 623 ON 617 CONFIRM 579 ON 573 USENEWLOOKS 540 PATTERN 533 REPLACEMENT 519 STATE 501 SUBSTITUTE 453 STATE 446 FINDPATTERN 437 FIND 405 UNFORMATTEDPUT/GET 395 ON 389 UNFORMATTED 372 PUTFILE 358 STATE 342 INCLUDE 311 UNFORMATTEDPUT/GET 301 ON 295 UNFORMATTED 281 GETFILE 267 STATE 251 GET 220 UNFORMATTEDPUT/GET 210 ON 204 UNFORMATTED 189 PUTFILE 175 STATE 160 PUT 148 LEFT 128 SELECT% ALL 112 CHARLOOKS 96 PARALOOKS 80 PAGELAYOUT 64 QUIT 53 IDENTIFIER 43 TEXTOBJ 36 STREAM 25 TEXTOBJ 4 \TEDIT.EXPANDEDMENU.ACTIONFNA0001A0002A0003)
( 659 (SERVER COPIES DOUBLE-SIDED MESSAGE/PHONE#) 611 "" 512 (REPLACEMENT PATTERN CONFIRM USENEWLOOKS)
488 "Search pattern not specified" 424 "Include file not specified" 351 (PUTFILE UNFORMATTED) 329 "Get file not specified"
260 (GETFILE UNFORMATTED) 238 "Put file not specified" 168 (PUTFILE UNFORMATTED))
\TEDIT.EXPANDEDMENU.ACTIONFNA0001 :D8
(P 4 RESETSTATE P 3 SI::*RESETFORMS* P 2 LISPXHIST P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 5 LISPXHIST F 6 SI::NLSETQ-VALUE) -i@U!g ¿$hc g(28 SI::RESETUNWIND 23 \MVLIST 18 \TEDIT.EXPANDEDMENU.ACTIONFNA0001A0002)
(42 :NORMAL 13 SI::RESETUNWIND)
()
\TEDIT.EXPANDEDMENU.ACTIONFN :D8
(P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 4 MAINSTREAM I 3 MENUSTREAM I 2 MENUWINDOW I 1 MENUSEL I 0 OBJ F 3 *PROCEED-CASES*) `SI gð´H(18 \TEDIT.EXPANDEDMENU.ACTIONFNA0001)
(24 :NORMAL 7 SI::NLSETQ-PROCEED-CASE)
()
\TEDIT.PARAMENU.CREATE :D8
(P 0 MENUTSTREAM I 0 MAINTSTREAM) Ùgolologogologoooogoololoooggooghhhoh@ Xdgo H(213 PUTTEXTPROP 196 \TEDIT.MENU.CREATE 147 PRINTERTYPE)
(203 WINDOWPROPS 142 INITSTATE 127 FIELD 122 * 83 EOL 58 EOL 41 TAB 31 EOL 4 \TEDIT.PARAMENU.RESHAPEFN)
( 208 (RESHAPEFN (\TEDIT.PARAMENU.RESHAPEFN)) 163 (4 EOL (TEXT (STRING "Tab Type: ") (FONT (HELVETICA 8))) (NWAY (IDENTIFIER TABTYPE) (BUTTONS (Left Right Centered Decimal)) (IGNORE T)) 3 (TOGGLE (IDENTIFIER DOTTEDLEADER) (LABEL "Dotted Leader") (IGNORE T)) (FIELD (IDENTIFIER DEFAULTTAB) (PRELABEL " Default Tab:") (POSTLABEL "pts") (FIELDTYPE NUMBER) (LABELFONT (HELVETICA 8))) EOL ((PROGN (TEDIT.INSERT.OBJECT (MARGINBAR.CREATE -0.5 -0.5 -39.5 NIL 12 NIL MAINTSTREAM) MENUTSTREAM CH# (QUOTE (PROTECTED OFF))) 1)) EOL)
137 (FIELDTYPE SYMBOL) 132 (IDENTIFIER PRINTFILETYPE) 117 (3STATE (LABEL "Hardcopy")) 112 (TEXT (STRING " Display mode: ") (FONT (HELVETICA 8)))
107 (3STATE (IDENTIFIER HEADINGKEEP) (LABEL "Keep heading")) 100 (3STATE (IDENTIFIER NEWPAGEAFTER) (LABEL "After"))
93 (3STATE (IDENTIFIER NEWPAGEBEFORE) (LABEL "Before")) 88 (TEXT (STRING "New Page: ") (FONT (HELVETICA 8)))
78 (FIELD (IDENTIFIER SPECIALY) (PRELABEL " Y") (POSTLABEL "picas") (FIELDTYPE PICAS) (LABELFONT (HELVETICA 8)))
73 (FIELD (IDENTIFIER SPECIALX) (PRELABEL " Special Locn: X") (POSTLABEL "picas") (FIELDTYPE PICAS) (LABELFONT (HELVETICA 8)))
68 (FIELD (PRELABEL " Para leading") (POSTLABEL "pts") (IDENTIFIER PARALEADING) (FIELDTYPE NUMBER) (LABELFONT (HELVETICA 8)))
63 (FIELD (IDENTIFIER LINELEADING) (PRELABEL "Line leading") (POSTLABEL "pts") (FIELDTYPE NUMBER) (LABELFONT (HELVETICA 8)))
53 (FIELD (IDENTIFIER SUBTYPE) (PRELABEL "type") (FIELDTYPE SYMBOL)) 46 (3STATE (IDENTIFIER TYPE) (LABEL "Page Heading"))
36 (NWAY (IDENTIFIER QUAD) (BUTTONS (Left Right Centered Justified)) (INITSTATE OFF)) 26 (ACTION (LABEL NEUTRAL) (IGNORE T) (SELECTFN \TEDIT.MENU.NEUTRALIZE))
19 (ACTION (LABEL SHOW) (IGNORE T) (SELECTFN \TEDIT.SHOW.PARALOOKS)) 12 (ACTION (LABEL APPLY) (IGNORE T) (SELECTFN \TEDIT.APPLY.PARALOOKS)))
\TEDIT.PARAMENU.START :D8
(I 0 MAINTSTREAM) 0o@
³"@ @ol<>i
g
h(43 \TEDIT.MENU.START 32 HEIGHTIFWINDOW 18 \TEDIT.PARAMENU.CREATE 10 \TEDIT.MENU.OPEN?)
(37 PARALOOKS)
( 24 "Paragraph-Looks Menu" 4 "Paragraph-Looks Menu")
\TEDIT.APPLY.PARALOOKS :D8
(I 3 MENUSTREAM I 2 MENUWINDOW I 1 MENUSEL I 0 OBJ) $C C C
C (33 TEDIT.BACKTOMAIN 27 \TEDIT.CHANGE.PARALOOKS 22 \TEDIT.MENU.PARSE 16 \TEDIT.MAINSTREAM 10 TEDIT.PROMPTCLEAR 5 \TEDIT.MAINSTREAM)
NIL
()
\TEDIT.SHOW.PARALOOKSA0001 :D8
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 MENUSTREAM F 1 MAINCH# F 2 MAINTEXTOBJ) P PQR
É
(20 \TEDIT.PARAMENU.FILLIN 13 \TEDIT.CHTOPC 5 TEDIT.DEFER.UPDATES)
NIL
()
\TEDIT.SHOW.PARALOOKS :D8
(P 5 RESETSTATE P 4 SI::*RESETFORMS* P 3 LISPXHIST P 2 MAINCH# P 1 MAINTEXTOBJ P 0 MENUTEXTOBJ I 3 MENUSTREAM I 2 MENUWINDOW I 1 MENUSEL I 0 OBJ F 6 LISPXHIST) NCÉC ÉIÉɺV!g ¿$(71 SI::RESETUNWIND 66 \MVLIST 61 \TEDIT.SHOW.PARALOOKSA0001 16 \TEDIT.MAINSTREAM)
(56 SI::RESETUNWIND 44 SELECTION 39 SELECTION 32 TEXTOBJ 21 STREAM 5 STREAM)
()
\TEDIT.PARAMENU.FILLIN :D8
(P 4 SETSTATEFN P 3 PROP P 2 VAL P 1 OBJ P 0 PC I 1 PARALOOKS I 0 MENUSTREAM) P@É ±Vgð•AÉ
±1Kdgð¿Aɱ!gð²jñ•Aɱ g±Kdgð²¿AÉjñ•Aɱæg±Þgð•AÉ ±ÑKdgð¿AÉ"±ÁgðšAÊjðhð±¯Kdgð¿AÊ(jðhð±šgð•AÉ.±<00>Kdgð<>¿Ig
°ugð²gðg°\g°UKdgð•¿AɰFgðg°8Kdgð²¿AIg

°gð•…K ºL²HJ@lL¸@I
¿HÉd lð´ôYd²g
[´
Ig
\²ÂKdgð¢±þg¿Aɰ›(415 IMAGEOBJPROP 401 IMAGEOBJPROP 353 TEDIT.OBJECT.CHANGED 333 \TEDIT.THELP 326 \TEDIT.THELP 312 \TEDIT.PARALOOKS.TO.MARBAR 302 IMAGEOBJPROP 216 IMAGEOBJPROP 15 \TEDIT.FIRSTPIECE)
(425 QUAD 410 SETSTATEFN 396 IDENTIFIER 382 IMAGEOBJ 365 PIECE 319 TABTYPE 297 OBJECTDATUM 286 MARGINBAR 277 OFF 270 DOTTEDLEADER 257 SUBTYPE 248 OFF 241 ON 234 PAGEHEADING 223 TYPE 211 STATE 202 TABTYPE 187 DEFAULTTAB 168 HARDCOPY 148 HEADINGKEEP 134 NEWPAGEAFTER 119 NEWPAGEBEFORE 111 **EMPTY** 86 SPECIALY 76 **EMPTY** 52 SPECIALX 38 PARALEADING 23 LINELEADING 8 STREAM)
()
\TEDIT.PARAMENU.RESHAPEFN :D8
(P 0 PC I 2 OLDREGION I 1 BITS I 0 PANE) ´g@g H¢±•h@
lð´ôg
ñ²`HÊlð´ôg
¹HÊlð²6HIIIIIIh@

¿@AB (177 \TEDIT.RESHAPEFN 166 MARGINBAR.CREATE 157 DSPCLIPPINGREGION 107 IMAGEOBJPROP 65 IMAGEOBJPROP 30 DSPCLIPPINGREGION 15 MB.GET)
(123 PIECE 102 OBJECTDATUM 92 IMAGEOBJ 60 OBJECTDATUM 50 IMAGEOBJ 10 STARTPC 4 MARGINBAR)
()
\TEDIT.CHARMENU.CREATE :D8
(I 0 TSTREAM) 0gololog@  (45 \TEDIT.MENU.CREATE 34 \TEDIT.CHARMENU.SPEC)
(28 EOL 4 \TEDIT.MENU.NEUTRALIZE)
( 23 (ACTION (LABEL NEUTRAL) (IGNORE T) (SELECTFN \TEDIT.MENU.NEUTRALIZE)) 16 (ACTION (LABEL SHOW) (IGNORE T) (SELECTFN \TEDIT.SHOW.CHARLOOKS))
9 (ACTION (LABEL APPLY) (IGNORE T) (SELECTFN \TEDIT.APPLY.CHARLOOKS)))
\TEDIT.CHARMENU.START :D8
(I 0 TSTREAM) 0o@
³"@ @oldi
g
h(43 \TEDIT.MENU.START 32 HEIGHTIFWINDOW 18 \TEDIT.CHARMENU.CREATE 10 \TEDIT.MENU.OPEN?)
(37 CHARLOOKS)
( 24 "Character Looks Menu" 4 "Character Looks Menu")
\TEDIT.CHARMENU.SPEC :D8
(P 10 F P 8 N P 7 C P 5 FONTDEVICES P 4 FONTFAMILIES P 3 D I 0 TSTREAM F 11 TEDIT.FONTFAMILIES F 12 TEDIT.FONTDEVICES)  gWh
g@W°'d[dgð¿g…i
¸HhZ<>H&¹µÚJ@i
²*L@g
¼@ ÉV!NµPL gogMhoglgogLhoo_Ég
i
_¿L
Oµh¤OL¼N^±ÿ~_¿OOi
ðOµái°ÞO_°Ó(256 L-CASE 216 L-CASE 210 FONTPROP 118 SORT 103 TEXTOBJ 96 UNION 91 TEXTPROP 77 TEXTOBJ 48 L-CASE 12 \APPEND2)
(205 FAMILY 198 CHARLOOKS 168 BUTTONS 158 NWAY 151 EOL 134 BUTTONS 124 NWAY 86 FAMILIES 41 PDF 33 PDF 17 All 4 \TEDIT.OTHER.SELECTFN)
( 185 (EOL 15 (TOGGLE (LABEL Other) (IGNORE T) (STATECHANGEFN \TEDIT.OTHER.STATECHANGEFN) (SELECTFN \TEDIT.OTHER.SELECTFN)) 3 (FIELD (IDENTIFIER OTHERFAMILY) (IGNORE T) (PRELABEL "other family:") (FIELDTYPE SYMBOL) (EMPTYVALUE NIL)) EOL 4 (3STATE (LABEL Bold)) 3 (3STATE (LABEL Italic)) 3 (FIELD (IDENTIFIER SIZE) (PRELABEL "Size:") (FIELDTYPE TRIMMEDSTRING)) EOL (NWAY (IDENTIFIER OFFSETTYPE) (BUTTONS (Normal Superscript Subscript)) (STATEFN \TEDIT.OFFSETTYPE.STATEFN)) (FIELD (IDENTIFIER DISTANCE) (PRELABEL " distance:") (POSTLABEL " ") (FIELDTYPE CARDINAL) (INITSTATE 2) (EMPTYVALUE 2) (IGNORE T)) EOL (3STATE (LABEL Underline)) 3 (3STATE (LABEL Strikeout)) 3 (3STATE (LABEL Overline)) 3 (3STATE (LABEL Unbreakable)) 1)
177 ((MAXITEMS/LINE 7)) 163 (IDENTIFIER FAMILY) 143 ((MAXITEMS/LINE 7) (INITSTATE ALL)) 129 (IDENTIFIER DEVICE))
\TEDIT.CHARMENU.PARSE :D8
(P 11 STATEFN P 10 STATE P 9 PROP P 8 OBJ P 7 PC P 5 FONTCLASS P 4 DISTANCE P 3 OFFSET P 2 TEXT P 1 NEWLOOKS P 0 TEXTOBJ I 1 CH# I 0 MENUSTREAM) Â @ Q`
H °H
°OOh€h
¾OɵN_Êlð´OÉôOÉ_d™g
_²ÊNOg
_<16>OOHlO_¿Og
³—Og
_d²‡gð’±ÿ}O¢±ÿmOh
±ÿj(189 \APPEND2 157 IMAGEOBJPROP 143 IMAGEOBJPROP 114 IMAGEOBJPROP 97 IMAGEOBJPROP 44 \NCONC2 28 \TEDIT.CHTOPC 20 \TEDIT.FIRSTPIECE 5 TEXTOBJ)
(167 NEUTRAL 152 STATE 138 DONTAPPLY 109 STATEFN 92 IDENTIFIER 77 IMAGEOBJ 58 PIECE)
()
\TEDIT.CHARMENU.FILLIN :D8
(P 5 DEVICE P 4 FONT P 3 SETSTATEFN P 2 VAL P 1 OBJ P 0 PC I 2 MENUSTREAM I 1 CHARLOOKS I 0 STARTINGPC) )A´‚±ŠpBÉ µ°qɰú¸¼gBg ½Lò(Mo
<00>Boi hLhddM
¼HÊlð´ô
µ‚±•Hg
gð³åIg
×Ig
dgð²¿Lg
i
±/dgðž¿Lg
±dgð²¿Lg
gð±ùdgð²¿Lg
gð±Ùdgð¿AÊ jðhð±Ådgð¿AÊjðhð±±dgð¿AÊ0jðhð±<00>dgð¿AÊ0jðhð±‰dgð•¿Aɰzdgð²&¿AÉZd²ijñg°_jJñg°Tg°Mdgð§dgð“¿h°9gð²!AÉ^jð³NN ©AÉ °h<>Ig
ºK¢±þ}HJBlKBIH ¿X±þiX±þG(537 TEDIT.OBJECT.CHANGED 515 \TEDIT.THELP 510 IMAGEOBJPROP 495 ABS 486 \FZEROP 290 FONTPROP 259 FONTPROP 235 FONTPROP 212 L-CASE 206 FONTPROP 185 IMAGEOBJPROP 171 IMAGEOBJPROP 152 IMAGEOBJPROP 105 FONTCREATE 92 TEDIT.PROMPTPRINT 79 MEMB 59 MB.GET 25 \TEDIT.FIRSTPIECE)
(547 PIECE 505 IDENTIFIER 465 DISTANCE 454 OTHERFAMILY 446 OTHER 438 NORMAL 431 SUBSCRIPT 420 SUPERSCRIPT 401 OFFSETTYPE 387 COLOR 367 UNBREAKABLE 347 OVERLINE 327 STRIKEOUT 307 UNDERLINE 297 ITALIC 285 FACE 275 ITALIC 265 BOLD 254 FACE 244 BOLD 230 SIZE 221 SIZE 201 FAMILY 191 FAMILY 180 IDENTIFIER 166 SETSTATEFN 157 DEVICE 147 IDENTIFIER 123 IMAGEOBJ 66 FONTCLASS 54 STATE 48 DEVICE 38 PIECE 18 STREAM)
( 86 "Please select a particular display/print device" 74 (OFF ALL NIL))
\TEDIT.SHOW.CHARLOOKSA0001 :D8
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 MENUSTREAM F 1 MAINCH# F 2 MAINTEXTOBJ F 3 MENUTEXTOBJ F 4 TEXTOBJ) 'P S QRÉñ©QR
É TÉ@P (36 \TEDIT.CHARMENU.FILLIN 24 \TEDIT.CHTOPC 11 \TEDIT.FIRSTPIECE 5 TEDIT.DEFER.UPDATES)
NIL
()
\TEDIT.SHOW.CHARLOOKS :D8
(P 5 RESETSTATE P 4 SI::*RESETFORMS* P 3 LISPXHIST P 2 MAINCH# P 1 MAINTEXTOBJ P 0 MENUTEXTOBJ I 3 MENUSTREAM I 2 MENUWINDOW I 1 MENUSEL I 0 OBJ F 6 LISPXHIST) ˆC‡CÉC ÉIÉɺC V!g ¿$AkÏ¿kjðhðAkjg AC
C (133 TEDIT.BACKTOMAIN 127 \TEDIT.FIXSEL 120 \TEDIT.UPDATE.SEL 91 SI::RESETUNWIND 86 \MVLIST 81 \TEDIT.SHOW.CHARLOOKSA0001 67 TEDIT.PROMPTCLEAR 30 \TEDIT.MAINSTREAM)
(115 LEFT 76 SI::RESETUNWIND 58 SELECTION 53 SELECTION 46 TEXTOBJ 35 STREAM 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
()
\TEDIT.APPLY.CHARLOOKS :D8
(I 3 MENUSTREAM I 2 MENUWINDOW I 1 MENUSEL I 0 OBJ) $C C C
C (33 TEDIT.BACKTOMAIN 27 \TEDIT.CHANGE.CHARLOOKS 22 \TEDIT.MENU.PARSE 16 \TEDIT.MAINSTREAM 10 TEDIT.PROMPTCLEAR 5 \TEDIT.MAINSTREAM)
NIL
()
\TEDIT.OFFSETTYPE.STATEFN :D8
(P 1 DISTANCE P 0 SELECTED I 2 TEXTOBJ I 1 TYPEOBJ I 0 TYPEPC) Ag
H²ugBg@ g
¹AgHg
dgð¿gIh°-dgð¿gIh°dgð¡dª¿gjh<1A>¿hh @(131 IMAGEOBJPROP 61 IMAGEOBJPROP 43 IMAGEOBJPROP 33 MB.GET 10 IMAGEOBJPROP)
(117 SUPERSCRIPT 107 NORMAL 95 SUBSCRIPT 87 SUBSCRIPT 75 SUPERSCRIPT 67 SUPERSCRIPT 56 IDENTIFIER 50 STATE 38 STATE 27 OBJECT 21 DISTANCE 5 SELECTED)
()
\TEDIT.OTHER.STATECHANGEFN :D8
(P 0 OTHERFAM I 3 MENUSEL I 2 MENUSTREAM I 1 NEWSTATE I 0 OTHEROBJ) ˜Agð´‚±ŒgBgC Boid g ²'H òBoid gHgdjgi
µBoH
id g(144 TEDIT.PROMPTPRINT 137 CONCAT 123 FONTSAVAILABLE 97 TEDIT.PROMPTPRINT 77 GETTOPVAL 72 U-CASE 64 BOUNDP 59 U-CASE 48 TEDIT.PROMPTPRINT 29 MB.GET)
(149 DON'T 116 DISPLAY 109 * 102 DON'T 82 FONTCLASS 53 DON'T 23 STATE 17 OTHERFAMILY 5 ON)
( 131 "Can't find OTHER font " 90 "Please use TEDIT.LOOKS to install a fontclass" 41 "OTHER font is not specified")
\TEDIT.OTHER.SELECTFN :D8
(P 7 MAINTEXTOBJ P 6 OTHERFAM P 5 OTHERFAMOBJ P 4 OTHERFAMARG P 0 FAMARG I 3 MENUSTREAM I 2 MENUSEL I 1 MENUDS I 0 OTHEROBJ) Ô@g
gð´‚±¾gCoBi
1gCoB L]g
i
C i
Hg
¹HNClI¿@g
ºBgClJ¿Mg
»LhClK¿Od²!giNhOg
(209 \TEDIT.TEXTPROP 204 UNION 199 \TEDIT.TEXTPROP 161 IMAGEOBJPROP 136 IMAGEOBJPROP 113 IMAGEOBJPROP 98 TEXTOBJ 92 \TEDIT.MAINSTREAM 83 L-CASE 77 IMAGEOBJPROP 61 MB.GET 41 MB.GET 10 IMAGEOBJPROP)
(194 FAMILIES 183 FAMILIES 156 SETSTATEFN 143 OFF 131 SETSTATEFN 108 SETSTATEFN 72 STATE 49 OTHERFAMILY 27 FAMILY 15 ON 5 STATE)
( 55 (OBJECT STARTPC) 33 (OBJECT STARTPC))
\TEDIT.PAGEMENU.CREATE :D8
(I 0 TSTREAM) rgologoologoogoolooggooooggolologgologoogloooooooglololooogdol gdog@ 
 (367 \TEDIT.MENU.CREATE 303 CL:APPEND 294 \TEDIT.CHARMENU.SPEC 272 \TEDIT.PAGEMENU.CREATE.HEADINGS)
(288 EOL 277 EOL 259 EOL 223 EOL 181 EOL 166 EOL 149 TAB 144 EOL 120 TAB 115 EOL 90 TAB 85 EOL 58 EOL 43 EOL 21 EOL 4 \TEDIT.PAGEMENU.HEADINGS.SETSTATEFN)
( 283 (ACTION (IDENTIFIER CHARLOOKS) (LABEL "Font for page numbers:") (FONT (HELVETICA 8 BOLD)) (STATEFN \TEDIT.PAGEMENU.CHARLOOKS.STATEFN (FUNCTION \TEDIT.PAGEMENU.HEADINGS.STATEFN)) (SETSTATEFN \TEDIT.CHARMENU.FILLIN))
265 (ACTION (IDENTIFIER HEADINGS) (LABEL "Page Headings:") (FONT (HELVETICA 8 BOLD)) (SELECTFN NILL) (STATEFN \TEDIT.PAGEMENU.HEADINGS.STATEFN) (SETSTATEFN \TEDIT.PAGEMENU.HEADINGS.SETSTATEFN))
254 (* ;; "Page headings") 249 (* ;; "") 244 (FIELD (IDENTIFIER SPACEBETWEENCOLUMNS) (PRELABEL "Space between cols:") (POSTLABEL "picas") (FIELDTYPE NUMBER))
237 (FIELD (IDENTIFIER COLWIDTH) (PRELABEL "Col width") (POSTLABEL "picas") (FIELDTYPE NUMBER)) 230 (FIELD (IDENTIFIER COLUMNS) (PRELABEL "Columns:") (INITSTATE 1) (FIELDTYPE POSITIVENUMBER))
218 (* ;; "Columns ") 213 (* ;; "") 208 (FIELD (IDENTIFIER BOTTOMMARGIN) (PRELABEL " Bottom") (POSTLABEL "picas") (INITSTATE 6) (FIELDTYPE NUMBER))
203 (FIELD (IDENTIFIER TOPMARGIN) (PRELABEL " Top") (POSTLABEL "picas") (INITSTATE 6) (FIELDTYPE NUMBER))
198 (FIELD (IDENTIFIER RIGHTMARGIN) (PRELABEL " Right") (POSTLABEL "picas") (INITSTATE 6) (FIELDTYPE NUMBER))
193 (FIELD (IDENTIFIER LEFTMARGIN) (PRELABEL "Left") (POSTLABEL "picas") (INITSTATE 6) (FIELDTYPE NUMBER))
188 (TEXT (STRING "Margins: ")) 176 (* ;; "Margins") 171 (* ;; "") 161 (FIELD (IDENTIFIER FOLIOPOSTTEXT) (PRELABEL "Text after number:"))
154 (FIELD (IDENTIFIER FOLIOPRETEXT) (PRELABEL "Text before number:")) 139 (NWAY (IDENTIFIER QUAD) (BUTTONS (Left Centered Right)) (INITSTATE Centered))
132 "Alignment:" 125 (FIELD (IDENTIFIER STARTINGPAGE#) (PRELABEL "Starting page #:") (INITSTATE 1) (FIELDTYPE POSITIVENUMBER))
110 (NWAY (IDENTIFIER FOLIOFORMAT) (BUTTONS (|123| xiv XIV)) INITSTATE |123|) 105 " Format: " 100
(FIELD (IDENTIFIER PAGENUMBERY) (PRELABEL " Y:") (INITSTATE 3) (FIELDTYPE NUMBER)) 95 (FIELD (IDENTIFIER PAGENUMBERX) (PRELABEL "X:") (INITSTATE 25.5) (FIELDTYPE NUMBER))
80 (NWAY (IDENTIFIER PAGENOS) (BUTTONS (No Yes Heading)) (INITSTATE Yes)) 75 (TEXT (STRING "Page numbers: "))
68 (* ;; "Page numbers") 63 (* ;; "") 53 (NWAY (IDENTIFIER PAGEID) (BUTTONS (|First(&Default)| Other% Left Other% Right)))
48 (TEXT (STRING "For page: ")) 38 (TOGGLE (LABEL "Landscape")) 31 (NWAY (IDENTIFIER PAPERSIZE) (BUTTONS (Letter Legal A4)) (INITSTATE Letter))
26 "Paper Size: " 16 (ACTION (LABEL SHOW) (IGNORE T) (SELECTFN \TEDIT.SHOW.PAGELOOKS)) 9 (ACTION (LABEL APPLY) (IGNORE T) (SELECTFN \TEDIT.APPLY.PAGELOOKS)))
\TEDIT.PAGEMENU.START :D8
(I 0 TSTREAM) 0o@
³"@ol‡l
g
h(43 \TEDIT.MENU.START 32 HEIGHTIFWINDOW 17 \TEDIT.PAGEMENU.CREATE 10 \TEDIT.MENU.OPEN?)
(37 PAGE)
( 23 "Page Layout Menu" 4 "Page Layout Menu")
\TEDIT.SHOW.PAGELOOKSA0001 :D8
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 MENUSTREAM F 1 PAGEID) P Pd Q
(23 \TEDIT.PAGEMENU.FILLIN 18 \TEDIT.PAGEREGION.UNPARSE 12 \TEDIT.MAINSTREAM 5 TEDIT.DEFER.UPDATES)
NIL
()
\TEDIT.SHOW.PAGELOOKS :D8
(P 3 RESETSTATE P 2 SI::*RESETFORMS* P 1 LISPXHIST P 0 PAGEID I 3 MENUSTREAM I 2 MENUWINDOW I 1 MENUSEL I 0 OBJ F 4 LISPXHIST) ogCg Ho
žBoid °:T!g ¿$AkÏ¿Akjg ¿AC
¿C (108 TEDIT.BACKTOMAIN 101 \TEDIT.FIXSEL 93 \TEDIT.UPDATE.SEL 69 SI::RESETUNWIND 64 \MVLIST 59 \TEDIT.SHOW.PAGELOOKSA0001 43 TEDIT.PROMPTPRINT 29 MEMB 15 MB.GET)
(88 LEFT 54 SI::RESETUNWIND 10 STATE 4 PAGEID)
( 36 "Please specify the page-type" 24 (NIL OFF))
\TEDIT.PAGEMENU.FILLIN :D8
(P 2 SETSTATEFN P 1 OBJ P 0 PC I 1 PAGELOOKS I 0 MENUSTREAM) e0@É °PHIg
A@lJ@I
¿X°.lð´ôY<>Ig
Z³·HÉd³Ñ(89 IMAGEOBJPROP 45 TEDIT.OBJECT.CHANGED 29 IMAGEOBJPROP 15 \TEDIT.FIRSTPIECE)
(84 SETSTATEFN 71 IMAGEOBJ 54 PIECE 24 IDENTIFIER 8 STREAM)
()
\TEDIT.PAGEREGION.UNPARSE :D8
(P 15 COLWIDTH P 14 RIGHTINCR P 13 HEADINGS P 12 LEFT P 11 PQUAD P 10 PAGENUMBERX P 9 SPECS P 8 REGION P 7 BOX P 6 INTERCOL P 5 COLUMNS P 3 PAGELOOKS P 2 LOCALINFO P 1 PAPER P 0 PAGEREGION I 1 PAGEID I 0 TSTREAM) 
@A
1HɹHɺgAh»HÉgð¡hgJg'K ¿gJg'K ¿gJg'K ¿gJg'dg𢱱¿gK ¿gJg'K ¿gJg'K ¿HÉjdLµ‚±‡gK³ggK ¿gIOÙoëK ¿gMK ¿MkñœgNK ¿gOK Kdgð˜¿g±ÿJgð¢±ÿ;g±ÿ8_É_¿OÉdg𢱻¿ggK ¿OÉ_¿gOg'`
K ¿Og'g'_¿gOK ¿O_¿Odgð³!dgð•¿OlŠgðšOllHÚÔ_¿gOoëK ¿gOoëK ±Ódgð²G¿OgOÉg'gOoëgOoëh
_±…gð²}MkÔ]dkð²^¿O_¿O_¿gOoëK ¿gOoëK ¿gIOOØÙoëK Šlð—OOÙ^¿OOÔNÔ_¿L\±ýÈ(747 PUTASSOC 712 PUTASSOC 690 PUTASSOC 634 \NCONC2 558 PUTASSOC 536 PUTASSOC 467 PUTASSOC 436 PUTASSOC 430 \TEDIT.PARSE.CHARLOOKS.LIST 394 PUTASSOC 307 PUTASSOC 293 PUTASSOC 276 PUTASSOC 263 PUTASSOC 238 PUTASSOC 190 PUTASSOC 168 PUTASSOC 147 PUTASSOC 110 PUTASSOC 91 PUTASSOC 72 PUTASSOC 6 TEDIT.GET.PAGEFORMAT)
(718 TOPMARGIN 696 BOTTOMMARGIN 676 LEFTMARGIN 644 TEXT 614 HEADINGY 599 HEADINGX 592 HEADINGTYPE 585 PAGEREGION 578 HEADINGTYPE 567 HEADING 542 PAGENUMBERY 522 PAGENUMBERX 504 CENTERED 491 RIGHT 482 LEFT 459 QUAD 450 QUAD 444 PARALOOKS 425 TEDIT.DEFAULT.FOLIO.LOOKS 419 CHARLOOKS 412 CHARLOOKS 402 PAGEREGION 388 Yes 383 PAGENOS 372 FOLIO 364 PAGEREGION 352 PAGEREGION 341 XIV 331 UPPERROMAN 323 xiv 315 LOWERROMAN 299 HEADINGS 286 INTERCOL 269 COLUMNS 244 RIGHTMARGIN 232 No 227 PAGENOS 217 PAGENOS 197 PAGEREGION 180 FOLIOINFO 174 FOLIOPOSTTEXT 159 FOLIOINFO 153 FOLIOPRETEXT 141 |123| 130 ARABIC 122 FOLIOINFO 116 FOLIOFORMAT 103 STARTINGPAGE# 97 STARTINGPAGE# 84 LANDSCAPE? 78 LANDSCAPE 65 PAPERSIZE 59 PAPERSIZE 50 PAGE 43 PAGEREGION 32 PAGEID 24 PAGEREGION 15 PAGEREGION)
( 740 12.0 705 12.0 683 12.0 623 12.0 607 12.0 551 12.0 529 12.0 256 12.0)
\TEDIT.APPLY.PAGELOOKS :D8
(I 3 MENUSTREAM I 2 MENUWINDOW I 1 MENUSEL I 0 OBJ) $C C C
C (33 TEDIT.BACKTOMAIN 27 \TEDIT.CHANGE.PAGELOOKS 22 \TEDIT.MENU.PARSE 16 \TEDIT.MAINW 10 TEDIT.PROMPTCLEAR 5 \TEDIT.MAINSTREAM)
NIL
()
\TEDIT.CHANGE.PAGELOOKS :D8
(P 3 PAGEPROPS P 2 PAGENOS P 1 PAGEID P 0 MAINTEXTOBJ I 1 PAGELOOKS I 0 MAINTEXTSTREAM) ã@ Ag'Ag'#Igðž@oid hA°*d\dgð”¿Li°dgð§dgð“¿Lh¿µ×Ji
dgð¦di𢱃¿Ag'—Ag'®Hoid hgAg'gAg'dgð²"¿gAg'Ag'hK[°Hdgð—¿g°Øgð²Ëg°Édgð³ gð²gAg'K[„¿Ag'­Agk hAg'kð³"AgAg'®Hoid hgAg'gðK[HJAg'Ag'Ag'Ag'Ag'Ag'Ag'Ag'Ag'Ag'Ag'Ag'gKAg'
I h(479 TEDIT.PAGEFORMAT 473 TEDIT.SINGLE.PAGEFORMAT 344 TEDIT.PROMPTPRINT 301 LISTPUT 280 SHOULDNT 143 TEDIT.PROMPTPRINT 98 L-CASE 43 TEDIT.PROMPTPRINT 5 TEXTOBJ)
(466 PAPERSIZE 459 PICAS 453 HEADINGS 446 SPACEBETWEENCOLUMNS 439 COLWIDTH 432 COLUMNS 425 BOTTOMMARGIN 418 TOPMARGIN 411 RIGHTMARGIN 404 LEFTMARGIN 397 QUAD 390 CHARLOOKS 383 PAGENUMBERY 376 PAGENUMBERX 363 ON 357 LANDSCAPE 351 LANDSCAPE? 329 SPACEBETWEENCOLUMNS 320 COLWIDTH 309 COLUMNS 295 COLUMNS 287 COLUMNS 269 STARTINGPAGE# 263 STARTINGPAGE# 255 Header 247 No 239 UPPERROMAN 231 XIV 224 LOWERROMAN 216 xiv 197 FOLIOPOSTTEXT 190 FOLIOPRETEXT 184 ARABIC 175 |123| 168 FOLIOFORMAT 162 FOLIOINFO 156 STARTINGPAGE# 150 STARTINGPAGE# 128 PAGENUMBERY 120 PAGENUMBERX 104 Yes 79 NEUTRAL 71 OFF 58 ON 28 OFF 18 PAGENOS 11 PAGEID)
( 337 "Please specify the space between columns" 136 "Please set both X and Y locations for page numbers"
36 "Please specify a page type")
\TEDIT.PAGEMENU.CHARLOOKS.STATEFN :D8
(I 2 MENUTEXTOBJ I 1 OBJ I 0 CHARLOOKSPC) .AggB@g hh Ag
(43 IMAGEOBJPROP 32 IMAGEOBJPROP 22 \TEDIT.MENU.PARSE)
(38 PARSEENDPIECE 17 DISTANCE 10 CHARLOOKS 5 STATE)
()
\TEDIT.PAGEMENU.CREATE.HEADINGS :D8
(P 1 I I 0 N) =@kIHó²gghJ  JJo
ºIlÔY°Ì(51 \NCONC2 46 COPY 33 PUTASSOC 27 LAST)
(19 LASTHEADINGTYPEY 14 IDENTIFIER)
( 41 (EOL 3 (FIELD (IDENTIFIER HEADINGTYPE) (PRELABEL "Heading Type:") (FIELDTYPE SYMBOL) (EMPTYVALUE NIL)) (FIELD (IDENTIFIER HEADINGTYPEX) (PRELABEL " X:") (FIELDTYPE NUMBER) (EMPTYVALUE NIL)) (FIELD (IDENTIFIER HEADINGTYPEY) (PRELABEL " Y:") (FIELDTYPE NUMBER) (EMPTYVALUE NIL)) TAB (FIELD (IDENTIFIER HEADINGTYPE) (PRELABEL "Heading Type:") (FIELDTYPE SYMBOL) (EMPTYVALUE NIL)) (FIELD (IDENTIFIER HEADINGTYPEX) (PRELABEL " X:") (FIELDTYPE NUMBER) (EMPTYVALUE NIL)) (FIELD (IDENTIFIER HEADINGTYPEY) (PRELABEL " Y:") (FIELDTYPE NUMBER) (EMPTYVALUE NIL))))
\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN :D8
(P 2 SETSTATEFN P 1 OBJ P 0 PC I 2 MENUSTREAM I 1 HEADINGS I 0 HEADINGSPC) g0@°\HAAb¿BlJBIH ¿¸Ig
gð²/Hlð´ôY<>Ig
Z³©HÉd³Ñ(91 IMAGEOBJPROP 41 IMAGEOBJPROP 28 TEDIT.OBJECT.CHANGED)
(86 SETSTATEFN 73 IMAGEOBJ 56 PIECE 46 LASTHEADINGTYPEY 36 IDENTIFIER)
()
\TEDIT.PAGEMENU.HEADINGS.STATEFN :D8
(P 4 VALS P 3 HEADINGS P 2 STATEFN P 1 OBJ P 0 PC I 2 MENUTEXTOBJ I 1 HEADINGSOBJ I 0 HEADINGSPC) ¸`­g
Z¢±<00>HIBlJ¸Ig
L¼Ig
o
²nL]µ@ŠL K»h¼Ig
gð²J@ÉggK hh H³ÂM°¹lð´ô±ÿZHÉd³Ú(132 IMAGEOBJPROP 122 DREVERSE 95 IMAGEOBJPROP 79 DREVERSE 65 MEMB 55 IMAGEOBJPROP 41 IMAGEOBJPROP 16 IMAGEOBJPROP)
(163 IMAGEOBJ 146 PIECE 116 HEADINGS 111 STATE 100 LASTHEADINGTYPEY 90 IDENTIFIER 50 IDENTIFIER 36 STATE 11 STATEFN)
( 60 (HEADINGTYPEY LASTHEADINGTYPEY))
(PRETTYCOMPRINT TEDIT-MENUCOMS)
(RPAQQ TEDIT-MENUCOMS ((* ;; "TEdit-specific menus and support") (DECLARE%: DOEVAL@COMPILE DONTCOPY (
RECORDS MARGINBAR)) (* ; "Middle button in title") (COMS (* ; "Menu interfacing") (FNS
TEDIT.ADD.MENUITEM TEDIT.DEFAULT.MENUFN TEDIT.REMOVE.MENUITEM \TEDIT.CREATEMENU \TEDIT.MENU.WHENHELDFN
\TEDIT.MENU.WHENSELECTEDFN) (GLOBALVARS TEDIT.DEFAULT.MENU) (VARS \TEDIT.DEFAULTMENU.ITEMS) (
DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (TEDIT.DEFAULT.MENU (\TEDIT.CREATEMENU (COPY
\TEDIT.DEFAULTMENU.ITEMS)))))) (COMS (* ; "MARGINBAR") (FNS DRAWMARGINSCALE MARGINBAR MARGINBAR.CREATE
MB.MARGINBAR.BUTTONEVENTINFN MB.MARGINBAR.SELFN.TABS MB.MARGINBAR.SELFN.TABS.KIND
MARGINBAR.GETSTATEFN MARGINBAR.SETSTATEFN MARGINBAR.NEUTRALIZE MARGINBAR.LOOKS MB.MARGINBAR.SIZEFN
MB.MARGINBAR.DISPLAYFN MDESCALE MSCALE MB.MARGINBAR.SHOWTAB MB.MARGINBAR.TABTRACK MARGINBAR.INIT
\TEDIT.PARALOOKS.TO.MARBAR) (BITMAPS \TEDIT.LEFTTAB \TEDIT.CENTERTAB \TEDIT.RIGHTTAB \TEDIT.DECIMALTAB
\TEDIT.DOTTED.LEFTTAB \TEDIT.DOTTED.CENTERTAB \TEDIT.DOTTED.RIGHTTAB \TEDIT.DOTTED.DECIMALTAB
TEDIT.EXTENDEDRIGHTMARK) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (MARGINBAR.INIT)))) (COMS (FNS
TEDIT.MENUSTREAM TEDITMENUP \TEDIT.MENU.START \TEDIT.MENU.OPEN? \TEDIT.MENU.BUTTONEVENTFN) (BITMAPS
TEXTMENUICON TEXTMENUICONMASK)) (* ; "Generic support for Tedit menus") (FNS \TEDIT.MENU.CREATE
\TEDIT.MENU.PARSE \TEDIT.MENU.NEUTRALIZE \TEDITMENU.RECORD.UNFORMATTED) (* ;; "") (* ;; "") (* ;
"EXPANDEDMENU") (FNS \TEDIT.EXPANDEDMENU.CREATE \TEDIT.EXPANDEDMENU.START \TEDIT.EXPANDEDMENU.FN
\TEDIT.EXPANDEDMENU.ACTIONFN) (* ;; "") (* ;; "") (* ; "PARAMENU") (FNS \TEDIT.PARAMENU.CREATE
\TEDIT.PARAMENU.START \TEDIT.APPLY.PARALOOKS \TEDIT.SHOW.PARALOOKS \TEDIT.PARAMENU.FILLIN
\TEDIT.PARAMENU.RESHAPEFN) (* ;; "") (* ;; "") (* ; "CHARMENU") (INITVARS (TEDIT.FONTDEVICES (QUOTE (
DISPLAY PDF))) (TEDIT.FONTFAMILIES (QUOTE (Classic Modern Terminal Helvetica TimesRoman Gacha)))) (FNS
\TEDIT.CHARMENU.CREATE \TEDIT.CHARMENU.START \TEDIT.CHARMENU.SPEC \TEDIT.CHARMENU.PARSE
\TEDIT.CHARMENU.FILLIN \TEDIT.SHOW.CHARLOOKS \TEDIT.APPLY.CHARLOOKS \TEDIT.OFFSETTYPE.STATEFN
\TEDIT.OTHER.STATECHANGEFN \TEDIT.OTHER.SELECTFN) (* ;; "") (* ;; "") (* ; "PAGEMENU") (FNS
\TEDIT.PAGEMENU.CREATE \TEDIT.PAGEMENU.START \TEDIT.SHOW.PAGELOOKS \TEDIT.PAGEMENU.FILLIN
\TEDIT.PAGEREGION.UNPARSE \TEDIT.APPLY.PAGELOOKS \TEDIT.CHANGE.PAGELOOKS
\TEDIT.PAGEMENU.CHARLOOKS.STATEFN) (FNS \TEDIT.PAGEMENU.CREATE.HEADINGS
\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN \TEDIT.PAGEMENU.HEADINGS.STATEFN) (DECLARE%: DONTEVAL@LOAD
DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA)))))
(RPAQQ \TEDIT.DEFAULTMENU.ITEMS ((Put (QUOTE Put) NIL (SUBITEMS |Put Formatted Document| Plain-Text))
(Get (QUOTE Get) NIL (SUBITEMS |Get Formatted Document| Unformatted% Get)) Include Find Substitute (
Buttons (QUOTE Buttons) "Display action buttons") (Split% Window (QUOTE Split% Window)
"Split the last-selected window") (Unsplit% Window (QUOTE Unsplit% Window)
"Unsplit the last-selected window") Quit (Expanded% Menu (QUOTE Expanded% Menu) NIL (SUBITEMS
Expanded% Menu Character% Looks Paragraph% Formatting Page% Layout))))
(RPAQ TEDIT.DEFAULT.MENU (\TEDIT.CREATEMENU (COPY \TEDIT.DEFAULTMENU.ITEMS)))
(RPAQQ \TEDIT.LEFTTAB #*(10 8)B@@@B@@@G@@@JH@@B@@@B@@@CN@@@@@@)
(RPAQQ \TEDIT.CENTERTAB #*(10 8)@D@@@D@@@N@@AE@@@D@@@D@@AO@@@@@@)
(RPAQQ \TEDIT.RIGHTTAB #*(10 8)@A@@@A@@@CH@@ED@@A@@@A@@AO@@@@@@)
(RPAQQ \TEDIT.DECIMALTAB #*(10 8)@A@@@A@@@CH@@ED@@A@@@CH@@CH@@@@@)
(RPAQQ \TEDIT.DOTTED.LEFTTAB #*(16 8)@@H@@@H@@AL@@BJ@@@H@CFH@CFOH@@@@)
(RPAQQ \TEDIT.DOTTED.CENTERTAB #*(16 8)@@A@@@A@@@CH@@ED@@A@CFA@CFGL@@@@)
(RPAQQ \TEDIT.DOTTED.RIGHTTAB #*(16 8)@@@D@@@D@@@N@@AE@@@DCF@DCFGL@@@@)
(RPAQQ \TEDIT.DOTTED.DECIMALTAB #*(16 8)@@@D@@@D@@@N@@AE@@@D@MHN@MHN@@@@)
(RPAQQ TEDIT.EXTENDEDRIGHTMARK #*(8 32)FF@@FF@@FF@@FF@@LL@@LL@@LL@@LL@@LL@@LL@@LL@@LL@@FF@@FF@@FF@@FF@@CC@@CC@@CC@@CC@@CC@@CC@@CC@@CC@@FF@@FF@@FF@@FF@@LL@@LL@@LL@@LL@@
)
(MARGINBAR.INIT)
(RPAQQ TEXTMENUICON #*(16 24)@@@@@@@@@@@@H@@@L@@AK@@GHLAIHCFAJ@HAKFKIJJJAJBKIJBJAH@KIJDHAKDJIJLJIJDJIJDJIH@KIF@HFAHIH@FN@@@H@
)
(RPAQQ TEXTMENUICONMASK #*(16 24)@@@@@@@@@@@@H@@@L@@AO@@GOLAOOOGOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOGOONAOOH@GN@@@H@
)
(RPAQ? TEDIT.FONTDEVICES (QUOTE (DISPLAY PDF)))
(RPAQ? TEDIT.FONTFAMILIES (QUOTE (Classic Modern Terminal Helvetica TimesRoman Gacha)))
NIL