(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "17-Apr-2018 15:47:03" ("compiled on " {DSK}kaplan>Local>medley3.5>lispcore>lispusers>TEDITKEY.;1) " 9-Apr-2000 18:01:32" tcompl'd in "Medley 3.5 Full Sysout 17-Apr-2018 ..." dated "17-Apr-2018 09:08:25") (FILECREATED "10-Nov-87 14:55:24" {ERINYES}LISPCORE>TEDITKEY.;1 95396 changes to%: (VARS TEDITKEYCOMS) previous date%: " 1-Apr-86 22:36:26" {ERINYES}LYRIC>LISPUSERS>TEDITKEY.;1) NTHCAR :D8 (I 1 N I 0 LIST) @A (6 NTH) NIL () \TEXTOBJ.WINDEX :D8 (P 3 W P 2 CURW P 1 J I 0 TEXTOBJ) *@Ék@ÉJHµI[Jð³úIkÔ¹HX°îNIL (14 TEXTOBJ 5 TEXTOBJ) () \TK.PREVSCREEN :D8 (P 1 PREV P 0 THIS I 2 SEL I 1 TEXTOBJ I 0 STREAM) –@@B BÉd£d‘hXd²xÉYÉZjð¬J²+J ²#AÉAdÉJ¿HÉ¹@dIÉB HÉÙØIÉ»dKñ‘¿Kj h(146 TEDIT.NORMALIZECARET 141 TEDIT.SETSEL 110 \SEL.LIMIT 84 \BACKFORMAT 59 \FZEROP 9 TEDIT.NORMALIZECARET) (126 LINEDESCRIPTOR 116 LINEDESCRIPTOR 102 LINEDESCRIPTOR 91 LINEDESCRIPTOR 77 TEXTOBJ 67 TEXTOBJ 42 LINEDESCRIPTOR 34 LINEDESCRIPTOR 15 SELECTION) () \TK.UNDERLINE.SEL.ON :D8 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) 6g ˜@ABg ˜@AB@oB(51 TEDIT.LOOKS 38 \TK.UNDERLINE.CARET.ON 29 SHIFTDOWNP 18 \TK.FONT4 9 SHIFTDOWNP) (24 USERMODE1 4 FONT) ( 45 (UNDERLINE ON)) \TK.UNDERLINE.SEL.OFF :D8 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) 6g ˜@ABg ˜@AB@oB(51 TEDIT.LOOKS 38 \TK.UNDERLINE.CARET.OFF 29 SHIFTDOWNP 18 \TK.FONT4 9 SHIFTDOWNP) (24 USERMODE1 4 FONT) ( 45 (UNDERLINE OFF)) \TK.BOLD.SEL.ON :D8 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) 6g ˜@ABg ˜@AB@oB(51 TEDIT.LOOKS 38 \TK.BOLD.CARET.ON 29 SHIFTDOWNP 18 \TK.FONT2 9 SHIFTDOWNP) (24 USERMODE1 4 FONT) ( 45 (WEIGHT BOLD)) \TK.BOLD.SEL.OFF :D8 (I 3 CHARCODE I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) 6g ˜@ABg ˜@AB@oB(51 TEDIT.LOOKS 38 \TK.BOLD.CARET.OFF 29 SHIFTDOWNP 18 \TK.FONT2 9 SHIFTDOWNP) (24 USERMODE1 4 FONT) ( 45 (WEIGHT MEDIUM)) \TK.ITALIC.SEL.ON :D8 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) 6g ˜@ABg ˜@AB@oB(51 TEDIT.LOOKS 38 \TK.ITALIC.CARET.ON 29 SHIFTDOWNP 18 \TK.FONT3 9 SHIFTDOWNP) (24 USERMODE1 4 FONT) ( 45 (SLOPE ITALIC)) \TK.ITALIC.SEL.OFF :D8 (I 3 CHARCODE I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) 6g ˜@ABg ˜@AB@oB(51 TEDIT.LOOKS 38 \TK.ITALIC.CARET.OFF 29 SHIFTDOWNP 18 \TK.FONT3 9 SHIFTDOWNP) (24 USERMODE1 4 FONT) ( 45 (SLOPE REGULAR)) \TK.SMALLERSEL :D8 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 \TK.SIZEINCREMENT) <g ˜@ABg ˜@AB@gjPÙhB(57 TEDIT.LOOKS 38 \TK.SMALLER.CARET 29 SHIFTDOWNP 18 \TK.FONT7 9 SHIFTDOWNP) (45 SIZEINCREMENT 24 USERMODE1 4 FONT) () \TK.LARGERSEL :D8 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 \TK.SIZEINCREMENT) :g ˜@ABg ˜@AB@gPhB(55 TEDIT.LOOKS 38 \TK.LARGER.CARET 29 SHIFTDOWNP 18 \TK.FONT7 9 SHIFTDOWNP) (45 SIZEINCREMENT 24 USERMODE1 4 FONT) () \TK.SUPERSCRIPTSEL :D8 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 TEDITKEY.OFFSETINCREMENT) :g ˜@ABg ˜@AB@gPhB(55 TEDIT.LOOKS 38 \TK.SUPERSCRIPT.CARET 29 SHIFTDOWNP 18 \TK.FONT5 9 SHIFTDOWNP) (45 OFFSETINCREMENT 24 USERMODE1 4 FONT) () \TK.SUBSCRIPTSEL :D8 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 TEDITKEY.OFFSETINCREMENT) <g ˜@ABg ˜@AB@gjPÕhB(57 TEDIT.LOOKS 38 \TK.SUBSCRIPT.CARET 29 SHIFTDOWNP 18 \TK.FONT6 9 SHIFTDOWNP) (45 OFFSETINCREMENT 24 USERMODE1 4 FONT) () \TK.DEFAULTSSEL :D8 (P 0 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 1 TEDIT.DEFAULT.CHARLOOKS) Hg ˜@ABg ˜@AB`Q @H @HBh(68 TEDIT.LOOKS 60 TEDIT.CARETLOOKS 50 NCREATE2 38 \TK.DEFAULTS.CARET 29 SHIFTDOWNP 18 \TK.FONT8 9 SHIFTDOWNP) (44 |CHARLOOKSTYPE#| 24 USERMODE1 4 FONT) () \TK.DEL.WORD.FORWARD :D8 (P 0 HERE I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 1 CLASS) ‰@AB@ kØX@ ³@i lð³T@ ³(@i c¿@ ¯Q@i ð³+@H@ HÙkØg@ A h@ ¿°’@ °½(124 TEDIT.NORMALIZECARET 118 TEDIT.DELETE 112 TEDIT.SETSEL 98 GETFILEPTR 87 TEDIT.WORDGET 82 \PEEKBIN 73 EOFP 64 TEDIT.WORDGET 59 \PEEKBIN 50 EOFP 39 TEDIT.WORDGET 34 \PEEKBIN 25 EOFP 16 GETFILEPTR 10 \TK.SETFILEPTR.TO.CARET) (107 RIGHT) () \TK.UCASE.SEL :D8 (P 3 POINT P 2 LEN P 1 POS P 0 STR I 2 SEL I 1 TEXTOBJ I 0 STREAM) G@B BÉBÉBÉ@B @H @IJKA h(67 TEDIT.NORMALIZECARET 61 TEDIT.SETSEL 52 TEDIT.INSERT 47 U-CASE 40 TEDIT.DELETE 6 TEDIT.SEL.AS.STRING) (28 SELECTION 20 SELECTION 12 SELECTION) () \TK.CAPITALISE.SEL :D8 (P 3 POINT P 2 LEN P 1 POS P 0 STR I 2 SEL I 1 TEXTOBJ I 0 STREAM) G@B BÉBÉBÉ@B @H @IJKA h(67 TEDIT.NORMALIZECARET 61 TEDIT.SETSEL 52 TEDIT.INSERT 47 \CAPITALISE 40 TEDIT.DELETE 6 TEDIT.SEL.AS.STRING) (28 SELECTION 20 SELECTION 12 SELECTION) () \CAPITALISE :D8 (I 0 STR) 6@ djð‘@kð–@ @k @l (51 CONCAT 46 L-CASE 41 SUBSTRING 33 U-CASE 28 NTHCHAR 20 U-CASE 5 NCHARS) NIL () \TK.LCASE.SEL :D8 (P 3 POINT P 2 LEN P 1 POS P 0 STR I 2 SEL I 1 TEXTOBJ I 0 STREAM) G@B BÉBÉBÉ@B @H @IJKA h(67 TEDIT.NORMALIZECARET 61 TEDIT.SETSEL 52 TEDIT.INSERT 47 L-CASE 40 TEDIT.DELETE 6 TEDIT.SEL.AS.STRING) (28 SELECTION 20 SELECTION 12 SELECTION) () \TK.CENTER.SEL :D8 (P 6 PARA P 5 NEWQUADS P 4 NEWQUAD P 3 OLDQUAD P 2 LOOKS P 1 SAVEDCH P 0 SAVECH# I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 7 PARASEL F 8 TEDITKEY.VERBOSE) ˜g ˜@ABBÉBÉBBA °Kd@N Zg'[o ¼JgL¿@Nkc¿@JW¿LM]µ¶@HIW´@M ih(148 TEDIT.PROMPTPRINT 142 DREVERSE 131 TEDIT.SETSEL 113 TEDIT.PARALOOKS 101 TEDIT.SETSEL 92 LISTPUT 77 MEMB 59 TEDIT.GET.PARALOOKS 45 \PARAS.IN.SEL 18 \TK.FONT1 9 SHIFTDOWNP) (86 QUAD 65 QUAD 33 SELECTION 25 SELECTION 4 FONT) ( 72 (LEFT JUSTIFIED CENTERED LEFT)) \TK.CENTER.SEL.REV :D8 (P 6 PARA P 5 NEWQUADS P 4 NEWQUAD P 3 OLDQUAD P 2 LOOKS P 1 SAVEDCH P 0 SAVECH# I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 7 PARASEL F 8 TEDITKEY.VERBOSE) ˜g ˜@ABBÉBÉBBA °Kd@N Zg'[o ¼JgL¿@Nkc¿@JW¿LM]µ¶@HIW´@M ih(148 TEDIT.PROMPTPRINT 142 DREVERSE 131 TEDIT.SETSEL 113 TEDIT.PARALOOKS 101 TEDIT.SETSEL 92 LISTPUT 77 MEMB 59 TEDIT.GET.PARALOOKS 45 \PARAS.IN.SEL 18 \TK.FONT1 9 SHIFTDOWNP) (86 QUAD 65 QUAD 33 SELECTION 25 SELECTION 4 FONT) ( 72 (LEFT CENTERED JUSTIFIED LEFT)) \TK.NEST :D8 (P 4 PARA P 2 LOOKS P 1 SAVEDCH P 0 SAVECH# I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 5 TEDITKEY.NESTWIDTH) BÉBÉ"BA °gd@L ZgJg'UØ¿JgJg'UØ¿JgJg'UÙ»jKñ¡K€j¿@Lk¿AJ µš@HIh(139 TEDIT.SETSEL 126 TEDIT.PARALOOKS 118 TEDIT.SETSEL 109 LISTPUT 80 LISTPUT 59 LISTPUT 39 TEDIT.GET.PARALOOKS 25 \PARAS.IN.SEL) (93 RIGHTMARGIN 87 RIGHTMARGIN 72 1STLEFTMARGIN 66 1STLEFTMARGIN 51 LEFTMARGIN 45 LEFTMARGIN 13 SELECTION 5 SELECTION) () \TK.UNNEST :D8 (P 4 PARA P 3 RIGHT P 2 LOOKS P 1 SAVEDCH P 0 SAVECH# I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 5 TEDITKEY.NESTWIDTH) °BÉBÉ"BA ±„d@L ZgJg'UÙdjñ¡¿j¿JgJg'UÙdjñ¡¿j¿Jg'[jð³#K—K ³JgJg'UØ¿@Lk¿AJ µ‚±ÿ{@HIh(172 TEDIT.SETSEL 155 TEDIT.PARALOOKS 147 TEDIT.SETSEL 138 LISTPUT 116 \FZEROP 93 LISTPUT 66 LISTPUT 40 TEDIT.GET.PARALOOKS 25 \PARAS.IN.SEL) (130 RIGHTMARGIN 124 RIGHTMARGIN 100 RIGHTMARGIN 79 1STLEFTMARGIN 73 1STLEFTMARGIN 52 LEFTMARGIN 46 LEFTMARGIN 13 SELECTION 5 SELECTION) () \TK.SHOWCARETLOOKS :D8 (P 0 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) ƒAÉ4@HÉ HÉ²!HÉjð³oHÉ „oHÊ0jð¥o„oHÊ jð¥o„oih(127 TEDIT.PROMPTPRINT 121 CONCAT 64 CONCAT 24 \TK.DESCRIBEFONT) (99 CHARLOOKS 76 CHARLOOKS 57 CHARLOOKS 40 CHARLOOKS 30 CHARLOOKS 17 CHARLOOKS 5 TEXTOBJ) ( 116 "" 110 " underlined" 93 "" 87 " overlined" 70 "" 51 " offset ") \TK.BOLD.CARET.ON :D8 (P 1 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 2 TEDITKEY.VERBOSE) IAÉ4`H IkÏ¿kjðhð@I ´@I ¿R´@ABh(69 \TK.SHOWCARETLOOKS 57 TEDIT.CARETLOOKS 48 \TK.SETFONTINLOOKS 21 NCREATE2) (31 CHARLOOKS 15 |CHARLOOKSTYPE#| 5 TEXTOBJ) () \TK.BOLD.CARET.OFF :D8 (P 1 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 2 TEDITKEY.VERBOSE) IAÉ4`H IjÏ¿jdðhð@I ´@I ¿R´@ABh(69 \TK.SHOWCARETLOOKS 57 TEDIT.CARETLOOKS 48 \TK.SETFONTINLOOKS 21 NCREATE2) (31 CHARLOOKS 15 |CHARLOOKSTYPE#| 5 TEXTOBJ) () \TK.ITALIC.CARET.ON :D8 (P 1 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 2 TEDITKEY.VERBOSE) IAÉ4`H IkÏ¿kjðhð@I ´@I ¿R´@ABh(69 \TK.SHOWCARETLOOKS 57 TEDIT.CARETLOOKS 48 \TK.SETFONTINLOOKS 21 NCREATE2) (31 CHARLOOKS 15 |CHARLOOKSTYPE#| 5 TEXTOBJ) () \TK.ITALIC.CARET.OFF :D8 (P 1 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 2 TEDITKEY.VERBOSE) IAÉ4`H IjÏ¿jdðhð@I ´@I ¿R´@ABh(69 \TK.SHOWCARETLOOKS 57 TEDIT.CARETLOOKS 48 \TK.SETFONTINLOOKS 21 NCREATE2) (31 CHARLOOKS 15 |CHARLOOKSTYPE#| 5 TEXTOBJ) () \TK.UNDERLINE.CARET.ON :D8 (P 1 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 2 TEDITKEY.VERBOSE) ?AÉ4`H IkÏ ¿kjðhð@I R´@ABh(59 \TK.SHOWCARETLOOKS 48 TEDIT.CARETLOOKS 21 NCREATE2) (31 CHARLOOKS 15 |CHARLOOKSTYPE#| 5 TEXTOBJ) () \TK.UNDERLINE.CARET.OFF :D8 (P 1 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 2 TEDITKEY.VERBOSE) ?AÉ4`H IjÏ ¿jdðhð@I R´@ABh(59 \TK.SHOWCARETLOOKS 48 TEDIT.CARETLOOKS 21 NCREATE2) (31 CHARLOOKS 15 |CHARLOOKSTYPE#| 5 TEXTOBJ) () \TK.SUPERSCRIPT.CARET :D8 (P 1 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 2 TEDITKEY.OFFSETINCREMENT F 3 TEDITKEY.VERBOSE) TAÉ4`H IÉ²IIÉRÔ†IR¿@I S´@ABh(80 \TK.SHOWCARETLOOKS 69 TEDIT.CARETLOOKS 21 NCREATE2) (58 CHARLOOKS 47 CHARLOOKS 41 CHARLOOKS 31 CHARLOOKS 15 |CHARLOOKSTYPE#| 5 TEXTOBJ) () \TK.SUBSCRIPT.CARET :D8 (P 1 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 2 TEDITKEY.OFFSETINCREMENT F 3 TEDITKEY.VERBOSE) XAÉ4`H IÉ²IIÉjRÙÔˆIjRÙ¿@I S´@ABh(84 \TK.SHOWCARETLOOKS 73 TEDIT.CARETLOOKS 21 NCREATE2) (60 CHARLOOKS 47 CHARLOOKS 41 CHARLOOKS 31 CHARLOOKS 15 |CHARLOOKSTYPE#| 5 TEXTOBJ) () \TK.SMALLER.CARET :D8 (P 1 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 3 TEDITKEY.VERBOSE) WAÉ4`H IIÉlÙºlJñ¡Jl@I ¡h@I S´÷@AB¿°ë(82 \TK.SHOWCARETLOOKS 71 TEDIT.CARETLOOKS 61 \TK.SETFONTINLOOKS 21 NCREATE2) (37 CHARLOOKS 31 CHARLOOKS 15 |CHARLOOKSTYPE#| 5 TEXTOBJ) () \TK.LARGER.CARET :D8 (P 1 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 2 \TK.SIZEINCREMENT F 3 TEDITKEY.VERBOSE) LAÉ4`H IRIÉØ@I ¡h@I S´÷@AB¿°ë(71 \TK.SHOWCARETLOOKS 60 TEDIT.CARETLOOKS 50 \TK.SETFONTINLOOKS 21 NCREATE2) (38 CHARLOOKS 31 CHARLOOKS 15 |CHARLOOKSTYPE#| 5 TEXTOBJ) () \TK.DEFAULTS.CARET :D8 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 TEDIT.DEFAULT.CHARLOOKS F 1 TEDITKEY.VERBOSE) @`P Q´ @AB(27 \TK.SHOWCARETLOOKS 16 TEDIT.CARETLOOKS 11 NCREATE2) (5 |CHARLOOKSTYPE#|) () \TK.FONT1 :D8 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 TEDITKEY.FONTS) APk (13 \TK.SETCARETFONT 7 NTH) NIL () \TK.FONT2 :D8 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 TEDITKEY.FONTS) APl (14 \TK.SETCARETFONT 8 NTH) NIL () \TK.FONT3 :D8 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 TEDITKEY.FONTS) APl (14 \TK.SETCARETFONT 8 NTH) NIL () \TK.SETCARETFONT :D8 (P 1 LOOKS I 1 FONTNAME I 0 TEXTOBJ F 2 TEXTSTREAM F 3 TEDITKEY.VERBOSE F 4 SEL) ]g ²A@É4`H IA@I ´S˜@Ai¿RI RgAhT(90 TEDIT.LOOKS 73 TEDIT.CARETLOOKS 65 TEDIT.PROMPTPRINT 53 \TK.SETFONTINLOOKS 33 NCREATE2 9 SHIFTDOWNP) (80 FAMILY 43 CHARLOOKS 27 |CHARLOOKSTYPE#| 17 TEXTOBJ 4 USERMODE1) () \TK.FONT4 :D8 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 TEDITKEY.FONTS) APl (14 \TK.SETCARETFONT 8 NTH) NIL () \TK.FONT5 :D8 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 TEDITKEY.FONTS) APl (14 \TK.SETCARETFONT 8 NTH) NIL () \TK.FONT6 :D8 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 TEDITKEY.FONTS) APl (14 \TK.SETCARETFONT 8 NTH) NIL () \TK.FONT7 :D8 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 TEDITKEY.FONTS) APl (14 \TK.SETCARETFONT 8 NTH) NIL () \TK.FONT8 :D8 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 TEDITKEY.FONTS) APl (14 \TK.SETCARETFONT 8 NTH) NIL () \TK.BOLDTOGGLE :D8 (P 1 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 3 TEDITKEY.VERBOSE) wAÉ4`H IIÊjð‘k€jZÏ¿Jjðhð@I ´5S²+@oIÊjð¥o„o i¿@I (116 TEDIT.CARETLOOKS 108 TEDIT.PROMPTPRINT 102 CONCAT 63 \TK.SETFONTINLOOKS 21 NCREATE2) (80 CHARLOOKS 37 CHARLOOKS 31 CHARLOOKS 15 |CHARLOOKSTYPE#| 5 TEXTOBJ) ( 97 "off" 91 "on" 74 "bold: ") \TK.ITALICTOGGLE :D8 (P 1 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 3 TEDITKEY.VERBOSE) wAÉ4`H IIÊjð‘k€jZÏ¿Jjðhð@I ´5S²+@oIÊjð¥o„o i¿@I (116 TEDIT.CARETLOOKS 108 TEDIT.PROMPTPRINT 102 CONCAT 63 \TK.SETFONTINLOOKS 21 NCREATE2) (80 CHARLOOKS 37 CHARLOOKS 31 CHARLOOKS 15 |CHARLOOKSTYPE#| 5 TEXTOBJ) ( 97 "off" 91 "on" 74 "italic: ") \TK.UNDERLINETOGGLE :D8 (P 1 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 3 TEDITKEY.VERBOSE) nAÉ4`H IIÊ jð‘k€jZÏ ¿JjðhðS²+@oIÊ jð¥o„o i¿@I (107 TEDIT.CARETLOOKS 99 TEDIT.PROMPTPRINT 93 CONCAT 21 NCREATE2) (71 CHARLOOKS 37 CHARLOOKS 31 CHARLOOKS 15 |CHARLOOKSTYPE#| 5 TEXTOBJ) ( 88 "off" 82 "on" 65 "underline: ") \TK.SETDEFAULTLOOKS :D8 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 TEDIT.DEFAULT.CHARLOOKS F 1 TEDITKEY.VERBOSE) AÉ4 cQ´@ABh(25 \TK.SHOWCARETLOOKS 12 COPY) (5 TEXTOBJ) () GOTONEXTTTYWINDOWA0001 :D8 (P 0 W I 0 PROC F 1 CANDIDATES) /@g Xd² ´H É.´Q@h h(43 \NCONC2 30 \INSUREWINDOW 22 OPENWP 13 PROCESSPROP) (8 WINDOW) () GOTONEXTTTYWINDOW :D8 (P 0 CURRENT F 1 CANDIDATES F 2 NEW) Jhdcg HQ cd‘dQcd Rg kd`h(70 FLASHWINDOW 58 PROCESSPROP 47 TTY.PROCESS 29 MEMBER 22 MAP.PROCESSES 4 TTY.PROCESS) (65 GRAYSHADE 53 WINDOW 17 GOTONEXTTTYWINDOWA0001) () \TK.NEXTLINE :D8 (P 4 LINEDESC P 1 NEXT P 0 THIS I 2 SEL I 1 TEXTOBJ I 0 STREAM) œ@@B B Xd´‚±…dÉY³!HAhHÉkØZ¿JY´Z@dIÉB HÉÙØILÊ(jðªLÉkÙ‡LÉkØ»dKñ‘¿Kjg h(152 TEDIT.NORMALIZECARET 147 TEDIT.SETSEL 81 \SEL.LIMIT 57 \FORMATLINE 15 \SEL.LINEDESC 9 TEDIT.NORMALIZECARET) (142 LEFT 124 LINEDESCRIPTOR 113 LINEDESCRIPTOR 101 LINEDESCRIPTOR 87 LINEDESCRIPTOR 73 LINEDESCRIPTOR 48 LINEDESCRIPTOR 40 LINEDESCRIPTOR 29 LINEDESCRIPTOR) () \TK.PREVLINE :D8 (P 1 PREV P 0 THIS I 2 SEL I 1 TEXTOBJ I 0 STREAM) §P@B B Xd¢±’ÉYÉZjð¬J²DJ ²Jgð³5Jgð³,Jgð³#Jgð³Jgð¯Jgð§JgðœIgJŠoJ ¿µ‚±þ±hc@IB(364 TEDIT.LOOKS 343 \LISPERROR 331 LISTPUT 248 \TEDIT.UNPARSE.CHARLOOKS.LIST 190 LISTPUT 160 LISTPUT 133 LISTPUT 103 LISTPUT 76 LISTPUT 47 LISTPUT 5 DREVERSE) (325 FAMILY 317 MATH 309 HIPPO 301 TERMINAL 292 CLASSIC 283 MODERN 274 GACHA 265 HELVETICA 256 TIMESROMAN 239 DEFAULTS 230 SMALLER 220 LARGER 210 SUBSCRIPT 198 SUPERSCRIPT 185 OFF 180 UNDERLINE 170 UNDERLINEOFF 155 ON 150 UNDERLINE 141 UNDERLINEON 128 REGULAR 123 SLOPE 113 ITALICOFF 98 ITALIC 93 SLOPE 84 ITALICON 71 MEDIUM 66 WEIGHT 56 BOLDOFF 42 BOLD 37 WEIGHT 27 BOLDON) ( 337 "Illegal pending operation in \TK.PENDING") \TK.NTHFONT :D8 (I 0 N F 0 TEDITKEY.FONTS) P@ (6 NTH) NIL () METASHIFT :D8 (P 2 OLDSETTING P 1 METASTATUS P 0 FLG F 3 TEDITKEY.METAKEY F 4 \ORIGKEYACTIONS) 0eoSHjñ´kaið‘I‡kaµST ZdIô‘iJ(37 KEYACTION) NIL ( 8 (METADOWN . METAUP)) TEDIT.FULL.FIND :D8 (P 4 W P 3 CH P 2 SEL P 1 TARGET P 0 TEXTOBJ I 1 SEARCHSTRING I 0 TEXTSTREAM) @ AHÉd£d‘h\AµHoLg oYd¢±ÌHÉZhd¿Hoi¿HI hdi [¢±„Ho ¿JK¿JKkØ ¿JKKÙkØ¿Jg¿HHJ 4¿J ¿JH ¿H ¿Jhi¿LgI°Ho ¿Jhi¿Hmÿh(261 \SHOWSEL 252 TEDIT.PROMPTPRINT 239 PUTWINDOWPROP 226 \SHOWSEL 217 TEDIT.NORMALIZECARET 210 \FIXSEL 202 TEDIT.RESET.EXTEND.PENDING.DELETE 193 \TEDIT.GET.INSERT.CHARLOOKS 123 TEDIT.PROMPTPRINT 107 TEDIT.FIND 98 MKSTRING 90 TEDIT.PROMPTPRINT 77 \SHOWSEL 55 TEDIT.GETINPUT 45 GETWINDOWUSERPROP 5 TEXTOBJ) (268 TEXTOBJ 233 TEDIT.LAST.FIND.STRING 186 TEXTOBJ 177 RIGHT 172 SELECTION 155 SELECTION 141 SELECTION 130 SELECTION 67 TEXTOBJ 40 TEDIT.LAST.FIND.STRING 14 TEXTOBJ) ( 247 "(not found)" 118 "Done." 84 "Searching..." 50 (13 10 27) 34 "Text to find: ") (PRETTYCOMPRINT TEDITKEYCOMS) (RPAQQ TEDITKEYCOMS ((COMS (* ;;; "This is the Lyric-and-later version of TEditKey")) (COMS (* ; "functions for affecting the selection") (FNS NTHCAR \TEXTOBJ.WINDEX \TK.PREVSCREEN \TK.UNDERLINE.SEL.ON \TK.UNDERLINE.SEL.OFF \TK.BOLD.SEL.ON \TK.BOLD.SEL.OFF \TK.ITALIC.SEL.ON \TK.ITALIC.SEL.OFF \TK.SMALLERSEL \TK.LARGERSEL \TK.SUPERSCRIPTSEL \TK.SUBSCRIPTSEL \TK.DEFAULTSSEL \TK.DEL.WORD.FORWARD \TK.UCASE.SEL \TK.CAPITALISE.SEL \CAPITALISE \TK.LCASE.SEL) (* ; "functions for affecting the paralooks of the selection") (FNS \TK.CENTER.SEL \TK.CENTER.SEL.REV \TK.NEST \TK.UNNEST)) (COMS (* ; "functions for affecting (and displaying) the caret character looks") (FNS \TK.SHOWCARETLOOKS \TK.BOLD.CARET.ON \TK.BOLD.CARET.OFF \TK.ITALIC.CARET.ON \TK.ITALIC.CARET.OFF \TK.UNDERLINE.CARET.ON \TK.UNDERLINE.CARET.OFF \TK.SUPERSCRIPT.CARET \TK.SUBSCRIPT.CARET \TK.SMALLER.CARET \TK.LARGER.CARET \TK.DEFAULTS.CARET \TK.FONT1 \TK.FONT2 \TK.FONT3 \TK.SETCARETFONT \TK.FONT4 \TK.FONT5 \TK.FONT6 \TK.FONT7 \TK.FONT8) (* ; "the functions which aren't currently used, which toggle the caret looks") (FNS \TK.BOLDTOGGLE \TK.ITALICTOGGLE \TK.UNDERLINETOGGLE)) (COMS (* ; "functions dealing with the default looks") (FNS \TK.SETDEFAULTLOOKS)) (COMS (* ; "functions for positioning within a document") (FNS GOTONEXTTTYWINDOW \TK.NEXTLINE \TK.PREVLINE \TK.GOTODOCBEGIN \TK.GOTODOCEND \TK.GOTOLINEBEGIN \TK.GOTOLINEEND \TK.PREVCHAR \TK.NEXTCHAR \TK.FORWARD.WORD \TK.BACK.WORD \TK.SELECT.ALL)) (COMS (* ; "other utilities" ) (FNS \TK.FIND \TK.REDISPLAY \TK.DELLINEFORWARD \TK.OPENLINE \TK.DELCHARFORWARD \TK.TRANSPOSECHARS)) (COMS (* ; "little selection utilities etc., for building hacks") (FNS \SEL.LIMIT \TK.SETFILEPTR.TO.CARET \SEL.LINEDESC) (MACROS \SEL.LIMIT.FORWARD \TK.ONOROFF \LINEDESC.LAST.REAL.CHAR )) (COMS (* ; "fns for the key interface itself") (FNS \SHIFTACTION \ACTION TEDITKEY.INSTALL TEDITKEY.DEINSTALL \TK.ACTIONTOCHARCODE \TK.BUILD.MENU \TK.HELP \TK.SETFONTINLOOKS WRITE.CHARDESC.AUX CHARDESC TEDITKEY.CONFIGURE \TK.ADDKEY \TK.CHANGEKEY \TK.APPLYPENDING \TK.NTHFONT) (* ; "redefinition of system junk") (FNS METASHIFT)) (* ;; "(\TK.BOLDTOGGLE (##H ##h) 'toggle Bold caret looks') (\TK.ITALICTOGGLE (##i ##I) 'toggle Italic caret looks') (\TK.SUPERSCRIPT.CARET (##^) 'Superscript the caret looks') (\TK.SUBSCRIPT.CARET (##_) 'Subscript the caret looks')" ) (FNS TEDIT.FULL.FIND) (VARS \TK.WHITESPACE (TEDIT.INTERRUPTS (BQUOTE ((%, (CHARCODE ^G) ERROR) (%, ( CHARCODE ^C) HELP))))) (CONSTANTS (\TK.WHITESPACE 22)) (INITVARS (TEDITKEY.VERBOSE T) ( TEDITKEY.METAKEY (QUOTE TAB)) (TEDITKEY.LOCKTOGGLEKEY NIL) (TEDITKEY.NESTWIDTH 36) (\TK.SIZEINCREMENT 2) (TEDITKEY.OFFSETINCREMENT 3) (TEDITKEY.FONTS (QUOTE (TIMESROMAN HELVETICA GACHA MODERN CLASSIC TERMINAL SYMBOL HIPPO))) (TEDITKEY.FNKEYFLG T)) (MACROS METACODE CONTROLCODE LCMETACODE) (INITVARS ( \TK.SELKEY (QUOTE OPEN)) (\TK.PENDING)) (INITVARS (TEDITKEY.KEYBINDINGS (BQUOTE ((\TK.FONT1 (%##1) %, (CONCAT "change to font " (\TK.NTHFONT 1))) (\TK.FONT2 (%##2) %, (CONCAT "change to font " ( \TK.NTHFONT 2))) (\TK.FONT3 (%##3) %, (CONCAT "change to font " (\TK.NTHFONT 3))) (\TK.FONT4 (%##4) %, (CONCAT "change to font " (\TK.NTHFONT 4))) (\TK.FONT5 (%##5) %, (CONCAT "change to font " ( \TK.NTHFONT 5))) (\TK.FONT6 (%##6) %, (CONCAT "change to font " (\TK.NTHFONT 6))) (\TK.FONT7 (%##7) %, (CONCAT "change to font " (\TK.NTHFONT 7))) (\TK.FONT8 (%##8) %, (CONCAT "change to font " ( \TK.NTHFONT 8))) NIL (\TK.DEFAULTS.CARET (%##/) "restore the default caret looks") (\TK.SMALLER.CARET (%##9) "decrease the caret font size") (\TK.LARGER.CARET (%##0) "increase the caret font size") ( \TK.SHOWCARETLOOKS (%##=) "display the current caret looks") NIL (\TK.REDISPLAY (%##R %##r) "Restore the display") (\TK.HELP (%##?) "displays the current key bindings") NIL (\TK.PREVCHAR (^B ^b) "Back one character") (\TK.NEXTCHAR (^F ^f) "Forward one character") (\TK.FORWARD.WORD (%##F %##f) "Forward one word") (\TK.BACK.WORD (%##B %##b) "Back one word") (\TK.GOTOLINEBEGIN (^A ^a) "go to stArt of line") (\TK.GOTOLINEEND (^E ^e) "go to End of line") (\TK.PREVLINE (^P ^p) "go to Previous line") (\TK.NEXTLINE (^N ^n) "go to Next line") (\TK.GOTODOCBEGIN (%##<) "start of document") (\TK.GOTODOCEND (%##>) "end of document") (\TK.SELECT.ALL (%##S %##s) "Select whole document") NIL (\TK.DELLINEFORWARD (^K ^k) "Kill line") (\TK.OPENLINE (^O ^o) "Open up blank line") (\TK.DELCHARFORWARD (^D ^d) "Delete character forward") (\TK.DEL.WORD.FORWARD ( %##D %##d) "Delete word forward") (\TK.TRANSPOSECHARS (^T ^t) "Transpose characters") NIL NIL ( \TK.NEST (|##[|) "indents margins (nest)") (\TK.UNNEST (|##]|) "exdents margins (unnest)") ( \TK.CENTER.SEL (%##J %##j) "alter Justification") (\TK.UCASE.SEL (%##U %##u) "Uppercasify selection") (\TK.CAPITALISE.SEL (%##C %##c) "Capitalize selection") (\TK.LCASE.SEL (%##L %##l) "Lowercasify selection") (GET.OBJ.FROM.USER (%##O %##o) "insert Object")))) (TEDITKEY.DLION.KEYACTIONS (BQUOTE ((STOP (%, (CHARCODE ^G) %, (CHARCODE ^C) NOLOCKSHIFT)) (OPEN (%, (CHARCODE 2,1) %, (CHARCODE 2,41) NOLOCKSHIFT)) (FONT FONTDOWN . FONTUP) (KEYBOARD USERMODE1DOWN . USERMODE1UP)))) (COMS (* ;; "(TEDITKEY.FNKEYACTIONS (BQUOTE ((CENTER (, (CHARCODE ##^B), (CHARCODE ##^C))) (BOLD (, (CHARCODE ##^D), (CHARCODE ##^E) NOLOCKSHIFT)) (ITALICS (, (CHARCODE ##^F), (CHARCODE ##^G) NOLOCKSHIFT)) (UNDERLINE (, (CHARCODE ##^H), (CHARCODE ##^I) NOLOCKSHIFT)) (SUPERSCRIPT (, (CHARCODE ##^J), (CHARCODE ##^K) NOLOCKSHIFT)) (SUBSCRIPT (, (CHARCODE ##^L), (CHARCODE ##^N) NOLOCKSHIFT)) (LARGER (, (CHARCODE ##^O), (CHARCODE ##^P) NOLOCKSHIFT)) (DEFAULTS (, (CHARCODE ##^Q), (CHARCODE ##^R) NOLOCKSHIFT)) (BS (, (CHARCODE ^H), (CHARCODE ^D) NOLOCKSHIFT)))))" )) (TEDITKEY.DLION.KEYBINDINGS (QUOTE (((\ACTION (QUOTE OPEN)) \TK.OPENLINE) ((\ACTION (QUOTE HELP)) \TK.HELP) ((\ACTION (QUOTE MARGINS)) \TK.NEST) ((\SHIFTACTION (QUOTE MARGINS)) \TK.UNNEST) (( \SHIFTACTION (QUOTE NEXT)) GOTONEXTTTYWINDOW)))) (TEDITKEY.FNKEYBINDINGS (QUOTE (((\ACTION (QUOTE DEFAULTS)) \TK.DEFAULTSSEL) ((\SHIFTACTION (QUOTE DEFAULTS)) \TK.SETDEFAULTLOOKS)))) (COMS (* ;; "NOT NEEDED (TEDITKEY.DLION.KEYSYNTAX (QUOTE (((\ACTION (QUOTE NEXT)) NEXT) ((\ACTION (QUOTE UNDO)) UNDO) ((\ACTION (QUOTE BS)) CHARDELETE))))" )) (TEDITKEY.DORADO.KEYACTIONS (BQUOTE ((BS (%, (CHARCODE ^H) %, (CHARCODE ^H))) (BLANK-BOTTOM (%, ( CHARCODE %##^A) %, (CHARCODE %##^A))) (BLANK-TOP FONTDOWN . FONTUP) (BLANK-MIDDLE USERMODE1DOWN . USERMODE1UP) (CENTER (2,101 2,141 NOLOCKSHIFT)) (BOLD (2,102 2,142 NOLOCKSHIFT)) (ITALICS (2,103 2,143 NOLOCKSHIFT)) (UNDERLINE (2,106 2,146 NOLOCKSHIFT)) (SUPERSCRIPT (2,113 2,153 NOLOCKSHIFT)) ( SUBSCRIPT (2,114 2,154 NOLOCKSHIFT)) (LARGER (2,110 2,150 NOLOCKSHIFT)) (DEFAULTS (2,115 2,155 NOLOCKSHIFT))))) (TEDITKEY.DORADO.KEYSYNTAX (QUOTE (((CHARCODE %##N) NEXT) ((CHARCODE %##n) NEXT) (( \ACTION (QUOTE BLANK-BOTTOM)) UNDO) ((\ACTION (QUOTE BS)) CHARDELETE))))) (P (TEDITKEY.INSTALL)) (P ( \TK.BUILD.MENU)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML ) (LAMA METASHIFT))))) (PUTPROPS \SEL.LIMIT.FORWARD MACRO (LAMBDA (SEL) (* gbn "13-Dec-84 11:43") (* returns the character in front of the caret (ch# for left and chlim for right)) (if (EQ (fetch POINT of SEL) (QUOTE LEFT)) then (fetch CH# of SEL) else (fetch CHLIM of SEL)))) (PUTPROPS \TK.ONOROFF MACRO (LAMBDA (FLG) (if FLG then "on" else "off"))) (PUTPROPS \LINEDESC.LAST.REAL.CHAR MACRO (LAMBDA (LINEDESC) (if (fetch CR\END of LINEDESC) then (* there is a CR at the end so the last real char CHLIM-1) (SUB1 (fetch CHARLIM of LINEDESC)) else (fetch CHARLIM of LINEDESC)))) (RPAQQ \TK.WHITESPACE 22) (RPAQ TEDIT.INTERRUPTS (BQUOTE ((%, (CHARCODE ^G) ERROR) (%, (CHARCODE ^C) HELP)))) (RPAQQ \TK.WHITESPACE 22) (CONSTANTS (\TK.WHITESPACE 22)) (RPAQ? TEDITKEY.VERBOSE T) (RPAQ? TEDITKEY.METAKEY (QUOTE TAB)) (RPAQ? TEDITKEY.LOCKTOGGLEKEY NIL) (RPAQ? TEDITKEY.NESTWIDTH 36) (RPAQ? \TK.SIZEINCREMENT 2) (RPAQ? TEDITKEY.OFFSETINCREMENT 3) (RPAQ? TEDITKEY.FONTS (QUOTE (TIMESROMAN HELVETICA GACHA MODERN CLASSIC TERMINAL SYMBOL HIPPO))) (RPAQ? TEDITKEY.FNKEYFLG T) (PUTPROPS METACODE MACRO (LAMBDA (CHARCODE) (LOGOR CHARCODE 128))) (PUTPROPS CONTROLCODE MACRO (LAMBDA (CHARCODE) (LOGAND CHARCODE 31))) (PUTPROPS LCMETACODE MACRO (LAMBDA (CHARCODE) (LOGOR 160 CHARCODE))) (RPAQ? \TK.SELKEY (QUOTE OPEN)) (RPAQ? \TK.PENDING) (RPAQ? TEDITKEY.KEYBINDINGS (BQUOTE ((\TK.FONT1 (%##1) %, (CONCAT "change to font " (\TK.NTHFONT 1))) (\TK.FONT2 (%##2) %, (CONCAT "change to font " (\TK.NTHFONT 2))) (\TK.FONT3 (%##3) %, (CONCAT "change to font " (\TK.NTHFONT 3))) (\TK.FONT4 (%##4) %, (CONCAT "change to font " (\TK.NTHFONT 4))) ( \TK.FONT5 (%##5) %, (CONCAT "change to font " (\TK.NTHFONT 5))) (\TK.FONT6 (%##6) %, (CONCAT "change to font " (\TK.NTHFONT 6))) (\TK.FONT7 (%##7) %, (CONCAT "change to font " (\TK.NTHFONT 7))) ( \TK.FONT8 (%##8) %, (CONCAT "change to font " (\TK.NTHFONT 8))) NIL (\TK.DEFAULTS.CARET (%##/) "restore the default caret looks") (\TK.SMALLER.CARET (%##9) "decrease the caret font size") ( \TK.LARGER.CARET (%##0) "increase the caret font size") (\TK.SHOWCARETLOOKS (%##=) "display the current caret looks") NIL (\TK.REDISPLAY (%##R %##r) "Restore the display") (\TK.HELP ( %##?) "displays the current key bindings") NIL (\TK.PREVCHAR (^B ^b) "Back one character") ( \TK.NEXTCHAR (^F ^f) "Forward one character") (\TK.FORWARD.WORD (%##F %##f) "Forward one word") ( \TK.BACK.WORD (%##B %##b) "Back one word") (\TK.GOTOLINEBEGIN (^A ^a) "go to stArt of line") ( \TK.GOTOLINEEND (^E ^e) "go to End of line") (\TK.PREVLINE (^P ^p) "go to Previous line") ( \TK.NEXTLINE (^N ^n) "go to Next line") (\TK.GOTODOCBEGIN (%##<) "start of document") (\TK.GOTODOCEND (%##>) "end of document") (\TK.SELECT.ALL (%##S %##s) "Select whole document") NIL (\TK.DELLINEFORWARD (^K ^k) "Kill line") (\TK.OPENLINE (^O ^o) "Open up blank line") (\TK.DELCHARFORWARD (^D ^d) "Delete character forward") (\TK.DEL.WORD.FORWARD (%##D %##d) "Delete word forward") ( \TK.TRANSPOSECHARS (^T ^t) "Transpose characters") NIL NIL (\TK.NEST (|##[|) "indents margins (nest)") (\TK.UNNEST (|##]|) "exdents margins (unnest)") (\TK.CENTER.SEL (%##J %##j) "alter Justification") ( \TK.UCASE.SEL (%##U %##u) "Uppercasify selection") (\TK.CAPITALISE.SEL (%##C %##c) "Capitalize selection") (\TK.LCASE.SEL (%##L %##l) "Lowercasify selection") (GET.OBJ.FROM.USER (%##O %##o) "insert Object")))) (RPAQ? TEDITKEY.DLION.KEYACTIONS (BQUOTE ((STOP (%, (CHARCODE ^G) %, (CHARCODE ^C) NOLOCKSHIFT)) (OPEN (%, (CHARCODE 2,1) %, (CHARCODE 2,41) NOLOCKSHIFT)) (FONT FONTDOWN . FONTUP) (KEYBOARD USERMODE1DOWN . USERMODE1UP)))) (RPAQ? COMS (* ;; "(TEDITKEY.FNKEYACTIONS (BQUOTE ((CENTER (, (CHARCODE ##^B), (CHARCODE ##^C))) (BOLD (, (CHARCODE ##^D), (CHARCODE ##^E) NOLOCKSHIFT)) (ITALICS (, (CHARCODE ##^F), (CHARCODE ##^G) NOLOCKSHIFT)) (UNDERLINE (, (CHARCODE ##^H), (CHARCODE ##^I) NOLOCKSHIFT)) (SUPERSCRIPT (, (CHARCODE ##^J), (CHARCODE ##^K) NOLOCKSHIFT)) (SUBSCRIPT (, (CHARCODE ##^L), (CHARCODE ##^N) NOLOCKSHIFT)) (LARGER (, (CHARCODE ##^O), (CHARCODE ##^P) NOLOCKSHIFT)) (DEFAULTS (, (CHARCODE ##^Q), (CHARCODE ##^R) NOLOCKSHIFT)) (BS (, (CHARCODE ^H), (CHARCODE ^D) NOLOCKSHIFT)))))" )) (RPAQ? TEDITKEY.DLION.KEYBINDINGS (QUOTE (((\ACTION (QUOTE OPEN)) \TK.OPENLINE) ((\ACTION (QUOTE HELP) ) \TK.HELP) ((\ACTION (QUOTE MARGINS)) \TK.NEST) ((\SHIFTACTION (QUOTE MARGINS)) \TK.UNNEST) (( \SHIFTACTION (QUOTE NEXT)) GOTONEXTTTYWINDOW)))) (RPAQ? TEDITKEY.FNKEYBINDINGS (QUOTE (((\ACTION (QUOTE DEFAULTS)) \TK.DEFAULTSSEL) ((\SHIFTACTION ( QUOTE DEFAULTS)) \TK.SETDEFAULTLOOKS)))) (RPAQ? COMS (* ;; "NOT NEEDED (TEDITKEY.DLION.KEYSYNTAX (QUOTE (((\ACTION (QUOTE NEXT)) NEXT) ((\ACTION (QUOTE UNDO)) UNDO) ((\ACTION (QUOTE BS)) CHARDELETE))))" )) (RPAQ? TEDITKEY.DORADO.KEYACTIONS (BQUOTE ((BS (%, (CHARCODE ^H) %, (CHARCODE ^H))) (BLANK-BOTTOM (%, (CHARCODE %##^A) %, (CHARCODE %##^A))) (BLANK-TOP FONTDOWN . FONTUP) (BLANK-MIDDLE USERMODE1DOWN . USERMODE1UP) (CENTER (2,101 2,141 NOLOCKSHIFT)) (BOLD (2,102 2,142 NOLOCKSHIFT)) (ITALICS (2,103 2,143 NOLOCKSHIFT)) (UNDERLINE (2,106 2,146 NOLOCKSHIFT)) (SUPERSCRIPT (2,113 2,153 NOLOCKSHIFT)) ( SUBSCRIPT (2,114 2,154 NOLOCKSHIFT)) (LARGER (2,110 2,150 NOLOCKSHIFT)) (DEFAULTS (2,115 2,155 NOLOCKSHIFT))))) (RPAQ? TEDITKEY.DORADO.KEYSYNTAX (QUOTE (((CHARCODE %##N) NEXT) ((CHARCODE %##n) NEXT) ((\ACTION ( QUOTE BLANK-BOTTOM)) UNDO) ((\ACTION (QUOTE BS)) CHARDELETE)))) (TEDITKEY.INSTALL) (\TK.BUILD.MENU) (PUTPROPS TEDITKEY COPYRIGHT ("Xerox Corporation" 1985 1986 1987)) NIL