(FILECREATED "26-Jun-86 15:39:06" ("compiled on " {DSK}SOURCES>KERMITMENU.;4) " 3-Jun-86 02:20:44" recompiled changes: KERMIT.MENU.ABORT KERMIT.MENU.BYE KERMIT.MENU.EXIT KERMIT.MENU.OPEN KERMIT.MENU.RETRIEVE KERMIT.MENU.STORE in "Xerox Lisp 3-Jun-86 ..." dated " 3-Jun-86 02:32:01") (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 D1 (P 0 PROC I 2 BUTTON I 1 WINDOW I 0 ITEM) .A g H H o Ho h(51Q PROCESS.EVAL 37Q MOUSECONFIRM 26Q RELPROCESSP 20Q PROCESSP 11Q GETWINDOWUSERPROP 3 MAINWINDOW) (6 KERMITPROC) ( 46Q (ERROR!) 34Q "Are you sure?") KERMIT.MENU.BYE D1 (P 0 STATE I 2 BUTTON I 1 WINDOW I 0 ITEM) YA Hg'`Hg'oHg' dglGgA gA Y oI (126Q PRIN1 115Q TERPRI 111Q GETPROMPTWINDOW 106Q MAINWINDOW 73Q KERMIT.SERVER.COMMAND 70Q MAINWINDOW 43Q ERROR 3 FM.GETSTATE) (77Q Modem 64Q F 54Q Kermit 46Q FREEMENUITEM 37Q MODE 25Q MODE 17Q FREEMENUITEMTYPE# 12Q MODE) ( 122Q "This command only works in Kermit mode." 33Q "Arg must be FreeMenuItem") KERMIT.MENU.EXIT D1 (I 2 BUTTON I 1 WINDOW I 0 ITEM) A (3 REMOVEWINDOW) NIL () KERMIT.MENU.OPEN D1 (P 1 FMENU P 0 MAINWINDOW I 0 CHAT.STATE) g@`o IgH Igi IgI I  IHggg Igo Hgg (144Q WINDOWADDPROP 132Q PUTWINDOWPROP 117Q ATTACHWINDOW 100Q PUTWINDOWPROP 66Q \INSUREWINDOW 55Q \INSUREWINDOW 45Q PUTWINDOWPROP 35Q PUTWINDOWPROP 32Q GETPROMPTWINDOW 17Q FREEMENU) (141Q REPOSITIONATTACHEDWINDOWS 136Q RESHAPEFN 123Q REJECTMAINCOMS 113Q LOCALCLOSE 110Q JUSTIFY 105Q TOP 51Q MINSIZE 41Q FM.DONTRESHAPE 26Q FM.PROMPTWINDOW 10Q KERMIT.FMENU.SPEC 3 CHAT.STATE) ( 127Q (SHAPEW) 14Q "Kermit/Modem Settings") KERMIT.MENU.RETRIEVEA0001A0002 D1 (F 0 WINDOW F 1 ABORTWINDOW) P g Q P (21Q FM.REDISPLAYMENU 15Q REMOVEWINDOW 11Q PUTWINDOWPROP 3 MAINWINDOW) (6 KERMITPROC) () KERMIT.MENU.RETRIEVEA0001 D1 (NAME ERRORSET F 0 STATE F 1 RESETVARSLST F 2 WINDOW F 3 RESETY) wghhhQcPg'`Pg'oPg' dgPg'Pg'R Pg' !gPg'R Pg' Pg' ci(161Q MODEM.RECEIVE 151Q U-CASE 141Q MAINWINDOW 120Q KERMIT.RECEIVE 115Q U-CASE 105Q MAINWINDOW 52Q ERROR) (155Q EOLCONVENTION 145Q FILETYPE 134Q LOCALFILE 125Q Modem 111Q FILETYPE 100Q LOCALFILE 73Q REMOTEFILE 63Q Kermit 55Q FREEMENUITEM 46Q MODE 34Q MODE 26Q FREEMENUITEMTYPE# 21Q MODE 2 KERMIT.MENU.RETRIEVEA0001A0002) ( 42Q "Arg must be FreeMenuItem") KERMIT.MENU.RETRIEVE D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 ABORTWINDOW P 0 STATE I 2 BUTTON I 1 WINDOW I 0 ITEM F 5 HIGHLIGHTSHADE F 6 LISPXHIST F 7 RESETVARSLST) UA A g hUgA o YA gg V!Wog hg\ LK(120Q ERROR! 113Q RESETRESTORE 101Q KERMIT.MENU.RETRIEVEA0001 61Q ATTACHWINDOW 50Q MAINWINDOW 43Q FREEMENU 34Q DSPFILL 23Q PUTWINDOWPROP 20Q THIS.PROCESS 12Q MAINWINDOW 3 FM.GETSTATE) (107Q ERROR 76Q INTERNAL 56Q LEFT 53Q TOP 30Q PAINT 15Q KERMITPROC) ( 73Q (KERMIT.MENU.RETRIEVEA0001) 40Q (((LABEL "Button here to abort file transfer" FONT (MODERN 12Q BOLD) SELECTEDFN KERMIT.MENU.ABORT)))) KERMIT.MENU.STOREA0001A0002 D1 (F 0 WINDOW F 1 ABORTWINDOW) P g Q P (21Q FM.REDISPLAYMENU 15Q REMOVEWINDOW 11Q PUTWINDOWPROP 3 MAINWINDOW) (6 KERMITPROC) () KERMIT.MENU.STOREA0001 D1 (NAME ERRORSET F 0 STATE F 1 RESETVARSLST F 2 WINDOW F 3 RESETY) wghhhQcPg'`Pg'oPg' dgPg'Pg'R Pg' !gPg'R Pg' Pg' ci(161Q MODEM.SEND 151Q U-CASE 141Q MAINWINDOW 120Q KERMIT.SEND 115Q U-CASE 105Q MAINWINDOW 52Q ERROR) (155Q EOLCONVENTION 145Q FILETYPE 134Q LOCALFILE 125Q Modem 111Q FILETYPE 100Q REMOTEFILE 73Q LOCALFILE 63Q Kermit 55Q FREEMENUITEM 46Q MODE 34Q MODE 26Q FREEMENUITEMTYPE# 21Q MODE 2 KERMIT.MENU.STOREA0001A0002) ( 42Q "Arg must be FreeMenuItem") KERMIT.MENU.STORE D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 ABORTWINDOW P 0 STATE I 2 BUTTON I 1 WINDOW I 0 ITEM F 5 HIGHLIGHTSHADE F 6 LISPXHIST F 7 RESETVARSLST) UA A g hUgA o YA gg V!Wog hg\ LK(120Q ERROR! 113Q RESETRESTORE 101Q KERMIT.MENU.STOREA0001 61Q ATTACHWINDOW 50Q MAINWINDOW 43Q FREEMENU 34Q DSPFILL 23Q PUTWINDOWPROP 20Q THIS.PROCESS 12Q MAINWINDOW 3 FM.GETSTATE) (107Q ERROR 76Q INTERNAL 56Q LEFT 53Q TOP 30Q PAINT 15Q KERMITPROC) ( 73Q (KERMIT.MENU.STOREA0001) 40Q (((LABEL "Button here to abort file transfer" FONT (MODERN 12Q 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