(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP") (FILECREATED " 6-Jan-87 15:35:40" ("compiled on " {ERIS}LIBRARY>RS232CMENU.;14) "30-Dec-86 11:35:10" "COMPILE-FILEd" in "Xerox Lisp 30-Dec-86 ..." dated "30-Dec-86 12:05:28") (FILECREATED "22-Dec-86 14:00:33" {ERIS}LIBRARY>RS232CMENU.;14 22326 changes to%: (VARS RS232CMENUCOMS) previous date%: "15-Jul-86 14:18:21" {ERIS}LIBRARY>RS232CMENU.;13) (RPAQQ RS232CMENUCOMS ((COMS (* ; "Interactive menu facility for RS232 control") (FNS RS232C.FMENU.ABORT RS232C.FMENU.APPLY RS232C.FMENU.HANGUP RS232C.FMENU.SENDBREAK RS232C.FMENU.SENDLONGBREAK RS232C.FMENU.SHOW RS232CMENU.FILLIN.PARAMETERS RS232CMENU.SET.PARAMETERS) ( VARS DLRS232C.FMENU.SPEC DLTTY.FMENU.SPEC DVRS232C.FMENU.SPEC DVTTY.FMENU.SPEC) (GLOBALVARS DLRS232C.FMENU.SPEC DLTTY.FMENU.SPEC DVRS232C.FMENU.SPEC DVTTY.FMENU.SPEC) (DECLARE%: DONTCOPY (FILES CHATDECLS)) (FILES DLRS232C RS232CHAT FREEMENU)))) RS232C.FMENU.ABORT :D4 (I 2 BUTTON I 1 WINDOW I 0 ITEM) A (3 REMOVEWINDOW) NIL () RS232C.FMENU.APPLY :D4 (P 9 VALUE P 8 ITEM P 7 ID P 1 SETFN P 0 DEVICENAME I 2 BUTTON I 1 WINDOW I 0 IGNORE) Ù Ag !Hdgð”¿g‹gð“g‚g¹oa Kµ+LkIHgð¢±sghAÃ¢±òghA±ö_hA_Ã’OˆoO É_¿Odgð˜¿gO±ŸgðšgO ±Odgð²8¿gOdgð”¿l°tgð“l°kOdgð”¿l°^gð“l°Uo°Jgð²!gOdgð•¿g°8gð’h°0o°%Ogð´#gOdgð“¿k°gð’lˆoO ¾Mµ Nh]¼K[±þøN&½°÷oghA Édgð“¿i°Rdgð“¿h°Hdgð•¿g°