(FILECREATED " 2-Mar-86 17:09:47" ("compiled on " {ERIS}SOURCES>LAFITESEND.;4) "20-Feb-86 23:08:17" recompiled exprs: \SENDMESSAGE.RESTARTABLE \SENDMESSAGE.MAKEWINDOW \LAFITE.AFTER.DELIVER \LAFITE.UNSENT.ICON \LAFITE.FETCH.SUBJECT in "Xerox Lisp 20-Feb-86 ..." dated "20-Feb-86 23:44:46") (FILECREATED " 2-Mar-86 17:09:15" {ERIS}SOURCES>LAFITESEND.;4 67697 changes to: (FNS \SENDMESSAGE.RESTARTABLE \LAFITE.AFTER.DELIVER \LAFITE.SENDER.ICON \LAFITE.FETCH.SUBJECT \SENDMESSAGE.MAKEWINDOW \LAFITE.UNSENT.ICON) (VARS LAFITESENDCOMS MSGUNSENTICON MSGUNSENTMASK MSGUNSENTREGION) previous date: "24-Feb-86 17:20:18" {ERIS}SOURCES>LAFITESEND.;3) DOLAFITESENDINGCOMMAND D1 (P 1 PROC P 0 WINDOW I 2 KEY I 1 MENU I 0 ITEM) &A g H .YdgHA@h h(42Q PROCESS.APPLY 20Q \INSUREWINDOW 11Q GETWINDOWUSERPROP 3 WFROMMENU) (30Q \SENDMESSAGE.INITIATE 6 MAINWINDOW) () \SENDMESSAGE.INITIATEA0001A0002A0003 D1 (I 1 MENU I 0 ITEM F 0 RESETSTATE) P@Aj Agg(10Q SHADEITEM) (21Q DOLAFITESENDINGCOMMAND 14Q DOLAFITESENDINGCOMMAND) () \SENDMESSAGE.INITIATEA0001A0002 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 PARSE P 1 TEXTSTREAM P 0 COMMAND F 4 ITEM F 5 MENU F 6 WINDOW F 7 RESETVARSLST F 10Q RESETY) T 1gTUhhhWcTU` Ug`gg Vg HgV [ oK IV ZVgg IHTUIJh hci(174Q TEDIT.QUIT 154Q WINDOWADDPROP 141Q ERROR! 134Q \SENDMESSAGE.PARSE 126Q PRIN1 115Q TERPRI 111Q GETPROMPTWINDOW 75Q GETWINDOWUSERPROP 65Q PROCESSPROP 41Q SHADEITEM 3 EXTRACTMENUCOMMAND) (151Q DON'T 146Q CLOSEFN 102Q ##SEND## 72Q TEXTSTREAM 62Q DON'T 57Q BEFOREEXIT 54Q \RUNNING.PROCESS 46Q NILL 36Q LAFITEITEMBUSYSHADE 11Q \SENDMESSAGE.INITIATEA0001A0002A0003) ( 122Q "Parsing...") \SENDMESSAGE.INITIATEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) &S!Tog hgZ JIh(36Q ERROR! 30Q RESETRESTORE 16Q \SENDMESSAGE.INITIATEA0001A0002) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \SENDMESSAGE.INITIATE D1 (I 2 ITEM I 1 MENU I 0 WINDOW) oi (7 \SENDMESSAGE.INITIATEA0001) NIL ( 3 (DUMMY.FOR.ERRORSET)) \SENDMESSAGE.PARSE D1 (I 1 EDITORWINDOW I 0 MSG) `@AlHNIL (2 \LAFITEMODE) () \LAFITE.PREPARE.SEND D1 (P 3 EOFINFO P 2 MSGFIELDS P 1 HEADEREOF P 0 MSGEOF I 2 PARSETABLE I 1 EDITORWINDOW I 0 MSG) @@`@l AE@kjg @ @j @ l @kd @d Xk @ l @`Hkhi @gg @B`j@ Xhi Zd[g+KK@AI IHj@H @l KIkJ(240Q BOUT 231Q SETFILEPTR 215Q \LAFITE.PREPARE.ERROR 163Q LAFITE.PARSE.HEADER 154Q GETEOFPTR 140Q SETFILEINFO 125Q TEDIT.INSERT 101Q SETFILEPTR 73Q GETEOFPTR 64Q TEDIT.DELETE 47Q SETFILEPTR 41Q TEDIT.NORMALIZECARET 34Q TEDIT.SETSEL 17Q \LISPERROR) (173Q EOF 147Q \LAPARSE.FULL 135Q \LAFITE.EOF 132Q ENDOFSTREAMOP 114Q LAFITEEOL 31Q LEFT 7 STREAMTYPE#) () \LAFITE.PREPARE.ERROR D1 (P 0 LINE I 2 HEADEREOF I 1 EDITORWINDOW I 0 MSG) A@B @ X@B @l AoH lHkl g H o h(75Q \SENDMESSAGEFAIL 66Q CONCAT 61Q CONCAT 53Q SUBSTRING 40Q NCHARS 27Q BOUT 21Q SETFILEPTR 13Q LAFITE.READ.TO.EOL 7 SETFILEPTR) (56Q ...) ( 72Q "%". Assumed this was not part of header, and inserted blank line before it. If this is correct, press 'Deliver' again, else edit the message appropriately." 34Q "Header not understood: %"") \LAFITE.CHOOSE.MSG.FORMAT D1 (P 0 FORMATTING I 2 EDITORWINDOW I 1 HEADEREOF I 0 TEXTSTREAM) x@ HggBgE``o oHdgogoHgoo dgdgggh(135Q \SENDMESSAGE.MENUPROMPT 132Q CONCAT 51Q \LAFITE.CREATE.MENU 3 TEDIT.FORMATTEDFILEP) (161Q ABORT 155Q TEDIT 150Q TEDIT 141Q TEXT 114Q NSCHARS 101Q PARALOOKS 65Q CHARLOOKS 54Q LAFITEFORMATMENU 42Q LAFITEFORMATMENUITEMS 35Q LAFITEFORMATMENU 30Q TEDIT 20Q IMAGEOBJ 14Q TEXT) ( 127Q "unknown formatting" 122Q "extended characters" 107Q "paragraph formatting" 74Q "font information" 60Q "Message has " 46Q "Retain formatting information?") \SENDMESSAGE.MENUPROMPT D1 (P 2 REG P 1 RESULT P 0 PWINDOW I 2 PROMPT I 1 MENU I 0 EDITWINDOW) 8@ !H H BH JJJk A YH I(64Q CLEARW 55Q MENU 50Q \SETCURSORPOSITION 27Q PRIN1 21Q CLEARW 12Q \INSUREWINDOW 3 GETPROMPTWINDOW) NIL () \SENDMESSAGEFAIL D1 (P 0 PWINDOW I 2 MESS2 I 1 MESS1 I 0 EDITORWINDOW) ,@#`H AH B g hH AB (50Q LA.ASSURE.PROMPT.WINDOW 40Q PRIN3 32Q RETFROM 21Q PRIN3 14Q CLEARW) (27Q \SENDMESSAGE.PARSE 5 PROMPTWINDOW) () \SENDMESSAGE D1 (I 2 FORMNAME I 1 TEDITPROPS I 0 FORM) @i ` @AhB (21Q \SENDMESSAGE.RESTARTABLE 12Q TTY.PROCESS 4 TEDIT.STREAMCHANGEDP) (7 \RUNNING.PROCESS) () \SENDMESSAGE.RESTARTABLEA0001 D1 (NAME ERRORSET F 0 CURRENTMESSAGE F 1 EDITORWINDOW) PQ h(4 \LAFITE.SAVE.FORM) NIL () \SENDMESSAGE.RESTARTABLE D1 (P 5 PARSE P 4 SENTOK P 3 DONE P 2 EDITORRESULT P 1 FIRSTTIME P 0 CURRENTMESSAGE I 3 FORMNAME I 2 EDITORWINDOW I 1 TEDITPROPS I 0 FORM F 6 RESETVARSLST) v@iB`gh BHhB b^`gg@ddi3 g@hAddi3 gAhBddi3 gBhh `gi BgC IgBhhhVc B`h`$` lg` @BiAg`g`h ```i Bgg Jdgdgdgihi[AJJddgHBJ] \go JJj KH LB i B BHM L(562Q \LAFITE.AFTER.DELIVER 553Q DETACHALLWINDOWS 544Q TEDIT.STREAMCHANGEDP 536Q CLOSEW 517Q SHADEITEM 503Q SHOULDNT 476Q \SENDMESSAGE.RESTARTABLEA0001 457Q \SENDMESSAGE0 363Q WINDOWDELPROP 350Q TTY.PROCESS 327Q TEDIT 324Q \APPEND2 273Q TEDIT.WORDSET 257Q TEDIT.WORDSET 240Q COPYREADTABLE 166Q PUTWINDOWPROP 155Q PROCESSPROP 142Q PROCESSPROP 26Q \SENDMESSAGE.MAKEWINDOW 16Q PROCESSPROP) (465Q ##SAVE## 440Q ##SEND## 406Q ##FORGETIT## 400Q ##SAVE## 372Q ##SEND## 360Q DON'T 355Q CLOSEFN 342Q \TTY.PROCESS 337Q \RUNNING.PROCESS 333Q \RUNNING.PROCESS 314Q LAFITE.WORDBOUND.READTABLE 311Q BOUNDTABLE 306Q LAFITEEDITORFONT 303Q FONT 270Q LAFITE.WORDBOUND.READTABLE 265Q TEXT 254Q LAFITE.WORDBOUND.READTABLE 251Q TEXT 243Q LAFITE.WORDBOUND.READTABLE 235Q TEDIT.WORDBOUND.READTABLE 230Q LAFITE.WORDBOUND.READTABLE 222Q LAFITECURRENTEDITORWINDOWS 216Q LAFITECURRENTEDITORWINDOWS 175Q \SENDMESSAGE.CLEANUP 162Q LAFITEFORM 151Q RESTARTABLE 146Q \RUNNING.PROCESS 126Q QUOTE 104Q QUOTE 62Q QUOTE 44Q \SENDMESSAGE.RESTARTABLE 41Q RESTARTFORM 36Q \RUNNING.PROCESS 12Q BEFOREEXIT 7 \RUNNING.PROCESS) ( 473Q (\SENDMESSAGE.RESTARTABLEA0001)) \SENDMESSAGE.CLEANUP D1 (I 0 EDITORWINDOW) @` @g (20Q PUTWINDOWPROP 6 REMOVE) (15Q MESSAGEFILE 11Q LAFITECURRENTEDITORWINDOWS 3 LAFITECURRENTEDITORWINDOWS) () \SENDMESSAGE.MAKEWINDOW D1 (P 1 EDITRESULT P 0 EDITWINDOW I 2 WINDOW I 1 TITLE I 0 MESSAGEFORM) @AobB a`hZ"hUAg`h6`l ,`[` K,iJd3ih` X`Hh XBHd HgA H  Hg Hk` Hgg Hgg Hggi Hg Hg Hgg Hg@ Hg` H g gH(365Q GETWINDOWUSERPROP 356Q ATTACHEDWINDOWS 352Q PUTWINDOWPROP 340Q PUTWINDOWPROP 330Q PUTWINDOWPROP 315Q PUTWINDOWPROP 305Q PUTWINDOWPROP 276Q WINDOWADDPROP 262Q WINDOWADDPROP 247Q WINDOWDELPROP 235Q GETPROMPTWINDOW 224Q ATTACHWINDOW 215Q MENUWINDOW 212Q MAKELAFITEDELIVERMENU 206Q ATTACHEDWINDOWS 202Q PUTWINDOWPROP 171Q CLEARW 154Q \NCONC2 142Q CREATEMENUEDWINDOW 102Q MEMB 63Q EQLENGTH 40Q MAKELAFITEDELIVERMENU 17Q WINDOWP) (371Q DOLAFITESENDINGCOMMAND 362Q MENU 347Q \RUNNING.PROCESS 344Q PROCESS 334Q MESSAGEFILE 325Q \LAFITE.UNSENT.ICON 322Q ICONFN 312Q ICONWINDOW 302Q ICON 272Q \LAFITE.CLOSEMSG? 267Q CLOSEFN 257Q DETACHALLWINDOWS 254Q CLOSEFN 244Q CLOSEATTACHEDWINDOWS 241Q CLOSEFN 232Q LAFITEEDITORFONT 221Q TOP 176Q TITLE 157Q LAFITEEDITORWINDOWS 146Q LAFITEEDITORWINDOWS 137Q LAFITEEDITORREGION 77Q LAFITECURRENTEDITORWINDOWS 70Q LAFITEEDITORREGION 56Q LAFITEEDITORREGION 47Q LAFITEEDITORWINDOWS 44Q TOP 24Q LAFITEEDITORWINDOWS) ( 11Q "Message Editor") MAKELAFITEDELIVERMENU D1 NIL B`d`di d`dgdg dgjdndhHdI NIL (50Q DEFAULTMENUHELDFN 41Q CLRPROMPT 32Q DOLAFITESENDINGCOMMAND 23Q LAFITEMENUFONT 7 LAFITESENDINGMENUITEMS 2 MENUTYPE#) () \LAFITE.CLOSEMSG? D1 (P 0 TEXTSTREAM I 0 WINDOW) ,@g Hd hoi@ Hi hg(44Q TEDIT.STREAMCHANGEDP 36Q MOUSECONFIRM 33Q GETPROMPTWINDOW 17Q TEDIT.STREAMCHANGEDP 6 GETWINDOWUSERPROP) (51Q DON'T 3 TEXTSTREAM) ( 26Q "Message has been edited -- LEFT to flush anyway") \LAFITE.AFTER.DELIVER D1 (I 2 PARSE I 1 TEXTSTREAM I 0 EDITORWINDOW) AB` @ (16Q CLOSEW 12Q \OUTBOX.ADD.ITEM) (7 UNSUPPLIEDFIELDSTR) () \LAFITE.UNSENT.ICON D1 (I 1 OLDICON I 0 WINDOW F 0 LAFITEMSGICONFONT) &```h@g P@g i (43Q TITLEDICONW 36Q GETWINDOWUSERPROP 26Q \LAFITE.FETCH.SUBJECT 23Q GETWINDOWUSERPROP) (33Q ICONPOSITION 20Q TEXTSTREAM 10Q MSGUNSENTREGION 5 MSGUNSENTMASK 2 MSGUNSENTICON) () \LAFITE.FETCH.SUBJECTA0001 D1 (NAME ERRORSET P 0 STR F 1 TEXTSTREAM F 2 RESETVARSLST F 3 RESETY) HgQgQg hhhRcQgg Q`jhi H` `Hci(73Q STRING-EQUAL 61Q LAFITE.PARSE.HEADER 45Q SETFILEINFO 15Q GETFILEINFO) (77Q UNSUPPLIEDFIELDSTR 70Q SUBJECTSTR 52Q \LAPARSE.SUBJECTFIELD 42Q \LAFITE.EOF 37Q ENDOFSTREAMOP 12Q ENDOFSTREAMOP 6 ENDOFSTREAMOP 2 SETFILEINFO) () \LAFITE.FETCH.SUBJECT D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 TEXTSTREAM F 3 LISPXHIST F 4 RESETVARSLST) %@"S!Tog hgZ JI(40Q ERROR! 33Q RESETRESTORE 21Q \LAFITE.FETCH.SUBJECTA0001) (27Q ERROR 16Q INTERNAL) ( 13Q (\LAFITE.FETCH.SUBJECTA0001)) LAFITE.SENDMESSAGE D1 (P 0 PARSE I 0 MESSAGEFORM) @ b H`@HlI(10Q \SENDMESSAGE.PARSE 3 OPENTEXTSTREAM) (21Q \LAFITEMODE) () \SENDMESSAGE0A0009A0010 D1 (NAME ERRORSET L (0 NIL) F 1 TEXTSTREAM F 2 PARSE F 3 RESETY F 4 WINDOW F 5 MENUW) `QRTUlHciNIL (2 \LAFITEMODE) () \SENDMESSAGE0A0009 D1 (NAME ERRORSET P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) &S!Tog hgZ JIh(36Q ERROR! 30Q RESETRESTORE 16Q \SENDMESSAGE0A0009A0010) (24Q ERROR 13Q INTERNAL) ( 10Q (\SENDMESSAGE0A0009A0010)) \SENDMESSAGE0 D1 (P 7 W P 4 RESULT P 3 ABORTMENU P 2 OLDMENU P 1 MENUW P 0 PWINDOW I 2 PARSE I 1 WINDOW I 0 TEXTSTREAM) A QA Noi \do_g ZjOJhI `dodgd`di dg dgjdndhdM d J [Io vN^m\oH L"Ig KhI JIo Ig h(322Q PUTWINDOWPROP 313Q ADDMENU 301Q DELETEMENU 272Q GETWINDOWUSERPROP 257Q PRIN1 232Q ADDMENU 77Q DELETEMENU 62Q GETWINDOWUSERPROP 32Q \SENDMESSAGE0A0009 12Q ATTACHEDWINDOWS 3 GETPROMPTWINDOW) (317Q ABORT 267Q MENU 212Q MENU 202Q MENU 152Q DEFAULTMENUHELDFN 143Q CLRPROMPT 127Q LAFITEMENUFONT 120Q \SENDMESSAGE.ABORT 103Q MENUTYPE# 57Q MENU) ( 310Q (0 . 0) 253Q "done." 227Q (0 . 0) 111Q (("Abort" NIL "Abort delivery of this message")) 46Q "aborted." 26Q (\SENDMESSAGE0A0009)) LA.ASSURE.PROMPT.WINDOW D1 (P 1 #LINES P 0 PWINDOW I 2 MESS2 I 1 MESS1 I 0 MAINWINDOW) .@ AH BjHg Yj@Ik H H(50Q STRINGWIDTH 43Q GETPROMPTWINDOW 27Q GETWINDOWPROP 13Q STRINGWIDTH 3 GETPROMPTWINDOW) (24Q WIDTH) () \LAFITE.SEND.FAIL D1 (P 1 PWINDOW P 0 FULLMSG I 1 ERRMSG I 0 EDITORWINDOW) (oA @`Y HI hH Y (44Q CLEARW 40Q LA.ASSURE.PROMPT.WINDOW 32Q PRIN3 24Q TERPRI 7 CONCAT) (20Q PROMPTWINDOW) ( 3 "Delivery failed -- ") \LAFITE.INVALID.RECIPIENTS D1 (P 0 NAME I 0 NAMES) H 0@doIhZK'J\[LXdo@oHoH  [J(101Q LAST 75Q CONCATLIST) NIL ( 70Q "Invalid recipient" 61Q "s" 51Q ": " 17Q ", ") \SENDMESSAGE.ABORT D1 (P 0 W I 2 KEY I 1 MENU I 0 ITEM) A Hgi @A` h(26Q SHADEITEM 16Q PUTWINDOWPROP 3 WFROMMENU) (23Q LAFITEITEMBUSYSHADE 12Q ABORT) () \OUTBOX.CREATE D1 (P 3 FONTHEIGHT P 2 W P 1 NLINES P 0 FONT) @``YdIjh`X[jd`g IKi ohi Zd`ggg HJ Jgg Jgg Jgg Jgg JgjKi  JIKHhdh (243Q \OUTBOX.RESET 216Q PUTWINDOWPROP 212Q HEIGHTIFWINDOW 200Q PUTWINDOWPROP 166Q PUTWINDOWPROP 154Q PUTWINDOWPROP 142Q WINDOWADDPROP 130Q DSPFONT 123Q ATTACHWINDOW 101Q CREATEW 70Q CREATEREGION 65Q HEIGHTIFWINDOW 56Q GETWINDOWPROP) (246Q \LAFITE.OUTBOX 225Q FONTDESCRIPTOR 204Q MINSIZE 175Q \OUTBOX.RESHAPEFN 172Q RESHAPEFN 163Q \OUTBOX.BUTTONFN 160Q BUTTONEVENTFN 151Q \OUTBOX.REPAINTFN 146Q REPAINTFN 137Q \OUTBOX.CLOSEFN 134Q CLOSEFN 117Q LOCALCLOSE 114Q JUSTIFY 111Q BOTTOM 106Q LAFITESTATUSWINDOW 53Q WIDTH 50Q LAFITESTATUSWINDOW 40Q FONTDESCRIPTOR 34Q LAFITEBROWSERFONT 12Q LAFITEOUTBOXSIZE 5 LAFITESTATUSWINDOW) ( 74Q "Delivered Messages") \OUTBOX.RESET D1 (P 0 WINDOW I 0 OUTBOX) *@H nH nH @hH @@(40Q DSPYPOSITION 26Q DSPRIGHTMARGIN 17Q LINELENGTH 10Q CLEARW) NIL () \OUTBOX.CLOSEFN D1 (L (0 WINDOW)) hNIL (3 \LAFITE.OUTBOX) () \OUTBOX.REPAINTFN D1 (P 1 ITEM P 0 OUTBOX I 1 REGION I 0 WINDOW) <`@H0jHH@ HdHI @ h(63Q TERPRI 56Q \OUTBOX.DISPLAYLINE 33Q MOVETO) (2 \LAFITE.OUTBOX) () \OUTBOX.RESHAPEFN D1 (P 3 ITEMS P 2 N P 1 OLDSIZE P 0 NLINES I 3 OLDSCREENREGION I 2 IMAGEREGION I 1 OLDIMAGE I 0 WINDOW) _@`W@g ``"HI1`HIH%`[ HZj`KJ ` @ h(133Q REDISPLAYW 127Q \OUTBOX.RESET 116Q NTH 73Q LENGTH 16Q GETWINDOWPROP) (124Q \LAFITE.OUTBOX 104Q \LAFITE.OUTBOX 61Q \LAFITE.OUTBOX 45Q \LAFITE.OUTBOX 30Q \LAFITE.OUTBOX 21Q \LAFITE.OUTBOX 13Q HEIGHT 3 \LAFITE.OUTBOX) () \OUTBOX.SHADEITEM D1 (P 1 HEIGHT P 0 W I 4 OPERATION I 3 SHADE I 2 N I 1 ITEM I 0 OUTBOX) 9@hddHj@B@Y@hIgDC Dg @AB h(65Q \OUTBOX.DISPLAYLINE 50Q BKBITBLT) (54Q REPLACE 42Q TEXTURE) () \OUTBOX.BUTTONFN D1 (P 13Q MAXITEM P 12Q LASTY P 11Q LASTX P 10Q DESCENT P 7 ORIGIN P 6 HEIGHT P 5 ITEMS P 4 NEWSEL# P 3 SEL# P 2 SELECTED P 1 OUTBOX P 0 SELECTIONREGION I 0 WINDOW)  h@ ` I]@IhM _I^I_I_H@ _@ _ OOONk\O&JIJKng h[`lj`ljJJgJ _ddidd gOhhgig IJKng ILK^JIJKng IML[ ZKng 6(376Q \OUTBOX.SHADEITEM 361Q NTH 351Q \OUTBOX.SHADEITEM 317Q \OUTBOX.SHADEITEM 301Q \LAFITE.PROCESS 226Q COPYTEXTSTREAM 176Q BLOCK 155Q \OUTBOX.SHADEITEM 111Q INSIDEP 104Q LASTMOUSEY 76Q LASTMOUSEX 70Q GETMOUSESTATE 37Q LENGTH 4 DSPCLIPPINGREGION) (372Q INVERT 345Q INVERT 313Q INVERT 276Q NO 272Q MESSAGESENDER 257Q QUOTE 221Q \SENDMESSAGE 204Q LASTMOUSEBUTTONS 164Q LASTMOUSEBUTTONS 151Q INVERT 7 \LAFITE.OUTBOX) () \OUTBOX.DISPLAYLINE D1 (P 0 W I 2 N I 1 ITEM I 0 OUTBOX) 5@Bj@B@H AH lH AH h(61Q PRIN1 50Q SPACES 41Q PRIN1 31Q MOVETO) NIL () \OUTBOX.ADD.ITEM D1 (P 6 ITEMS P 5 HEIGHT P 4 BOTTOM P 3 ITEM P 2 N P 1 W P 0 OUTBOX I 1 SUBJECT I 0 TEXTSTREAM) `aHd^ ZdHQHN^HYjHJH]H\IjLMhMJkgg hddIjLhMggj kZHN@o Ahh[h HKJ h(231Q \OUTBOX.DISPLAYLINE 222Q \NCONC2 205Q DATE 161Q BKBITBLT 135Q BKBITBLT 32Q LENGTH 7 \OUTBOX.CREATE) (154Q REPLACE 151Q TEXTURE 131Q REPLACE 126Q INPUT 2 \LAFITE.OUTBOX) ( 202Q (DATEFORMAT NO.DATE NO.SECONDS)) \LAFITE.MESSAGEFORMA0001 D1 (NAME ERRORSET P 3 REALFORMNAME P 2 FULLNAME P 1 FORMNAME P 0 FORM F 4 ITEM F 5 MENU F 6 BUTTON F 7 RESETY) `TTU @VgZ`o `` o  XgY(H H XH H-HI^I` Z [/`gIg` i` [ghgK ZJ` J`ihK gHddidd gHhhIddidd gIhhgggg hci` J` o` J` J` ih(517Q DREMOVE 506Q MEMB 476Q PRIN1 463Q PRIN1 453Q TERPRI 436Q ADD.PROCESS 314Q \LAFITE.READ.FORM 263Q MEMB 252Q PACKFILENAME 232Q FINDFILE 223Q PACKFILENAME 174Q INFILEP 170Q LA.LONGFILENAME 152Q MAKENEWMESSAGEFORM 142Q BOUNDP 130Q APPLY 123Q DEFINEDP 111Q PROMPTFORFILENAME 73Q MENU 65Q \LAFITE.CREATE.MENU 56Q \APPEND2 53Q \APPEND2 42Q MAKELAFITEPRIVATEFORMSITEMS 23Q MAKENEWMESSAGEFORM 6 LA.RESETSHADE) (534Q LAFITEFORMSMENU 527Q \LAFITEPROFILECHANGED 522Q LAFITEFORMFILES 514Q LAFITEFORMFILES 503Q LAFITEFORMFILES 473Q PROMPTWINDOW 460Q PROMPTWINDOW 450Q PROMPTWINDOW 432Q NO 427Q RESTARTABLE 424Q MESSAGESENDER 421Q NAME 405Q QUOTE 350Q QUOTE 320Q \SENDMESSAGE 307Q LAFITEFORMSMENU 302Q \LAFITEPROFILECHANGED 275Q LAFITEFORMFILES 271Q LAFITEFORMFILES 260Q LAFITEFORMFILES 246Q BODY 242Q VERSION 227Q LAFITEFORMDIRECTORIES 220Q LAFITEFORM.EXT 215Q EXTENSION 211Q BODY 202Q LAFITEFORMDIRECTORIES 165Q LAFITEFORM.EXT 104Q ##ANOTHERFORM## 70Q LAFITEFORMSMENU 50Q LAFITEFORMSMENUITEMS 45Q LAFITESPECIALFORMS 31Q LAFITEFORMSMENU 16Q LEFT) ( 470Q " not found." 62Q "Message Forms" 37Q "Use the form defined in this file.") \LAFITE.MESSAGEFORM D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 BUTTON I 1 MENU I 0 ITEM F 3 LISPXHIST F 4 RESETVARSLST) =`` o` S!Tog hgZ JI(70Q ERROR! 63Q RESETRESTORE 51Q \LAFITE.MESSAGEFORMA0001 31Q PRIN1 17Q TERPRI 7 \LAFITE.INFER.MODE) (57Q ERROR 46Q INTERNAL 26Q PROMPTWINDOW 14Q PROMPTWINDOW 2 \LAFITEMODE) ( 43Q (\LAFITE.MESSAGEFORMA0001) 23Q "Must set Lafite Mode before sending mail") MAKELAFITESUPPORTFORM D1 NIL o`` (14Q MAKEXXXSUPPORTFORM) (11Q LAFITESYSTEMDATE 6 LAFITESUPPORT) ( 3 "Lafite") MAKELISPSUPPORTFORM D1 NIL o` (11Q MAKEXXXSUPPORTFORM) (6 LISPSUPPORT) ( 3 "Lisp") MAKEXXXSUPPORTFORM D1 (P 3 SELECTPOSITION P 2 OUTSTREAM P 1 UCODEVERSION P 0 SUBJFIELD I 2 SYSTEMDATE I 1 ADDRESS I 0 SYSTEMNAME) o"Ad`A b(` o` @` o` hohddg`h ZoJ @J oJ J k[HJ J oJ AJ J oJ J J J B@J oJ BJ J oJ `J J oJ `.i `i`ohi o `J J oJ oIJ oJ oIlJ J oJ oJ J oJ J J oJ J JKH gi J(625Q TEDIT.SETSEL 615Q NCHARS 607Q TERPRI 602Q PRIN1 572Q TERPRI 565Q TERPRI 560Q PRIN1 550Q TERPRI 543Q PRINTNUM 537Q REALMEMORYSIZE 527Q PRIN1 517Q TERPRI 512Q PRINTNUM 475Q PRIN1 464Q PRINTNUM 451Q PRIN1 441Q TERPRI 434Q PRIN1 421Q CONCAT 412Q ETHERHOSTNAME 363Q L-CASE 357Q MACHINETYPE 346Q PRIN1 336Q TERPRI 331Q PRIN1 321Q PRIN1 310Q TERPRI 303Q PRIN1 275Q PRIN1 264Q PRIN1 254Q TERPRI 247Q TERPRI 242Q PRIN1 236Q FULLUSERNAME 232Q PRIN1 222Q TERPRI 215Q PRIN1 207Q PRIN1 177Q TERPRI 172Q PRIN1 162Q GETFILEPTR 156Q PRIN1 145Q PRIN1 137Q PRIN1 126Q OPENTEXTSTREAM 100Q PRIN1 65Q PRIN1 55Q PRIN1 42Q TERPRI 26Q ASSOC 6 MICROCODEVERSION) (620Q RIGHT 430Q \LAFITE.REPORT.MACHINE 424Q \LAFITE.REPORT.MACHINE 401Q \LAFITE.REPORT.MACHINE 372Q \PUP.READY 366Q \LAFITE.REPORT.MACHINE 352Q \LAFITE.REPORT.MACHINE 325Q MAKESYSDATE 117Q LAFITEEDITORFONT 114Q FONT 75Q PROMPTWINDOW 62Q PROMPTWINDOW 52Q PROMPTWINDOW 37Q PROMPTWINDOW 21Q \LAFITEMODE) ( 576Q ">>detailed problem description<<" 554Q "Frequency: >> Always, Intermittent, Once << Impact: >> Fatal, Serious, Moderate, Annoying, Minor <<" 534Q (FIX 4 10Q) 523Q "Memory size: " 502Q (FIX 1 10Q) 471Q "," 456Q (FIX 1 10Q) 445Q "Microcode version: " 416Q ")" 405Q " (" 342Q "Machine: " 315Q "Lisp System Date: " 271Q " System Date: " 226Q "cc: " 203Q "To: " 152Q ": " 133Q "Subject: " 106Q "" 72Q " report." 47Q "Can't -- no address known for " 3 ">>Terse summary of problem<<") MAKENEWMESSAGEFORM D1 (P 1 SELECTPOSITION P 0 OUTSTREAM)  ohddg`h XoH H kY`H H oH `H H oH H H H `H H HI` gi H(175Q TEDIT.SETSEL 165Q NCHARS 155Q TERPRI 150Q PRIN1 141Q TERPRI 134Q TERPRI 127Q PRIN1 123Q FULLUSERNAME 117Q PRIN1 107Q TERPRI 102Q PRIN1 72Q PRIN1 62Q TERPRI 55Q PRIN1 43Q GETFILEPTR 37Q PRIN1 26Q OPENTEXTSTREAM) (170Q RIGHT 162Q SUBJECTSTR 144Q MESSAGESTR 76Q RECIPIENTSSTR 51Q SUBJECTSTR 17Q LAFITEEDITORFONT 14Q FONT) ( 113Q "cc: " 66Q "To: " 33Q "Subject: " 6 "") MAKELAFITEPRIVATEFORMSITEMS D1 (P 3 FORMFILE I 0 HELPSTR) Z0` CdKd.` Kddidd gKh@hhXI HZYJ YH(123Q LAST 34Q L-CASE 31Q LA.SHORTFILENAME 10Q SORT) (64Q QUOTE 26Q LAFITEFORM.EXT 5 LAFITEFORMFILES) () \LAFITE.UNCACHE.MESSAGEFORM D1 (P 0 FORM I 1 MENU I 0 ITEM) Y`` o>o o Xd0` ih` H` o` h(125Q PRIN1 112Q PRIN1 102Q TERPRI 56Q DREMOVE 44Q MENU 41Q \LAFITE.CREATE.MENU 32Q MAKELAFITEPRIVATEFORMSITEMS 14Q TERPRI) (122Q PROMPTWINDOW 107Q PROMPTWINDOW 77Q PROMPTWINDOW 73Q LAFITEFORMSMENU 66Q \LAFITEPROFILECHANGED 61Q LAFITEFORMFILES 53Q LAFITEFORMFILES 11Q PROMPTWINDOW 5 LAFITEFORMFILES) ( 117Q " forgotten." 36Q "Private Forms" 27Q "Forget about this message form" 21Q "You have no private message forms") \LAFITE.READ.FORM D1 (P 5 J P 4 I P 3 OPENMARKER P 2 CH P 1 NAME P 0 TEXTSTREAM I 0 FILE) 0@g hddg`h Xdj H Zl"Jl H l"HkH k Hd k okHKL \EHoLkLlF ]3HKLkM (HMk HoM HLk HoL MkHoL \IHLl HIL HL H H(321Q \LAFITE.FIND.TEMPLATE 311Q SETFILEPTR 303Q TEDIT.INSERT 274Q TEDIT.DELETE 264Q FULLUSERNAME 254Q TEDIT.FIND 231Q TEDIT.INSERT 217Q TEDIT.DELETE 210Q TEDIT.INSERT 176Q TEDIT.DELETE 166Q TEDIT.FIND 152Q TEDIT.FIND 130Q TEDIT.FIND 111Q TEDIT.DELETE 105Q GETEOFPTR 77Q TEDIT.DELETE 72Q GETFILEPTR 37Q SETFILEPTR 31Q OPENTEXTSTREAM 11Q COPYFILE) (22Q LAFITEEDITORFONT 17Q FONT 6 {NODIRCORE}) ( 250Q ">>Self<<" 225Q ">>" 204Q "<<" 140Q "" 116Q "") \LAFITE.FIND.TEMPLATE D1 (P 0 SELECTSTART I 0 TEXTSTREAM) >@okhi X @kjg @H@oH Hlgi i(66Q TEDIT.SETSEL 51Q TEDIT.FIND 32Q TEDIT.SETSEL 16Q TEDIT.FIND) (61Q RIGHT 27Q LEFT) ( 45Q "<<" 7 ">>*<<") \LAFITE.SAVE.FORM D1 (P 3 FORMFILE P 2 PWINDOW P 1 FORMNAME P 0 PROMPT I 1 WINDOW I 0 MSG) oAg "IVAHIo ZdIH [d ` Ygg J oJ K J @ @gK ` @Kjm K K oJ I` `Ih ihK(233Q \APPEND2 220Q MEMB 210Q PRIN1 177Q CLOSEF 172Q OPENP 165Q COPYBYTES 152Q LA.SHORTFILENAME 142Q COERCETEXTOBJ 130Q TEDIT.FORMATTEDFILEP 123Q PRIN1 117Q FULLNAME 112Q PRIN1 101Q TERPRI 74Q OPENSTREAM 62Q LA.LONGFILENAME 54Q U-CASE 43Q PROMPTFORFILENAME 34Q LA.ASSURE.PROMPT.WINDOW 12Q GETWINDOWUSERPROP) (250Q LAFITEFORMSMENU 243Q \LAFITEPROFILECHANGED 236Q LAFITEFORMFILES 225Q LAFITEFORMFILES 215Q LAFITEFORMFILES 147Q LAFITEFORM.EXT 136Q FILE 71Q NEW 66Q BOTH 57Q LAFITEFORM.EXT 7 LAFITEFORM) ( 204Q " .. done." 106Q "Saving " 31Q "XXX" 3 "Save form under name: ") \LAFITE.ANSWER D1 (I 3 MENU I 2 ITEM I 1 FOLDERDATA I 0 WINDOW) g@ddidd g@hAddidd gAhBddidd gBhCddidd gChhgggg (210Q ADD.PROCESS) (204Q NO 201Q RESTARTABLE 176Q MESSAGEANSWERER 173Q NAME 156Q QUOTE 122Q QUOTE 66Q QUOTE 32Q QUOTE 2 \LAFITE.ANSWER.PROC) () \LAFITE.ANSWER.PROCA0001A0002 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 3 MAILFOLDER F 4 MSGDESCRIPTOR F 5 RESETY) JS hi S S 2SSkSIkYJHI(d j𒿰ihcS hc i(102Q MAKEANSWERFORM 21Q LAB.ASSURE.SELECTIONS 14Q \LAFITE.MAYBE.CLEAR.PROMPT 7 OBTAIN.MONITORLOCK) NIL () \LAFITE.ANSWER.PROCA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 ITEM F 4 MENU F 5 RESETY F 6 LISPXHIST F 7 RESETVARSLST) .ST V!Wog hgZ JIc i(45Q ERROR! 37Q RESETRESTORE 25Q \LAFITE.ANSWER.PROCA0001A0002 4 LA.RESETSHADE) (33Q ERROR 22Q INTERNAL) ( 17Q (DUMMY.FOR.ERRORSET)) \LAFITE.ANSWER.PROCA0003 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 MESSAGES F 1 MAILFOLDER F 2 MSGDESCRIPTOR F 3 RESETY) +Q hi QHRHR( RQ` hci(42Q MARKMESSAGE 7 OBTAIN.MONITORLOCK) (37Q ANSWERMARK) () \LAFITE.ANSWER.PROC D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 FORM P 0 MSGDESCRIPTOR I 3 MENU I 2 ITEM I 1 MAILFOLDER I 0 WINDOW F 5 LISPXHIST F 6 RESETVARSLST) R U!Vog hg\ LKYd)d #U!Vog hg\ Lh(116Q ERROR! 107Q RESETRESTORE 75Q \LAFITE.ANSWER.PROCA0003 54Q \SENDMESSAGE 41Q ERROR! 33Q RESETRESTORE 21Q \LAFITE.ANSWER.PROCA0001) (103Q ERROR 72Q INTERNAL 27Q ERROR 16Q INTERNAL) ( 67Q (DUMMY.FOR.ERRORSET) 13Q (DUMMY.FOR.ERRORSET)) MAKEANSWERFORM D1 (I 1 MAILFOLDER I 0 MSGDESCRIPTORS) `@AlHNIL (2 \LAFITEMODE) () \LAFITE.FORWARD D1 (I 3 MENU I 2 ITEM I 1 MAILFOLDER I 0 WINDOW) g@ddidd g@hAddidd gAhBddidd gBhCddidd gChhgggg (210Q ADD.PROCESS) (204Q NO 201Q RESTARTABLE 176Q MESSAGEFORWARDER 173Q NAME 156Q QUOTE 122Q QUOTE 66Q QUOTE 32Q QUOTE 2 \LAFITE.FORWARD.PROC) () \LAFITE.FORWARD.PROCA0001A0002 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 6 MAILFOLDER F 7 ITEM F 10Q MENU F 11Q RESETY F 12Q WINDOW F 13Q FORWARDEDMSGS F 14Q FORM) YWW V V BWVdVkV3IkYJHI(d j𒿰L Mh\M&Kc chci(117Q MAKEFORWARDFORM 20Q LAB.ASSURE.SELECTIONS 13Q \LAFITE.MAYBE.CLEAR.PROMPT 6 LA.RESETSHADE) NIL () \LAFITE.FORWARD.PROCA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 MAILFOLDER F 4 LISPXHIST F 5 RESETVARSLST F 6 RESETY) 0S hi T!Uog hgZ JIc i(47Q ERROR! 41Q RESETRESTORE 27Q \LAFITE.FORWARD.PROCA0001A0002 7 OBTAIN.MONITORLOCK) (35Q ERROR 24Q INTERNAL) ( 21Q (DUMMY.FOR.ERRORSET)) \LAFITE.FORWARD.PROCA0003 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 MSG P 0 MESSAGES F 3 MAILFOLDER F 4 FORWARDEDMSGS F 5 RESETY) 4S hi S!HTYhc iZdHJ(S` I(55Q MARKMESSAGE 7 OBTAIN.MONITORLOCK) (52Q FORWARDMARK) () \LAFITE.FORWARD.PROC D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 FORM P 0 FORWARDEDMSGS I 3 MENU I 2 ITEM I 1 MAILFOLDER I 0 WINDOW F 5 LISPXHIST F 6 RESETVARSLST) P U!Vog hg\ LId( #U!Vog hg\ Lh(114Q ERROR! 105Q RESETRESTORE 73Q \LAFITE.FORWARD.PROCA0003 52Q \SENDMESSAGE 41Q ERROR! 33Q RESETRESTORE 21Q \LAFITE.FORWARD.PROCA0001) (101Q ERROR 70Q INTERNAL 27Q ERROR 16Q INTERNAL) ( 65Q (DUMMY.FOR.ERRORSET) 13Q (DUMMY.FOR.ERRORSET)) MAKEFORWARDFORM D1 (P 10Q NTHTIME P 7 MSGDESCRIPTOR P 5 SELECTLEN P 4 SELECTPOSITION P 3 SUBJECT P 2 CURMSG P 1 OUTSTREAM P 0 FOLDER I 2 MESSAGELIST I 1 FOLDERDATA I 0 WINDOW) F Ag ohddg`h B3JjJA nI oI `J [I kؼ``[ K&oI J I oI KI oI I oI LI kؼ` `I I oI I I I `I I B!NI`i ILMgi I_O`I I i_Id kjg I HOOOO I N^(476Q TERPRI 471Q TEDIT.INCLUDE 443Q TEXTOBJ 436Q TEDIT.SETSEL 425Q GETEOFPTR 413Q TERPRI 406Q PRIN1 364Q TEDIT.SETSEL 351Q TEDIT.INSERT 325Q TERPRI 320Q PRIN1 307Q TERPRI 303Q TERPRI 276Q PRIN1 272Q FULLUSERNAME 266Q PRIN1 256Q TERPRI 251Q PRIN1 241Q NCHARS 230Q GETFILEPTR 222Q PRIN1 211Q TERPRI 204Q PRIN1 173Q PRIN1 165Q PRIN1 154Q PRIN1 144Q PRIN1 130Q NCHARS 111Q GETFILEPTR 73Q PRIN1 63Q LINELENGTH 53Q LAFITE.PARSE.MSG.FOR.TOC 32Q OPENTEXTSTREAM 6 \LAFITE.OPEN.FOLDER) (433Q RIGHT 400Q LAFITEFORWARDSTRINGS 357Q RIGHT 342Q LAFITEFORWARDSTRINGS 313Q LAFITEFORWARDSTRINGS 245Q RECIPIENTSSTR 236Q RECIPIENTSSTR 124Q SUBJECTSTR 117Q LAFITEFORWARDSUBJECTSTR 76Q LAFITEFORWARDSUBJECTSTR 23Q LAFITEEDITORFONT 20Q FONT 3 INPUT) ( 262Q "cc: " 216Q "To: " 200Q "]" 161Q ": " 140Q "[" 67Q "Subject: " 12Q "") (PRETTYCOMPRINT LAFITESENDCOMS) (RPAQQ LAFITESENDCOMS ((COMS (* Sending mail) (FNS DOLAFITESENDINGCOMMAND \SENDMESSAGE.INITIATE \SENDMESSAGE.PARSE \LAFITE.PREPARE.SEND \LAFITE.PREPARE.ERROR \LAFITE.CHOOSE.MSG.FORMAT \SENDMESSAGE.MENUPROMPT \SENDMESSAGEFAIL) (FNS \SENDMESSAGE \SENDMESSAGE.RESTARTABLE \SENDMESSAGE.CLEANUP \SENDMESSAGE.MAKEWINDOW MAKELAFITEDELIVERMENU \LAFITE.CLOSEMSG? \LAFITE.AFTER.DELIVER \LAFITE.UNSENT.ICON \LAFITE.FETCH.SUBJECT LAFITE.SENDMESSAGE \SENDMESSAGE0 LA.ASSURE.PROMPT.WINDOW \LAFITE.SEND.FAIL \LAFITE.INVALID.RECIPIENTS \SENDMESSAGE.ABORT)) (COMS (* "Outbox hacking") (FNS \OUTBOX.CREATE \OUTBOX.RESET \OUTBOX.CLOSEFN \OUTBOX.REPAINTFN \OUTBOX.RESHAPEFN \OUTBOX.SHADEITEM \OUTBOX.BUTTONFN \OUTBOX.DISPLAYLINE \OUTBOX.ADD.ITEM) (INITVARS ( LAFITEOUTBOXSIZE 2) (\LAFITE.OUTBOX)) (DECLARE: EVAL@COMPILE DONTCOPY (RECORDS OUTBOX OUTBOXITEM) ( GLOBALVARS LAFITEOUTBOXSIZE \LAFITE.OUTBOX))) (COMS (* FORMS) (FNS \LAFITE.MESSAGEFORM MAKELAFITESUPPORTFORM MAKELISPSUPPORTFORM MAKEXXXSUPPORTFORM MAKENEWMESSAGEFORM MAKELAFITEPRIVATEFORMSITEMS \LAFITE.UNCACHE.MESSAGEFORM \LAFITE.READ.FORM \LAFITE.FIND.TEMPLATE \LAFITE.SAVE.FORM)) (COMS (* ANSWER) (FNS \LAFITE.ANSWER \LAFITE.ANSWER.PROC MAKEANSWERFORM)) (COMS (* FORWARD) (FNS \LAFITE.FORWARD \LAFITE.FORWARD.PROC MAKEFORWARDFORM)) (COMS (VARS LAFITESENDINGMENUITEMS LAFITEFORMSMENUITEMS LAFITEFORMATMENUITEMS) (ADDVARS (\SYSTEMCACHEVARS \LAFITE.REPORT.MACHINE) (LAFITESPECIALFORMS ("Lisp Report" (FUNCTION MAKELISPSUPPORTFORM) "A form to report a Lisp bug or suggestion") ("Lafite Report" (FUNCTION MAKELAFITESUPPORTFORM) "A form to report a Lafite bug or suggestion"))) (INITVARS (\LAFITE.REPORT.MACHINE) ( LAFITE.WORDBOUND.READTABLE) (LAFITEEDITORWINDOWS) (LAFITECURRENTEDITORWINDOWS) (LAFITEFORMFILES) ( LAFITEFORMSMENU) (LAFITEFORMATMENU)) (INITVARS (LAFITEEDITORFONT LAFITEDISPLAYFONT) (LAFITEFORM.EXT ( QUOTE LAFITE-FORM)) (LAFITEFORMDIRECTORIES) (LAFITEEDITORREGION (create REGION LEFT _ 485 BOTTOM _ 130 WIDTH _ 470 HEIGHT _ 470)) (LAFITEFORWARDSUBJECTSTR) (LAFITESUPPORT) (MESSAGESTR ">>Message<<") ( RECIPIENTSSTR ">>Recipients<<") (SUBJECTSTR ">>Subject<<") (LISPSUPPORT) (LAFITEFORWARDSTRINGS (QUOTE (">>CoveringMessage<< ----- Begin Forwarded Messages ----- " " ----- Next Message ----- " " ----- End Forwarded Messages -----"))))) (COMS (* ICON stuff *) (BITMAPS MSGUNSENTICON MSGUNSENTMASK) (VARS MSGUNSENTREGION)) (DECLARE: EVAL@COMPILE DONTCOPY (RECORDS SENDINGCOMMAND) ( GLOBALVARS LAFITE.WORDBOUND.READTABLE TEDIT.WORDBOUND.READTABLE \LAFITE.REPORT.MACHINE LAFITECURRENTEDITORWINDOWS LAFITEEDITORFONT LAFITEEDITORREGION LAFITEFORMATMENU LAFITEFORMSMENUITEMS LAFITEFORMATMENUITEMS LAFITEFORWARDSTRINGS LAFITEFORWARDSUBJECTSTR LAFITESENDINGMENUITEMS LAFITESPECIALFORMS LAFITESUPPORT LISPSUPPORT MAKESYSDATE MESSAGESTR RECIPIENTSSTR SUBJECTSTR MSGUNSENTICON MSGUNSENTMASK MSGUNSENTREGION LAFITEFORMDIRECTORIES)))) (RPAQ? LAFITEOUTBOXSIZE 2) (RPAQ? \LAFITE.OUTBOX) (RPAQQ LAFITESENDINGMENUITEMS (("Deliver" (QUOTE ##SEND##) "Send the message in the edit window") ( "Save Form" (QUOTE ##SAVE##) "Save the message in a file for later use as a private form"))) (RPAQQ LAFITEFORMSMENUITEMS (("Saved Form" (QUOTE ##ANOTHERFORM##) "You will be asked to specify a filename for the form") ("Standard Form" (FUNCTION MAKENEWMESSAGEFORM) "A clean message form"))) (RPAQQ LAFITEFORMATMENUITEMS (("Send Formatted Message" (QUOTE TEDIT)) ("Send Plain Text" (QUOTE TEXT) ) ("Abort" (QUOTE ABORT)))) (ADDTOVAR \SYSTEMCACHEVARS \LAFITE.REPORT.MACHINE) (ADDTOVAR LAFITESPECIALFORMS ("Lisp Report" (FUNCTION MAKELISPSUPPORTFORM) "A form to report a Lisp bug or suggestion") ("Lafite Report" (FUNCTION MAKELAFITESUPPORTFORM) "A form to report a Lafite bug or suggestion")) (RPAQ? \LAFITE.REPORT.MACHINE) (RPAQ? LAFITE.WORDBOUND.READTABLE) (RPAQ? LAFITEEDITORWINDOWS) (RPAQ? LAFITECURRENTEDITORWINDOWS) (RPAQ? LAFITEFORMFILES) (RPAQ? LAFITEFORMSMENU) (RPAQ? LAFITEFORMATMENU) (RPAQ? LAFITEEDITORFONT LAFITEDISPLAYFONT) (RPAQ? LAFITEFORM.EXT (QUOTE LAFITE-FORM)) (RPAQ? LAFITEFORMDIRECTORIES) (RPAQ? LAFITEEDITORREGION (create REGION LEFT _ 485 BOTTOM _ 130 WIDTH _ 470 HEIGHT _ 470)) (RPAQ? LAFITEFORWARDSUBJECTSTR) (RPAQ? LAFITESUPPORT) (RPAQ? MESSAGESTR ">>Message<<") (RPAQ? RECIPIENTSSTR ">>Recipients<<") (RPAQ? SUBJECTSTR ">>Subject<<") (RPAQ? LISPSUPPORT) (RPAQ? LAFITEFORWARDSTRINGS (QUOTE (">>CoveringMessage<< ----- Begin Forwarded Messages ----- " " ----- Next Message ----- " " ----- End Forwarded Messages -----"))) (RPAQ MSGUNSENTICON (READBITMAP)) (82 72 "@@@@@@@@@GO@@@@@@@@@@@@@" "@@@@@@@@AOOL@@@@@@@@@@@@" "@@@@@@@@GH@O@@@@@@@@@@@@" "@@@@@@@CN@@CL@@@@@@@@@@@" "@@@@@@@OH@@@OH@@@@@@@@@@" "@@@@@@CL@@@@CN@@@@@@@@@@" "@@@@@@O@@@@@@GH@@@@@@@@@" "@@@@@CL@@@@@@AN@@@@@@@@@" "@@@@AO@@@@@@@@GL@@@@@@@@" "@@@@GL@@@@@@@@AO@@@@@@@@" "@@@AN@@@@@@@@@@CL@@@@@@@" "@@@GH@@@@@@@@@@@O@@@@@@@" "@@CN@@@@@@@@@@@@CL@@@@@@" "@@OH@@@@@@@@@@@@@OH@@@@@" "@CL@@@@@@@@@@@@@@CN@@@@@" "@O@@@@@@@@@@@@@@@@GH@@@@" "CL@@@@@@@@@@@@@@@@AN@@@@" "O@@@@@@@@@@@@@@@@@@GH@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "O@@@@@@@@@@@@@@@@@@GL@@@" "ML@@@@@@@@@@@@@@@@ALL@@@" "LN@@@@@@@@@@@@@@@@CHL@@@" "LCH@@@@@@@@@@@@@@@N@L@@@" "LAL@@@@@@@@@@@@@@CL@L@@@" "L@G@@@@@@@@@@@@@@G@@L@@@" "L@CL@@@@@@@@@@@@AL@@L@@@" "L@@N@@@@@@@@@@@@CH@@L@@@" "L@@CH@@@@@@@@@@@N@@@L@@@" "L@@AL@@@@@@@@@@AL@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@@@@@@@@@@@@@@@@@@L@@@" "L@@N@@@@@@@@@@@@CH@@L@@@" "L@CL@@@@@@@@@@@@AL@@L@@@" "L@G@@@@@@@@@@@@@@G@@L@@@" "LAL@@@@@@@@@@@@@@CL@L@@@" "LCH@@@@@@@@@@@@@@@N@L@@@" "LN@@@@@@@@@@@@@@@@CHL@@@" "ML@@@@@@@@@@@@@@@@ALL@@@" "O@@@@@@@@@@@@@@@@@@GL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@") (RPAQ MSGUNSENTMASK (READBITMAP)) (82 72 "@@@@@@@@@GO@@@@@@@@@@@@@" "@@@@@@@@AOOL@@@@@@@@@@@@" "@@@@@@@@GOOO@@@@@@@@@@@@" "@@@@@@@COOOOL@@@@@@@@@@@" "@@@@@@@OOOOOOH@@@@@@@@@@" "@@@@@@COOOOOON@@@@@@@@@@" "@@@@@@OOOOOOOOH@@@@@@@@@" "@@@@@COOOOOOOON@@@@@@@@@" "@@@@AOOOOOOOOOOL@@@@@@@@" "@@@@GOOOOOOOOOOO@@@@@@@@" "@@@AOOOOOOOOOOOOL@@@@@@@" "@@@GOOOOOOOOOOOOO@@@@@@@" "@@COOOOOOOOOOOOOOL@@@@@@" "@@OOOOOOOOOOOOOOOOH@@@@@" "@COOOOOOOOOOOOOOOON@@@@@" "@OOOOOOOOOOOOOOOOOOH@@@@" "COOOOOOOOOOOOOOOOOON@@@@" "OOOOOOOOOOOOOOOOOOOOH@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOL@@@") (RPAQQ MSGUNSENTREGION (8 8 64 36)) (PUTPROPS LAFITESEND COPYRIGHT ("Xerox Corporation" 1984 1985 1986)) NIL