(FILECREATED "12-Mar-85 14:29:50" ("compiled on " {IVY}TEDITKEY.;51) " 7-Mar-85 12:37:06" recompiled changes: \TK.NEXTLINE \TK.PREVLINE \TK.GOTOLINEBEGIN \TK.GOTOLINEEND \TK.NEXTCHAR \TK.REDISPLAY \TK.TRANSPOSECHARS in "INTERLISP-D 7-Mar-85 ..." dated " 7-Mar-85 13:57:43") (FILECREATED "12-Mar-85 14:28:07" {IVY}TEDITKEY.;51 77922 changes to: (FNS \TK.REDISPLAY \TK.TRANSPOSECHARS \TK.NEXTLINE \TK.PREVLINE \TK.GOTOLINEEND \TK.GOTOLINEBEGIN \TK.NEXTCHAR) previous date: " 8-Mar-85 12:59:37" {IVY}TEDITKEY.;48) \TK.UNDERLINE.SEL.ON D1 (P 0 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) @g 法AB g 法AB ABﾉ Hgg @HB @H (75Q TEDIT.CARETLOOKS 70Q TEDIT.LOOKS 62Q LISTPUT 45Q TEDIT.GET.LOOKS 32Q \TK.UNDERLINE.CARET.ON 23Q SHIFTDOWNP 14Q \TK.FONT4 5 SHIFTDOWNP) (57Q ON 54Q UNDERLINE 40Q SELECTION 20Q USERMODE1 2 FONT) () \TK.UNDERLINE.SEL.OFF D1 (P 0 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) @g 法AB g 法AB ABﾉ Hgg @HB @H (75Q TEDIT.CARETLOOKS 70Q TEDIT.LOOKS 62Q LISTPUT 45Q TEDIT.GET.LOOKS 32Q \TK.UNDERLINE.CARET.OFF 23Q SHIFTDOWNP 14Q \TK.FONT4 5 SHIFTDOWNP) (57Q OFF 54Q UNDERLINE 40Q SELECTION 20Q USERMODE1 2 FONT) () \TK.BOLD.SEL.ON D1 (P 0 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) @g 法AB g 法AB ABﾉ Hgg @HB @H (75Q TEDIT.CARETLOOKS 70Q TEDIT.LOOKS 62Q LISTPUT 45Q TEDIT.GET.LOOKS 32Q \TK.BOLD.CARET.ON 23Q SHIFTDOWNP 14Q \TK.FONT2 5 SHIFTDOWNP) (57Q BOLD 54Q WEIGHT 40Q SELECTION 20Q USERMODE1 2 FONT) () \TK.BOLD.SEL.OFF D1 (P 0 LOOKS I 3 CHARCODE I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) @g 法AB g 法AB ABﾉ Hgg @HB @H (75Q TEDIT.CARETLOOKS 70Q TEDIT.LOOKS 62Q LISTPUT 45Q TEDIT.GET.LOOKS 32Q \TK.BOLD.CARET.OFF 23Q SHIFTDOWNP 14Q \TK.FONT2 5 SHIFTDOWNP) (57Q MEDIUM 54Q WEIGHT 40Q SELECTION 20Q USERMODE1 2 FONT) () \TK.ITALIC.SEL.ON D1 (P 0 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) @g 法AB g 法AB ABﾉ Hgg @HB @H (75Q TEDIT.CARETLOOKS 70Q TEDIT.LOOKS 62Q LISTPUT 45Q TEDIT.GET.LOOKS 32Q \TK.ITALIC.CARET.ON 23Q SHIFTDOWNP 14Q \TK.FONT3 5 SHIFTDOWNP) (57Q ITALIC 54Q SLOPE 40Q SELECTION 20Q USERMODE1 2 FONT) () \TK.ITALIC.SEL.OFF D1 (P 0 LOOKS I 3 CHARCODE I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) @g 法AB g 法AB ABﾉ Hgg @HB @H (75Q TEDIT.CARETLOOKS 70Q TEDIT.LOOKS 62Q LISTPUT 45Q TEDIT.GET.LOOKS 32Q \TK.ITALIC.CARET.OFF 23Q SHIFTDOWNP 14Q \TK.FONT3 5 SHIFTDOWNP) (57Q REGULAR 54Q SLOPE 40Q SELECTION 20Q USERMODE1 2 FONT) () \TK.SMALLERSEL D1 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 \TK.SIZEINCREMENT) ,g 法AB g 法AB @gjPﾙhB (51Q TEDIT.LOOKS 32Q \TK.SMALLER.CARET 23Q SHIFTDOWNP 14Q \TK.FONT7 5 SHIFTDOWNP) (37Q SIZEINCREMENT 20Q USERMODE1 2 FONT) () \TK.LARGERSEL D1 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 \TK.SIZEINCREMENT) *g 法AB g 法AB @gPhB (47Q TEDIT.LOOKS 32Q \TK.LARGER.CARET 23Q SHIFTDOWNP 14Q \TK.FONT7 5 SHIFTDOWNP) (37Q SIZEINCREMENT 20Q USERMODE1 2 FONT) () \TK.SUPERSCRIPTSEL D1 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 TEDITKEY.OFFSETINCREMENT) *g 法AB g 法AB @gPhB (47Q TEDIT.LOOKS 32Q \TK.SUPERSCRIPT.CARET 23Q SHIFTDOWNP 14Q \TK.FONT5 5 SHIFTDOWNP) (37Q OFFSETINCREMENT 20Q USERMODE1 2 FONT) () \TK.SUBSCRIPTSEL D1 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 TEDITKEY.OFFSETINCREMENT) -g 法AB g 法AB @gP hB (52Q TEDIT.LOOKS 43Q MINUS 32Q \TK.SUBSCRIPT.CARET 23Q SHIFTDOWNP 14Q \TK.FONT6 5 SHIFTDOWNP) (37Q OFFSETINCREMENT 20Q USERMODE1 2 FONT) () \TK.DEFAULTSSEL D1 (P 0 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 1 TEDIT.DEFAULT.CHARLOOKS) 4g 法AB g 法AB `Q @H @HB h(60Q TEDIT.LOOKS 52Q TEDIT.CARETLOOKS 42Q NCREATE2 32Q \TK.DEFAULTS.CARET 23Q SHIFTDOWNP 14Q \TK.FONT8 5 SHIFTDOWNP) (36Q CHARLOOKSTYPE# 20Q USERMODE1 2 FONT) () \TK.DEL.WORD.FORWARD D1 (P 0 HERE I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 1 CLASS) c@AB @ kﾘX@ ｳ@i l如 ｿｰ@ ｳ!@i cｿ@ ｮQ@i 邸 ｰ@H@ Hﾙkﾘg @ h(137Q TEDIT.DELETE 133Q TEDIT.SETSEL 121Q GETFILEPTR 105Q TEDIT.WORDGET 102Q \PEEKBIN 73Q EOFP 64Q TEDIT.WORDGET 61Q \PEEKBIN 52Q EOFP 35Q TEDIT.WORDGET 32Q \PEEKBIN 23Q EOFP 14Q GETFILEPTR 10Q \TK.SETFILEPTR.TO.CARET) (130Q RIGHT) () \TK.UCASE.SEL D1 (P 3 POINT P 2 LEN P 1 POS P 0 STR I 2 SEL I 1 TEXTOBJ I 0 STREAM) 1@B BﾉBﾉ Bﾉ@B @H @IJK h(55Q TEDIT.SETSEL 46Q TEDIT.INSERT 43Q U-CASE 36Q TEDIT.DELETE 4 TEDIT.SEL.AS.STRING) (24Q SELECTION 16Q SELECTION 10Q SELECTION) () \TK.LCASE.SEL D1 (P 3 POINT P 2 LEN P 1 POS P 0 STR I 2 SEL I 1 TEXTOBJ I 0 STREAM) 1@B BﾉBﾉ Bﾉ@B @H @IJK h(55Q TEDIT.SETSEL 46Q TEDIT.INSERT 43Q L-CASE 36Q TEDIT.DELETE 4 TEDIT.SEL.AS.STRING) (24Q SELECTION 16Q SELECTION 10Q SELECTION) () \TK.CENTER.SEL D1 (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 10Q TEDITKEY.VERBOSE) yg 法AB BﾉBﾉ BBA ｰ>d@N Zg [o ｼJgL ｿ@Nk cｿ@JW ｿLM]ｵﾃ@HI Wｴ @M i h(165Q TEDIT.PROMPTPRINT 161Q DREVERSE 150Q TEDIT.SETSEL 130Q TEDIT.PARALOOKS 116Q TEDIT.SETSEL 107Q LISTPUT 74Q MEMB 64Q LISTGET 55Q TEDIT.GET.PARALOOKS 41Q \PARAS.IN.SEL 14Q \TK.FONT1 5 SHIFTDOWNP) (103Q QUAD 61Q QUAD 27Q SELECTION 21Q SELECTION 2 FONT) ( 71Q (LEFT JUSTIFIED CENTERED LEFT)) \TK.CENTER.SEL.REV D1 (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 STREAM F 7 TEXTSTREAM F 10Q PARASEL F 11Q TEDITKEY.VERBOSE) g 邑AB BﾉBﾉ BBA ｰAdWN Zg [o ｼJgL ｿWNk cｿWJW ｿLM]ｵﾀWHI Wｴ WM i h(173Q TEDIT.PROMPTPRINT 167Q DREVERSE 155Q TEDIT.SETSEL 134Q TEDIT.PARALOOKS 121Q TEDIT.SETSEL 111Q LISTPUT 76Q MEMB 66Q LISTGET 57Q TEDIT.GET.PARALOOKS 42Q \PARAS.IN.SEL 15Q \TK.FONT1 5 SHIFTDOWNP) (105Q QUAD 63Q QUAD 30Q SELECTION 22Q SELECTION 2 FONT) ( 73Q (LEFT CENTERED JUSTIFIED LEFT)) \TK.NEST D1 (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) uBﾉBﾉ "BA ｰUd@L ZgJg Uﾘ ｿJgJg Uﾘ ｿJgJg UﾙｻjK｡Kj ｿ@Lk ｿAJ ｵｬ@HI h(161Q TEDIT.SETSEL 146Q TEDIT.PARALOOKS 140Q TEDIT.SETSEL 131Q LISTPUT 114Q LISTGET 100Q LISTPUT 73Q LISTGET 57Q LISTPUT 52Q LISTGET 37Q TEDIT.GET.PARALOOKS 23Q \PARAS.IN.SEL) (111Q RIGHTMARGIN 105Q RIGHTMARGIN 70Q 1STLEFTMARGIN 64Q 1STLEFTMARGIN 47Q LEFTMARGIN 43Q LEFTMARGIN 11Q SELECTION 3 SELECTION) () \TK.UNNEST D1 (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 ｰod@L ZgJg Uﾙdj｡ｿj ｿJgJg Uﾙdj｡ｿj ｿJg [jｳK必 ｳJgJg Uﾘ ｿ@Lk ｿAJ ｵ叩HI h(213Q TEDIT.SETSEL 200Q TEDIT.PARALOOKS 172Q TEDIT.SETSEL 163Q LISTPUT 156Q LISTGET 141Q \FZEROP 124Q LISTGET 114Q LISTPUT 101Q LISTGET 65Q LISTPUT 52Q LISTGET 37Q TEDIT.GET.PARALOOKS 23Q \PARAS.IN.SEL) (153Q RIGHTMARGIN 147Q RIGHTMARGIN 121Q RIGHTMARGIN 76Q 1STLEFTMARGIN 72Q 1STLEFTMARGIN 47Q LEFTMARGIN 43Q LEFTMARGIN 11Q SELECTION 3 SELECTION) () \TK.SHOWCARETLOOKS D1 (P 0 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) fAﾉ4@Hﾉ HﾉｲHﾉjｭoHﾉ バHﾊ0j､oバHﾊ j､oバ i h(142Q TEDIT.PROMPTPRINT 136Q CONCAT 60Q CONCAT 22Q \TK.DESCRIBEFONT) (114Q CHARLOOKS 71Q CHARLOOKS 53Q CHARLOOKS 36Q CHARLOOKS 26Q CHARLOOKS 15Q CHARLOOKS 3 TEXTOBJ) ( 133Q "" 126Q " underlined" 110Q "" 103Q " overlined" 65Q "" 47Q " offset ") \TK.BOLD.CARET.ON D1 (P 1 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 2 TEDITKEY.VERBOSE) ;Aﾉ4`H Ikﾏｿkjh@I ｴ@I ｿRｴ @AB h(67Q \TK.SHOWCARETLOOKS 55Q TEDIT.CARETLOOKS 46Q \TK.SETFONTINLOOKS 17Q NCREATE2) (27Q CHARLOOKS 13Q CHARLOOKSTYPE# 3 TEXTOBJ) () \TK.BOLD.CARET.OFF D1 (P 1 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 2 TEDITKEY.VERBOSE) ;Aﾉ4`H Ijﾏｿjdh@I ｴ@I ｿRｴ @AB h(67Q \TK.SHOWCARETLOOKS 55Q TEDIT.CARETLOOKS 46Q \TK.SETFONTINLOOKS 17Q NCREATE2) (27Q CHARLOOKS 13Q CHARLOOKSTYPE# 3 TEXTOBJ) () \TK.ITALIC.CARET.ON D1 (P 1 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 2 TEDITKEY.VERBOSE) ;Aﾉ4`H Ikﾏｿkjh@I ｴ@I ｿRｴ @AB h(67Q \TK.SHOWCARETLOOKS 55Q TEDIT.CARETLOOKS 46Q \TK.SETFONTINLOOKS 17Q NCREATE2) (27Q CHARLOOKS 13Q CHARLOOKSTYPE# 3 TEXTOBJ) () \TK.ITALIC.CARET.OFF D1 (P 1 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 2 TEDITKEY.VERBOSE) ;Aﾉ4`H Ijﾏｿjdh@I ｴ@I ｿRｴ @AB h(67Q \TK.SHOWCARETLOOKS 55Q TEDIT.CARETLOOKS 46Q \TK.SETFONTINLOOKS 17Q NCREATE2) (27Q CHARLOOKS 13Q CHARLOOKSTYPE# 3 TEXTOBJ) () \TK.UNDERLINE.CARET.ON D1 (P 1 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 2 TEDITKEY.VERBOSE) 3Aﾉ4`H Ikﾏ ｿkjh@I Rｴ @AB h(57Q \TK.SHOWCARETLOOKS 46Q TEDIT.CARETLOOKS 17Q NCREATE2) (27Q CHARLOOKS 13Q CHARLOOKSTYPE# 3 TEXTOBJ) () \TK.UNDERLINE.CARET.OFF D1 (P 1 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 2 TEDITKEY.VERBOSE) 3Aﾉ4`H Ijﾏ ｿjdh@I Rｴ @AB h(57Q \TK.SHOWCARETLOOKS 46Q TEDIT.CARETLOOKS 17Q NCREATE2) (27Q CHARLOOKS 13Q CHARLOOKSTYPE# 3 TEXTOBJ) () \TK.SUPERSCRIPT.CARET D1 (P 1 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 2 TEDITKEY.OFFSETINCREMENT F 3 TEDITKEY.VERBOSE) AAﾉ4`H Iﾉ廬IﾉRﾔИRｿ@I Sｴ @AB h(75Q \TK.SHOWCARETLOOKS 64Q TEDIT.CARETLOOKS 17Q NCREATE2) (53Q CHARLOOKS 42Q CHARLOOKS 36Q CHARLOOKS 27Q CHARLOOKS 13Q CHARLOOKSTYPE# 3 TEXTOBJ) () \TK.SUBSCRIPT.CARET D1 (P 1 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 2 TEDITKEY.OFFSETINCREMENT F 3 TEDITKEY.VERBOSE) EAﾉ4`H Iﾉ曵IﾉjRﾙﾔIjRﾙｿ@I Sｴ @AB h(101Q \TK.SHOWCARETLOOKS 70Q TEDIT.CARETLOOKS 17Q NCREATE2) (55Q CHARLOOKS 42Q CHARLOOKS 36Q CHARLOOKS 27Q CHARLOOKS 13Q CHARLOOKSTYPE# 3 TEXTOBJ) () \TK.SMALLER.CARET D1 (P 1 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 3 TEDITKEY.VERBOSE) GAﾉ4`H IIﾉlﾙｺlJ｡J〕@I ｡h@I Sｴ@AB ｿｰ(102Q \TK.SHOWCARETLOOKS 71Q TEDIT.CARETLOOKS 61Q \TK.SETFONTINLOOKS 17Q NCREATE2) (33Q CHARLOOKS 27Q CHARLOOKS 13Q CHARLOOKSTYPE# 3 TEXTOBJ) () \TK.LARGER.CARET D1 (P 1 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 2 \TK.SIZEINCREMENT F 3 TEDITKEY.VERBOSE) <Aﾉ4`H IRIﾉﾘ@I ｡h@I Sｴ@AB ｿｰ(67Q \TK.SHOWCARETLOOKS 56Q TEDIT.CARETLOOKS 46Q \TK.SETFONTINLOOKS 17Q NCREATE2) (34Q CHARLOOKS 27Q CHARLOOKS 13Q CHARLOOKSTYPE# 3 TEXTOBJ) () \TK.DEFAULTS.CARET D1 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 TEDIT.DEFAULT.CHARLOOKS F 1 TEDITKEY.VERBOSE) @`P Qｴ@AB (23Q \TK.SHOWCARETLOOKS 12Q TEDIT.CARETLOOKS 7 NCREATE2) (3 CHARLOOKSTYPE#) () \TK.FONT1 D1 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 TEDITKEY.FONTS) APk  (11Q \TK.SETCARETFONT 5 NTH) NIL () \TK.FONT2 D1 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 TEDITKEY.FONTS) APl  (12Q \TK.SETCARETFONT 6 NTH) NIL () \TK.FONT3 D1 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 TEDITKEY.FONTS) APl  (12Q \TK.SETCARETFONT 6 NTH) NIL () \TK.SETCARETFONT D1 (P 1 LOOKS I 1 FONTNAME I 0 TEXTOBJ F 2 TEXTSTREAM F 3 SEL F 4 TEDITKEY.VERBOSE) [g ｲ3@ﾉ4`H IA@I ｴ1T法Ai ｿRI @Sﾉ IgA RIS RI (130Q TEDIT.CARETLOOKS 123Q TEDIT.LOOKS 115Q LISTPUT 102Q TEDIT.GET.LOOKS 67Q TEDIT.CARETLOOKS 61Q TEDIT.PROMPTPRINT 47Q \TK.SETFONTINLOOKS 27Q NCREATE2 5 SHIFTDOWNP) (111Q FAMILY 75Q SELECTION 37Q CHARLOOKS 23Q CHARLOOKSTYPE# 13Q TEXTOBJ 2 USERMODE1) () \TK.FONT4 D1 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 TEDITKEY.FONTS) APl  (12Q \TK.SETCARETFONT 6 NTH) NIL () \TK.FONT5 D1 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 TEDITKEY.FONTS) APl  (12Q \TK.SETCARETFONT 6 NTH) NIL () \TK.FONT6 D1 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 TEDITKEY.FONTS) APl  (12Q \TK.SETCARETFONT 6 NTH) NIL () \TK.FONT7 D1 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 TEDITKEY.FONTS) APl  (12Q \TK.SETCARETFONT 6 NTH) NIL () \TK.FONT8 D1 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 TEDITKEY.FONTS) APl  (12Q \TK.SETCARETFONT 6 NTH) NIL () \TK.BOLDTOGGLE D1 (P 1 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 3 TEDITKEY.VERBOSE) `Aﾉ4`H IIﾊj遡jZﾏｿJjh@I ｴ*Sｲ"@oIﾊj､oバ i ｿ@I (135Q TEDIT.CARETLOOKS 127Q TEDIT.PROMPTPRINT 123Q CONCAT 63Q \TK.SETFONTINLOOKS 17Q NCREATE2) (101Q CHARLOOKS 33Q CHARLOOKS 27Q CHARLOOKS 13Q CHARLOOKSTYPE# 3 TEXTOBJ) ( 120Q "off" 113Q "on" 75Q "bold: ") \TK.ITALICTOGGLE D1 (P 1 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 3 TEDITKEY.VERBOSE) `Aﾉ4`H IIﾊj遡jZﾏｿJjh@I ｴ*Sｲ"@oIﾊj､oバ i ｿ@I (135Q TEDIT.CARETLOOKS 127Q TEDIT.PROMPTPRINT 123Q CONCAT 63Q \TK.SETFONTINLOOKS 17Q NCREATE2) (101Q CHARLOOKS 33Q CHARLOOKS 27Q CHARLOOKS 13Q CHARLOOKSTYPE# 3 TEXTOBJ) ( 120Q "off" 113Q "on" 75Q "italic: ") \TK.UNDERLINETOGGLE D1 (P 1 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 3 TEDITKEY.VERBOSE) YAﾉ4`H IIﾊ j遡jZﾏ ｿJjhSｲ"@oIﾊ j､oバ i ｿ@I (126Q TEDIT.CARETLOOKS 120Q TEDIT.PROMPTPRINT 114Q CONCAT 17Q NCREATE2) (72Q CHARLOOKS 33Q CHARLOOKS 27Q CHARLOOKS 13Q CHARLOOKSTYPE# 3 TEXTOBJ) ( 111Q "off" 104Q "on" 66Q "underline: ") \TK.SETDEFAULTLOOKS D1 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 TEDIT.DEFAULT.CHARLOOKS F 1 TEDITKEY.VERBOSE) Aﾉ4 cQｴ @AB h(23Q \TK.SHOWCARETLOOKS 10Q COPY) (3 TEXTOBJ) () \TK.NEXTLINE D1 (P 1 NEXT P 0 THIS I 2 SEL I 1 TEXTOBJ I 0 STREAM) x@@B Bﾉd｣d蘇Xdｴ^dﾉYｳHAhHﾉkﾘ ZｿJYｴ<@dIﾉB HﾉﾙﾘIﾉｻdK汰KjIﾊ(j｣gＨ h(164Q TEDIT.NORMALIZECARET 161Q TEDIT.SETSEL 107Q \SEL.LIMIT 63Q \FORMATLINE 7 TEDIT.NORMALIZECARET) (156Q RIGHT 152Q LEFT 141Q LINEDESCRIPTOR 123Q LINEDESCRIPTOR 113Q LINEDESCRIPTOR 101Q LINEDESCRIPTOR 54Q LINEDESCRIPTOR 46Q LINEDESCRIPTOR 35Q LINEDESCRIPTOR 13Q SELECTION) () \TK.PREVLINE D1 (P 1 PREV P 0 THIS I 2 SEL I 1 TEXTOBJ I 0 STREAM) q@@B Bﾉd｣d蘇XdｲWﾉYﾉZjｪJｲJ ｲAﾉA ｿHﾉｹ@dIﾉB HﾉﾙﾘIﾉｻdK汰Kj h(155Q TEDIT.NORMALIZECARET 152Q TEDIT.SETSEL 121Q \SEL.LIMIT 75Q \BACKFORMAT 61Q \FZEROP 7 TEDIT.NORMALIZECARET) (135Q LINEDESCRIPTOR 125Q LINEDESCRIPTOR 113Q LINEDESCRIPTOR 102Q LINEDESCRIPTOR 67Q TEXTOBJ 42Q LINEDESCRIPTOR 34Q LINEDESCRIPTOR 13Q SELECTION) () \TK.GOTODOCBEGIN D1 (I 2 SEL I 1 TEXTOBJ I 0 STREAM) @jd A (11Q TEDIT.NORMALIZECARET 5 TEDIT.SETSEL) NIL () \TK.GOTODOCEND D1 (I 2 SEL I 1 TEXTOBJ I 0 STREAM) @Aﾉjg @ (21Q TEDIT.NORMALIZECARET 15Q TEDIT.SETSEL) (12Q RIGHT 4 TEXTOBJ) () \TK.GOTOLINEBEGIN D1 (P 0 CH I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) AB B ﾉX@Hjg h(32Q TEDIT.SETSEL 13Q \SEL.LINEDESC 7 TEDIT.NORMALIZECARET) (27Q LEFT 16Q LINEDESCRIPTOR) () \TK.GOTOLINEEND D1 (P 1 LN P 0 POINT I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 2 CH) 3gAB B Ydｲ ﾉcｿIﾊ(j｣gｸ@RjH h(57Q TEDIT.SETSEL 16Q \SEL.LINEDESC 12Q TEDIT.NORMALIZECARET) (47Q LEFT 36Q LINEDESCRIPTOR 25Q LINEDESCRIPTOR 2 RIGHT) () \TK.PREVCHAR D1 (I 2 SEL I 1 TEXTOBJ I 0 STREAM) 6@BHdﾉg料Hﾉﾉ kﾙjH｡Hjjg h(62Q TEDIT.SETSEL) (57Q LEFT 33Q SELECTION 25Q SELECTION 16Q LEFT 11Q SELECTION) () \TK.NEXTCHAR D1 (I 2 SEL I 1 TEXTOBJ I 0 STREAM) >@AﾉkﾘBHdﾉg料Hﾉﾉ kﾘHdI汰Ijg h(72Q TEDIT.SETSEL) (67Q LEFT 43Q SELECTION 35Q SELECTION 26Q LEFT 21Q SELECTION 4 TEXTOBJ) () \TK.FORWARD.WORD D1 (P 0 HERE I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 1 CLASS) _@AB @ ｳ@i l如 ｿｰ@ kﾘX@ ｳ!@i cｿ@ ｮQ@i 邸 ｰ@H@ Hﾙkﾘg h(133Q TEDIT.SETSEL 121Q GETFILEPTR 105Q TEDIT.WORDGET 102Q \PEEKBIN 73Q EOFP 64Q TEDIT.WORDGET 61Q \PEEKBIN 52Q EOFP 43Q GETFILEPTR 26Q TEDIT.WORDGET 23Q \PEEKBIN 14Q EOFP 10Q \TK.SETFILEPTR.TO.CARET) (130Q RIGHT) () \TK.BACK.WORD D1 (P 0 HERE I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 4 CLASS) @@AB @ YjｳI肘 ｳ@i l法 ｿｰﾜ@ X@ Zjｳ;J弼 ｳ1@i cｿ@ [jｳK必 ｳT@i 鼻 ｰﾝ@d kﾘH@ ﾙg h(210Q TEDIT.SETSEL 201Q GETFILEPTR 172Q GETFILEPTR 163Q \BACKBIN 155Q TEDIT.WORDGET 152Q \BACKPEEKBIN 142Q \FZEROP 125Q GETFILEPTR 116Q TEDIT.WORDGET 113Q \BACKPEEKBIN 104Q \FZEROP 67Q GETFILEPTR 62Q GETFILEPTR 53Q \BACKBIN 43Q TEDIT.WORDGET 40Q \BACKPEEKBIN 31Q \FZEROP 14Q GETFILEPTR 10Q \TK.SETFILEPTR.TO.CARET) (205Q LEFT) () \TK.FIND D1 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) @ (3 TEDIT.FULL.FIND) NIL () \TK.REDISPLAY D1 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) Aﾉ  (14Q \TEDIT.REPAINTFN 10Q MKATOM) (3 TEXTOBJ) () \TK.DELLINEFORWARD D1 (P 1 DESC P 0 HERE I 2 SEL I 1 TEXTOBJ I 0 STREAM) >0A BZdﾉg料Jﾉﾉ XB Y@HIﾉHﾙ b@B h(72Q TEDIT.DELETE 63Q TEDIT.SETSEL 45Q \SEL.LINEDESC 6 TEDIT.NORMALIZECARET) (54Q LINEDESCRIPTOR 36Q SELECTION 30Q SELECTION 21Q LEFT 14Q SELECTION) () \TK.OPENLINE D1 (I 2 SEL I 1 TEXTOBJ I 0 STREAM) @l @AB (13Q \TK.PREVCHAR 5 TEDIT.INSERT) NIL () \TK.DELCHARFORWARD D1 (P 0 HERE I 2 SEL I 1 TEXTOBJ I 0 STREAM) , @BYdﾉg料Iﾉﾉ k b@B h(50Q TEDIT.DELETE 41Q TEDIT.SETSEL) (33Q SELECTION 25Q SELECTION 16Q LEFT 11Q SELECTION) () \TK.TRANSPOSECHARS D1 (P 3 LINEDESC P 2 KEEPCHAR P 1 KEEPCHARPOS I 2 SEL I 1 TEXTOBJ I 0 STREAM) BHdﾉg料Hﾉﾉ 1AB B [d\dﾊ(jｩｿLﾉkﾙﾉI祢mﾔｹ@dIk ZIkｴ%AﾉIｳ@ ｿ@JIkﾙ ｿ@Ikg h(200Q TEDIT.SETSEL 166Q TEDIT.INSERT 155Q TEDIT.DELETE 130Q TEDIT.SEL.AS.STRING 125Q TEDIT.SETSEL 51Q \SEL.LINEDESC 45Q TEDIT.NORMALIZECARET) (175Q RIGHT 142Q TEXTOBJ 103Q LINEDESCRIPTOR 73Q LINEDESCRIPTOR 60Q LINEDESCRIPTOR 32Q SELECTION 24Q SELECTION 15Q LEFT 10Q SELECTION) () \SEL.LIMIT D1 (L (0 SEL)) @dﾉg料@ﾉﾉ kﾙNIL (26Q SELECTION 20Q SELECTION 11Q LEFT 4 SELECTION) () \TK.SETFILEPTR.TO.CARET D1 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) &@BHdﾉg料Hﾉﾉ kﾙ (43Q SETFILEPTR) (33Q SELECTION 25Q SELECTION 16Q LEFT 11Q SELECTION) () \SEL.LINEDESC D1 (L (0 SEL)) +@dﾉg涸@ﾉd｣d蘇ﾉd｣d蘇NIL (36Q SELECTION 20Q SELECTION 11Q LEFT 4 SELECTION) () \TK.DESCRIBEFONT D1 (I 0 FONT) a@g o@g @g gｳo@g バ@g gｳo@g バ (136Q CONCAT 125Q CONCAT 122Q L-CASE 117Q FONTPROP 76Q FONTPROP 62Q CONCAT 57Q L-CASE 54Q FONTPROP 33Q FONTPROP 24Q FONTPROP 11Q L-CASE 6 FONTPROP) (114Q SLOPE 101Q REGULAR 73Q SLOPE 51Q WEIGHT 36Q MEDIUM 30Q WEIGHT 21Q SIZE 3 FAMILY) ( 132Q "" 110Q " " 67Q "" 45Q " " 15Q " ") \PARAS.IN.SEL D1 (P 3 PCS P 2 PARAENDED P 1 PARAS P 0 POS I 1 TEXTOBJ I 0 SEL) 7@ﾉAA@ [iZKｰdｼJ滴IｹLﾉｺHLﾉﾔｸｵ薨 (64Q DREVERSE 15Q TEDIT.SELECTED.PIECES) (50Q PIECE 40Q PIECE 3 SELECTION) () \SHIFTACTION D1 (I 0 KEYNAME) @ (3 KEYACTION) NIL () \ACTION D1 (I 0 KEYNAME) @ (3 KEYACTION) NIL () TEDITKEY.INSTALL D1 (P 5 PAIR P 4 KEY P 3 TRIPLE P 2 INTERRUPT P 1 FNKEYITEM P 0 READTABLE I 0 READTABLE F 6 DLIONFNKEYS F 7 AFTERMAKESYSFORMS F 10Q AFTERSYSOUTFORMS F 11Q TEDITKEY.FNKEYBINDINGS F 12Q TEDIT.DEFAULT.MENU F 13Q TEDIT.READTABLE F 14Q \PROMPTFORWORDTTBL F 15Q ASKUSERTTBL F 16Q TEDITKEY.DORADO.KEYACTIONS F 17Q \ORIGTERMTABLE F 20Q \PRIMTERMTABLE F 21Q TEDITKEY.DORADO.KEYSYNTAX F 22Q DEDITTTBL F 23Q TEDITKEY.KEYBINDINGS F 24Q TEDITKEY.FNKEYFLG F 25Q TEDITKEY.FNKEYACTIONS F 26Q TEDITKEY.LOCKTOGGLEKEY F 27Q TEDITKEY.METAKEY F 30Q TEDITKEY.DLION.KEYACTIONS F 31Q TEDITKEY.DLION.KEYBINDINGS F 32Q TEDITKEY.DLION.KEYSYNTAX) ｿ@ｵWol Z柞i ｿl ｿlgW ｿlgW ｿlgW ｿlgW ｿlgW$ ｿlg i W&嬰KｵｵW* Wｰ7ｰdｼgLh KHlgｿｵ豌ﾒdM MH ｵg｢ｱW,ｵ$g 儼 之 ｿg ｿW0 ｿW2ｰo ｿｰﾖdM MH ｵWｰdM MH ｵW4ｰdM MH ｵWI ｰ(W ｿW"ｰdM MH ｵWI ｿgｳo ｿW(殀 之 ｣ｿgW ｩoWcｿgW ｩoWcｿW.o (674Q CONCAT 650Q ASSOC 625Q ASSOC 614Q BUILDFNKEYS 610Q OPENWP 603Q BOUNDP 571Q FILESLOAD 554Q MACHINETYPE 550Q TEDIT.ADD.MENUITEM 535Q TEDIT.SETSYNTAX 526Q EVAL 507Q MODIFY.KEYACTIONS 500Q TEDIT.REMOVE.MENUITEM 465Q TEDIT.SETSYNTAX 456Q EVAL 433Q TEDIT.SETFUNCTION 424Q EVAL 401Q TEDIT.SETFUNCTION 372Q EVAL 355Q KEYACTION 341Q MODIFY.KEYACTIONS 333Q MIDDLEMOUSEKEY 324Q CLOSEW 317Q OPENWP 312Q BOUNDP 270Q MACHINETYPE 260Q TEDIT.SETFUNCTION 251Q EVAL 216Q EVAL 171Q MODIFY.KEYACTIONS 144Q METASHIFT 140Q SETINTERRUPT 127Q SETSYNTAX 114Q SETSYNTAX 101Q SETSYNTAX 66Q SETSYNTAX 53Q SETSYNTAX 40Q SETINTERRUPT 32Q PRIN1 20Q GETINTERRUPT) (643Q TEDITKEY.INSTALL 620Q TEDITKEY.INSTALL 600Q DLIONFNKEYS 557Q DANDELION 330Q NONE 307Q DLIONFNKEYS 273Q DANDELION 226Q TEDIT.SETFUNCTION 207Q CHARCODE 135Q HELP 122Q CHARDELETE 107Q CHARDELETE 74Q CHARDELETE 61Q CHARDELETE 46Q CHARDELETE) ( 671Q "'s action is now Meta. TEditKey actions and key bindings installed. Type #? or press the HELP key to see keybindings" 655Q (TEDITKEY.INSTALL) 632Q (TEDITKEY.INSTALL) 566Q ((SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) DLIONFNKEYS) 352Q (LOCKTOGGLE) 26Q "Interrupt on ^H disabled" 10Q (Function% Keys (QUOTE BUILDFNKEYS) "Bring up the DLion fn keys window")) \TK.ACTIONTOCHARCODE D1 (P 0 PAIR I 0 FN F 1 TEDITKEY.KEYBINDINGS) @Q HｴgHh (27Q EVAL 4 ASSOC) (15Q CHARCODE) () \TK.BUILD.MENU D1 (P 4 TRIPLE P 0 ITEMS I 0 KEYBINDINGS F 10Q TEDITKEY.KEYBINDINGS F 11Q \TK.MENU) ｪ@WｰdLｵ_oHｸoHXｵ軈H ｹdIｿdlｿdi ｿgl ｺdJｿdg ｿdgｿjdndhｻdK ｿchgLhohHｸ0Lｰd ｽNｵMh_｀&ｾｵOhhｱt(215Q CHARDESC 102Q FONTCREATE 51Q DREVERSE) (161Q QUOTE 123Q DEFAULTMENUHELDFN 114Q CLRPROMPT 75Q HELVETICA 44Q MENUTYPE#) ( 171Q "Function which is performed by the key(s) to the right of the mouse" 31Q ("" NIL "") 22Q ("" NIL "")) \TK.HELP D1 (I 0 WHATEVER F 0 \TK.MENU) P (3 MENU) NIL () \TK.SETFONTINLOOKSA0001 D1 (NAME ERRORSET F 0 LOOKS) JPﾉｵPﾉg PﾉPﾊj｣gＨPﾊj｣gＨgh h(105Q FONTCREATE 23Q FONTPROP) (76Q REGULAR 73Q REGULAR 67Q ITALIC 56Q CHARLOOKS 52Q MEDIUM 46Q BOLD 35Q CHARLOOKS 27Q CHARLOOKS 20Q FAMILY 13Q CHARLOOKS 3 CHARLOOKS) () \TK.SETFONTINLOOKS D1 (P 0 NEWFONT I 1 LOOKS I 0 TEXTSTREAM) qo Xd連HH@oAﾉｵAﾉg oAﾉAﾊj､oバAﾊj､oバ  i h(155Q TEDIT.PROMPTPRINT 151Q CONCAT 146Q CONCAT 62Q L-CASE 57Q FONTPROP 11Q \TK.SETFONTINLOOKSA0001) (123Q CHARLOOKS 100Q CHARLOOKS 72Q CHARLOOKS 54Q FAMILY 47Q CHARLOOKS 37Q CHARLOOKS 21Q CHARLOOKS) ( 142Q "" 135Q " italic" 117Q "" 112Q " bold" 66Q " " 33Q "Font not found: " 6 (\TK.SETFONTINLOOKSA0001)) WRITE.CHARDESC.AUX D1 (I 0 TOKENS F 0 CHARDESC) :@ k如h@dg崛o@ g嗤@ Po (67Q ERROR 55Q WRITE.CHARDESC.AUX 35Q WRITE.CHARDESC.AUX 3 LENGTH) (42Q ^ 21Q #) ( 64Q " is a misunderstood character descriptor" 50Q "control " 30Q "meta ") CHARDESC D1 (I 0 CHARDESC) @ (11Q PACK 6 WRITE.CHARDESC.AUX 3 UNPACK) NIL () TEDITKEY.CONFIGURE D1 NIL o (6 PROMPTPRINT) NIL ( 3 "not implemented") \TK.ADDKEY D1 (L (0 TRIPLE)) gNIL (2 dummy) () \TK.CHANGEKEY D1 (L (0 THIS)) gNIL (2 DUMMY) () \TK.APPLYPENDING D1 (P 2 ENTRY P 1 LOOKS P 0 PENDING I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 3 \TK.PENDING F 4 TEDIT.DEFAULT.CHARLOOKS)  S hhHｱdJdg攸Igg ｱﾒg廬gg ｱﾀJdg攸Igg ｱｫg廬gg ｱ價dg攸Igg ｱg姜gg ｰrJdgｳjgｳeJdgｳ\gｳWJdg料T YｰGgｳ0Jgｳ)Jgｳ"JgｳJgｳJgｫJg･Jg露gJ oJ ｿｵこhc@IB (411Q TEDIT.LOOKS 366Q \LISPERROR 355Q LISTPUT 256Q \TEDIT.UNPARSE.CHARLOOKS.LIST 204Q LISTPUT 162Q LISTPUT 135Q LISTPUT 113Q LISTPUT 66Q LISTPUT 44Q LISTPUT 3 DREVERSE) (351Q FAMILY 343Q MATH 335Q HIPPO 327Q TERMINAL 320Q CLASSIC 311Q MODERN 302Q GACHA 273Q HELVETICA 264Q TIMESROMAN 247Q DEFAULTS 237Q SMALLER 231Q LARGER 221Q SUBSCRIPT 213Q SUPERSCRIPT 201Q OFF 176Q UNDERLINE 170Q UNDERLINEOFF 157Q ON 154Q UNDERLINE 145Q UNDERLINEON 132Q REGULAR 127Q SLOPE 121Q ITALICOFF 110Q ITALIC 105Q SLOPE 76Q ITALICON 63Q MEDIUM 60Q WEIGHT 52Q BOLDOFF 41Q BOLD 36Q WEIGHT 27Q BOLDON) ( 362Q "Illegal pending operation in \TK.PENDING") \TK.NTHFONT D1 (I 0 N F 0 TEDITKEY.FONTS) P@ (4 NTH) NIL () METASHIFT D1 (P 2 OLDSETTING P 1 METASTATUS P 0 FLG F 3 TEDITKEY.METAKEY F 4 \ORIGKEYACTIONS) -eoSHjｴ@i選@ｵST  ZdI訴J(42Q KEYACTION 36Q ASSOC) NIL ( 7 (METADOWN . METAUP)) TEDIT.FULL.FIND D1 (P 4 W P 3 CH P 2 SEL P 1 TARGET P 0 TEXTOBJ I 1 SEARCHSTRING I 0 TEXTSTREAM) ﾔ@ AHﾉd｣d蘇\AｵHoLg o Yd｢ｱ唏ﾉZ ｿHoi ｿHI hdi [ｲeHo ｿJKｿJKkﾘ ｿJKKﾙkﾘ ｿJgｿHHJ 4ｿJ ｿJH ｿH ｿJhi ｿLgI 皐o ｿJhi ｿHmh(307Q \SHOWSEL 300Q TEDIT.PROMPTPRINT 267Q PUTWINDOWPROP 256Q \SHOWSEL 247Q TEDIT.NORMALIZECARET 242Q \FIXSEL 234Q TEDIT.RESET.EXTEND.PENDING.DELETE 225Q \TEDIT.GET.INSERT.CHARLOOKS 135Q TEDIT.PROMPTPRINT 122Q TEDIT.FIND 113Q MKSTRING 105Q TEDIT.PROMPTPRINT 73Q \SHOWSEL 53Q TEDIT.GETINPUT 44Q GETWINDOWUSERPROP 3 TEXTOBJ) (314Q TEXTOBJ 263Q TEDIT.LAST.FIND.STRING 220Q TEXTOBJ 211Q RIGHT 206Q SELECTION 167Q SELECTION 153Q SELECTION 142Q SELECTION 65Q TEXTOBJ 41Q TEDIT.LAST.FIND.STRING 12Q TEXTOBJ) ( 275Q "(not found)" 132Q "Done." 101Q "Searching..." 50Q (15Q 12Q 33Q) 35Q "Text to find: ") (PRETTYCOMPRINT TEDITKEYCOMS) (RPAQQ TEDITKEYCOMS ((COMS (* * This is the intermezzo release version of TEditKey)) (COMS (* functions for affecting the selection) (FNS \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.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 \TK.NEXTLINE \TK.PREVLINE \TK.GOTODOCBEGIN \TK.GOTODOCEND \TK.GOTOLINEBEGIN \TK.GOTOLINEEND \TK.PREVCHAR \TK.NEXTCHAR \TK.FORWARD.WORD \TK.BACK.WORD)) (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 \TK.DESCRIBEFONT \PARAS.IN.SEL) (MACROS \SEL.LIMIT.FORWARD \TK.ONOROFF \LINEDESC.LAST.REAL.CHAR)) ( COMS (* fns for the key interface itself) (FNS \SHIFTACTION \ACTION TEDITKEY.INSTALL \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 #^Z) ERROR) (, (CHARCODE #^S) 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") 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.LCASE.SEL (#L #l) "Lowercasify selection") (GET.OBJ.FROM.USER (#O #o) "insert Object")))) (TEDITKEY.DLION.KEYACTIONS ( BQUOTE ((OPEN (, (CHARCODE LF) , (CHARCODE LF) NOLOCKSHIFT)) (SAME METADOWN . METAUP) (FIND (, ( CHARCODE #^A) , (CHARCODE #^A))) (AGAIN (, (CHARCODE ESC) , (CHARCODE ESC))) (COPY NIL) (MOVE NIL) ( NEXT (, (CHARCODE #^U) , (CHARCODE #^U) NOLOCKSHIFT)) (EXPAND (, (CHARCODE ^X) , (CHARCODE ^X) NOLOCKSHIFT)) (UNDO (, (CHARCODE #^V) , (CHARCODE #^V) NOLOCKSHIFT)) (MARGINS (, (CHARCODE #^W) , ( CHARCODE #^X) NOLOCKSHIFT)) (HELP (, (CHARCODE #^Y) , (CHARCODE #^Y) NOLOCKSHIFT)) (STOP (, (CHARCODE #^Z) , (CHARCODE #^S) NOLOCKSHIFT)) (FONT FONTDOWN . FONTUP) (KEYBOARD USERMODE1DOWN . USERMODE1UP) ( ESC (, (CHARCODE \) , (CHARCODE %|) NOLOCKSHIFT))))) (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 FIND)) \TK.FIND) ((\ACTION (QUOTE HELP)) \TK.HELP) ((\ACTION (QUOTE MARGINS)) \TK.NEST) ((\SHIFTACTION (QUOTE MARGINS)) \TK.UNNEST)))) (TEDITKEY.FNKEYBINDINGS (QUOTE (((\ACTION (QUOTE CENTER)) \TK.CENTER.SEL) (( \SHIFTACTION (QUOTE CENTER)) \TK.CENTER.SEL.REV) ((\ACTION (QUOTE BOLD)) \TK.BOLD.SEL.ON) (( \SHIFTACTION (QUOTE BOLD)) \TK.BOLD.SEL.OFF) ((\ACTION (QUOTE ITALICS)) \TK.ITALIC.SEL.ON) (( \SHIFTACTION (QUOTE ITALICS)) \TK.ITALIC.SEL.OFF) ((\ACTION (QUOTE UNDERLINE)) \TK.UNDERLINE.SEL.ON) ( (\SHIFTACTION (QUOTE UNDERLINE)) \TK.UNDERLINE.SEL.OFF) ((\ACTION (QUOTE SUPERSCRIPT)) \TK.SUPERSCRIPTSEL) ((\SHIFTACTION (QUOTE SUPERSCRIPT)) \TK.SUBSCRIPTSEL) ((\ACTION (QUOTE SUBSCRIPT)) \TK.SUBSCRIPTSEL) ((\SHIFTACTION (QUOTE SUBSCRIPT)) \TK.SUPERSCRIPTSEL) ((\ACTION (QUOTE SMALLER)) \TK.SMALLERSEL) ((\SHIFTACTION (QUOTE SMALLER)) \TK.LARGERSEL) ((\ACTION (QUOTE DEFAULTS)) \TK.DEFAULTSSEL) ((\SHIFTACTION (QUOTE DEFAULTS)) \TK.SETDEFAULTLOOKS) ((\SHIFTACTION (QUOTE BS)) \TK.DELCHARFORWARD)))) (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)))) (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 #^Z) ERROR) (, (CHARCODE #^S) 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") 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.LCASE.SEL (#L #l) "Lowercasify selection") (GET.OBJ.FROM.USER (#O #o) "insert Object")))) (RPAQ? TEDITKEY.DLION.KEYACTIONS (BQUOTE ((OPEN (, (CHARCODE LF) , (CHARCODE LF) NOLOCKSHIFT)) (SAME METADOWN . METAUP) (FIND (, (CHARCODE #^A) , (CHARCODE #^A))) (AGAIN (, (CHARCODE ESC) , (CHARCODE ESC ))) (COPY NIL) (MOVE NIL) (NEXT (, (CHARCODE #^U) , (CHARCODE #^U) NOLOCKSHIFT)) (EXPAND (, (CHARCODE ^X) , (CHARCODE ^X) NOLOCKSHIFT)) (UNDO (, (CHARCODE #^V) , (CHARCODE #^V) NOLOCKSHIFT)) (MARGINS (, ( CHARCODE #^W) , (CHARCODE #^X) NOLOCKSHIFT)) (HELP (, (CHARCODE #^Y) , (CHARCODE #^Y) NOLOCKSHIFT)) ( STOP (, (CHARCODE #^Z) , (CHARCODE #^S) NOLOCKSHIFT)) (FONT FONTDOWN . FONTUP) (KEYBOARD USERMODE1DOWN . USERMODE1UP) (ESC (, (CHARCODE \) , (CHARCODE %|) NOLOCKSHIFT))))) (RPAQ? 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 FIND) ) \TK.FIND) ((\ACTION (QUOTE HELP)) \TK.HELP) ((\ACTION (QUOTE MARGINS)) \TK.NEST) ((\SHIFTACTION ( QUOTE MARGINS)) \TK.UNNEST)))) (RPAQ? TEDITKEY.FNKEYBINDINGS (QUOTE (((\ACTION (QUOTE CENTER)) \TK.CENTER.SEL) ((\SHIFTACTION (QUOTE CENTER)) \TK.CENTER.SEL.REV) ((\ACTION (QUOTE BOLD)) \TK.BOLD.SEL.ON) ((\SHIFTACTION (QUOTE BOLD)) \TK.BOLD.SEL.OFF) ((\ACTION (QUOTE ITALICS)) \TK.ITALIC.SEL.ON) ((\SHIFTACTION (QUOTE ITALICS)) \TK.ITALIC.SEL.OFF) ((\ACTION (QUOTE UNDERLINE)) \TK.UNDERLINE.SEL.ON) ((\SHIFTACTION (QUOTE UNDERLINE )) \TK.UNDERLINE.SEL.OFF) ((\ACTION (QUOTE SUPERSCRIPT)) \TK.SUPERSCRIPTSEL) ((\SHIFTACTION (QUOTE SUPERSCRIPT)) \TK.SUBSCRIPTSEL) ((\ACTION (QUOTE SUBSCRIPT)) \TK.SUBSCRIPTSEL) ((\SHIFTACTION (QUOTE SUBSCRIPT)) \TK.SUPERSCRIPTSEL) ((\ACTION (QUOTE SMALLER)) \TK.SMALLERSEL) ((\SHIFTACTION (QUOTE SMALLER)) \TK.LARGERSEL) ((\ACTION (QUOTE DEFAULTS)) \TK.DEFAULTSSEL) ((\SHIFTACTION (QUOTE DEFAULTS)) \TK.SETDEFAULTLOOKS) ((\SHIFTACTION (QUOTE BS)) \TK.DELCHARFORWARD)))) (RPAQ? 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)))) (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)) NIL