(FILECREATED " 8-Jan-87 19:29:55" ("compiled on " {ERIS}LIBRARY>KERMITMENU.;13) " 7-Jan-87 03:28:48" bcompl'd in "Xerox Lisp 7-Jan-87 ..." dated " 7-Jan-87 03:56:58") (FILECREATED "26-Jun-86 15:38:37" {DSK}SOURCES>KERMITMENU.;4 16963 changes to: (FNS KERMIT.MENU.OPEN KERMIT.MENU.RETRIEVE KERMIT.MENU.EXIT KERMIT.MENU.STORE KERMIT.MENU.ABORT KERMIT.MENU.BYE) (VARS KERMITMENUCOMS) previous date: "24-Jun-86 15:40:59" {DSK}SOURCES>KERMITMENU.;1) KERMIT.MENU.ABORT D4 (P 0 PROC I 2 BUTTON I 1 WINDOW I 0 ITEM) .A g H H o Ho h(41 PROCESS.EVAL 31 MOUSECONFIRM 22 RELPROCESSP 16 PROCESSP 9 GETWINDOWUSERPROP 3 MAINWINDOW) (6 KERMITPROC) ( 38 (ERROR!) 28 "Are you sure?") KERMIT.MENU.BYE D4 (P 0 STATE I 2 BUTTON I 1 WINDOW I 0 ITEM) WA Hg'Hg'oHg' dglGgA gA Y oI (84 PRIN1 75 TERPRI 71 GETPROMPTWINDOW 68 MAINWINDOW 57 KERMIT.SERVER.COMMAND 54 MAINWINDOW 33 ERROR 3 FM.GETSTATE) (61 Modem 50 F 42 Kermit 36 FREEMENUITEM 29 MODE 19 MODE 14 FREEMENUITEM 10 MODE) ( 80 "This command only works in Kermit mode." 25 "Arg must be FreeMenuItem") KERMIT.MENU.EXIT D4 (I 2 BUTTON I 1 WINDOW I 0 ITEM) A (3 REMOVEWINDOW) NIL () KERMIT.MENU.OPEN D4 (P 1 FMENU P 0 MAINWINDOW I 0 CHAT.STATE) g@`o IgH Igi IgI I  IHggg Igo Hgg (100 WINDOWADDPROP 90 PUTWINDOWPROP 79 ATTACHWINDOW 64 PUTWINDOWPROP 54 \INSUREWINDOW 45 \INSUREWINDOW 37 PUTWINDOWPROP 29 PUTWINDOWPROP 26 GETPROMPTWINDOW 15 FREEMENU) (97 REPOSITIONATTACHEDWINDOWS 94 RESHAPEFN 83 REJECTMAINCOMS 75 LOCALCLOSE 72 JUSTIFY 69 TOP 41 MINSIZE 33 FM.DONTRESHAPE 22 FM.PROMPTWINDOW 8 KERMIT.FMENU.SPEC 3 CHAT.STATE) ( 87 (SHAPEW) 12 "Kermit/Modem Settings") KERMIT.MENU.RETRIEVEA0001A0002 D4 (F 0 WINDOW F 1 ABORTWINDOW) P g Q P (17 FM.REDISPLAYMENU 13 REMOVEWINDOW 9 PUTWINDOWPROP 3 MAINWINDOW) (6 KERMITPROC) () KERMIT.MENU.RETRIEVEA0001 D4 (NAME SI*UNWIND-PROTECT* I 0 SI*CLEANUP-FORMS* F 0 STATE F 1 SI*RESETFORMS* F 2 WINDOW) pghhhQcPg'Pg'oPg' dgPg'Pg'R Pg' gPg'R Pg' Pg' (109 MODEM.RECEIVE 101 U-CASE 93 MAINWINDOW 77 KERMIT.RECEIVE 74 U-CASE 66 MAINWINDOW 39 ERROR) (105 EOLCONVENTION 97 FILETYPE 88 LOCALFILE 81 Modem 70 FILETYPE 61 LOCALFILE 56 REMOTEFILE 48 Kermit 42 FREEMENUITEM 35 MODE 25 MODE 20 FREEMENUITEM 16 MODE 2 KERMIT.MENU.RETRIEVEA0001A0002) ( 31 "Arg must be FreeMenuItem") KERMIT.MENU.RETRIEVE D4 (P 3 SI*RESETFORMS* P 2 LISPXHIST P 1 ABORTWINDOW P 0 STATE I 2 BUTTON I 1 WINDOW I 0 ITEM F 4 HIGHLIGHTSHADE F 5 LISPXHIST) HA A g` hTgA o YA gg Ug  (69 CLVALUES-LIST 65 SIRESETUNWIND 62 \MVLIST 59 KERMIT.MENU.RETRIEVEA0001 49 ATTACHWINDOW 40 MAINWINDOW 35 FREEMENU 28 DSPFILL 19 PUTWINDOWPROP 10 MAINWINDOW 3 FM.GETSTATE) (56 SIRESETUNWIND 46 LEFT 43 TOP 24 PAINT 16 \RUNNING.PROCESS 13 KERMITPROC) ( 32 (((LABEL "Button here to abort file transfer" FONT (MODERN 10 BOLD) SELECTEDFN KERMIT.MENU.ABORT)))) KERMIT.MENU.STOREA0001A0002 D4 (F 0 WINDOW F 1 ABORTWINDOW) P g Q P (17 FM.REDISPLAYMENU 13 REMOVEWINDOW 9 PUTWINDOWPROP 3 MAINWINDOW) (6 KERMITPROC) () KERMIT.MENU.STOREA0001 D4 (NAME SI*UNWIND-PROTECT* I 0 SI*CLEANUP-FORMS* F 0 STATE F 1 SI*RESETFORMS* F 2 WINDOW) pghhhQcPg'Pg'oPg' dgPg'Pg'R Pg' gPg'R Pg' Pg' (109 MODEM.SEND 101 U-CASE 93 MAINWINDOW 77 KERMIT.SEND 74 U-CASE 66 MAINWINDOW 39 ERROR) (105 EOLCONVENTION 97 FILETYPE 88 LOCALFILE 81 Modem 70 FILETYPE 61 REMOTEFILE 56 LOCALFILE 48 Kermit 42 FREEMENUITEM 35 MODE 25 MODE 20 FREEMENUITEM 16 MODE 2 KERMIT.MENU.STOREA0001A0002) ( 31 "Arg must be FreeMenuItem") KERMIT.MENU.STORE D4 (P 3 SI*RESETFORMS* P 2 LISPXHIST P 1 ABORTWINDOW P 0 STATE I 2 BUTTON I 1 WINDOW I 0 ITEM F 4 HIGHLIGHTSHADE F 5 LISPXHIST) HA A g` hTgA o YA gg Ug  (69 CLVALUES-LIST 65 SIRESETUNWIND 62 \MVLIST 59 KERMIT.MENU.STOREA0001 49 ATTACHWINDOW 40 MAINWINDOW 35 FREEMENU 28 DSPFILL 19 PUTWINDOWPROP 10 MAINWINDOW 3 FM.GETSTATE) (56 SIRESETUNWIND 46 LEFT 43 TOP 24 PAINT 16 \RUNNING.PROCESS 13 KERMITPROC) ( 32 (((LABEL "Button here to abort file transfer" FONT (MODERN 10 BOLD) SELECTEDFN KERMIT.MENU.ABORT)))) (PRETTYCOMPRINT KERMITMENUCOMS) (RPAQQ KERMITMENUCOMS ((COMS (* Interactive menu facility for Kermit) (INITVARS (KERMIT.FMENU.SPEC ( QUOTE ((PROPS FONT (MODERN 10 BOLD)) ((LABEL "Send!" MESSAGE "Sends the specified local file to be stored remotely" SELECTEDFN KERMIT.MENU.STORE) (LABEL "Receive!" MESSAGE "Receives a remote file into the specified local file" SELECTEDFN KERMIT.MENU.RETRIEVE) ( LABEL "Bye!" MESSAGE "Forces remote Kermit server to exit" SELECTEDFN KERMIT.MENU.BYE) (LABEL "Exit!" MESSAGE "Closes this menu" SELECTEDFN KERMIT.MENU.EXIT)) ((TYPE DISPLAY LABEL "Transfer mode: ") (TYPE NWAY COLLECTION MODE LABEL Kermit FONT (MODERN 10)) (TYPE NWAY COLLECTION MODE LABEL Modem FONT ( MODERN 10))) ((TYPE EDITSTART LABEL "Local file:" LINKS (EDIT LOCALFILE)) (TYPE EDIT ID LOCALFILE LABEL "" FONT (MODERN 10))) ((TYPE EDITSTART LABEL "Remote file:" LINKS (EDIT REMOTEFILE)) (TYPE EDIT LABEL "" ID REMOTEFILE FONT (MODERN 10))) ((TYPE STATE LABEL "File type:" ID FILETYPE MENUITEMS ( Binary Text) MENUFONT (MODERN 10) INITSTATE Text LINKS (DISPLAY FILETYPEDISPLAY)) (TYPE DISPLAY ID FILETYPEDISPLAY MAXWIDTH 40 FONT (MODERN 10) LABEL Text) (TYPE STATE LABEL "End-of-line Convention:" ID EOLCONVENTION MENUITEMS (CR LF CRLF) MENUFONT (MODERN 10) INITSTATE CRLF LINKS (DISPLAY EOLCONVENTIONDISPLAY)) (TYPE DISPLAY ID EOLCONVENTIONDISPLAY MAXWIDTH 30 FONT (MODERN 10) LABEL CRLF)) )))) (GLOBALVARS KERMIT.FMENU.SPEC) (FNS KERMIT.MENU.ABORT KERMIT.MENU.BYE KERMIT.MENU.EXIT KERMIT.MENU.OPEN KERMIT.MENU.RETRIEVE KERMIT.MENU.STORE) (FILES (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) FREEMENU KERMIT) (P (COND ((NOT (FASSOC (QUOTE Kermit) CHATMENUITEMS)) (push CHATMENUITEMS (QUOTE (Kermit (FUNCTION KERMIT.MENU.OPEN) "Opens a kermit command menu"))) (SETQ CHATMENU NIL))) (COND ((AND (BOUNDP (QUOTE TEDITCHAT.MENUITEMS)) (NOT (FASSOC (QUOTE Kermit) TEDITCHAT.MENUITEMS))) (push TEDITCHAT.MENUITEMS (QUOTE (Kermit (FUNCTION KERMIT.MENU.OPEN) "Opens a kermit command menu"))) (SETQ TEDITCHAT.MENU NIL))))))) (RPAQ? KERMIT.FMENU.SPEC (QUOTE ((PROPS FONT (MODERN 10 BOLD)) ((LABEL "Send!" MESSAGE "Sends the specified local file to be stored remotely" SELECTEDFN KERMIT.MENU.STORE) (LABEL "Receive!" MESSAGE "Receives a remote file into the specified local file" SELECTEDFN KERMIT.MENU.RETRIEVE) ( LABEL "Bye!" MESSAGE "Forces remote Kermit server to exit" SELECTEDFN KERMIT.MENU.BYE) (LABEL "Exit!" MESSAGE "Closes this menu" SELECTEDFN KERMIT.MENU.EXIT)) ((TYPE DISPLAY LABEL "Transfer mode: ") (TYPE NWAY COLLECTION MODE LABEL Kermit FONT (MODERN 10)) (TYPE NWAY COLLECTION MODE LABEL Modem FONT ( MODERN 10))) ((TYPE EDITSTART LABEL "Local file:" LINKS (EDIT LOCALFILE)) (TYPE EDIT ID LOCALFILE LABEL "" FONT (MODERN 10))) ((TYPE EDITSTART LABEL "Remote file:" LINKS (EDIT REMOTEFILE)) (TYPE EDIT LABEL "" ID REMOTEFILE FONT (MODERN 10))) ((TYPE STATE LABEL "File type:" ID FILETYPE MENUITEMS ( Binary Text) MENUFONT (MODERN 10) INITSTATE Text LINKS (DISPLAY FILETYPEDISPLAY)) (TYPE DISPLAY ID FILETYPEDISPLAY MAXWIDTH 40 FONT (MODERN 10) LABEL Text) (TYPE STATE LABEL "End-of-line Convention:" ID EOLCONVENTION MENUITEMS (CR LF CRLF) MENUFONT (MODERN 10) INITSTATE CRLF LINKS (DISPLAY EOLCONVENTIONDISPLAY)) (TYPE DISPLAY ID EOLCONVENTIONDISPLAY MAXWIDTH 30 FONT (MODERN 10) LABEL CRLF)) ))) (FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) FREEMENU KERMIT) (COND ((NOT (FASSOC (QUOTE Kermit) CHATMENUITEMS)) (push CHATMENUITEMS (QUOTE (Kermit (FUNCTION KERMIT.MENU.OPEN) "Opens a kermit command menu"))) (SETQ CHATMENU NIL))) (COND ((AND (BOUNDP (QUOTE TEDITCHAT.MENUITEMS)) (NOT (FASSOC (QUOTE Kermit) TEDITCHAT.MENUITEMS))) ( push TEDITCHAT.MENUITEMS (QUOTE (Kermit (FUNCTION KERMIT.MENU.OPEN) "Opens a kermit command menu"))) ( SETQ TEDITCHAT.MENU NIL))) (PUTPROPS KERMITMENU COPYRIGHT ("Xerox Corporation" 1985 1986)) NIL