(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "25-Feb-93 18:08:53" ("compiled on " |{PELE:MV:ENVOS}LIBRARY>DMCHAT.;3|) "19-Feb-93 17:03:08" bcompl'd in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "20-Jan-93 13:49:09" {DSK}lde>lispcore>library>DMCHAT.;2 11747 changes to%: ( RECORDS DM2500.STATE) previous date%: "11-Jun-90 15:39:12" {DSK}lde>lispcore>library>DMCHAT.;1 ) DMCHAT.STATE :D8 (L (0 CHAT.STATE)) @ @g@ `(19 TERM.HOME 5 TERM.RESET.DISPLAY.PARMS) (24 |DM2500.STATETYPE#| 11 DMCHAT.CLEARMODES) () DMCHAT.HANDLECHARACTER :D8 (L (2 DM2500.STATE 1 CHAT.STATE 0 CHAR) F 2 INVERTWINDOWFN) iAB@l9`lAl Bj8RAkHBkkjhBdjRAkHBjB@j@l Bd0jA Bj@BAB@ l @Il@CBdj jdkjHIIB0jBjA A@g Bdjj@l pB j2@dl BkBj hl@l@l@dlBj @l BjA !A @dl Bj0ABi lBjA A @dlA l Bm@dlA AB lAB Aj0@l@dlAB xlBjA cAB Y@dlBjA AA 8l@dlAg Bk lBk@lAk0h(582 TERM.MODIFY.ATTRIBUTES 556 TERM.UP 547 TERM.DELETELINE 523 DMCHAT.RIGHT 513 TERM.ADDCHAR 492 DMCHAT.CLEAR 463 DMCHAT.CLEARMODES 447 DMCHAT.CLEARMODES 439 TERM.HOME 408 TERM.ERASE.TO.EOL 391 TERM.LEFT 381 TERM.DELCHAR 359 DMCHAT.NEWLINE 333 TERM.DOWN 323 TERM.ADDLINE 226 TERM.PRINTCHAR 213 TERM.ADDCHAR 146 DMCHAT.ADDRESS 127 TERM.DOWN 36 BOUT) (577 BRIGHT 221 DMCHAT.HANDLE.WRAP 22 \MACHINETYPE 11 DM2500.STATE 5 CHAT.STATE) () DMCHAT.HANDLE.WRAP :D8 (L (0 CHAT.STATE) F 1 CHAT.AUTOCRLF) @"Q@H Hk0kjh(14 DMCHAT.NEWLINE) NIL () DMCHAT.ADDRESS :D8 (L (2 CHAR 1 DM2500.STATE 0 CHAT.STATE)) IABlBlBdlAhhl AmiABl`jHAI@HI Ahi(64 TERM.MOVETO) (5 DM2500.STATE) () DMCHAT.CLEAR :D8 (L (2 SETROLL 1 DM2500.STATE 0 CHAT.STATE)) $@ @A B@k0@ (33 TERM.HOME 19 DMCHAT.CLEARMODES 12 CLEARW) (5 CHAT.STATE) () DMCHAT.CLEARMODES :D8 (L (1 DM2500.STATE 0 CHAT.STATE)) R@@&@ AdddhjjdkjHIIjkjHI Ijh@k0kjh(16 DSPFONT) (5 CHAT.STATE) () DMCHAT.NEWLINE :D8 (L (2 EXPLICIT 1 DM2500.STATE 0 CHAT.STATE)) B@@jj@@ Ak@kjhBAkkjhAk kjh(22 MOVETO) (28 DM2500.STATE 5 CHAT.STATE) () DMCHAT.RIGHT :D8 (L (1 DM2500.STATE 0 CHAT.STATE)) 2@@H@@HH@@ @A (47 DMCHAT.NEWLINE 39 MOVETO) (5 CHAT.STATE) () (PRETTYCOMPRINT DMCHATCOMS) (RPAQQ DMCHATCOMS ((* ;; "DM2500 emulator, with some peculiar functions to handle its silly autocrlf properties") (FILES CHATTERMINAL) (FNS DMCHAT.STATE DMCHAT.HANDLECHARACTER DMCHAT.HANDLE.WRAP DMCHAT.ADDRESS DMCHAT.CLEAR DMCHAT.CLEARMODES DMCHAT.NEWLINE DMCHAT.RIGHT) (ADDVARS (CHAT.DRIVERTYPES (DM2500 DMCHAT.HANDLECHARACTER DMCHAT.STATE))) (VARIABLES CHAT.AUTOCRLF) (DECLARE%: EVAL@COMPILE DONTCOPY ( LOCALVARS . T) (FILES (SOURCE) CHATDECLS) (RECORDS DM2500.STATE)) (INITRECORDS DM2500.STATE) ( SYSRECORDS DM2500.STATE))) (FILESLOAD CHATTERMINAL) (ADDTOVAR CHAT.DRIVERTYPES (DM2500 DMCHAT.HANDLECHARACTER DMCHAT.STATE)) (CL:DEFVAR CHAT.AUTOCRLF T "If true, dm2500 emulator performs automatic CRLF when it reaches the right edge of the display.") (/DECLAREDATATYPE (QUOTE DM2500.STATE) (QUOTE (FLAG FLAG FLAG FLAG FLAG POINTER FLAG FLAG FLAG)) ( QUOTE ((DM2500.STATE 0 (FLAGBITS . 0)) (DM2500.STATE 0 (FLAGBITS . 16)) (DM2500.STATE 0 (FLAGBITS . 32 )) (DM2500.STATE 0 (FLAGBITS . 48)) (DM2500.STATE 0 (FLAGBITS . 64)) (DM2500.STATE 2 POINTER) ( DM2500.STATE 2 (FLAGBITS . 0)) (DM2500.STATE 2 (FLAGBITS . 16)) (DM2500.STATE 2 (FLAGBITS . 32)))) ( QUOTE 4)) (ADDTOVAR SYSTEMRECLST (DATATYPE DM2500.STATE ((DINGED FLAG) (EATLF FLAG) (EATCRLF FLAG) (EATTOCRLF FLAG) (AUTOLF FLAG) ADDRESSING (IDMODE FLAG) (BLINKMODE FLAG) (BRIGHTMODE FLAG)))) (PUTPROPS DMCHAT COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1988 1990 1993)) NIL