(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP") (FILECREATED " 2-Dec-86 03:04:54" ("compiled on " {ERIS}LIBRARY>RS232CHAT.;23) "30-Nov-86 17:19:54" recompiled changes%: RS232CHAT.HOST.FILTER in "Xerox Lisp 30-Nov-86 ..." dated "30-Nov-86 17:50:29") (FILECREATED " 2-Dec-86 03:03:45" {ERIS}LIBRARY>RS232CHAT.;23 3242 changes to%: (FNS RS232CHAT.HOST.FILTER) previous date%: "12-Nov-86 11:47:04" {ERIS}LIBRARY>RS232CHAT.;22) RS232CHAT.HOST.FILTER D1 (P 1 MEMBER0078 P 0 MEMBER-ITEM0079 I 0 NAME) 3@oYµh´`¦` ¿gghH ’I°áI°Ø(41 STRING.EQUAL 25 RS232C.INIT) (32 RS232CHAT.OPEN 29 RS232 22 RS232C.DEFAULT.INIT.INFO 18 \RS232FLG) ( 7 (RS232 RS232C MODEM)) RS232CHAT.OPEN D1 (P 1 STREAM P 0 OUTSTREAM I 0 HOST F 2 RESETVARSLST) t gg YoIhhhRcXoHhhhRcIgg IgI Igg Igg Igg Igo IH(110 STREAMPROP 99 STREAMPROP 89 STREAMPROP 79 STREAMPROP 69 STREAMPROP 66 RS232C.READP.EVENT 58 STREAMPROP 31 RS232C.OUTPUTSTREAM 11 OPENSTREAM) (103 OPTIONS 96 NILL 93 SENDSCREENPARAMS 86 NILL 83 FLUSH&WAIT 76 NILL 73 LOGINFO 62 READPEVENT 55 NILL 52 SETDISPLAYTYPE 8 INPUT 5 {RS232}) ( 107 (("Set Line Parameters" (QUOTE RS232CHAT.SET.PARAMETERS) "Modify RS232 parameters")) 36 (LAMBDA (S) (AND RESETSTATE (CLOSEF? S))) 16 (LAMBDA (S) (AND RESETSTATE (CLOSEF? S)))) RS232CHAT.SET.PARAMETERSA0001 D1 (NAME ERRORSET F 0 WINDOW F 1 MACROY) P ci(3 RS232CMENU.SET.PARAMETERS) NIL () RS232CHAT.SET.PARAMETERS D1 (P 5 RESETSTATE P 4 MACROY P 2 OLDVALUE P 1 PWINDOW P 0 WINDOW F 6 RESETVARSLST F 7 WINDOW) oWH g ²O` 1gJhhVc »og £g½Kc ¿gK ¿M“¿I oI I oI (108 PRIN1 100 TERPRI 95 PRIN1 87 TERPRI 81 ERROR! 75 APPLY 55 RS232CHAT.SET.PARAMETERSA0001 28 CURSOR 22 ALLOW.BUTTON.EVENTS 17 FNTYP 8 GETPROMPTWINDOW) (68 CURSOR 59 ERROR 52 INTERNAL 34 CURSOR 25 WAITINGCURSOR 14 RS232CMENU.SET.PARAMETERS) ( 104 "You must load RS232CMENU to use this function" 91 "Select desired parameters. Choose Apply! when done." 49 (RS232CHAT.SET.PARAMETERSA0001)) (PRETTYCOMPRINT RS232CHATCOMS) (RPAQQ RS232CHATCOMS ((FNS RS232CHAT.HOST.FILTER RS232CHAT.OPEN RS232CHAT.SET.PARAMETERS) (ADDVARS ( NETWORKOSTYPES (RS232)) (CHAT.PROTOCOLTYPES (RS232 . RS232CHAT.HOST.FILTER))) (DECLARE%: DONTCOPY ( FILES (LOADCOMP) CHATDECLS)) (FILES DLRS232C CHAT))) (ADDTOVAR NETWORKOSTYPES (RS232)) (ADDTOVAR CHAT.PROTOCOLTYPES (RS232 . RS232CHAT.HOST.FILTER)) (FILESLOAD DLRS232C CHAT) (PUTPROPS RS232CHAT COPYRIGHT ("Xerox Corporation" 1985 1986)) NIL