(FILECREATED "24-Oct-85 17:49:16" ("compiled on " {QV}RELEASE1.2I>LIBRARY>LEXDEMO.;16) "19-Mar-85 14:34:17" tcompl'd in "INTERLISP-D 19-Jun-85 ..." dated "19-Jun-85 10:24:28") (FILECREATED "24-Oct-85 17:49:01" {QV}RELEASE1.2I>LIBRARY>LEXDEMO.;16 17489 changes to: ( FNS UNDERLINETEXT DISPLAYPAIRFROM DIALPHONENUMBER LISTEN DEALWITH CHANGEDISPLAYSTATE GETCHARATTRIBUTE GETESCAPESEQUENCE PRINT.INPUTBLOCK REVERSETEXT LEXDEMO.TURNON LEXDEMO.SHUTOFF SPECIALFUNCTIONKEYS TALK ) (VARS LEXDEMOCOMS) previous date: "23-Oct-85 23:31:01" {QV}RELEASE1.2I>LIBRARY>LEXDEMO.;6 ) LEXDEMO.MakeMainMenu D1 (I 0 MAINWINDOW) @`oohoohhdIdodi gl g dJdldkdg dgjdndhdK Xd lH @g ll(212Q GETWINDOWPROP 75Q FONTCREATE) (207Q REGION 177Q MENU 162Q MENU 131Q DEFAULTMENUHELDFN 122Q CLRPROMPT 72Q BRR 65Q HELVETICA 5 MENUTYPE#) ( 52Q "Lexis Interface" 31Q (LEXDEMO.SHUTOFF) 25Q "OFF" 16Q (LEXDEMO.TURNON) 12Q "ON") LEXDEMO.TURNON D1 (P 11Q FUNCTIONKEYS.MENU P 10Q RS232OutputStream P 7 RS232InputStream P 6 InsertString P 5 TempStringStream P 4 TempString P 3 TextStream P 2 REPLYWINDOW P 1 LEXWINDOW P 0 LEXSTREAM F 12Q LEXDEMOWINDOWS) gg nXnhddo o jdnXlP hl s hIhdo [n@ \g ]o^JIgg I _IJOhcOIgg nlgk gg _d _OgO IgO IgO O gHIOKLMNOOh gJOh h(345Q ADD.PROCESS 330Q ADD.PROCESS 273Q DIALPHONENUMBER 266Q PUTWINDOWPROP 255Q PUTWINDOWPROP 244Q PUTWINDOWPROP 230Q RS232C.OTHER.STREAM 222Q OPENSTREAM 211Q RS232C.INIT 175Q ATTACHWINDOW 145Q ADDMENU 142Q SPECIALFUNCTIONKEYS 136Q ATTACHWINDOW 115Q OPENSTRINGSTREAM 106Q ALLOCSTRING 77Q OPENTEXTSTREAM 60Q CREATEW 52Q CREATEREGION 40Q CREATEW 31Q GETBOXREGION 10Q OPENSTREAM) (333Q TALK 276Q LISTEN 261Q RS232InputStream 250Q RS232OutputStream 237Q RS232OutputStream 217Q INPUT 214Q {RS232} 205Q EVEN 172Q BOTTOM 167Q RIGHT 133Q LEFT 130Q BOTTOM 112Q BOTH 5 BOTH 2 {CORE}LEXIS-SESSION) ( 122Q "" 73Q (READONLY T) 35Q "LEXIS display window" 25Q "Please specify area for LEXIS display window") SPECIALFUNCTIONKEYSA0008 D1 (P 0 RS232OutputStream I 2 MOUSEKEY I 1 MENUNAME I 0 ITEM) "A g @l H H (37Q FORCEOUTPUT 33Q PRIN1 27Q CONCAT 24Q CHARACTER 11Q GETWINDOWUSERPROP 3 WFROMMENU) (6 RS232OutputStream) () SPECIALFUNCTIONKEYS D1 (I 0 WINDOW) d`dododi gl g HdIdldkdgdg dgjdndhHdI (43Q FONTCREATE) (112Q DEFAULTMENUHELDFN 103Q CLRPROMPT 74Q SPECIALFUNCTIONKEYSA0008 40Q BOLD 33Q HELVETICA 2 MENUTYPE#) ( 20Q "SPECIAL KEY FUNCTIONS" 10Q (("NEXT PAGE" ".NP") ("PREVIOUS PAGE" ".PP") ("FIRST PAGE" ".FP") ("NEXT DOCUMENT" ".ND") ("PREVIOUS DOCUMENT" ".PD") ("FIRST DOCUMENT" ".FD") ("KWIC" ".KW") ("FULL" ".FU") ("CITE" ".CI") ("SEGMTS" ".SE") ("SELECT SERV" ".SS") ("EXIT SERV" ".ES") ("PRINT DOCUMENT" ".PR") ("MAIL IT" ".MI") ("SCREEN PRINT" ".SP") ("NEW SEARCH" ".NS") ("CHANGE FILE" ".CF") ("CHANGE LIBRARY" ".CL") ("SIGN OFF" ".SO"))) LISTEN D1 (P 0 ReadpEvent I 10Q RS232OutputStream I 7 RS232InputStream I 6 InsertString I 5 TempStringStream I 4 TempString I 3 TextStream I 2 FUNCTIONKEYS.MENU I 1 LEXWINDOW I 0 LEXSTREAM) ` G Agj Agg Agj Aghk Aghk H G G GE@A DEFCA (133Q PRINT.INPUTBLOCK 120Q DEALWITH 103Q READP 75Q AWAIT.EVENT 71Q PUTWINDOWPROP 66Q TCONC 55Q PUTWINDOWPROP 52Q TCONC 41Q PUTWINDOWPROP 31Q PUTWINDOWPROP 17Q PUTWINDOWPROP 4 RS232C.READP.EVENT) (61Q UNDLIST 45Q REVLIST 35Q PAGEBEGIN 26Q NORMAL 23Q CHARDISPLAYSTATE 13Q CHARDISPLAYBEGIN) () CHANGEDISPLAYSTATE D1 (P 1 CHARDISPLAYBEGIN P 0 CHARDISPLAYSTATE I 2 TempStringStream I 1 NEWSTATE I 0 DISPLAYWINDOW) F@g @g HA/Hdg@gg@g IB @gB A(102Q PUTWINDOWPROP 77Q GETFILEPTR 66Q TCONC 63Q DISPLAYPAIRFROM 56Q GETWINDOWPROP 15Q GETWINDOWPROP 6 GETWINDOWPROP) (73Q CHARDISPLAYBEGIN 53Q UNDLIST 45Q UNDERLINE 41Q REVLIST 32Q REVERSE 12Q CHARDISPLAYBEGIN 3 CHARDISPLAYSTATE) () CREPLACE D1 (L (0 INCHAR)) @djl l @dl@lNIL NIL () DEALWITH D1 (I 4 LEXWINDOW I 3 LEXSTREAM I 2 TempStringStream I 1 RS232InputStream I 0 INCHAR) -CC@ @ dllDA AB B@ (52Q BOUT 47Q CREPLACE 41Q GETESCAPESEQUENCE 24Q RINGBELLS 13Q CREPLACE 6 BOUT) NIL () DIALPHONENUMBER D1 (P 2 CH P 1 PrintString P 0 KEYPADMENU I 0 RS232OutputStream)  !o Hg Hg Hg ol YI Zwn' l l YI Zin ol YI Z[n Hg Hg l YI Z?n l YI Zd4@ @ z@ @ @ @ @ @ @ @ (355Q FORCEOUTPUT 350Q PRIN1 341Q FORCEOUTPUT 334Q PRIN1 325Q FORCEOUTPUT 320Q PRIN1 311Q FORCEOUTPUT 304Q PRIN1 274Q FORCEOUTPUT 267Q PRIN1 256Q GNC 251Q CONCAT 246Q CHARACTER 241Q DISMISS 230Q GNC 223Q CONCAT 220Q CHARACTER 213Q GETWINDOWUSERPROP 203Q AWAIT.EVENT 200Q GETWINDOWUSERPROP 171Q DISMISS 160Q GNC 153Q CONCAT 150Q CHARACTER 137Q DISMISS 126Q GNC 121Q CONCAT 116Q CHARACTER 111Q CHARACTER 104Q DISMISS 73Q GNC 66Q CONCAT 63Q CHARACTER 52Q PUTWINDOWPROP 43Q PUTWINDOWPROP 40Q CREATE.EVENT 31Q PUTWINDOWPROP 26Q THIS.PROCESS 17Q PROMPTPRINT 5 ADDMENU 2 PHONEPADMENU) (210Q BUFFER 175Q DIALEVENT 47Q BUFFER 35Q DIALEVENT 23Q PROCESS) ( 143Q "D" 56Q "I" 14Q "Please dial desired telephone number.") DISPLAYPAIRFROM D1 (I 1 TempStringStream I 0 DISPLAYBEGIN) @kA @k(6 GETFILEPTR) NIL () GETCHARATTRIBUTE D1 (I 3 TempStringStream I 2 RS232InputStream I 1 INCHAR I 0 LEXWINDOW) sA dl0@g@gC @B bbdl2B dl4@g@gC @B bbl7@g@gC @B BC (160Q GETCHARATTRIBUTE 147Q PUTWINDOWPROP 144Q CHANGEDISPLAYSTATE 107Q PUTWINDOWPROP 104Q CHANGEDISPLAYSTATE 60Q CREPLACE 31Q PUTWINDOWPROP 26Q CHANGEDISPLAYSTATE 3 CREPLACE) (140Q REVERSE 134Q CHARDISPLAYSTATE 100Q UNDERLINE 74Q CHARDISPLAYSTATE 22Q NORMAL 16Q CHARDISPLAYSTATE) () GETESCAPESEQUENCE D1 (I 3 TempStringStream I 2 RS232InputStream I 1 NEXTCHAR I 0 LEXWINDOW) A dl=hl[ @B BC (27Q GETCHARATTRIBUTE 3 CREPLACE) NIL () PHONEPADMENUA0008 D1 (I 2 BUTTON I 1 MENU I 0 ITEM) j@oA g A ` @og o @` gg @ g @ (147Q PUTWINDOWPROP 144Q CONCAT 140Q GETWINDOWPROP 132Q WHICHW 126Q MKSTRING 121Q GETWINDOWPROP 113Q WHICHW 105Q WHICHW 102Q PRIN1 72Q PROMPTPRINT 63Q PUTWINDOWPROP 55Q WHICHW 41Q CLEARW 33Q CLOSEW 30Q WFROMMENU 24Q NOTIFY.EVENT 21Q GETWINDOWUSERPROP 13Q WFROMMENU) (135Q BUFFER 116Q BUFFER 110Q BUFFER 77Q PROMPTWINDOW 60Q BUFFER 36Q PROMPTWINDOW 16Q DIALEVENT) ( 67Q "Please dial desired telephone number." 47Q "Redial" 4 "Done") PHONEPADMENU D1 NIL z0`dododi dlgl g dIdkdgdg dgjdndhdJ Xd lH l-(54Q FONTCREATE) (157Q MENU 142Q MENU 111Q DEFAULTMENUHELDFN 102Q CLRPROMPT 73Q PHONEPADMENUA0008 51Q BRR 44Q HELVETICA 5 MENUTYPE#) ( 23Q "Phone keypad" 13Q (1 2 3 4 5 6 7 10Q 11Q * 0 # "," "Done" "Redial")) PRINT.INPUTBLOCK D1 (P 0 InsertPoint I 4 LEXWINDOW I 3 TextStream I 2 InsertString I 1 TempStringStream I 0 TempString) C@kA B CBC X Aj DgDCH DgDCH Dgj h(77Q PUTWINDOWPROP 67Q PUTWINDOWPROP 64Q UNDERLINETEXT 52Q PUTWINDOWPROP 47Q REVERSETEXT 35Q SETFILEPTR 27Q TEDIT.INSERT 23Q GETEOFPTR 14Q SUBSTRING 10Q GETFILEPTR) (73Q CHARDISPLAYBEGIN 56Q UNDLIST 41Q REVLIST) () REVERSETEXT D1 (P 2 X P 1 SELECTION P 0 REVLIST I 2 InsertPoint I 1 TextStream I 0 DISPLAYWINDOW) >@g Hl dABJJg Ao A hk (73Q TCONC 66Q TEDIT.SHOWSEL 55Q TEDIT.LOOKS 44Q TEDIT.SETSEL 20Q NTH 6 GETWINDOWPROP) (41Q LEFT 3 REVLIST) ( 52Q (FACE BRR)) UNDERLINETEXT D1 (L (2 InsertPoint 1 TextStream 0 DISPLAYWINDOW)) hNIL NIL () TALK D1 (I 1 RS232OutputStream I 0 REPLYWINDOW) @ ohd@hdl l l lh ol A A @ (73Q TERPRI 66Q FORCEOUTPUT 61Q PRIN1 55Q CONCAT 52Q CHARACTER 37Q PROMPTFORWORD 5 TTY.PROCESS 2 THIS.PROCESS) NIL ( 45Q "" 11Q ">") LEXDEMO.SHUTOFF D1 (F 0 LEXDEMOWINDOWS) {g g g Pd ` ol ` g ,g ogg l ` g o` ` (170Q TERPRI 162Q PRIN1 147Q DELFILE 140Q PRIN1 132Q CONCAT 127Q CHARACTER 122Q COPYFILE 104Q CLOSEF 74Q OPENP 66Q PRIN1 60Q CONCAT 55Q CHARACTER 44Q CLEARW 31Q CLOSEW 21Q BOUNDP 13Q DEL.PROCESS 5 DEL.PROCESS) (165Q PROMPTWINDOW 157Q PROMPTWINDOW 144Q {CORE}LEXIS-SESSION 135Q PROMPTWINDOW 117Q {DSK}LEXIS-SESSION 114Q {CORE}LEXIS-SESSION 101Q {CORE}LEXIS-SESSION 71Q {CORE}LEXIS-SESSION 63Q PROMPTWINDOW 41Q PROMPTWINDOW 16Q LEXDEMOWINDOWS 10Q LISTEN 2 TALK) ( 154Q "... connection closed." 111Q "A record of your LEXIS session is stored as " 50Q "Closing LEXIS connection ... ") (PRETTYCOMPRINT LEXDEMOCOMS) (RPAQQ LEXDEMOCOMS ((FNS LEXDEMO.MakeMainMenu LEXDEMO.TURNON SPECIALFUNCTIONKEYS LISTEN CHANGEDISPLAYSTATE CREPLACE DEALWITH DIALPHONENUMBER DISPLAYPAIRFROM GETCHARATTRIBUTE GETESCAPESEQUENCE PHONEPADMENU PRINT.INPUTBLOCK REVERSETEXT UNDERLINETEXT TALK LEXDEMO.SHUTOFF) (P ( LOAD? (QUOTE {ERIS}INTERMEZZO>RS232>DLRS232C.DCOM)) (LOAD? (QUOTE {ERIS}INTERMEZZO>RS232>RS232CHAT.DCOM))) (P (MOVEW (SETQ LEXDEMO.MainMenu (ADDMENU ( LEXDEMO.MakeMainMenu NC.MainMenuWindow))) (fetch LEFT of (GETWINDOWPROP NC.MainMenuWindow (QUOTE REGION))) (DIFFERENCE (fetch BOTTOM of (GETWINDOWPROP NC.MainMenuWindow (QUOTE REGION))) (fetch HEIGHT of (GETWINDOWPROP LEXDEMO.MainMenu (QUOTE REGION)))))))) (LOAD? (QUOTE {ERIS}INTERMEZZO>RS232>DLRS232C.DCOM)) (LOAD? (QUOTE {ERIS}INTERMEZZO>RS232>RS232CHAT.DCOM)) (MOVEW (SETQ LEXDEMO.MainMenu (ADDMENU (LEXDEMO.MakeMainMenu NC.MainMenuWindow))) (fetch LEFT of ( GETWINDOWPROP NC.MainMenuWindow (QUOTE REGION))) (DIFFERENCE (fetch BOTTOM of (GETWINDOWPROP NC.MainMenuWindow (QUOTE REGION))) (fetch HEIGHT of (GETWINDOWPROP LEXDEMO.MainMenu (QUOTE REGION))))) (PUTPROPS LEXDEMO COPYRIGHT ("Xerox Corporation" 1985)) NIL