(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "18-Dec-86 15:20:33" ("compiled on " {ERIS}LIBRARY>VTCHAT.;16) "16-Dec-86 12:11:24" tcompl'd in "Xerox Lisp 16-Dec-86 ..." dated "16-Dec-86 12:45:08") (FILECREATED "18-Dec-86 15:18:05" {ERIS}LIBRARY>VTCHAT.;16 37175 changes to%: (VARS VTCHATCOMS) (FNS VTCHAT.ADDRESS VTCHAT.ATTRIBUTES VTCHAT.DOCOMMAND VTCHAT.HANDLECHARACTER VTCHAT.CLEARMODES VTCHAT.REPORT VTCHAT.RESETMODE VTCHAT.RESTORE VTCHAT.SAVE VTCHAT.SEQUENCE VTCHAT.SETMARGINS VTCHAT.SETMODE VTCHAT.STATUS) previous date%: "30-Mar-86 15:22:30" {ERIS}LIBRARY>VTCHAT.;15) VTCHAT.ADDRESS :D4 (I 3 COLUMN I 2 ROW I 1 VT100.STATE I 0 CHAT.STATE) A .B@b@@B@@b@Ck@@ @HdIIHII@@@*Bk@HdIIHII@ i(156 MOVETO) (151 CHAT.STATE 122 CHAT.STATE 113 CHAT.STATE 107 CHAT.STATE 103 CHAT.STATE 75 CHAT.STATE 69 CHAT.STATE 62 CHAT.STATE 55 CHAT.STATE 46 CHAT.STATE 38 CHAT.STATE 30 CHAT.STATE 21 CHAT.STATE 12 CHAT.STATE 3 VT100.STATE) () VTCHAT.ATTRIBUTES :D4 (P 2 ATTRS P 1 A I 3 ATTRCOUNT I 2 ATTRARRAY I 1 VT100.STATE I 0 CHAT.STATE) PkCHI@J hBI djg(dkgdlgdlglgJImԹ(20 ELT 13 TERM.MODIFY.ATTRIBUTES) (68 INVERSE 60 UNDERLINE 49 BLINK 38 BRIGHT 28 NORMAL) () VTCHAT.DECLFONT :D4 (L (2 CHAR 1 VT100.STATE 0 CHAT.STATE)) &Aj0jdhAj jdhAhhNIL (31 VT100.STATE 17 VT100.STATE 3 VT100.STATE) () VTCHAT.DOCOMMAND :D4 (P 3 STAYESCAPE P 2 PARAM2 P 1 PARAM1 I 2 CHAR I 1 VT100.STATE I 0 CHAT.STATE) AHj HH jA k lAjA l Bdl[$Al@AkiA kj al7@A UBdl8@A FlA@IjId kI *BdlB@IjId kI  lC@IjId kI BdlD*Aj@ @IjId kI lE"@jj@@ @ BdlHdlf[lH Aj@d@ lAja@AIjId IkJjJd Jk 6lJ@IjId Ij BdlK@IjId Ij lM@A BdlZ@ l<Bdl=@Ai l>@A Bdlc@ lh@Ad A Bdll@Ad A ylm@Ad A aBdln@AI Rlr=@AIjId kIJjJd @ @@ڀJ Bdlx@A l\KAhh(705 VTCHAT.REPORT 692 VTCHAT.SETMARGINS 665 \FZEROP 648 \FZEROP 627 VTCHAT.STATUS 612 VTCHAT.ATTRIBUTES 588 VTCHAT.RESETMODE 560 VTCHAT.SETMODE 535 TERM.IDENTIFY.SELF 521 VTCHAT.KPAPPLMODE 509 VTCHAT.KPAPPLMODE 486 TERM.IDENTIFY.SELF 472 VTCHAT.REVERSE.INDEX 460 TERM.ERASE.IN.LINE 452 \FZEROP 428 TERM.ERASE.IN.DISPLAY 420 \FZEROP 399 VTCHAT.ADDRESS 391 \FZEROP 374 \FZEROP 345 TERM.SET.TAB 298 TERM.DOWN 293 MOVETO 261 TERM.LEFT 254 \FZEROP 238 TERM.DOWN 214 TERM.RIGHT 207 \FZEROP 186 TERM.GODOWN 179 \FZEROP 155 TERM.UP 148 \FZEROP 127 VTCHAT.RESTORE 112 VTCHAT.SAVE 100 SETA 59 ELT 36 ELT 22 \FZEROP) (716 VT100.STATE 684 CHAT.STATE 677 CHAT.STATE 671 CHAT.STATE 607 VT100.STATE 601 VT100.STATE 583 VT100.STATE 577 VT100.STATE 555 VT100.STATE 549 VT100.STATE 352 VT100.STATE 339 CHAT.STATE 333 CHAT.STATE 322 VT100.STATE 288 CHAT.STATE 282 CHAT.STATE 273 CHAT.STATE 229 VT100.STATE 93 VT100.STATE 83 VT100.STATE 74 VT100.STATE 52 VT100.STATE 42 VT100.STATE 30 VT100.STATE 3 VT100.STATE) () VTCHAT.HANDLECHARACTER :D4 (I 2 VT100.STATE I 1 CHAT.STATE I 0 CHAR F 2 INVERTWINDOWFN F 3 CURRENTFONT) `?l @"o` @` o` ` H(H@lI@lG`l`lnp l BjnAkRBkkjhBjAkRBj@dlBj@@l @l @dl !BjA Bjjl A @dl AjjAA lAk y@l@dlAB flBA gcJ@dlBA gc+lBjBl0l @BAB@ hBBj jdkjHII@lB0jA@A@jh (478 TERM.PRINTCHAR 411 VTCHAT.SEQUENCE 362 DSPFONT 331 DSPFONT 309 VTCHAT.CLEARMODES 290 TERM.LEFT 278 MOVETO 243 TERM.TAB 219 TERM.DOWN 99 BEEPOFF 96 DISMISS 91 BEEPON 48 GETSTREAM 39 PRIN1 28 PRIN1 20 PRIN1) (468 CHAT.STATE 455 VT100.STATE 421 VT100.STATE 417 VT100.STATE 402 VT100.STATE 387 VT100.STATE 379 VT100.STATE 366 SIFONT 357 CHAT.STATE 351 VT100.STATE 335 SOFONT 326 CHAT.STATE 320 VT100.STATE 273 CHAT.STATE 267 CHAT.STATE 258 CHAT.STATE 226 VT100.STATE 209 VT100.STATE 182 VT100.STATE 166 VT100.STATE 155 CHAT.STATE 144 VT100.STATE 129 VT100.STATE 119 CHAT.STATE 104 VT100.STATE 81 \MACHINETYPE 74 \MACHINETYPE 55 STREAM 45 PROMPTWINDOW 36 PROMPTWINDOW 25 PROMPTWINDOW 17 PROMPTWINDOW 2 VTCHAT.DEBUGGING.FLG) ( 33 "]" 14 "[") VTCHAT.CLEARMODES :D4 (I 1 VT100.STATE I 0 CHAT.STATE) WAPjA`jA@&@ @@&$AAjPjdkjHI`Ijhh(35 DSPFONT) (55 VT100.STATE 51 VT100.STATE 43 CHAT.STATE 39 CHAT.STATE 30 CHAT.STATE 24 CHAT.STATE 13 VT100.STATE 3 VT100.STATE) () VTCHAT.REPORT :D4 (P 0 BAUD I 1 VTCHAT.STATE I 0 CHAT.STATE F 3 \RS232C.FDEV) o@ @ SNgo o!H$@HI oI HI oI@oJ @oI o@ @ (143 FORCEOUTPUT 134 PRIN1 120 PRIN1 100 PRIN1 78 PRIN1 72 PRIN1 63 PRIN1 37 RS232C.GET.PARAMETERS 12 PRIN4) (138 CHAT.STATE 129 CHAT.STATE 107 CHAT.STATE 89 CHAT.STATE 55 CHAT.STATE 30 LINE.SPEED 21 STREAM 16 CHAT.STATE 7 CHAT.STATE) ( 125 "1;0x" 116 "0;0;" 96 "0;0;" 83 ";" 68 ";" 43 ((50 . 0) (75 . 8) (110 . 16) (150 . 32) (200 . 40) (300 . 48) (600 . 56) (1200 . 64) (1800 . 72) (2000 . 80) (2400 . 88) (3600 . 96) (4800 . 104) (9600 . 112) (19200 . 120)) 34 (LINE.SPEED) 3 "[2;1;1;") VTCHAT.RESETMODE :D4 (P 1 M I 3 SETCOUNT I 2 MODEARRAY I 1 VT100.STATE I 0 CHAT.STATE) CkIHhBI dkAjqdlAjpadl6AS@ Ahj@ g@ 'dlAh @Akd l@j@jIkYs(126 VTCHAT.ADDRESS 102 DSPOPERATION 89 DSPTEXTURE 70 INVERTW 15 ELT) (135 CHAT.STATE 115 VT100.STATE 97 CHAT.STATE 93 REPLACE 84 CHAT.STATE 75 VT100.STATE 65 CHAT.STATE 57 VT100.STATE 40 VT100.STATE 24 VT100.STATE) () VTCHAT.RESTORE :D4 (I 1 VT100.STATE I 0 CHAT.STATE) Ax@AHII@AHII@ A@ @AkjHI IjhA (125 DSPSOURCETYPE 78 DSPFONT 60 MOVETO) (115 VT100.STATE 86 VT100.STATE 82 CHAT.STATE 73 CHAT.STATE 64 VT100.STATE 55 CHAT.STATE 37 VT100.STATE 33 CHAT.STATE 15 VT100.STATE 11 CHAT.STATE 3 VT100.STATE) () VTCHAT.REVERSE.INDEX :D4 (I 1 VT100.STATE I 0 CHAT.STATE) f@@@E@@@@@@HdIIHII@ @d (99 TERM.SCROLLDOWN 88 MOVETO) (94 CHAT.STATE 83 CHAT.STATE 55 CHAT.STATE 49 CHAT.STATE 42 CHAT.STATE 36 CHAT.STATE 32 CHAT.STATE 26 CHAT.STATE 15 CHAT.STATE 9 CHAT.STATE 3 CHAT.STATE) () VTCHAT.SAVE :D4 (I 1 VT100.STATE I 0 CHAT.STATE) SAAhddhA@@A@$@ jhh@ h(74 DSPSOURCETYPE) (69 CHAT.STATE 57 CHAT.STATE 51 CHAT.STATE 44 VT100.STATE 36 CHAT.STATE 30 CHAT.STATE 24 VT100.STATE 10 VT100.STATE 3 VT100.STATE) () VTCHAT.SEQUENCE :D4 (P 1 FONTDECL P 0 TEMP I 2 CHAR I 1 VT100.STATE I 0 CHAT.STATE) F0BA@AB 0AZj+J!A jA0jx@AB  Bdl( Ak AkAlBl)Ak0AkAlBo` B ` ` Bl08Bl12Bl2,Bl3&Bl4 Bl5Bl6Bl7Bl8Bdl95A A l Bl0ظnH:A AH &l;"AAkA Aj h(322 SETA 283 SETA 251 ELT 172 TERPRI 165 PRIN1 159 CHARACTER 154 PRIN1 71 \FZEROP 64 VTCHAT.DECLFONT 17 VTCHAT.DOCOMMAND) (316 VT100.STATE 310 VT100.STATE 299 VT100.STATE 295 VT100.STATE 277 VT100.STATE 271 VT100.STATE 246 VT100.STATE 240 VT100.STATE 169 PROMPTWINDOW 162 PROMPTWINDOW 151 PROMPTWINDOW 136 VT100.STATE 128 VT100.STATE 119 VT100.STATE 102 VT100.STATE 94 VT100.STATE 85 VT100.STATE 51 VT100.STATE 41 VT100.STATE 25 VT100.STATE 7 VT100.STATE) ( 148 "Bad ESCAPESEQUENCE--CHAR is ") VTCHAT.SETMARGINS :D4 (I 3 BOTTOM I 2 TOP I 1 VT100.STATE I 0 CHAT.STATE) R@@*Bl@jHHj@@*Ck@@jHHj@ (79 TERM.HOME) (59 CHAT.STATE 51 CHAT.STATE 42 CHAT.STATE 38 CHAT.STATE 17 CHAT.STATE 7 CHAT.STATE 3 CHAT.STATE) () VTCHAT.SETMODE :D4 (P 1 M I 3 SETCOUNT I 2 MODEARRAY I 1 VT100.STATE I 0 CHAT.STATE) CkIHhBI dkAkpdlAkp`dl8ARAi@ g@ n@ $dlAi kd l@k@kIkYt(125 CHAT.ADDRESS 104 DSPTEXTURE 91 DSPOPERATION 78 INVERTW 15 ELT) (134 CHAT.STATE 116 VT100.STATE 99 CHAT.STATE 86 CHAT.STATE 82 ERASE 73 CHAT.STATE 65 VT100.STATE 57 VT100.STATE 40 VT100.STATE 24 VT100.STATE) () VTCHAT.STATE :D4 (I 0 CHAT.STATE) U@`@o@k@kjh@ @ `l gjk HdI kdhdhHdI(54 ARRAY 40 TERM.HOME 36 TERM.RESET.DISPLAY.PARMS) (49 SMALLP 43 |VT100.STATETYPE#| 22 CHAT.STATE 12 CHAT.STATE 6 VTCHAT.TERM.IDENTITY.STRING 3 CHAT.STATE) ( 16 (8 16 24 32 40 48 56 64 72 80 88 96 104 112 120 128 136)) VTCHAT.STATUS :D4 (I 2 TYPE I 1 VT100.STATE I 0 CHAT.STATE) Bdlo@ nlj@l @l[ @@@k @l; @@@k @lR @ (139 FORCEOUTPUT 129 BOUT 117 BOUT 114 MKSTRING 89 BOUT 77 BOUT 74 MKSTRING 49 BOUT 37 BOUT 19 PRIN1) (134 CHAT.STATE 122 CHAT.STATE 106 CHAT.STATE 100 CHAT.STATE 94 CHAT.STATE 82 CHAT.STATE 66 CHAT.STATE 60 CHAT.STATE 54 CHAT.STATE 42 CHAT.STATE 30 CHAT.STATE 14 CHAT.STATE) ( 10 "") (PRETTYCOMPRINT VTCHATCOMS) (RPAQQ VTCHATCOMS ((RECORDS * VTCHATRECORDS) (COMS (* ;;; "VT100 emulator") (FNS VTCHAT.ADDRESS VTCHAT.ATTRIBUTES VTCHAT.DECLFONT VTCHAT.DOCOMMAND VTCHAT.HANDLECHARACTER VTCHAT.CLEARMODES VTCHAT.REPORT VTCHAT.RESETMODE VTCHAT.RESTORE VTCHAT.REVERSE.INDEX VTCHAT.SAVE VTCHAT.SEQUENCE VTCHAT.SETMARGINS VTCHAT.SETMODE VTCHAT.STATE VTCHAT.STATUS)) (INITVARS (VTCHAT.DEBUGGING.FLG) ( CHATFONT (FONTCREATE (QUOTE (GACHA 12 MRR)))) (GRAPHICSFONT CHATFONT) (VTCHAT.TERM.IDENTITY.STRING "[?1;0c")) (GLOBALVARS VTCHAT.DEBUGGING.FLG CHATFONT GRAPHICSFONT VTCHAT.TERM.IDENTITY.STRING) ( ADDVARS (CHAT.DRIVERTYPES (VT100 VTCHAT.HANDLECHARACTER VTCHAT.STATE))) (FILES (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) VT100KP))) (RPAQQ VTCHATRECORDS (VT100SAVE VT100.STATE)) (RECORD VT100SAVE (CURSORPOS CHARATTR CHARSET)) (DATATYPE VT100.STATE ((DINGED FLAG) (EATLF FLAG) (EATCRLF FLAG) (EATTOCRLF FLAG) (AUTOLF FLAG) ( BLINKMODE FLAG) (BRIGHTMODE FLAG) (SMOOTHSCROLL FLAG) (SIFONT POINTER) (KEYPADMODE FLAG) (CURSORMODE FLAG) (CHARSET0 FLAG) (CHARSET1 FLAG) (SOFONT POINTER) (PARAMCOUNT WORD) (ADDRESSING WORD) ESCAPESEQUENCE VT100MEM PARAMARRAY RELORIGIN INVERTFLG CSTERM) VT100MEM _ (create VT100SAVE CURSORPOS _ (create POSITION XCOORD _ 1 YCOORD _ 1)) PARAMARRAY _ (ARRAY 12 (QUOTE SMALLP) 0 1)) (/DECLAREDATATYPE (QUOTE VT100.STATE) (QUOTE (FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG POINTER FLAG FLAG FLAG FLAG POINTER WORD WORD POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE (( VT100.STATE 0 (FLAGBITS . 0)) (VT100.STATE 0 (FLAGBITS . 16)) (VT100.STATE 0 (FLAGBITS . 32)) ( VT100.STATE 0 (FLAGBITS . 48)) (VT100.STATE 0 (FLAGBITS . 64)) (VT100.STATE 0 (FLAGBITS . 80)) ( VT100.STATE 0 (FLAGBITS . 96)) (VT100.STATE 0 (FLAGBITS . 112)) (VT100.STATE 0 POINTER) (VT100.STATE 2 (FLAGBITS . 0)) (VT100.STATE 2 (FLAGBITS . 16)) (VT100.STATE 2 (FLAGBITS . 32)) (VT100.STATE 2 ( FLAGBITS . 48)) (VT100.STATE 2 POINTER) (VT100.STATE 4 (BITS . 15)) (VT100.STATE 5 (BITS . 15)) ( VT100.STATE 6 POINTER) (VT100.STATE 8 POINTER) (VT100.STATE 10 POINTER) (VT100.STATE 12 POINTER) ( VT100.STATE 14 POINTER) (VT100.STATE 16 POINTER))) (QUOTE 18)) (RPAQ? VTCHAT.DEBUGGING.FLG) (RPAQ? CHATFONT (FONTCREATE (QUOTE (GACHA 12 MRR)))) (RPAQ? GRAPHICSFONT CHATFONT) (RPAQ? VTCHAT.TERM.IDENTITY.STRING "[?1;0c") (ADDTOVAR CHAT.DRIVERTYPES (VT100 VTCHAT.HANDLECHARACTER VTCHAT.STATE)) (FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) VT100KP) (PUTPROPS VTCHAT COPYRIGHT ("sSCHLUMBERGER TECHNOLOGY CORPORATION" 1983 1984 1985 1986)) NIL