(FILECREATED "21-Nov-84 15:39:00" ("compiled on " {IVY}TEDITCOMMAND.;7) " 1-Nov-84 14:14:14" recompiled changes: \TEDIT.COMMAND.LOOP \TEDIT.COMMAND.RESET.SETUP in "INTERLISP-D 1-Nov-84 ..." dated " 1-Nov-84 14:40:55") (FILECREATED "21-Nov-84 15:37:49" {IVY}TEDITCOMMAND.;7 32460 changes to: (FNS \TEDIT.COMMAND.LOOP \TEDIT.COMMAND.RESET.SETUP) (VARS TEDITCOMMANDCOMS) previous date: "20-Nov-84 15:02:48" {IVY}TEDITCOMMAND.;6) \TEDIT.INSERT.TTY.BUFFER D1 (P 0 TLEN I 3 SEL I 2 TEXTOBJ I 1 PASS I 0 SCRATCH F 1 BLANKSEEN F 2 CRSEEN) 3@ÈHjð³$@jÍ¿@l@Í¿AHÍ¿ACBQR h(57Q TEDIT.\INSERT) (42Q STRINGP 31Q STRINGP 21Q STRINGP 3 STRINGP) () \TEDIT.INTERRUPT.SETUP D1 (P 1 \INTERRUPTABLE P 0 TEXTOBJ I 1 FORCEOFF I 0 PROC) t@g ´@g g ´ @g A² @g ²@g ¿@gh°-A³-@g ³$@gH²H ÉNg µ`i @(160Q PROCESSPROP 155Q RESET.INTERRUPTS 144Q LISTGET 131Q TEXTOBJ 114Q PROCESSPROP 72Q RESET.INTERRUPTS 67Q PROCESSPROP 56Q PROCESSPROP 41Q TEXTOBJ 36Q PROCESSPROP 25Q GETWINDOWUSERPROP 17Q PROCESSPROP 6 PROCESSPROP) (151Q TEDIT.INTERRUPTS 141Q INTERRUPTS 134Q TEXTOBJ 122Q TEDIT.INTERRUPTS 111Q TEDIT.INTERRUPTS 77Q TEDIT.INTERRUPTS 64Q TEDIT.INTERRUPTS 53Q TEDIT.INTERRUPTS 33Q WINDOW 22Q TEXTOBJ 14Q WINDOW 3 WINDOW) () \TEDIT.MARKACTIVE D1 (L (0 TEXTOBJ)) @iF@NIL (3 TEXTOBJ) () \TEDIT.MARKINACTIVE D1 (L (0 TEXTOBJ)) @hF@NIL (3 TEXTOBJ) () \PNC D1 (P 1 OFFST P 0 LEN I 1 STR I 0 CH) <AÈAÈHjð˜o °AÉI@Ç¿AIkØÍ¿AHkÙÍh(31Q ERROR) (63Q STRINGP 51Q STRINGP 37Q STRINGP 11Q STRINGP 3 STRINGP) ( 26Q "NO ROOM LEFT IN STRING TO PUT CHARACTER") \TEDIT.COMMAND.LOOPA0001A0002A0003 D1 (NAME ERRORSET F 0 STREAM F 1 LOOPFN) PkQiNIL NIL () \TEDIT.COMMAND.LOOPA0001A0002A0004 D1 (NAME ERRORSET F 0 TEXTOBJ F 1 SEL) ­`²Rh¿`PÉ ¿PÉ PÉ ¿`h¿`h¿`h¿`PÉ ¿±X`¢±€h¿`PÉ ¿PÉ Égð²PdÉ PÉ PdÉ PÉ ¿PÉ ¿`h¿`h¿`h¿`PÉ ¿±Ô`²Wh¿`PÉ ¿QP ¿PÉPÉ ¿`h¿`h¿`h¿`PÉ ¿°y`²th¿`ɲePÉ" ¿PÉ ¿PÉ"h¿`PÉ ¿PÉg ¿PÉPÉÉ ¿`h¿`hi(625Q \TEDIT.DELETE 600Q TEDIT.SET.SEL.LOOKS 563Q \COPYSEL 531Q \SHOWSEL 517Q \SHOWSEL 457Q \COPYSEL 404Q TEDIT.MOVE 364Q TEDIT.DO.BLUEPENDINGDELETE 356Q \COPYSEL 324Q \COPYSEL 251Q \SHOWSEL 237Q TEDIT.COPY.LOOKS 216Q TEDIT.COPY.PARALOOKS 154Q \COPYSEL 120Q \COPYSEL 45Q TEDIT.COPY 25Q \COPYSEL) (646Q SELECTION 643Q TEDIT.DELETESELECTION 634Q SELECTION 631Q TEDIT.DELETESELECTION 620Q SELECTION 613Q TEXTOBJ 605Q TEXTOBJ 575Q NORMAL 570Q TEXTOBJ 556Q TEXTOBJ 552Q TEDIT.DELETESELECTION 543Q SELECTION 536Q TEXTOBJ 524Q TEXTOBJ 512Q TEXTOBJ 502Q SELECTION 477Q TEDIT.DELETESELECTION 473Q TEDIT.DEL.PENDING 465Q TEDIT.DEL.PENDING 452Q TEXTOBJ 446Q TEDIT.MOVESELECTION 437Q SELECTION 434Q TEDIT.MOVESELECTION 425Q SELECTION 422Q TEDIT.MOVESELECTION 413Q SELECTION 410Q TEDIT.MOVESELECTION 377Q TEXTOBJ 371Q TEXTOBJ 351Q TEXTOBJ 345Q TEDIT.MOVESELECTION 341Q TEDIT.MOVE.PENDING 333Q TEDIT.MOVE.PENDING 317Q TEXTOBJ 313Q TEDIT.COPYLOOKSSELECTION 304Q SELECTION 301Q TEDIT.COPYLOOKSSELECTION 272Q SELECTION 267Q TEDIT.COPYLOOKSSELECTION 260Q SELECTION 255Q TEDIT.COPYLOOKSSELECTION 244Q TEXTOBJ 232Q TEXTOBJ 224Q TEXTOBJ 211Q TEXTOBJ 203Q TEXTOBJ 173Q PARA 166Q SELECTION 161Q TEXTOBJ 147Q TEXTOBJ 143Q TEDIT.COPYLOOKSSELECTION 137Q TEDIT.COPYLOOKS.PENDING 127Q TEDIT.COPYLOOKS.PENDING 113Q TEXTOBJ 107Q TEDIT.SHIFTEDSELECTION 100Q SELECTION 75Q TEDIT.SHIFTEDSELECTION 66Q SELECTION 63Q TEDIT.SHIFTEDSELECTION 54Q SELECTION 51Q TEDIT.SHIFTEDSELECTION 40Q TEXTOBJ 32Q TEXTOBJ 20Q TEXTOBJ 14Q TEDIT.SHIFTEDSELECTION 10Q TEDIT.COPY.PENDING 2 TEDIT.COPY.PENDING) () \TEDIT.COMMAND.LOOPA0001A0002A0005 D1 (NAME ERRORSET F 0 SEL F 1 TEXTOBJ F 2 ISCRSTRING F 3 CH F 4 IPASSSTRING F 5 TERMSA F 6 CHARFN F 7 TCH F 10Q TEDITSA F 11Q COMMANDFN F 12Q FN F 13Q STREAM F 14Q BLANKSEEN F 15Q WINDOW F 16Q CRSEEN F 17Q TEDITFNHASH) 2¢±+c¿V²WSlVcið¤Wc€S´Wd`ðª¿o ¿WSÂdkðž¿QRP ¿P ¿°´dlð²¿RTQP ¿Q ¿P ¿°™dlð²¿RTQP ¿PQ ¿P ¿±ÿ}dlð²¿RTQP ¿Q ¿P ¿±ÿadlð²¿RTQP ¿Q ¿P ¿±ÿEdlð²<¿RTQP ¿Wg c¢±ÿ(QÉ0QPlW¿P ¿P ¿Phi ¿±ÿdlð²8¿RTQP ¿SWc¢±þìQÉ0QPlW¿P ¿P ¿Phi ¿±þÉlðŸRTQP ¿Q ¿±þµU´S´Ud`ð©¿o ¿USÂlådlðŸ¿QRP ¿P ¿±þƒdlð²¿RTQP ¿Q ¿P ¿±þglð²RTQP ¿PQ ¿P ¿±þLS¢±þGPQ ¿RÈjð²RjÍ¿Rl@Í¿RPQWW ¿Sdl ð²¿RTQP ¿SPQi ¿±ýÿdl ð¥dlð²¿RTQP ¿SPQhi ¿±ýÞ¿SR ¿±ýÔi(1052Q \PNC 1040Q TEDIT.\INSERT 1026Q \TEDIT.INSERT.TTY.BUFFER 777Q TEDIT.\INSERT 767Q \TEDIT.INSERT.TTY.BUFFER 747Q TEDIT.\INSERT 700Q TEDIT.DO.BLUEPENDINGDELETE 662Q TEDIT.RESET.EXTEND.PENDING.DELETE 655Q \TEDIT.DELETE 647Q \TEDIT.INSERT.TTY.BUFFER 627Q TEDIT.RESET.EXTEND.PENDING.DELETE 622Q \TEDIT.WORDDELETE 615Q \TEDIT.INSERT.TTY.BUFFER 573Q TEDIT.RESET.EXTEND.PENDING.DELETE 566Q \TEDIT.CHARDELETE 543Q RAID 511Q TEDIT.NEXT 504Q \TEDIT.INSERT.TTY.BUFFER 465Q \SHOWSEL 456Q TEDIT.RESET.EXTEND.PENDING.DELETE 451Q \SHOWSEL 413Q \TEDIT.INSERT.TTY.BUFFER 371Q \SHOWSEL 362Q TEDIT.RESET.EXTEND.PENDING.DELETE 355Q \SHOWSEL 324Q GETWINDOWUSERPROP 313Q \TEDIT.INSERT.TTY.BUFFER 271Q TEDIT.RESET.EXTEND.PENDING.DELETE 264Q TEDIT.REDO 257Q \TEDIT.INSERT.TTY.BUFFER 235Q TEDIT.RESET.EXTEND.PENDING.DELETE 230Q TEDIT.UNDO 223Q \TEDIT.INSERT.TTY.BUFFER 201Q TEDIT.RESET.EXTEND.PENDING.DELETE 174Q \TEDIT.DELETE 166Q \TEDIT.INSERT.TTY.BUFFER 145Q TEDIT.RESET.EXTEND.PENDING.DELETE 140Q \TEDIT.WORDDELETE 133Q \TEDIT.INSERT.TTY.BUFFER 112Q TEDIT.RESET.EXTEND.PENDING.DELETE 105Q \TEDIT.CHARDELETE 65Q RAID 11Q \GETKEY 2 \SYSBUFP) (727Q STRINGP 717Q STRINGP 705Q STRINGP 531Q CHARTABLETYPE# 432Q TEXTOBJ 336Q TEXTOBJ 321Q TEDIT.COMMANDFN 53Q CHARTABLETYPE#) ( 540Q (Check-failure: (type? CHARTABLE TERMSA)) 62Q (Check-failure: (type? CHARTABLE TEDITSA))) \TEDIT.COMMAND.LOOPA0001A0002A0006 D1 (NAME ERRORSET F 0 ISCRSTRING F 1 IPASSSTRING F 2 TEXTOBJ F 3 SEL) PQRS i(6 \TEDIT.INSERT.TTY.BUFFER) NIL () \TEDIT.COMMAND.LOOPA0001A0002 D1 (NAME ERRORSET F 0 TEXTOBJ F 1 ISCRSTRING F 2 LOOPFN) ‡l ¿`µ_PÉF³TPÉ4 ¿PiF¿R˜oi ¿oi ¿QjÍ¿Ql@Í¿oi ¿oi ¿PhFi`Pð«PÉ4É™PÉ4 ¿°(203Q BLOCK 177Q TEDIT.FLASHCARET 132Q \TEDIT.COMMAND.LOOPA0001A0002A0006 121Q \TEDIT.COMMAND.LOOPA0001A0002A0005 67Q \TEDIT.COMMAND.LOOPA0001A0002A0004 56Q \TEDIT.COMMAND.LOOPA0001A0002A0003 33Q TEDIT.FLASHCARET 4 \WAITFORSYSBUFP) (172Q TEXTOBJ 163Q TEDITCARET 156Q TEXTOBJ 147Q TEDIT.SELPENDING 137Q TEXTOBJ 104Q STRINGP 74Q STRINGP 40Q TEXTOBJ 26Q TEXTOBJ 16Q TEXTOBJ 10Q TEDIT.SELPENDING) ( 126Q (\TEDIT.COMMAND.LOOPA0001A0002A0006) 115Q (\TEDIT.COMMAND.LOOPA0001A0002A0005) 63Q (\TEDIT.COMMAND.LOOPA0001A0002A0004) 52Q (\TEDIT.COMMAND.LOOPA0001A0002A0003)) \TEDIT.COMMAND.LOOPA0001 D1 (NAME ERRORSET P 17Q COMMANDFN P 16Q CHNO P 15Q TLEN P 14Q CRSEEN P 13Q INSCH# P 12Q BLANKSEEN P 11Q DIRTY P 10Q TCH P 7 FN P 6 CH P 5 CHARFN P 4 LOOPFN P 3 TEDITFNHASH P 2 TEDITSA P 1 TERMSA P 0 READSA F 20Q TEXTOBJ F 21Q WINDOW F 22Q RESETVARSLST F 23Q RTBL F 24Q #CURRENTRDTBL# F 25Q \PRIMTERMSA F 26Q RESETY) pgW W"hi hhW$c$¿W(ÉW ÉDµW*W&ÉW&ÉW"g W"g ¦W É2³oi ¿W hF¿°åhc,i(134Q \TEDIT.COMMAND.LOOPA0001A0002 110Q GETWINDOWUSERPROP 100Q GETWINDOWUSERPROP 15Q \TEDIT.COMMAND.RESET.SETUP) (142Q TEXTOBJ 120Q TEXTOBJ 105Q TEDIT.CMD.CHARFN 75Q TEDIT.CMD.LOOPFN 66Q READTABLEP 57Q READTABLEP 44Q TEXTOBJ 35Q READTABLEP 2 \TEDIT.COMMAND.RESET.SETUP) ( 130Q (\TEDIT.COMMAND.LOOPA0001A0002)) \TEDIT.COMMAND.LOOP D1 (P 11Q RESETZ P 10Q RESETY P 7 LISPXHIST P 6 TTYWINDOW P 5 IPASSSTRING P 4 LINES P 3 WINDOW P 2 SEL P 1 ISCRSTRING P 0 TEXTOBJ I 1 RTBL I 0 STREAM F 12Q LISPXHIST F 13Q RESETVARSLST) Š @d`ð”Él@o RHÉZHÉ[HÉ\Ik ]Aµ HÉJµ`bKg` `µW! Wog ²h°`ð³ælú ¿°Ùg_ ¿O´h(206Q ERROR! 176Q RESETRESTORE 163Q DISMISS 143Q \TEDIT.COMMAND.LOOPA0001 115Q PUTWINDOWPROP 62Q SUBSTRING 25Q ALLOCSTRING) (171Q ERROR 153Q \TTY.PROCESS 140Q INTERNAL 120Q \RUNNING.PROCESS 112Q \RUNNING.PROCESS 107Q PROCESS 101Q TEDIT.READTABLE 72Q TEXTOBJ 52Q TEXTOBJ 43Q TEXTOBJ 34Q TEXTOBJ 12Q STREAM 5 STREAMTYPE#) ( 135Q (\TEDIT.COMMAND.LOOPA0001) 22Q " ") \TEDIT.COMMAND.RESET.SETUPA0001 D1 (I 0 WW) @g (6 PUTWINDOWPROP) (3 PROCESS) () \TEDIT.COMMAND.RESET.SETUP D1 (P 5 OWINDOW P 4 OTTYEXITFN P 3 OTTYENTRYFN P 2 OTTYWINDOW P 1 WINDOW P 0 TEXTOBJ I 1 STARTING I 0 TEXT&WIND F 6 TTYWINDOW F 7 DEFAULTTTYREGION) 4@@@@@@A¢±›`gI ½` ¿`gg ¼`gg »H ÉNg gð’±ÂH ÉNg µ Wohi c º`gV ¿Vg ¿Vgg ¿Vgg ¿VgI °k`gI ¿Ig ¿`i ¿H —H ¿`gL ¿`gK ¿HhR¿H ÉNg gð¯J ¿`gh ¿HIJKLMh(443Q PROCESSPROP 430Q TTYDISPLAYSTREAM 417Q LISTGET 404Q TEXTOBJ 367Q PROCESSPROP 354Q PROCESSPROP 341Q CLOSEF? 336Q TXTFILE 331Q TXTFILE 324Q \TEDIT.INTERRUPT.SETUP 314Q PUTWINDOWPROP 304Q PROCESSPROP 270Q PUTWINDOWPROP 257Q PUTWINDOWPROP 244Q PUTWINDOWPROP 231Q PUTWINDOWPROP 221Q PROCESSPROP 206Q TTYDISPLAYSTREAM 201Q CREATEW 164Q LISTGET 151Q TEXTOBJ 135Q LISTGET 122Q TEXTOBJ 115Q PROCESSPROP 100Q PROCESSPROP 63Q \TEDIT.INTERRUPT.SETUP 54Q PROCESSPROP) (437Q TEDITTTYWINDOW 434Q \RUNNING.PROCESS 422Q DON'T 414Q TTYWINDOW 407Q TEXTOBJ 374Q TEXTOBJ 363Q TTYENTRYFN 360Q \RUNNING.PROCESS 350Q TTYEXITFN 345Q \RUNNING.PROCESS 320Q \RUNNING.PROCESS 311Q PROCESS 300Q WINDOW 275Q \RUNNING.PROCESS 264Q MAINWINDOW 254Q \TEDIT.COPYINSERTFN 251Q COPYINSERTFN 241Q \TEDIT.COMMAND.RESET.SETUPA0001 236Q CLOSEFN 226Q PROCESS 215Q TEDITTTYWINDOW 212Q \RUNNING.PROCESS 161Q TTYWINDOW 154Q TEXTOBJ 140Q DON'T 132Q TTYWINDOW 125Q TEXTOBJ 112Q \TEDIT.PROCENTRYFN 107Q TTYENTRYFN 104Q \RUNNING.PROCESS 75Q \TEDIT.PROCEXITFN 72Q TTYEXITFN 67Q \RUNNING.PROCESS 60Q \RUNNING.PROCESS 50Q WINDOW 45Q \RUNNING.PROCESS) ( 174Q "TTY Window for TEdit") \TEDIT.READTABLE D1 (P 12Q FN P 11Q CH P 6 CL P 5 CH P 2 RTBL) Ö `l2 hHdI¿`HdI¿kdllllllho"Lµ…½Kµoo" Oµ,°3¾JÉ`ð§o ¿JÉMNÇ¿L¼K»°¼_¿OµJ_¿JÉ`ð§o ¿JÉOlÇ¿OOJÉ ¿O_¿O_¿°ˆ(305Q PUTHASH 253Q RAID 166Q RAID 10Q HARRAY) (300Q READTABLEP 260Q READTABLEP 242Q CHARTABLETYPE# 234Q READTABLEP 173Q READTABLEP 155Q CHARTABLETYPE# 147Q READTABLEP 27Q CHARTABLETYPE# 2 READTABLEPTYPE#) ( 250Q (Check-failure: (type? CHARTABLE (fetch READSA of RTBL))) 163Q (Check-failure: (type? CHARTABLE (fetch READSA of RTBL))) 127Q (30Q) 123Q (\TEDIT.ABBREV.EXPAND) 100Q (10Q 1 27Q 177Q 301Q 302Q 303Q 33Q)) \TEDIT.WORDBOUND.READTABLE D1 (P 14Q CH P 13Q CH P 12Q CH P 10Q CH P 6 CH P 4 CH P 2 RTBL) _ `l2 HdI¿`HdI¿lÿjLKñ³'JÉ`ð§o ¿JÉLlÇ¿LkØ\°ÙlZlANMñ³'JÉ`ð§o ¿JÉNlÇ¿NkØ^°ÙlzlaOOñ³*JÉ`ð§o ¿JÉOlÇ¿OkØ_°Õl9l0 OOñ³*JÉ`ð§o ¿JÉOlÇ¿OkØ_°Õo°(d JÉ`ð§o ¿JÉOlǵÙl™l˜lŸlšh°(d JÉ`ð§o ¿JÉOlǵÙJ(512Q RAID 422Q RAID 336Q RAID 247Q RAID 163Q RAID 101Q RAID 10Q HARRAY) (517Q READTABLEP 501Q CHARTABLETYPE# 473Q READTABLEP 427Q READTABLEP 411Q CHARTABLETYPE# 403Q READTABLEP 343Q READTABLEP 325Q CHARTABLETYPE# 317Q READTABLEP 254Q READTABLEP 236Q CHARTABLETYPE# 230Q READTABLEP 170Q READTABLEP 152Q CHARTABLETYPE# 144Q READTABLEP 106Q READTABLEP 70Q CHARTABLETYPE# 62Q READTABLEP 25Q CHARTABLETYPE# 2 READTABLEPTYPE#) ( 507Q (Check-failure: (type? CHARTABLE (fetch READSA of RTBL))) 417Q (Check-failure: (type? CHARTABLE (fetch READSA of RTBL))) 370Q (15Q 40Q 11Q 14Q) 333Q (Check-failure: (type? CHARTABLE (fetch READSA of RTBL))) 244Q (Check-failure: (type? CHARTABLE (fetch READSA of RTBL))) 160Q (Check-failure: (type? CHARTABLE (fetch READSA of RTBL))) 76Q (Check-failure: (type? CHARTABLE (fetch READSA of RTBL)))) TEDIT.GETSYNTAX D1 (I 1 TABLE I 0 CH) kAµ`ÉHd`ð©¿o ¿H@Âdlð“gdkð“gdlð“gdlð“gdlð“gdlð“gdlð“glð´g(35Q RAID) (150Q NEXT 137Q CMD 126Q FN 115Q REDO 104Q UNDO 73Q DELETE 62Q CHARDELETE 52Q WORDDELETE 23Q CHARTABLETYPE# 10Q READTABLEP 5 TEDIT.READTABLE) ( 32Q (Check-failure: (type? CHARTABLE TEDIT.GETSYNTAXA0001))) TEDIT.SETSYNTAX D1 (I 2 TABLE I 1 CLASS I 0 CHAR) †@B Bµ`É`ð§o ¿Bµ`É@Adgð“¿k°Ogð“l°FAgð§Adgð”¿l°4gð“l°+Adgð”¿l°gð“l°Adgð“¿lˆgð’l€jÇ¿(34Q RAID 4 TEDIT.GETSYNTAX) (173Q NEXT 162Q FN 147Q CMD 135Q REDO 122Q UNDO 110Q LINEDELETE 101Q DELETE 67Q WORDDELETE 56Q CHARDELETE 46Q READTABLEP 43Q TEDIT.READTABLE 23Q CHARTABLETYPE# 15Q READTABLEP 12Q TEDIT.READTABLE) ( 31Q (Check-failure: (type? CHARTABLE (fetch READSA of (OR TABLE TEDIT.READTABLE))))) TEDIT.GETFUNCTION D1 (I 1 TABLE I 0 CHARCODE) JAµ`bd´?d`ð´7lAÉHd`ð©¿o ¿H@ÂÙjð´AÉ´ @AÉ(55Q RAID) (104Q READTABLEP 73Q READTABLEP 43Q CHARTABLETYPE# 30Q READTABLEP 17Q READTABLEPTYPE# 5 TEDIT.READTABLE) ( 52Q (Check-failure: (type? CHARTABLE TEDIT.GETFUNCTIONA0001))) TEDIT.SETFUNCTION D1 (I 2 RTBL I 1 FN I 0 CHARCODE) FBµ`bdÉ`ð§o ¿BÉ@lÇBÉ«Bl2 ¿@ABÉ (103Q PUTHASH 65Q HARRAY 32Q RAID) (76Q READTABLEP 60Q READTABLEP 51Q READTABLEP 37Q READTABLEP 21Q CHARTABLETYPE# 13Q READTABLEP 5 TEDIT.READTABLE) ( 27Q (Check-failure: (type? CHARTABLE (fetch READSA of RTBL)))) TEDIT.WORDGET D1 (I 1 TABLE I 0 CH) ,Aµ`É@d¢ Hd`ð©¿o ¿HIÂ(45Q RAID 22Q CHCON1) (33Q CHARTABLETYPE# 10Q READTABLEP 5 TEDIT.WORDBOUND.READTABLE) ( 42Q (Check-failure: (type? CHARTABLE TEDIT.WORDGETA0002))) TEDIT.WORDSET D1 (I 2 TABLE I 1 CLASS I 0 CHARCODE) MBµ`É`ð§o ¿Bµ`É@d¢ Add¡³dgð“¿l‰gð’llÇ(53Q CHCON1 27Q RAID) (102Q WHITESPACE 71Q PUNCTUATION 41Q READTABLEP 36Q TEDIT.WORDBOUND.READTABLE 16Q CHARTABLETYPE# 10Q READTABLEP 5 TEDIT.WORDBOUND.READTABLE) ( 24Q (Check-failure: (type? CHARTABLE (fetch READSA of (OR TABLE TEDIT.WORDBOUND.READTABLE))))) (PRETTYCOMPRINT TEDITCOMMANDCOMS) (RPAQQ TEDITCOMMANDCOMS ((FILES TEXTOFD) (FNS \TEDIT.INSERT.TTY.BUFFER \TEDIT.INTERRUPT.SETUP \TEDIT.MARKACTIVE \TEDIT.MARKINACTIVE \PNC \TEDIT.COMMAND.LOOP \TEDIT.COMMAND.RESET.SETUP) (INITVARS ( TEDIT.INTERRUPTS (QUOTE ((2 BREAK) (3 RAID) (5 ERROR) (7 HELP) (20 CONTROL-T))))) (VARS ( TEDIT.COPY.PENDING NIL) (TEDIT.COPYLOOKS.PENDING NIL) (TEDIT.MOVE.PENDING NIL) (TEDIT.DEL.PENDING NIL) (TEDIT.BLUEPENDINGDELETE NIL)) (GLOBALVARS TEDIT.COPY.PENDING TEDIT.COPYLOOKS.PENDING TEDIT.MOVE.PENDING TEDIT.DEL.PENDING TEDIT.BLUEPENDINGDELETE TEDIT.INTERRUPTS) (DECLARE: EVAL@COMPILE DONTCOPY (MACROS \INSERT\TTY\BUFFER \TEDIT.MOUSESTATE \TEDIT.CHECK)) (COMS (* Read-table Utilities) ( FNS \TEDIT.READTABLE \TEDIT.WORDBOUND.READTABLE TEDIT.GETSYNTAX TEDIT.SETSYNTAX TEDIT.GETFUNCTION TEDIT.SETFUNCTION TEDIT.WORDGET TEDIT.WORDSET) (DECLARE: DONTEVAL@LOAD DOCOPY (VARS (TEDIT.READTABLE ( \TEDIT.READTABLE)) (TEDIT.WORDBOUND.READTABLE (\TEDIT.WORDBOUND.READTABLE)))) (GLOBALVARS TEDIT.READTABLE TEDIT.WORDBOUND.READTABLE) (DECLARE: EVAL@COMPILE DONTCOPY (RECORDS TEDITTERMCODE)) ( DECLARE: EVAL@COMPILE DONTCOPY (CONSTANTS (NONE.TTC 0) (CHARDELETE.TTC 1) (WORDDELETE.TTC 2) ( DELETE.TTC 3) (FUNCTIONCALL.TTC 4) (REDO.TTC 5) (UNDO.TTC 6) (CMD.TTC 7) (NEXT.TTC 8) (PUNCT.TTC 20) ( TEXT.TTC 21) (WHITESPACE.TTC 22))) (DECLARE: EVAL@COMPILE DONTCOPY (CONSTANTS (MSPACE 153) (NSPACE 152 ) (THINSPACE 159) (FIGSPACE 154)))))) (FILESLOAD TEXTOFD) (RPAQ? TEDIT.INTERRUPTS (QUOTE ((2 BREAK) (3 RAID) (5 ERROR) (7 HELP) (20 CONTROL-T)))) (RPAQQ TEDIT.COPY.PENDING NIL) (RPAQQ TEDIT.COPYLOOKS.PENDING NIL) (RPAQQ TEDIT.MOVE.PENDING NIL) (RPAQQ TEDIT.DEL.PENDING NIL) (RPAQQ TEDIT.BLUEPENDINGDELETE NIL) (RPAQ TEDIT.READTABLE (\TEDIT.READTABLE)) (RPAQ TEDIT.WORDBOUND.READTABLE (\TEDIT.WORDBOUND.READTABLE)) (PUTPROPS TEDITCOMMAND COPYRIGHT ("John Sybalsky & Xerox Corporation" 1983 1984)) NIL