(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP") (FILECREATED "21-Jan-87 02:54:59" ("compiled on " {ERIS}LIBRARY>RS232CHAT.;24) "19-Jan-87 21:59:20" brecompiled changes%: RS232CHAT.HOST.FILTER RS232CHAT.OPEN in "Xerox Lisp 19-Jan-87 ..." dated "19-Jan-87 22:28:29") (FILECREATED "21-Jan-87 02:54:44" {ERIS}LIBRARY>RS232CHAT.;24 3513 changes to%: (VARS RS232CHATCOMS) (FNS RS232CHAT.HOST.FILTER RS232CHAT.OPEN) previous date%: " 2-Dec-86 03:03:45" {ERIS}LIBRARY>RS232CHAT.;23) RS232CHAT.HOST.FILTER :D4 (I 0 NAME) &@ogg ´`¦` ¿ggh(25 RS232C.INIT 13 CL:MEMBER) (32 RS232CHAT.OPEN 29 RS232 22 RS232C.DEFAULT.INIT.INFO 18 \RS232FLG 10 STRING.EQUAL 7 :TEST) ( 4 (RS232 RS232C MODEM)) RS232CHAT.OPEN :D4 (P 1 STREAM P 0 OUTSTREAM I 0 HOST) T gg YXIgg IgI Igg Igg Igg Igo IH(78 STREAMPROP 67 STREAMPROP 57 STREAMPROP 47 STREAMPROP 37 STREAMPROP 34 RS232C.READP.EVENT 26 STREAMPROP 15 RS232C.OUTPUTSTREAM 11 OPENSTREAM) (71 OPTIONS 64 NILL 61 SENDSCREENPARAMS 54 NILL 51 FLUSH&WAIT 44 NILL 41 LOGINFO 30 READPEVENT 23 NILL 20 SETDISPLAYTYPE 8 INPUT 5 {RS232}) ( 75 (("Set Line Parameters" (QUOTE RS232CHAT.SET.PARAMETERS) "Modify RS232 parameters"))) RS232CHAT.SET.PARAMETERSA0001 :D4 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 WINDOW) P (3 RS232CMENU.SET.PARAMETERS) NIL () RS232CHAT.SET.PARAMETERS :D4 (P 2 SI::*RESETFORMS* P 1 PWINDOW P 0 WINDOW F 3 WINDOW) RSH g ²3g` hhhg ¿I oI I oI (79 PRIN1 71 TERPRI 66 PRIN1 58 TERPRI 53 SI::RESETUNWIND 49 \MVLIST 46 RS232CHAT.SET.PARAMETERSA0001 30 CURSOR 21 ALLOW.BUTTON.EVENTS 16 FNTYP 7 GETPROMPTWINDOW) (43 SI::RESETUNWIND 27 WAITINGCURSOR 24 CURSOR 13 RS232CMENU.SET.PARAMETERS) ( 75 "You must load RS232CMENU to use this function" 62 "Select desired parameters. Choose Apply! when done.") (PRETTYCOMPRINT RS232CHATCOMS) (RPAQQ RS232CHATCOMS ((* ;; "Support for CHAT via the RS232 port.") (DECLARE%: DONTCOPY (FILES ( LOADCOMP) CHATDECLS)) (FNS RS232CHAT.HOST.FILTER RS232CHAT.OPEN RS232CHAT.SET.PARAMETERS) (ADDVARS ( NETWORKOSTYPES (RS232)) (CHAT.PROTOCOLTYPES (RS232 . RS232CHAT.HOST.FILTER))) (FILES DLRS232C CHAT))) (ADDTOVAR NETWORKOSTYPES (RS232)) (ADDTOVAR CHAT.PROTOCOLTYPES (RS232 . RS232CHAT.HOST.FILTER)) (FILESLOAD DLRS232C CHAT) (PUTPROPS RS232CHAT COPYRIGHT ("Xerox Corporation" 1985 1986 1987)) NIL