(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "24-Feb-93 19:37:23" ("compiled on " |{PELE:MV:ENVOS}LIBRARY>CHATTERMINAL.;3|) "19-Feb-93 17:03:08" bcompl'd in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED " 4-Jul-90 02:21:01" |{PELE:MV:ENVOS}LIBRARY>CHATTERMINAL.;3| 20832 changes to%: (VARS CHATTERMINALCOMS) previous date%: "14-Jun-90 15:57:05" {DSK}sybalsky>bane>chatterminal.;1) TERM.ADDCHAR :D8 (L (0 CHAT.STATE)) H@@@@@@HIJHIKJ@IKLgg @IJKL (69 TERM.ERASEBITS 58 BKBITBLT) (52 REPLACE 47 INPUT 5 CHAT.STATE) () TERM.ADDLINE :D8 (L (1 ATYPOS 0 CHAT.STATE)) @@@@A@@HjJHjdIKgg @jKIJ (61 TERM.ERASEBITS 50 BKBITBLT) (44 REPLACE 39 INPUT 5 CHAT.STATE) () TERM.CLEAR.TAB :D8 (L (1 TERMINAL.X 0 CHAT.STATE)) @Ah HII(14 DREMOVE) (5 CHAT.STATE) () TERM.DELCHAR :D8 (L (0 CHAT.STATE)) K@@@@@@@HJKMHJMIJKLgg @IKMKL (72 TERM.ERASEBITS 59 BKBITBLT) (53 REPLACE 48 INPUT 5 CHAT.STATE) () TERM.DELETELINE :D8 (L (1 ATYPOS 0 CHAT.STATE)) F@@@@HjKHjJKIA@@Kgg @jKIJ (67 TERM.ERASEBITS 56 BKBITBLT) (50 REPLACE 45 INPUT 5 CHAT.STATE) () TERM.DOWN :D8 (L (1 NLINES 0 CHAT.STATE)) g@@@@@@5JL I@LJKAkսdMM^NH @d0jI@d*_OH dK (100 TERM.DELETELINE 89 MOVETO 60 MOVETO) (5 CHAT.STATE) () TERM.ERASE.IN.DISPLAY :D8 (L (1 PARAM 0 CHAT.STATE)) t@@@@@@Adj@ @jdHJL dk$@jJKH@*JK @jJLIK l@ IJ@ (113 MOVETO 102 CLEARW 88 TERM.ERASEBITS 75 TERM.ERASEBITS 49 TERM.ERASEBITS 36 TERM.ERASE.TO.EOL) (5 CHAT.STATE) () TERM.ERASE.IN.LINE :D8 (L (1 PARAM 0 CHAT.STATE)) :Adj@ kAl$@j@@Ak@@@ (55 TERM.ERASEBITS 11 TERM.ERASE.TO.EOL) (29 CHAT.STATE) () TERM.ERASE.TO.EOL :D8 (L (0 CHAT.STATE)) $@@H@@@H@ (33 TERM.ERASEBITS) (5 CHAT.STATE) () TERM.ERASEBITS :D8 (L (4 HEIGHT 3 WIDTH 2 BOTTOM 1 LEFT 0 CHAT.STATE)) '@hddHABCDgghH (36 BKBITBLT 30 DSPTEXTURE) (23 REPLACE 18 TEXTURE) () TERM.GODOWN :D8 (L (1 NLINES 0 CHAT.STATE)) <@@@"HI%@@IH@AkպdJJ[K@ (57 MOVETO) (5 CHAT.STATE) () TERM.HOME :D8 (L (0 CHAT.STATE)) $@@jj@d*HII@ (33 MOVETO) (5 CHAT.STATE) () TERM.IDENTIFY.SELF :D8 (L (0 CHAT.STATE)) @@ @ (18 FORCEOUTPUT 10 PRIN3) NIL () TERM.LEFT :D8 (L (1 NCHARS 0 CHAT.STATE)) 5@!Hj%@H@AkչjIIjZJ@@ (50 MOVETO) (5 CHAT.STATE) () TERM.MODIFY.ATTRIBUTES :D8 (L (2 INVERTFLG 1 ATTRIBUTES 0 CHAT.STATE) F 6 CHAT.UNDERLINE.METHOD) -@@&BAZJddhJKgIH gH @j Kdg+BI@(@Igg \(LH g+BI@ @Igg ] MH kKgKdgTVgVdgg[NgVdgg[4gg[$@Bkj gBggH (296 DSPSOURCETYPE 164 DSPFONT 153 FONTCOPY 116 DSPFONT 105 FONTCOPY 59 DSPSOURCETYPE 47 DSPFONT) (290 INVERT 284 INPUT 272 INVERSE 251 ITALIC 244 ITALIC 235 INVERSE 227 INVERT 218 INVERSE 209 BRIGHT 201 BRIGHT 192 BOLD 182 UNDERLINE 173 BLINK 148 ITALIC 143 SLOPE 123 ITALIC 100 BOLD 95 WEIGHT 74 BRIGHT 53 INPUT 37 NORMAL 5 CHAT.STATE) () TERM.MOVETO :D8 (L (2 CY 1 CX 0 CHAT.STATE)) C@A@AH@HչdIIZJ@d@*B@ջdKK\L@ (64 MOVETO) (5 CHAT.STATE) () TERM.NEWLINE :D8 (L (0 CHAT.STATE)) @ @jj@@ (27 MOVETO 10 TERM.DOWN) (5 CHAT.STATE) () TERM.PRINTCHAR :D8 (L (2 WRAPFN 1 CHAR 0 CHAT.STATE) F 6 CHAT.UNDERLINE.DESCENT) @QH0@Id>AA I0A[IA\KL)I gnjHJK@@LK@ AHI @d jnHJ@VLkg @J@]M@&B@kB@d@j JJ@H h(189 MOVETO 174 TERM.NEWLINE 135 \BLTSHADE.DISPLAY 102 \BLTCHAR 93 \BLTSHADE.DISPLAY 33 \CHANGECHARSET.DISPLAY) (129 INVERT 63 INVERT 5 CHAT.STATE) () TERM.RESET.DISPLAY.PARMS :D8 (L (0 CHAT.STATE) F 9 CHAT.FONT) @@W g I hI Z lAJ J @h_@dJ$J&@dh h(@M@L@KHg MMK_@dOO@j@OM*@Hg LLN@"_ @OlN(164 GETWINDOWPROP 118 GETWINDOWPROP 59 CHARWIDTH 42 DSPFONT 34 DSPFONT 28 DEFAULTFONT) (159 WIDTH 113 HEIGHT 66 FONTDESCRIPTOR 48 FONTDESCRIPTOR 23 DISPLAY 5 CHAT.STATE) () TERM.RIGHT :D8 (L (1 NCHARS 0 CHAT.STATE)) <@@@#IJH#@HIJAkԻdKK\L@@ (57 MOVETO) (5 CHAT.STATE) () TERM.SCROLLDOWN :D8 (L (1 TOP 0 CHAT.STATE)) G@A@@@[JԼHjLHjKIALgg @jAJ@IJ (68 TERM.ERASEBITS 51 BKBITBLT) (45 REPLACE 40 INPUT 5 CHAT.STATE) () TERM.SET.TAB :D8 (L (1 TERMINAL.X 0 CHAT.STATE)) @@HAhAH YI(25 SORT) (5 CHAT.STATE) () TERM.SETMARGINS :D8 (L (2 BOTTOM 1 TOP 0 CHAT.STATE)) +@@*@IAlH@IBkH@ZJNIL (5 CHAT.STATE) () TERM.SMOOTHSCROLL :D8 (L (0 CHAT.STATE)) H@@@@$KkML@jdIK HjdHjkIJgg Mk](63 BKBITBLT 38 TERM.ERASEBITS) (57 REPLACE 52 INPUT 5 CHAT.STATE) () TERM.TAB :D8 (L (0 CHAT.STATE)) F@a@HIkغ@\h[@KI^N@@ JMMiL(51 MOVETO) (5 CHAT.STATE) () TERM.UP :D8 (L (1 NLINES 0 CHAT.STATE)) 8@@*"IH%@@IH@AkԺdJJ[K@ (53 MOVETO) (5 CHAT.STATE) () (PRETTYCOMPRINT CHATTERMINALCOMS) (RPAQQ CHATTERMINALCOMS ((FNS TERM.ADDCHAR TERM.ADDLINE TERM.CLEAR.TAB TERM.DELCHAR TERM.DELETELINE TERM.DOWN TERM.ERASE.IN.DISPLAY TERM.ERASE.IN.LINE TERM.ERASE.TO.EOL TERM.ERASEBITS TERM.GODOWN TERM.HOME TERM.IDENTIFY.SELF TERM.LEFT TERM.MODIFY.ATTRIBUTES TERM.MOVETO TERM.NEWLINE TERM.PRINTCHAR TERM.RESET.DISPLAY.PARMS TERM.RIGHT TERM.SCROLLDOWN TERM.SET.TAB TERM.SETMARGINS TERM.SMOOTHSCROLL TERM.TAB TERM.UP) (VARIABLES CHAT.UNDERLINE.DESCENT CHAT.UNDERLINE.METHOD) (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (SOURCE) CHATDECLS) (LOCALVARS . T)))) (DEFGLOBALVAR CHAT.UNDERLINE.DESCENT 3 "Number of pixels below baseline to draw character underline") (DEFGLOBALVAR CHAT.UNDERLINE.METHOD (QUOTE UNDERLINE) "How to handle terminal 'underline' or 'blink' attributes: one of UNDERLINE, INVERT, BOLD") (PUTPROPS CHATTERMINAL COPYRIGHT ("VENUE & Xerox Corporation" 1984 1985 1986 1987 1988 1990)) NIL