(FILECREATED "19-Sep-85 02:19:56" ("compiled on " {ERIS}MAILOMAT.;1) "19-Mar-85 14:34:17" tcompl'd in "INTERLISP-D 19-Jun-85 ..." dated "19-Jun-85 10:24:28") (FILECREATED "19-Sep-85 02:02:32" {ERIS}LISP>MAILOMAT.;3 124424 changes to: (FNS MAILOMAT.MENU.FN.APPLY MAILOMAT.PROCESS.FILE MAILOMAT.PARSEMAILFOLDER1) (VARS MAILOMATCOMS SEENFLAG DELETEDFLAG UNDELETEDFLAG) previous date: "18-Sep-85 08:38:53" {ERIS}MAILOMAT.;1) MAILOMAT.ADD.USER D1 (P 11Q TIMEPERIOD P 10Q ACTIVATION P 7 TIMEUNIT P 6 ENCODEDATE P 5 FIRING.MODE P 4 ENCODEDTIMEUNIT P 3 STARTIME P 2 USER.DATA P 1 ENCODED.USER.DATA P 0 OLD.USER.DATA I 1 USERNAME I 0 FORMWINDOW F 15Q MAILOMAT.USER.LIST) v ÐA@ Z@J Yd ³oAoh@ AW X²Hg¿IIgð´‚±Idgð²T¿gId´ddið³¿¿Id¥d¡µ gIhI_d²dið³d¥d¡µ gOhh±•gð¢±ŠgId´ddið³¿¿Id¥d¡µ gIhI_d²dið³d¥d¡µ gOhIIÚ_d²dið³d¥d¡µ gOhh‚ggAh AJWJ(562Q PUTASSOC 552Q ADD.PROCESS 547Q PACK 532Q SHOULDNT 56Q ASSOC 47Q MAILOMAT.PROMPT 24Q MAILOMAT.INIT.MAIL.USER 15Q MAILOMAT.ENCODE.USER.DATA 7 MAILOMAT.EXTRACT.FIELDS) (540Q MAILOMAT.PROCESS. 535Q NAME 514Q QUOTE 426Q QUOTE 357Q QUOTE 323Q MAILOMAT.PERIODIC.WAKEUP 313Q Fixed% Period 274Q QUOTE 226Q QUOTE 172Q MAILOMAT.TIME.OF.DAY.WAKEUP 163Q Time% of% Day 140Q On 101Q Off) ( 37Q " not authenticated." 32Q "User ") MAILOMAT.APPEND.TIME D1 (I 3 SECOND I 2 MINUTE I 1 HOUR I 0 LIST) @µABChhABChh (30Q \APPEND2) NIL () MAILOMAT.APPENDMESSAGES D1 (P 2 MSGDESCRIPTOR P 1 FIRSTMSG# P 0 LASTMSG# I 1 NEWMESSAGEDESCRIPTORS I 0 FOLDERDATA) V@ÈHkØY@@g 0A°dJHkÔXÍ¿J@ µè@HÍ@@ÉAIHh(120Q \LAFITE.ADDMESSAGES.TO.ARRAY 64Q LAFITE.PARSE.MSG.FOR.TOC 32Q GETEOFPTR 27Q \LAFITE.OPEN.FOLDER) (110Q MAILFOLDER 104Q MAILFOLDER 75Q MAILFOLDER 50Q LAFITEMSG 24Q INPUT 20Q MAILFOLDER 3 MAILFOLDER) () MAILOMAT.ENCODE.PERIODIC.PARAMS D1 (P 2 ENCODEDTIMEPERIOD P 1 ENCODEDTIMEUNIT P 0 ENCODEDSTARTIME I 1 RAW.USER.DATA I 0 FORMWINDOW) L0@A X´A@A Y´9A Zd¡µo@ jó²õgHgIgJh(61Q MAILOMAT.PROMPT 40Q MKATOM 17Q MAILOMAT.ENCODE.TIME.UNIT 7 MAILOMAT.ENCODE.START.TIME) (101Q ENCODEDTIMEPERIOD: 75Q ENCODEDTIMEUNIT: 71Q ENCODEDSTARTIME:) ( 55Q "Time Period must be a nonnegative integer.") MAILOMAT.ENCODE.START.TIME D1 (P 0 ENCODEDATE I 1 RAW.USER.DATA I 0 FORMWINDOW) 6A Xµ o@ ´HlØýó˜o@ H(61Q MAILOMAT.PROMPT 43Q IDATE 35Q MAILOMAT.PROMPT 22Q IDATE 17Q MKATOM) NIL ( 55Q "Specify a later Start Time." 31Q "Bad Start Time format, use %"DD-MMM-YY HH:MM:SS%"") MAILOMAT.ENCODE.TIME.UNIT D1 (I 1 RAW.USER.DATA I 0 FORMWINDOW) LA dgð¥dgð”odgð¥dgð”odgð¥dgð“nê`¿o@ (111Q MAILOMAT.PROMPT 16Q MKATOM) (72Q Minutes 64Q QUOTE 51Q Hours 43Q QUOTE 30Q Days 22Q QUOTE) ( 105Q "No Time Unit is selected." 57Q 15567200Q 36Q 511456000Q) MAILOMAT.ENCODE.TOD.PARAMS D1 (I 1 RAW.USER.DATA I 0 FORMWINDOW) F@A °#d[nÚKl<ÚKÔÔ¸IµHhZH&¹µÞJ µ o@ (103Q MAILOMAT.PROMPT 71Q SORT 16Q MAILOMAT.PARSE.TIME) NIL ( 77Q "Bad Firing Times.") MAILOMAT.ENCODE.USER.DATA D1 (P 5 HARDCOPY P 4 ENCODEDFIRINGTIMES P 3 ENCODEDPERIODICPARAMS P 2 FIRING.MODE P 1 ACTIVATION P 0 ENCODED.USER.DATA I 1 RAW.USER.DATA I 0 FORMWINDOW F 13Q USER.DATA F 14Q FIRINGMODE) "`W Ydgðš¿o@ hgð³sIgð²hW cdgðš¿@A [³hgð˜@A \¥h¿W ]gð²*A ³oAoh@ ¿P A A A A L_¿W_¿Kg _¿Kg _¿Kg ¾MA OOOONIA A(404Q COPYALL 351Q COPYALL 335Q LISTGET 323Q LISTGET 311Q LISTGET 271Q COPYALL 261Q COPYALL 252Q COPYALL 244Q COPYALL 233Q SHOULDNT 227Q MAILOMAT.PROMPT 176Q CH.LOOKUP.OBJECT 155Q MKATOM 142Q SHOULDNT 133Q MAILOMAT.ENCODE.TOD.PARAMS 114Q MAILOMAT.ENCODE.PERIODIC.PARAMS 76Q MKATOM 43Q MAILOMAT.PROMPT 23Q MKATOM) (332Q ENCODEDTIMEUNIT: 320Q ENCODEDTIMEPERIOD: 306Q ENCODEDSTARTIME: 161Q Yes 124Q Time% of% Day 104Q Fixed% Period 57Q On 50Q Off 30Q ) ( 217Q "%"" 204Q "Unknown Print Server %"" 37Q "No Activation selected.") MAILOMAT.EXTRACT.FIELDS D1 (I 1 FORMWINDOW I 0 USERNAME) n`h@Ag Ag Ag ½Ag ¼Ag »Ag ºAg ¹Ag ¸Ag Ag MLKJIHhh(126Q U-CASE 123Q MAILOMAT.GET.BUTTON.FIELD.AS.TEXT 114Q MAILOMAT.GET.ASSOCIATED.MENU.BUTTON.VAL 104Q MAILOMAT.GET.ASSOCIATED.MENU.BUTTON.VAL 74Q MAILOMAT.GET.ASSOCIATED.MENU.BUTTON.VAL 64Q MAILOMAT.GET.BUTTON.FIELD.AS.TEXT 54Q MAILOMAT.GET.BUTTON.FIELD.AS.TEXT 44Q MAILOMAT.GET.BUTTON.FIELD.AS.TEXT 34Q MAILOMAT.GET.ASSOCIATED.MENU.BUTTON.VAL 25Q U-CASE 22Q MAILOMAT.GET.BUTTON.FIELD.AS.TEXT 13Q GETWINDOWUSERPROP) (120Q Print% Server: 111Q Hardcopy: 101Q Activation: 71Q Time% Unit: 61Q Time% Period: 51Q Start% Time: 41Q Firing% Times: 31Q Firing% Mode: 17Q Mail% Folder: 10Q MAILOMAT.PASSWORD) () MAILOMAT.HARDCOPY D1 (P 11Q MSGDESCRIPTOR P 5 $$MSGLAST P 4 $$MSG# P 3 $$MESSAGES P 2 MSGLIST P 1 TEXTSTREAM P 0 LCASEFILENAME I 1 USER.DATA I 0 MAILFOLDER F 12Q LAFITEHARDCOPY.MIN.TOC F 13Q MSGLST F 14Q LAFITEHARDCOPYFONT) — 0@É@ÈkÙ@ÈC LkÔ\Mñ³-KL _Ê jð³éO_¿OµOh_¾°×O&_¿°ÏNZ@É XW²W Wýñ¨@HW°ohddgWh Y@IJ@IJHA h(223Q MAILOMAT.TRANSMIT.HARDCOPY 212Q \LAFITE.HARDCOPY.BODIES 203Q OPENTEXTSTREAM 156Q \LAFITE.HARDCOPY.HEADERS 142Q LENGTH 130Q L-CASE 46Q NTHMESSAGE) (172Q FONT 123Q MAILFOLDER 53Q LAFITEMSG 24Q MAILFOLDER 14Q MAILFOLDER 6 MAILFOLDER) ( 164Q "") MAILOMAT.MENU.FN.PUT D1 (P 3 USER.LIST P 2 USERNAME P 1 PROFILE.NAME P 0 MAILOMAT.DIRECTORY I 0 FORM.WINDOW F 4 FORMWINDOW F 5 PROFILE.STREAM F 6 USER.DATA F 7 LAFITEDEFAULTHOST&DIR F 10Q LOGINHOST/DIR) »@@ Z³oJohT hoJohT JT cWµW XgHgggk YdH ²%Ig c »I ¿I ¿Ig c ¿°Ig c ¿Vhhh»JVKKU I oJohT @i h(267Q TEDIT.STREAMCHANGEDP 262Q MAILOMAT.PROMPT 241Q CLOSEF 235Q PRINT 230Q PUTASSOC 205Q OPENSTREAM 171Q OPENSTREAM 161Q DELFILE 154Q CLOSEF 147Q READ 142Q OPENSTREAM 131Q MEMB 126Q DIRECTORY 120Q PACKFILENAME 75Q MKATOM 62Q MAILOMAT.EXTRACT.FIELDS 55Q MAILOMAT.PROMPT 32Q MAILOMAT.PROMPT 6 MAILOMAT.INFER.USERNAME) (202Q BOTH 166Q BOTH 137Q BOTH 113Q VERSION 110Q MAILOMAT-PROFILE 105Q NAME 101Q BODY) ( 252Q " stored." 245Q "MAILOMAT user data for " 45Q " ..." 40Q "Storing data for user " 22Q " ..." 15Q "Put failed for user ") MAILOMAT.INFER.USERNAME D1 (P 0 USERNAME I 0 FORMWINDOW) N@g µ@g H jð²@ X²@gHhh ¿@gHHo@ h(112Q MAILOMAT.PUT.FAILED 100Q PUTWINDOWPROP 67Q MAILOMAT.REPLACE.FILL.INS 47Q U-CASE 44Q MAILOMAT.GET.USERNAME 34Q NCHARS 25Q U-CASE 22Q MKATOM 17Q MAILOMAT.GET.BUTTON.FIELD.AS.TEXT 6 GETWINDOWUSERPROP) (74Q USERNAME 56Q Username: 14Q Username: 3 USERNAME) ( 106Q "Bad username --- Try again") MAILOMAT.UPDATECONTENTSFILEA0001A0002 D1 (I 0 STREAM F 0 RESETSTATE) @ bP´d (14Q DELFILE 3 CLOSEF) NIL () MAILOMAT.UPDATECONTENTSFILEA0001 D1 (NAME ERRORSET P 20Q MSG# P 6 MSG P 5 TOCSTREAM P 4 FIRSTMSG# P 3 LASTMSG# P 2 TOCSTART P 1 MESSAGES P 0 TOCFILE F 21Q MAILFOLDER F 22Q LASTUNCHANGEDMESSAGE# F 23Q LAFITEVERSION# F 24Q RESETVARSLST F 25Q RESETY F 26Q LAFITETOCMARKBYTEOFFSET) ÚW"É W"Él W"È´Kjñ¢±‡gHggho ]hhhW(c(¿Mgg¿W$W"È _¿dOñ’¿Oc$¿W"jÍ ¿M _jð³wOµlW$jð«W$d² ²Ml ¿M áM ØW&ð²TW$kO Oó³FIO ^Êjð³MJW,Ø ¿NM ¿NjÏ¿JNÈÔºO kÔ_ °Ã ²“jc$¿€MJ ¿KW$kØO Oó³IO M ¿O kÔ_ °êMgM ¿Mj ¿Ml² ¿Ml* ¿MW&ã ¿MW&lÿå ¿MW"É0_¿_Oãã_¿_Oã ¿OOlÿå ¿OOnÿÿå_¿_Oã ¿OOlÿå ¿MKã ¿MKlÿå ¿†H Xµ&W"KÍ ¿W"kÏ¿W"jÏ ¿jhc*i ¿°Ø(725Q DELFILE 653Q INFILEP 645Q \BOUT 634Q \BOUT 625Q \BOUT 612Q \BOUT 566Q \BOUT 553Q \BOUT 516Q \BOUT 504Q \BOUT 474Q \BOUT 465Q \BOUT 456Q SETFILEPTR 450Q SETFILEINFO 445Q GETFILEPTR 423Q WRITETOCENTRY 417Q NTHMESSAGE 371Q SETFILEPTR 354Q \FZEROP 316Q WRITETOCMARKBYTES 310Q SETFILEPTR 265Q NTHMESSAGE 226Q SETFILEPTR 216Q \FZEROP 163Q GETEOFPTR 116Q WHENCLOSE 66Q OPENSTREAM 11Q TOCFILENAME) (706Q MAILFOLDER 674Q MAILFOLDER 663Q MAILFOLDER 525Q MAILFOLDER 441Q LENGTH 335Q LAFITEMSG 323Q LAFITEMSG 271Q LAFITEMSG 153Q MAILFOLDER 126Q MAILFOLDER 113Q NO 110Q CLOSEALL 55Q OLD/NEW 52Q BOTH 46Q MAILOMAT.UPDATECONTENTSFILEA0001A0002 27Q MAILFOLDER 16Q MAILFOLDER 4 MAILFOLDER) ( 62Q ((TYPE BINARY))) MAILOMAT.UPDATECONTENTSFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 LASTUNCHANGEDMESSAGE# I 0 MAILFOLDER F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q MAILOMAT.UPDATECONTENTSFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (MAILOMAT.UPDATECONTENTSFILEA0001)) MAILOMAT.UPDATEMAILFOLDER D1 (P 4 MSG# P 2 MSG P 1 OUTSTREAM P 0 MESSAGES I 0 MAILFOLDER) U@É!@kÏ¿kjðhð@ÈkLKó³)HL ZÊjð³J@Iµ dg Y¿LkÔ\°×@ h(121Q \LAFITE.CLOSE.FOLDER 105Q WRITEFOLDERMARKBYTES 101Q \LAFITE.OPEN.FOLDER 52Q NTHMESSAGE) (76Q OUTPUT 56Q LAFITEMSG 32Q MAILFOLDER 14Q MAILFOLDER 3 MAILFOLDER) () MAILOMAT.BLANKP D1 (L (1 ACCEPTOR 0 CHAR)) @A (11Q MEMB) NIL () MAILOMAT.BUTTON.GET.MENU D1 (I 0 OBJ) ’@g µ‚±†@g`@g hHd²dið³d¥d¡µ gHhhh HdI¿@g HdI¿dg ¿dg¿jdnÿdhHdI ¿@g (217Q IMAGEOBJPROP 210Q IMAGEOBJPROP 130Q IMAGEOBJPROP 107Q \APPEND2 37Q PACKC 33Q IMAGEOBJPROP 6 IMAGEOBJPROP) (214Q MAILOMAT.PANEL.CREATE 155Q DEFAULTMENUHELDFN 146Q CLRPROMPT 125Q MBTEXT 72Q QUOTE 30Q MAILOMAT.MENU.LIST 23Q MENUTYPE# 20Q MAILOMAT.PANEL.CREATE 3 MAILOMAT.PANEL.CREATE) () MAILOMAT.BUTTON.GET.SUBMENU D1 (P 1 CORRESPONDING.SUBMENU P 0 CORRESPONDING.SUBMENU.LIST I 1 ASSOCIATED.MENU.VAL I 0 OBJ) £@g A µ‚±“@g A Q`HhZd²dið³d¥d¡µ gJhhh »dK¿@g ¼dL¿dg ¿dg¿jdnÿdh½dM ¿Y@g œ@g AI‹@gAIhI(237Q IMAGEOBJPROP 222Q LISTPUT 215Q IMAGEOBJPROP 205Q IMAGEOBJPROP 130Q IMAGEOBJPROP 113Q \APPEND2 47Q PACKC 33Q LISTGET 27Q IMAGEOBJPROP 12Q LISTGET 6 IMAGEOBJPROP) (227Q MAILOMAT.SUBMENUS 212Q MAILOMAT.SUBMENUS 202Q MAILOMAT.SUBMENUS 151Q DEFAULTMENUHELDFN 142Q CLRPROMPT 125Q MBTEXT 77Q QUOTE 41Q MENUTYPE# 24Q MAILOMAT.SUBMENU.LIST 3 MAILOMAT.SUBMENUS) () MAILOMAT.BUTTON.OBJ.CREATE D1 (P 3 OBJ P 2 OBJ P 1 BUTTON.FN P 0 BUTTON.TYPE I 2 BUTTON.FONT I 1 BUTTON.NAME I 0 MAILOMAT.SPECS) ÜA@ g !Hgð²A@ g “g¸A@ g µQHdgðž¿A@ g °;gð”g°1Hgð§Hdgð•¿g°gð”g°Hgð“g‡oH YA@ g µBbAIBZdKgHdgð–¿o°gð¥Hgð”oƒo¿KgHgð¥Hgð”oƒo¿KgHgðHgð§Hdgð•¿g°*gð”g° Hdgð•¿g°gð“g‡oH ¿KgHgð³Hgð¬Hgð¦Hgð´iHdgð²¿JgA@ g ¿°hgð²0JKgA@ g ¿KgA@ g °4Hgð²-JKgA@ g ¿KgA@ g J(730Q IMAGEOBJPROP 725Q LISTGET 716Q ASSOC 704Q IMAGEOBJPROP 701Q LISTGET 672Q ASSOC 643Q IMAGEOBJPROP 640Q LISTGET 631Q ASSOC 617Q IMAGEOBJPROP 614Q LISTGET 605Q ASSOC 557Q IMAGEOBJPROP 554Q LISTGET 545Q ASSOC 522Q IMAGEOBJPROP 457Q IMAGEOBJPROP 454Q ERROR 346Q IMAGEOBJPROP 311Q IMAGEOBJPROP 233Q MBUTTON.CREATE 220Q LISTGET 211Q ASSOC 203Q ERROR 110Q LISTGET 101Q ASSOC 62Q LISTGET 53Q ASSOC 41Q LISTGET 32Q ASSOC 13Q LISTGET 4 ASSOC) (722Q SUBMENULIST 711Q MAILOMAT.SUBMENU.LIST 676Q ASSOCMENU 665Q MAILOMAT.ASSOCIATED.MENU 652Q SUBMENU 635Q MENULIST 624Q MAILOMAT.MENU.LIST 611Q ASSOCSUBMENU 600Q MAILOMAT.ASSOCIATED.SUBMENU 565Q MENU 551Q MAXCHARS 540Q MAILOMAT.MAX.LEN 530Q SHORTSTRING 513Q SUBMENU 505Q MENU 477Q PROTECTEDSTRING 470Q BUTTON 464Q MAILOMAT.PROTECTED.FLG 443Q MAILOMAT.CHECK.SUBMENU 436Q SUBMENU 431Q MAILOMAT.CHECK.MENU 423Q MENU 414Q MAILOMAT.CHECK.SHORTSTRING 407Q SHORTSTRING 402Q NILL 374Q STRING 365Q PROTECTEDSTRING 357Q BUTTON 353Q MAILOMAT.CHECK.FN 330Q SUBMENU 322Q MENU 316Q MAILOMAT.POST.FIELD 273Q SUBMENU 265Q MENU 251Q BUTTON 244Q MAILOMAT.PRE.FIELD 215Q FONT 172Q MAILOMAT.BUTTONFN.DOSUBMENU 165Q SUBMENU 157Q MAILOMAT.BUTTONFN.DOMENU 152Q MENU 145Q MAILOMAT.BUTTONFN.SELFIELD 137Q SHORTSTRING 130Q STRING 122Q MAILOMAT.PROTECT.WARNING 115Q PROTECTEDSTRING 105Q FN 71Q BUTTON 57Q FN 45Q SHORTSTRING 36Q MAXCHARS 22Q STRING 10Q FIELDTYPE) ( 450Q "Bad Button Type" 343Q "" 336Q "}" 306Q " " 301Q " {" 260Q "" 177Q "Bad Button Type") MAILOMAT.BUTTONFN.DOMENU D1 (P 3 BUTTON P 2 ASSOC.SUBMENU P 1 NEWVAL P 0 STREAM I 2 WINDOW I 1 SEL I 0 OBJ) hBg @ @g IµB h@g ô³ò@AÉHI¿J²âHJ KµoJ ¿KKH¿KgI°¶(143Q IMAGEOBJPROP 131Q MAILOMAT.REPLACE.FIELD.VAL 126Q PACKC 115Q ERROR 77Q MAILOMAT.FIND.BUTTON 66Q MAILOMAT.REPLACE.FIELD.VAL 47Q IMAGEOBJPROP 36Q MAILOMAT.RESET.SEL 24Q IMAGEOBJPROP 15Q MENU 12Q MAILOMAT.BUTTON.GET.MENU 6 GETWINDOWUSERPROP) (137Q MAILOMAT.ASSOCIATED.MENU.VAL 57Q SELECTION 44Q MAILOMAT.FIELD.VALUE 21Q MAILOMAT.ASSOCIATED.SUBMENU 3 TEXTSTREAM) ( 111Q "Can't find associated submenu button") MAILOMAT.BUTTONFN.DOSUBMENU D1 (P 2 NEWVAL P 1 ASSOCIATED.MENU.VAL P 0 STREAM I 2 WINDOW I 1 SEL I 0 OBJ) 9Bg @B @I Zd²d@g ô¬@AÉHJ¿B h(65Q MAILOMAT.RESET.SEL 60Q MAILOMAT.REPLACE.FIELD.VAL 42Q IMAGEOBJPROP 26Q MENU 23Q MAILOMAT.BUTTON.GET.SUBMENU 13Q MAILOMAT.GET.ASSOCIATED.MENU.VAL 6 GETWINDOWUSERPROP) (51Q SELECTION 37Q MAILOMAT.FIELD.VALUE 3 TEXTSTREAM) () MAILOMAT.BUTTONFN.SELFIELD D1 (P 3 FIELD.LEN P 2 FIELD.CH# P 1 FIELD.SEL P 0 TOBJ I 2 WINDOW I 1 SEL I 0 OBJ) 6AÉ1HAÉ HÉYdÉZIÉ[HJKgi h(62Q TEDIT.SETSEL 22Q MBUTTON.FIND.NEXT.FIELD) (55Q LEFT 44Q SELECTION 35Q SELECTION 26Q TEXTOBJ 15Q SELECTION 3 SELECTION) () MAILOMAT.CHECK.FIELDS D1 (P 7 FIELD.LEN P 6 FIELD.CH# P 5 SEL P 4 BUTTON P 3 OBJ P 2 CHECK.VALUE P 1 CH# P 0 TOBJ I 0 FORMWINDOW) Š @g jrIkÔ¹HI \²V¿L»L¹Kg ²Kg IØ¾Kg °HI ]É¾MÉ_¿Kg _¿@KINOlOZ²¢J´oKg ohJ (207Q \APPEND2 173Q IMAGEOBJPROP 133Q IMAGEOBJPROP 104Q MBUTTON.FIND.NEXT.FIELD 75Q IMAGEOBJPROP 63Q IMAGEOBJPROP 52Q IMAGEOBJPROP 34Q BLOCK 26Q MBUTTON.FIND.NEXT.BUTTON 11Q TEXTOBJ 6 GETWINDOWUSERPROP) (170Q MBTEXT 130Q MAILOMAT.CHECK.FN 117Q SELECTION 110Q SELECTION 72Q MAILOMAT.FIELD.LEN 60Q MAILOMAT.FIELD.START 47Q MAILOMAT.PROTECTED.FLG 3 TEXTSTREAM) ( 177Q "] --- " 164Q "Bad value for field [") MAILOMAT.CHECK.MENU D1 (P 4 X P 2 VAL P 1 CLIST P 0 TSTREAM I 4 FIELD.LEN I 3 FIELD.CH# I 2 CH# I 1 OBJ I 0 FORMWINDOW) v@ !HCkÙ Dk2LKó³"H ³H _¿NµOh^½LkÔ\°äO&¾°öMYH —o ¿Iµh ZdAg ³ïAgh¿oJoh(145Q IMAGEOBJPROP 133Q MEMB 130Q IMAGEOBJPROP 117Q PACKC 106Q SHOULDNT 76Q EOFP 33Q EOFP 15Q SETFILEPTR 3 TEXTSTREAM) (141Q MAILOMAT.PANEL.CREATE 125Q MAILOMAT.MENU.LIST) ( 157Q " --- please reset" 152Q "bad menu value: " 103Q "Reached end of textstream while retrieving menu value") MAILOMAT.CHECK.SHORTSTRING D1 (I 4 FIELD.LEN I 3 FIELD.CH# I 2 CH# I 1 OBJ I 0 FORMWINDOW) #DAg ñ¡hoAg oDh(26Q IMAGEOBJPROP 7 IMAGEOBJPROP) (23Q MAILOMAT.MAX.LEN 4 MAILOMAT.MAX.LEN) ( 32Q "; current length= " 17Q "max length= ") MAILOMAT.CHECK.SUBMENU D1 (P 4 X P 2 VAL P 1 CLIST P 0 TSTREAM I 4 FIELD.LEN I 3 FIELD.CH# I 2 CH# I 1 OBJ I 0 FORMWINDOW) @ !HCkÙ Dk2LKó³"H ³H _¿NµOh^½LkÔ\°äO&¾°öMYH —o ¿AghIµh ZdAg A@ ³çAgh¿Agh¿oJoh(176Q IMAGEOBJPROP 165Q IMAGEOBJPROP 153Q MEMB 150Q LISTGET 145Q MAILOMAT.GET.ASSOCIATED.MENU.VAL 140Q IMAGEOBJPROP 127Q PACKC 117Q IMAGEOBJPROP 106Q SHOULDNT 76Q EOFP 33Q EOFP 15Q SETFILEPTR 3 TEXTSTREAM) (172Q MAILOMAT.ASSOCIATED.MENU.VAL 161Q MAILOMAT.SUBMENUS 135Q MAILOMAT.SUBMENU.LIST 113Q MAILOMAT.ASSOCIATED.MENU.VAL) ( 210Q " --- please reset" 203Q "bad menu value: " 103Q "Reached end of textstream while retrieving submenu value") MAILOMAT.CONFIRM D1 (I 1 FORMWINDOW I 0 WORDS) @A hdAl (17Q MOUSECONFIRM 14Q GETPROMPTWINDOW 4 MAILOMAT.PROMPT) NIL () MAILOMAT.DELETE.FIELD.VAL D1 (P 1 SEL P 0 STREAM I 2 WINDOW I 1 CH# I 0 OBJ) bBg @g ²,H@g AØ@g ¿@gj¿@g°$H A Y§o ¿HIÉIÉh(136Q TEDIT.DELETE 115Q SHOULDNT 104Q MBUTTON.FIND.NEXT.FIELD 100Q TEXTOBJ 72Q IMAGEOBJPROP 67Q PACKC 57Q IMAGEOBJPROP 46Q TEDIT.DELETE 43Q IMAGEOBJPROP 32Q IMAGEOBJPROP 20Q IMAGEOBJPROP 6 GETWINDOWUSERPROP) (131Q SELECTION 123Q SELECTION 64Q MAILOMAT.FIELD.VALUE 53Q MAILOMAT.FIELD.LEN 40Q MAILOMAT.FIELD.LEN 27Q MAILOMAT.FIELD.START 15Q MAILOMAT.PROTECTED.FLG 3 TEXTSTREAM) ( 112Q "Can't find field for button") MAILOMAT.DISCONNECT.WINDOW D1 (I 0 FORMWINDOW) @g hh(11Q TEXTOBJ 6 GETWINDOWUSERPROP) (14Q TEXTOBJ 3 TEXTSTREAM) () MAILOMAT.FIND.BUTTON D1 (P 3 BUTTON P 2 OBJ P 1 CH# P 0 TOBJ I 1 NAME I 0 WINDOW) (@ j"IkÔ¹HI [µºK¹AJg ð²åK(41Q IMAGEOBJPROP 20Q MBUTTON.FIND.NEXT.BUTTON 3 TEXTOBJ) (36Q MBTEXT) () MAILOMAT.FIND.EDIT.CHANGES D1 (P 21Q X P 17Q SEL P 16Q EDIT.CHANGES P 15Q SCRATCH.FIELD.LEN P 14Q SCRATCH.PTR P 13Q SCRATCH.MAP.SPEC P 12Q TOBJ P 11Q FIELD.LEN P 10Q FIELD.CH# P 7 PROTECT.FIELD.FLG P 6 BUTTON.NAME P 5 BUTTON P 4 OBJ P 3 CH# P 2 FORMSTREAM P 1 SCRATCH.MAP P 0 SCRATCH.STREAM I 0 FORMWINDOW F 25Q MAILOMAT.FORM.SPECS) £@g @g @g j´I¡hJ _KkÔ»OK ]¢±m¿M¼M»Lg ¾Lg _²Lg KØ_¿Lg _¿°+OK Oµo ¿OÉ_¿OÉ_JOkÙ ¿NI _µj_¿Oµj_¿OO ²4OkJOkÙ ¿HO ¿O"O ó¯J H ð¡hˆO"kÔ_"°îi’±ÿ8NO_¿NW* g o ¢±ÿOk2HO ¿O"O ó³$H _(¿O&µO(h_&_$¿O"kÔ_"°ãO(&_&¿°òO$o Ok2JOkÙ ¿O"O ó³$J _(¿O&µO(h_&_$¿O"kÔ_"°ãO(&_&¿°òO$ hO_¿±þŠO (640Q DREVERSE 620Q PACKC 615Q \NCONC2 612Q \NCONC2 532Q SETFILEPTR 514Q \APPEND2 430Q SETFILEPTR 410Q MEMB 401Q LISTGET 372Q ASSOC 320Q SETFILEPTR 311Q SETFILEPTR 271Q EQP 235Q ASSOC 227Q SETFILEPTR 172Q SHOULDNT 154Q MBUTTON.FIND.NEXT.FIELD 141Q IMAGEOBJPROP 125Q IMAGEOBJPROP 112Q IMAGEOBJPROP 102Q IMAGEOBJPROP 64Q BLOCK 54Q MBUTTON.FIND.NEXT.BUTTON 40Q TEXTOBJ 24Q GETWINDOWUSERPROP 15Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (376Q FIELDTYPE 212Q SELECTION 200Q SELECTION 136Q MAILOMAT.FIELD.LEN 122Q MAILOMAT.FIELD.START 107Q MAILOMAT.PROTECTED.FLG 77Q MBTEXT 21Q TEXTSTREAM 12Q MAILOMAT.FORM.SCRATCH.MAP 3 MAILOMAT.FORM.SCRATCH.STREAM) ( 511Q (55Q 76Q) 405Q (MENU SUBMENU) 167Q "Can't find field for button") MAILOMAT.FIND.UNPROTECTED.CH# D1 (P 4 SEL P 3 BUTTON P 2 OBJ P 1 CH# P 0 TOBJ I 0 STREAM) :@ j2IkÔ¹HI [µºK¹Jg ³çK§o ¿HI dÉ(61Q MBUTTON.FIND.NEXT.FIELD 53Q SHOULDNT 40Q IMAGEOBJPROP 20Q MBUTTON.FIND.NEXT.BUTTON 3 TEXTOBJ) (65Q SELECTION 35Q MAILOMAT.PROTECTED.FLG) ( 50Q "Can't find unprotected button field") MAILOMAT.FORM.CLEAR D1 (P 3 BUTTON P 2 OBJ P 1 CH# P 0 TOBJ I 1 FILL.INS I 0 FORMWINDOW) @@g j"IkÔ¹HI [²¿KºK¹JI@¿°ã@A @g i h(74Q TEDIT.STREAMCHANGEDP 70Q GETWINDOWUSERPROP 61Q MAILOMAT.REPLACE.FILL.INS 51Q MAILOMAT.DELETE.FIELD.VAL 34Q BLOCK 26Q MBUTTON.FIND.NEXT.BUTTON 11Q TEXTOBJ 6 GETWINDOWUSERPROP) (65Q TEXTSTREAM 3 TEXTSTREAM) () MAILOMAT.FORM.CREATE D1 (P 31Q TEDIT.PROCS P 30Q NEWPROC P 27Q SAFE.CH# P 26Q FORMWINDOW.PROC.NAME P 25Q FORMWINDOW.PROC P 24Q LEN P 23Q CH# P 22Q LOOKS P 21Q FIELD.LEN P 20Q POST.FIELD.NCHARS P 17Q PRE.FIELD.NCHARS P 16Q CH# P 15Q BUTTON.OBJ P 6 FIELD.OR.SPACE P 5 MAILOMAT.CHARLOOKS P 4 MAILOMAT.PARALOOKS P 3 TAB.CH# P 2 FORMWINDOW.WIDTH P 1 TABS P 0 FORMSTREAM I 3 FORM.FORMAT I 2 FORM.SPECS I 1 BUTTONFONT I 0 FORMWINDOW) Žohddg`ghh j@g 3@g @ggC±,d¿Ndgð²¿H kØ»Hl ¿IkÔ¹±gð²_Ijñ²'ghIkJIkØÛ3OdOó²¿OhKkL¼j¹Hl ¿±ÇOÚg_¿OµOh__¿OkÔ_°ÂO&_¿°òN˜NH ¿±“BNAH kØ2¿OHO¿oOkM½OkÔ_¿HOkÙ ¿Og H ¿H kØOÙ_¿OgOkØ¿Ogj¿Og ³oOOkÙØkM½Og H µ‚±þÓHglhkH HokH 0M²+¿MM½_$¿MM½_&¿MM½_(¿HO$O&O(¿°Ö0L²+¿LL¼_$¿LL¼_&¿LL¼_(¿HO$O&O(¿°ÖHi H kÏ8¿kjðhð@ É.@g g#O*µngig`ghh_2¿@g ²g@g O2_2¿@g ²g@g O2_2¿H@hO2_0¿H ¿O,´ O0gO,h ²‘@ ¿°Š(1211Q TEDIT.KILL 1203Q PROCESSP 1176Q PROCESSPROP 1157Q TEDIT.SHOWSEL 1150Q TEDIT 1131Q GETWINDOWUSERPROP 1115Q GETWINDOWUSERPROP 1077Q GETWINDOWUSERPROP 1063Q GETWINDOWUSERPROP 1012Q GETWINDOWUSERPROP 1001Q \INSUREWINDOW 760Q TEXTOBJ 754Q TEDIT.STREAMCHANGEDP 743Q TEDIT.PARALOOKS 700Q BLOCK 663Q TEDIT.LOOKS 620Q BLOCK 607Q TEDIT.LOOKS 604Q GETEOFPTR 572Q TEDIT.PARALOOKS 567Q GETEOFPTR 537Q PRIN1 533Q IMAGEOBJPROP 500Q IMAGEOBJPROP 467Q IMAGEOBJPROP 455Q IMAGEOBJPROP 431Q GETFILEPTR 424Q PRIN1 420Q IMAGEOBJPROP 407Q SETFILEPTR 353Q TEDIT.INSERT.OBJECT 342Q BLOCK 332Q GETFILEPTR 326Q MAILOMAT.BUTTON.OBJ.CREATE 314Q PRIN1 230Q BOUT 130Q BOUT 117Q GETFILEPTR 101Q BLOCK 65Q PUTWINDOWPROP 53Q PUTWINDOWPROP 41Q GETWINDOWPROP 31Q OPENTEXTSTREAM) (1171Q NAME 1126Q MAILOMAT.TEDIT.TITLEMENUFN 1122Q TITLEMENUFN 1112Q MAILOMAT.TEDIT.TITLEMENUFN 1074Q MAILOMAT.TEDIT.READTABLE 1070Q READTABLE 1060Q MAILOMAT.TEDIT.READTABLE 1041Q TEDIT.TENTATIVE 1036Q MAILOMATFONT 1033Q FONT 1027Q LEAVETTY 1015Q MAILOMAT.FIND.UNPROTECTED.CH# 1007Q MAILOMAT.WINDOW.PROC.NAME 763Q TEXTOBJ 555Q PARALEADING 530Q MAILOMAT.POST.FIELD 475Q MAILOMAT.PROTECTED.FLG 463Q MAILOMAT.FIELD.LEN 446Q MAILOMAT.FIELD.START 415Q MAILOMAT.PRE.FIELD 242Q LEFT 156Q TABS 143Q CR 107Q TAB 62Q NILL 57Q MAILOMAT.TEDIT.TITLEMENUFN 50Q MAILOMAT.FORM.SCRATCH.STREAM 36Q WIDTH 17Q TEDIT.TENTATIVE 14Q MAILOMATFONT 11Q FONT) ( 577Q (PROTECTED ON) 506Q (PROTECTED ON SELECTPOINT ON) 360Q (PROTECTED OFF) 3 "") MAILOMAT.FORM.FILL.INS D1 NIL hNIL NIL () MAILOMAT.FULLUSERNAME D1 (P 3 SIMPLENAME P 2 REGISTRY P 1 USER P 0 DOT I 1 UNPACKEDFLG I 0 USER.DATA F 4 DEFAULTREGISTRY) L@@YoI X¤I»T°A¡IIkHkÙ»IHkØ ºK •Ki »J ZA“KJKoJ(111Q CONCAT 71Q L-CASE 64Q L-CASE 56Q U-CASEP 51Q SUBATOM 41Q SUBSTRING 16Q STRPOS) NIL ( 105Q "." 12Q ".") MAILOMAT.ICONFN D1 (P 1 USERNAME P 0 FORMWINDOW I 1 OLDICON I 0 WINDOW F 2 MAILOMAT.FORM.ICON F 3 MAILOMATFORMTEMPLATE F 4 MAILOMAT.FORM.MASK) Z@g µN@ É@ SµRTldlYl hhc@g µogl R R i (127Q TITLEDICONW 122Q GETBOXPOSITION 117Q BITMAPHEIGHT 113Q BITMAPWIDTH 107Q FONTCREATE 71Q MKSTRING 66Q GETWINDOWUSERPROP 25Q MAILOMAT.INFER.USERNAME 17Q \INSUREWINDOW 11Q WINDOWP 6 GETWINDOWUSERPROP) (102Q HELVETICA 63Q USERNAME 3 ICONWINDOW) ( 77Q "") MAILOMAT.INDEX.FIRING.TIMES D1 (L (1 DATE 0 FIRING.TIMES) F 2 PRESENT.TIME) @HYµhµ@Ró•Iµ÷i°ôI°ëNIL NIL () MAILOMAT.INIT D1 (P 4 ASSOC.PAIR P 3 USER.LIST P 2 USERNAME P 1 PROFILE.NAME P 0 MAILOMAT.DIRECTORY F 5 MAILOMAT.USER.LIST F 6 LAFITEDEFAULTHOST&DIR F 7 LOGINHOST/DIR F 10Q PROFILE.STREAM) [@o c VµW XgHgggk YdH ´)Ig c »I ¿KŽdLLUµðh(122Q PUTASSOC 102Q CLOSEF 75Q READ 70Q OPENSTREAM 57Q MEMB 54Q DIRECTORY 46Q PACKFILENAME 23Q MKATOM 11Q COPYALL) (65Q BOTH 41Q VERSION 36Q MAILOMAT-PROFILE 33Q NAME 27Q BODY) ( 6 ((**% OTHER% **))) MAILOMAT.INIT.MAIL.USER D1 (P 15Q SERVERDEF P 14Q SERVERPORT P 13Q SERVEROPS P 12Q MAILSERVER P 4 AUTHENTICATED? P 3 MAILSERVERS P 2 PASS P 1 FULLNAME P 0 GVUSERNAME I 0 USER.DATA F 16Q \LAFITE.AUTHENTICATION.FAILURE) `@i XdoHYH@ Z \ið³7` ¿o` ¿I` ¿o` ¿Lc` ¿o°H [³` ¿o` ¿I` h@IHJIKq NµO¿@_ _µi°@½OkM_³` ¿o` ¿O` ¿iOOOhh_hð³O_¿OµOh__¿N^°O&_¿°õ(316Q PRIN1 305Q PRIN1 272Q TERPRI 234Q GETMAILSERVEROPS 173Q PRIN1 163Q PRIN1 150Q TERPRI 136Q GV.EXPAND 123Q PRIN1 111Q PRIN1 76Q PRIN1 66Q PRIN1 53Q TERPRI 40Q GV.AUTHENTICATE 34Q GV.MAKEKEY 23Q CONCAT 7 MAILOMAT.FULLUSERNAME) (313Q PROMPTWINDOW 302Q PROMPTWINDOW 267Q PROMPTWINDOW 170Q PROMPTWINDOW 160Q PROMPTWINDOW 145Q PROMPTWINDOW 120Q PROMPTWINDOW 106Q PROMPTWINDOW 73Q PROMPTWINDOW 63Q PROMPTWINDOW 50Q PROMPTWINDOW) ( 277Q "Can't find address of " 155Q "There are no mail servers for user " 130Q "." 103Q " because: " 60Q "Cannot authenticate user " 16Q ".") MAILOMAT.LOAD.FIELDS D1 (P 5 FIELD P 1 USERNAME P 0 PASSWORD I 1 USER.DATA I 0 FORMWINDOW F 6 MAILOMAT.FORM.FIELDS) hAA@@V°&d]MAg ghºKµJh\J&»µÛL ´)I´&@gI¿H²@o ´@gH¿@i (145Q TEDIT.STREAMCHANGEDP 137Q PUTWINDOWPROP 125Q MAILOMAT.REPLACE.FILL.INS 111Q PUTWINDOWPROP 74Q MAILOMAT.REPLACE.FILL.INS 44Q RECORDACCESS 36Q RECLOOK) (133Q MAILOMAT.PASSWORD 105Q USERNAME 41Q FETCH 33Q MAILOMAT.USERDATA) ( 122Q ((Password: "???"))) MAILOMAT.LOAD.FROM.PROFILE D1 (P 3 USER.LIST P 2 USERNAME P 1 PROFILE.NAME P 0 MAILOMAT.DIRECTORY I 0 FORM.WINDOW F 4 FORMWINDOW F 5 USER.DATA F 6 LAFITEDEFAULTHOST&DIR F 7 LOGINHOST/DIR F 10Q PROFILE.STREAM F 11Q MAILOMAT.USER.LIST) ¢@@ Z«ohT hoJohT VµW XgHgggk YdH ²1Ig c »I ¿JK c ²)JUW²TU ²ioJohT hoJohT h(236Q MAILOMAT.PROMPT 213Q MAILOMAT.PROMPT 166Q MAILOMAT.LOAD.FIELDS 156Q PUTASSOC 142Q ASSOC 134Q CLOSEF 127Q READ 122Q OPENSTREAM 111Q MEMB 106Q DIRECTORY 100Q PACKFILENAME 55Q MKATOM 45Q MAILOMAT.PROMPT 22Q MAILOMAT.PROMPT 6 MAILOMAT.INFER.USERNAME) (117Q BOTH 73Q VERSION 70Q MAILOMAT-PROFILE 65Q NAME 61Q BODY) ( 226Q " ..." 221Q "Get failed for user " 203Q " ..." 176Q "Get failed for user " 35Q " ..." 30Q "Retrieving data for user " 14Q "Get failed for unknown user.") MAILOMAT.LOADMAILFOLDER D1 (P 4 MESSAGES P 3 I P 1 CONTENTSFILE P 0 MAILFILE I 0 MAILFOLDER) @ÉH Y •@I ¥@ ²A@@Èk@ÉKJó³LK Êjð¤Kµi†KkÔ[°åh‘k€jÏ0¿@° oi ¿@É*i ¿oi ¿h´@kÍ@jÍj(170Q PRIN1 157Q PRIN1 144Q PRIN1 73Q NTHMESSAGE 33Q MAILOMAT.PARSEMAILFOLDER 26Q MAILOMAT.READTOCFILE 20Q INFILEP 14Q TOCFILENAME) (210Q MAILFOLDER 201Q MAILFOLDER 151Q MAILFOLDER 76Q LAFITEMSG 54Q MAILFOLDER 45Q MAILFOLDER 41Q MAILFOLDER 3 MAILFOLDER) ( 164Q " Failed." 140Q "MAILOMAT Load of Mailfolder ") MAILOMAT.PANEL.CREATE D1 (F 2 \LAFITE.ACTIVE F 3 MAILOMAT.USER.LIST) QR¨o °E`dS¿dg¿do¿di¿dg ¿dg¿jdnÿdhHdI ¿ h(115Q MENU 10Q PROMPTPRINT) (62Q DEFAULTMENUHELDFN 53Q CLRPROMPT 27Q MAILOMAT.FORM.GROUP.CREATE 15Q MENUTYPE#) ( 37Q "MAILOMAT Panel" 5 "Turn LAFITE on.") MAILOMAT.PARSE.TIME D1 (P 21Q TRANSITION P 12Q VALID.TRANSITION P 11Q CHARIN P 7 ACCEPT P 6 ERROR P 5 TIME.LIST P 4 SECOND P 3 MINUTE P 2 HOUR P 1 INPUT P 0 STATE I 0 TIMES) ío@ jdd5I! Oµ N¥O’±Žh_¿oAOµ3OO µTh_hð^³ÒOXo _¿N³¼O_°²_¿HOð²O_¿OµOh__¿O_°ªO&_¿°ó_"Oh –O"µ i°O _ °’o0 o°d _¿Oµ Oh_‚O&_¿µåO (352Q APPLY 314Q EVAL 240Q APPLY 133Q MEMB 14Q UNPACK 11Q MKATOM) NIL ( 277Q (((0 (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 0) (0 (LAMBDA (X) (AND (NUMBERP X) (SETQ HOUR X))) 1) (1 (LAMBDA (X) (AND (NUMBERP X) (LESSP (SETQ HOUR (PLUS X (ITIMES 12Q HOUR))) 30Q))) 2) (1 (LAMBDA (X) (EQ X (QUOTE :))) 3) (2 (LAMBDA (X) (EQ X (QUOTE :))) 3) (3 (LAMBDA (X) (AND (NUMBERP X) (SETQ MINUTE X))) 4) (4 (LAMBDA (X) (AND (NUMBERP X) (LESSP (SETQ MINUTE (PLUS X (ITIMES 12Q MINUTE))) 74Q))) 5) (4 (LAMBDA (X) (EQ X (QUOTE :))) 6) (4 (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 14Q) (4 (LAMBDA (X) (UCASE.STREQUAL X (QUOTE A))) 13Q) (4 (LAMBDA (X) (UCASE.STREQUAL X (QUOTE P))) 11Q) (5 (LAMBDA (X) (EQ X (QUOTE :))) 6) (5 (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 14Q) (5 (LAMBDA (X) (UCASE.STREQUAL X (QUOTE A))) 13Q) (5 (LAMBDA (X) (UCASE.STREQUAL X (QUOTE P))) 11Q) (6 (LAMBDA (X) (AND (NUMBERP X) (SETQ SECOND X))) 7) (7 (LAMBDA (X) (AND (NUMBERP X) (LESSP (SETQ SECOND (PLUS X (ITIMES 12Q SECOND))) 74Q))) 10Q) (7 (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 14Q) (10Q (LAMBDA (X) (UCASE.STREQUAL X (QUOTE A))) 13Q) (10Q (LAMBDA (X) (UCASE.STREQUAL X (QUOTE P))) 11Q) (10Q (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 14Q) (11Q (LAMBDA (X) (AND (UCASE.STREQUAL X (QUOTE M)) (COND ((LESSP HOUR 14Q) (SETQ HOUR (PLUS HOUR 14Q))) (T T)))) 12Q) (12Q (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 14Q) (13Q (LAMBDA (X) (AND (UCASE.STREQUAL X (QUOTE M)) (LESSP HOUR 15Q) (COND ((EQ HOUR 14Q) (SETQ HOUR 0)) (T T)))) 12Q) (14Q (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 14Q) (14Q (LAMBDA (X) (AND (NUMBERP X) (SETQ TIME.LIST (MAILOMAT.APPEND.TIME TIME.LIST HOUR MINUTE SECOND)) (SETQ HOUR X) (SETQ MINUTE 0) (SETQ SECOND 0))) 1)) 0 (4 5 7 10Q 12Q 14Q) (MAILOMAT.APPEND.TIME (TIME.LIST HOUR MINUTE SECOND)) (% % % )) 263Q (((0 (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 0) (0 (LAMBDA (X) (AND (NUMBERP X) (SETQ HOUR X))) 1) (1 (LAMBDA (X) (AND (NUMBERP X) (LESSP (SETQ HOUR (PLUS X (ITIMES 12Q HOUR))) 30Q))) 2) (1 (LAMBDA (X) (EQ X (QUOTE :))) 3) (2 (LAMBDA (X) (EQ X (QUOTE :))) 3) (3 (LAMBDA (X) (AND (NUMBERP X) (SETQ MINUTE X))) 4) (4 (LAMBDA (X) (AND (NUMBERP X) (LESSP (SETQ MINUTE (PLUS X (ITIMES 12Q MINUTE))) 74Q))) 5) (4 (LAMBDA (X) (EQ X (QUOTE :))) 6) (4 (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 14Q) (4 (LAMBDA (X) (UCASE.STREQUAL X (QUOTE A))) 13Q) (4 (LAMBDA (X) (UCASE.STREQUAL X (QUOTE P))) 11Q) (5 (LAMBDA (X) (EQ X (QUOTE :))) 6) (5 (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 14Q) (5 (LAMBDA (X) (UCASE.STREQUAL X (QUOTE A))) 13Q) (5 (LAMBDA (X) (UCASE.STREQUAL X (QUOTE P))) 11Q) (6 (LAMBDA (X) (AND (NUMBERP X) (SETQ SECOND X))) 7) (7 (LAMBDA (X) (AND (NUMBERP X) (LESSP (SETQ SECOND (PLUS X (ITIMES 12Q SECOND))) 74Q))) 10Q) (7 (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 14Q) (10Q (LAMBDA (X) (UCASE.STREQUAL X (QUOTE A))) 13Q) (10Q (LAMBDA (X) (UCASE.STREQUAL X (QUOTE P))) 11Q) (10Q (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 14Q) (11Q (LAMBDA (X) (AND (UCASE.STREQUAL X (QUOTE M)) (COND ((LESSP HOUR 14Q) (SETQ HOUR (PLUS HOUR 14Q))) (T T)))) 12Q) (12Q (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 14Q) (13Q (LAMBDA (X) (AND (UCASE.STREQUAL X (QUOTE M)) (LESSP HOUR 15Q) (COND ((EQ HOUR 14Q) (SETQ HOUR 0)) (T T)))) 12Q) (14Q (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 14Q) (14Q (LAMBDA (X) (AND (NUMBERP X) (SETQ TIME.LIST (MAILOMAT.APPEND.TIME TIME.LIST HOUR MINUTE SECOND)) (SETQ HOUR X) (SETQ MINUTE 0) (SETQ SECOND 0))) 1)) 0 (4 5 7 10Q 12Q 14Q) (MAILOMAT.APPEND.TIME (TIME.LIST HOUR MINUTE SECOND)) (% % % )) 125Q (((0 (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 0) (0 (LAMBDA (X) (AND (NUMBERP X) (SETQ HOUR X))) 1) (1 (LAMBDA (X) (AND (NUMBERP X) (LESSP (SETQ HOUR (PLUS X (ITIMES 12Q HOUR))) 30Q))) 2) (1 (LAMBDA (X) (EQ X (QUOTE :))) 3) (2 (LAMBDA (X) (EQ X (QUOTE :))) 3) (3 (LAMBDA (X) (AND (NUMBERP X) (SETQ MINUTE X))) 4) (4 (LAMBDA (X) (AND (NUMBERP X) (LESSP (SETQ MINUTE (PLUS X (ITIMES 12Q MINUTE))) 74Q))) 5) (4 (LAMBDA (X) (EQ X (QUOTE :))) 6) (4 (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 14Q) (4 (LAMBDA (X) (UCASE.STREQUAL X (QUOTE A))) 13Q) (4 (LAMBDA (X) (UCASE.STREQUAL X (QUOTE P))) 11Q) (5 (LAMBDA (X) (EQ X (QUOTE :))) 6) (5 (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 14Q) (5 (LAMBDA (X) (UCASE.STREQUAL X (QUOTE A))) 13Q) (5 (LAMBDA (X) (UCASE.STREQUAL X (QUOTE P))) 11Q) (6 (LAMBDA (X) (AND (NUMBERP X) (SETQ SECOND X))) 7) (7 (LAMBDA (X) (AND (NUMBERP X) (LESSP (SETQ SECOND (PLUS X (ITIMES 12Q SECOND))) 74Q))) 10Q) (7 (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 14Q) (10Q (LAMBDA (X) (UCASE.STREQUAL X (QUOTE A))) 13Q) (10Q (LAMBDA (X) (UCASE.STREQUAL X (QUOTE P))) 11Q) (10Q (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 14Q) (11Q (LAMBDA (X) (AND (UCASE.STREQUAL X (QUOTE M)) (COND ((LESSP HOUR 14Q) (SETQ HOUR (PLUS HOUR 14Q))) (T T)))) 12Q) (12Q (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 14Q) (13Q (LAMBDA (X) (AND (UCASE.STREQUAL X (QUOTE M)) (LESSP HOUR 15Q) (COND ((EQ HOUR 14Q) (SETQ HOUR 0)) (T T)))) 12Q) (14Q (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 14Q) (14Q (LAMBDA (X) (AND (NUMBERP X) (SETQ TIME.LIST (MAILOMAT.APPEND.TIME TIME.LIST HOUR MINUTE SECOND)) (SETQ HOUR X) (SETQ MINUTE 0) (SETQ SECOND 0))) 1)) 0 (4 5 7 10Q 12Q 14Q) (MAILOMAT.APPEND.TIME (TIME.LIST HOUR MINUTE SECOND)) (% % % )) 56Q (((0 (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 0) (0 (LAMBDA (X) (AND (NUMBERP X) (SETQ HOUR X))) 1) (1 (LAMBDA (X) (AND (NUMBERP X) (LESSP (SETQ HOUR (PLUS X (ITIMES 12Q HOUR))) 30Q))) 2) (1 (LAMBDA (X) (EQ X (QUOTE :))) 3) (2 (LAMBDA (X) (EQ X (QUOTE :))) 3) (3 (LAMBDA (X) (AND (NUMBERP X) (SETQ MINUTE X))) 4) (4 (LAMBDA (X) (AND (NUMBERP X) (LESSP (SETQ MINUTE (PLUS X (ITIMES 12Q MINUTE))) 74Q))) 5) (4 (LAMBDA (X) (EQ X (QUOTE :))) 6) (4 (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 14Q) (4 (LAMBDA (X) (UCASE.STREQUAL X (QUOTE A))) 13Q) (4 (LAMBDA (X) (UCASE.STREQUAL X (QUOTE P))) 11Q) (5 (LAMBDA (X) (EQ X (QUOTE :))) 6) (5 (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 14Q) (5 (LAMBDA (X) (UCASE.STREQUAL X (QUOTE A))) 13Q) (5 (LAMBDA (X) (UCASE.STREQUAL X (QUOTE P))) 11Q) (6 (LAMBDA (X) (AND (NUMBERP X) (SETQ SECOND X))) 7) (7 (LAMBDA (X) (AND (NUMBERP X) (LESSP (SETQ SECOND (PLUS X (ITIMES 12Q SECOND))) 74Q))) 10Q) (7 (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 14Q) (10Q (LAMBDA (X) (UCASE.STREQUAL X (QUOTE A))) 13Q) (10Q (LAMBDA (X) (UCASE.STREQUAL X (QUOTE P))) 11Q) (10Q (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 14Q) (11Q (LAMBDA (X) (AND (UCASE.STREQUAL X (QUOTE M)) (COND ((LESSP HOUR 14Q) (SETQ HOUR (PLUS HOUR 14Q))) (T T)))) 12Q) (12Q (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 14Q) (13Q (LAMBDA (X) (AND (UCASE.STREQUAL X (QUOTE M)) (LESSP HOUR 15Q) (COND ((EQ HOUR 14Q) (SETQ HOUR 0)) (T T)))) 12Q) (14Q (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 14Q) (14Q (LAMBDA (X) (AND (NUMBERP X) (SETQ TIME.LIST (MAILOMAT.APPEND.TIME TIME.LIST HOUR MINUTE SECOND)) (SETQ HOUR X) (SETQ MINUTE 0) (SETQ SECOND 0))) 1)) 0 (4 5 7 10Q 12Q 14Q) (MAILOMAT.APPEND.TIME (TIME.LIST HOUR MINUTE SECOND)) (% % % )) 3 (((0 (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 0) (0 (LAMBDA (X) (AND (NUMBERP X) (SETQ HOUR X))) 1) (1 (LAMBDA (X) (AND (NUMBERP X) (LESSP (SETQ HOUR (PLUS X (ITIMES 12Q HOUR))) 30Q))) 2) (1 (LAMBDA (X) (EQ X (QUOTE :))) 3) (2 (LAMBDA (X) (EQ X (QUOTE :))) 3) (3 (LAMBDA (X) (AND (NUMBERP X) (SETQ MINUTE X))) 4) (4 (LAMBDA (X) (AND (NUMBERP X) (LESSP (SETQ MINUTE (PLUS X (ITIMES 12Q MINUTE))) 74Q))) 5) (4 (LAMBDA (X) (EQ X (QUOTE :))) 6) (4 (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 14Q) (4 (LAMBDA (X) (UCASE.STREQUAL X (QUOTE A))) 13Q) (4 (LAMBDA (X) (UCASE.STREQUAL X (QUOTE P))) 11Q) (5 (LAMBDA (X) (EQ X (QUOTE :))) 6) (5 (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 14Q) (5 (LAMBDA (X) (UCASE.STREQUAL X (QUOTE A))) 13Q) (5 (LAMBDA (X) (UCASE.STREQUAL X (QUOTE P))) 11Q) (6 (LAMBDA (X) (AND (NUMBERP X) (SETQ SECOND X))) 7) (7 (LAMBDA (X) (AND (NUMBERP X) (LESSP (SETQ SECOND (PLUS X (ITIMES 12Q SECOND))) 74Q))) 10Q) (7 (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 14Q) (10Q (LAMBDA (X) (UCASE.STREQUAL X (QUOTE A))) 13Q) (10Q (LAMBDA (X) (UCASE.STREQUAL X (QUOTE P))) 11Q) (10Q (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 14Q) (11Q (LAMBDA (X) (AND (UCASE.STREQUAL X (QUOTE M)) (COND ((LESSP HOUR 14Q) (SETQ HOUR (PLUS HOUR 14Q))) (T T)))) 12Q) (12Q (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 14Q) (13Q (LAMBDA (X) (AND (UCASE.STREQUAL X (QUOTE M)) (LESSP HOUR 15Q) (COND ((EQ HOUR 14Q) (SETQ HOUR 0)) (T T)))) 12Q) (14Q (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 14Q) (14Q (LAMBDA (X) (AND (NUMBERP X) (SETQ TIME.LIST (MAILOMAT.APPEND.TIME TIME.LIST HOUR MINUTE SECOND)) (SETQ HOUR X) (SETQ MINUTE 0) (SETQ SECOND 0))) 1)) 0 (4 5 7 10Q 12Q 14Q) (MAILOMAT.APPEND.TIME (TIME.LIST HOUR MINUTE SECOND)) (% % % ))) MAILOMAT.PARSEMAILFOLDER1 D1 (P 13Q LASTMSG P 12Q DELETED P 11Q STARTFLG P 10Q SEEN P 7 MARK P 6 STAMPCOUNT P 5 CHCOUNT P 1 HERE P 0 MSG# I 5 NOERROR I 4 FIRSTMSG# I 3 START I 2 EOFPTR I 1 STREAM I 0 MAILFOLDER F 16Q UNSEENMARK) @@kÏ¿kjðhðDCÂ BIñ¢±ÍAI ¿A ŸA ]™A ^“NMñž@IHoOE A dlUð’¿hŠlDð‘i„@H _¿A dlUð“¿h°dlSð’¿iŠlNð‘i„@H _¿A _¿`dHÍ¿dI¿dM¿O£WµO_¿dOÏ¿dO‘k€jÏ ¿dO‘k€jÏ¿dNÍ¿_d@ ¿IMÔ¹¼KµLh[ºHkÔ¸±ÿ7L&»°öIB ³L@oOÉoOOÉIBÙÙ_¿Oo ¿OOkÏ¿kjð¡k€jÏ¿OÈJ(431Q LAB.PROMPTPRINT 350Q IEQP 311Q LAFITE.PARSE.MSG.FOR.TOC 171Q BADMAILFILE.FLAGBYTE 130Q BADMAILFILE.FLAGBYTE 102Q BADMAILFILE 56Q LA.READCOUNT 50Q LA.READCOUNT 43Q LA.READSTAMP 36Q SETFILEPTR) (471Q LAFITEMSG 444Q LAFITEMSG 437Q LAFITEMSG 404Q LAFITEMSG 377Q LAFITEMSG 364Q LAFITEMSG 204Q LAFITEMSGTYPE# 3 MAILFOLDER) ( 425Q " bytes. " 372Q " to " 357Q "Warning: last message truncated from " 73Q "Bad header or previous message length is incorrect") MAILOMAT.FORM.GROUP.CREATE D1 (P 2 WREG P 1 MENUW P 0 FORMWINDOW I 0 USER.DATA F 3 MAILOMAT.MENU.READTABLE F 4 TEDIT.READTABLE F 5 MAILOMATBUTTONFONT F 6 MAILOMAT.FORM.SPECS F 7 MAILOMAT.FORM.FORMAT) nêl} o !HgnÂl<HggHggH ÉZdJJkÙØJl(ho YdHggIgjl(Igjl(IggIggg •S ³T c¿l gS¿IgSIggHl H`VWIUooHg —Ig §lÈ ¿°êHgg@gð—Ig ‡Ig@h(424Q MAILOMAT.FORM.MENU.ACTIONFN 413Q MAILOMAT.FORM.MENU.ACTIONFN 375Q PUTWINDOWPROP 360Q BLOCK 352Q GETWINDOWUSERPROP 342Q GETWINDOWUSERPROP 333Q MAILOMAT.FORM.CREATE 316Q MAILOMAT.FORM.CREATE 304Q GETPROMPTWINDOW 276Q PUTWINDOWPROP 264Q PUTWINDOWPROP 253Q TEDIT.SETFUNCTION 237Q COPYREADTABLE 231Q READTABLEP 224Q BOUNDP 216Q PUTWINDOWPROP 204Q PUTWINDOWPROP 172Q PUTWINDOWPROP 157Q PUTWINDOWPROP 144Q ATTACHWINDOW 130Q CREATEW 66Q \INSUREWINDOW 62Q PUTWINDOWPROP 50Q PUTWINDOWPROP 36Q PUTWINDOWPROP 16Q CREATEW 7 GETREGION) (420Q Get 410Q New 402Q **% OTHER% ** 372Q MAILOMAT.KILL.ATTACHED.TEDIT.CLOSEFN 367Q CLOSEFN 347Q LINES 337Q LINES 310Q MAILOMATBOLDFONT 273Q MAILOMAT.FORM.MENU.TITLEMENUFN 270Q MAILOMAT.TEDIT.TITLEMENUFN 260Q MAILOMAT.TEDIT.READTABLE 247Q MAILOMAT.MENU.CR.FN 221Q MAILOMAT.MENU.READTABLE 213Q MAILOMAT.FORM.MENU 210Q MAILOMAT.WINDOW.PROC.NAME 201Q MAILOMAT.ICONFN 176Q ICONFN 163Q MINSIZE 150Q MAXSIZE 141Q JUSTIFY 136Q TOP 57Q MAILOMAT.ICONFN 54Q ICONFN 45Q MAILOMAT.FORM 42Q MAILOMAT.WINDOW.PROC.NAME 25Q MINSIZE) ( 330Q (Apply TAB Put TAB Get CR) 324Q ((Apply FIELDTYPE BUTTON FN MAILOMAT.FORM.MENU.BUTTONFN) (Get FIELDTYPE BUTTON FN MAILOMAT.FORM.MENU.BUTTONFN) (Put FIELDTYPE BUTTON FN MAILOMAT.FORM.MENU.BUTTONFN)) 125Q "MAILOMAT Form Editor" 13Q "New Bulk Mail Process Form") MAILOMAT.KILL.ATTACHED.TEDIT.CLOSEFN D1 (P 2 TSTREAM P 1 AW I 0 FORMWINDOW F 3 TSTREAM) u@g ² @ ²o@ «o@ g@ !Hµ@g cd– hY ¿Ig ZµIgg¿I ¿HX°Æ ¿°ä(160Q TEDIT.KILL 155Q TEXTOBJ 144Q CLOSEW 137Q WINDOWDELPROP 122Q GETWINDOWUSERPROP 112Q DETACHWINDOW 103Q TEDIT.KILL 100Q TEXTOBJ 71Q GETWINDOWUSERPROP 52Q ATTACHEDWINDOWS 42Q MAILOMAT.PROMPT 31Q MAILOMAT.CONFIRM 17Q TEDIT.STREAMCHANGEDP 14Q TEXTSTREAM 6 GETWINDOWUSERPROP) (134Q DON'T 131Q CLOSEFN 117Q TEXTSTREAM 66Q TEXTSTREAM 45Q DON'T 3 TEXTSTREAM) ( 36Q "Quit aborted." 25Q "Form has been changed --- confirm QUIT") MAILOMAT.FORM.MENU.ACTIONFNA0001 D1 (NAME ERRORSET F 0 FORMWINDOW F 1 OPERATION F 2 USER.ASSOC.PAIR F 3 MENUWINDOW) BQdgð™¿P °0dgð—¿PR °"dgð–¿P °gð•SP ‡oP i(76Q MAILOMAT.PROMPT 65Q MAILOMAT.MENU.FN.APPLY 51Q MAILOMAT.MENU.FN.PUT 34Q MAILOMAT.MENU.FN.GET 16Q MAILOMAT.MENU.FN.CLEAR 13Q MAILOMAT.FORM.FILL.INS) (56Q Apply 42Q Put 24Q Get 4 New) ( 72Q "Unknown MAILOMAT.FORM button name!") MAILOMAT.FORM.MENU.ACTIONFN D1 (P 2 FORMWINDOW.TEXTOBJ P 1 FORMWINDOW P 0 MENUWINDOW.TEXTOBJ I 2 USER.ASSOC.PAIR I 1 OPERATION I 0 MENUWINDOW) ²@g @g Ig ZIg “H‘J©oI hH ¤J ™oI hHA JA hlHg@I Ig I AohI o H J @ @g I IooIg h(256Q TEDIT.SHOWSEL 253Q GETWINDOWUSERPROP 244Q SCROLLW 230Q MAILOMAT.RECONNECT.WINDOW 224Q TEDIT.SHOWSEL 221Q GETWINDOWUSERPROP 212Q REDISPLAYW 206Q MAILOMAT.MARK.ACTIVE 202Q MAILOMAT.MARK.ACTIVE 176Q MAILOMAT.FORM.MENU.ACTIONFNA0001 167Q MAILOMAT.PROMPT 153Q MAILOMAT.DISCONNECT.WINDOW 147Q TEDIT.SHOWSEL 144Q GETWINDOWUSERPROP 135Q CLEARW 131Q DSPFILL 117Q MAILOMAT.MARK.ACTIVE 112Q MAILOMAT.MARK.ACTIVE 103Q MAILOMAT.PROMPT 72Q MAILOMAT.TOBJ.ACTIVEP 65Q MAILOMAT.TOBJ.ACTIVEP 57Q MAILOMAT.PROMPT 42Q GETWINDOWUSERPROP 32Q GETWINDOWUSERPROP 20Q GETWINDOWUSERPROP 11Q GETWINDOWUSERPROP 2 ALLOW.BUTTON.EVENTS) (250Q TEXTSTREAM 216Q TEXTSTREAM 141Q TEXTSTREAM 125Q PAINT 37Q TEXTSTREAM 27Q TEXTOBJ 15Q MAINWINDOW 6 TEXTOBJ) ( 241Q 0.0 235Q 0.0 173Q (MAILOMAT.FORM.MENU.ACTIONFNA0001) 160Q " initiated..." 77Q "Edit or MAILOMAT operation in progress -- please wait" 53Q "MAILOMAT form munged!! --- Close this MAILOMAT window and create another") MAILOMAT.GET.MAILOMAT D1 (P 2 MAILOMATSTREAM P 1 FILE P 0 LOAD.ERROR I 1 USER.ASSOC.PAIR I 0 FORMWINDOW) 60oAoh@ @A ³o@ ¿@gohi(60Q PUTWINDOWPROP 44Q MAILOMAT.PROMPT 32Q MAILOMAT.LOAD.FIELDS 24Q MAILOMAT.PROMPT) (51Q TITLE) ( 55Q "--- form inconsistent --- Please type in entries or QUIT" 40Q "Form in inconsistent state --- Get aborted." 14Q " ..." 6 "Retrieving data for user ") MAILOMAT.GET.PASSWORD D1 (P 2 PASSWORD P 1 PWINDOW P 0 FORMWINDOW I 1 SEL I 0 IMAGEOBJ) SAÉ !Hl Yd I ohdIo Z•Ho„Ho ¿Hg HgJh(117Q PUTWINDOWPROP 107Q TEDIT.SHOWSEL 104Q GETWINDOWUSERPROP 74Q MAILOMAT.REPLACE.FILL.INS 54Q \ENCRYPT.PWD 51Q PROMPTFORWORD 32Q GIVE.TTY.PROCESS 26Q CLEARW 21Q GETPROMPTWINDOW 10Q \TEDIT.PRIMARYW) (113Q MAILOMAT.PASSWORD 101Q TEXTSTREAM 3 SELECTION) ( 71Q ((Password: "")) 63Q ((Password: "???")) 45Q "*" 36Q "Enter password:") MAILOMAT.GETMAILFOLDER D1 (P 5 NEWFOLDER P 4 SHORTNAME P 3 VERSIONLESSNAME P 2 UNPACKEDNAME I 0 FOLDERNAME F 11Q \ACTIVELAFITEFOLDERS F 12Q LAFITEMAILFOLDERS F 13Q LAFITEMAIL.EXT F 14Q LAFITEFOLDERSMENU F 15Q \LAFITEPROFILECHANGED) ü WHµfhµ‚±ì@ aJg J [d@ð’±W^µ]h²wMÉ$²f` ¿o` ¿@` ¿o` ¿o` hYdÉ@ð³“¿IdÉ@ð³‡¿HX±ÿ}]ÉKð•Mµži°˜N°M@°RJW ¼`@Kðhð´@_¿dO¿dK¿dL¿K _¿dO ¿]Wc¿LW¯WLW¿ic¿hcM(322Q CREATE.MONITORLOCK 256Q LA.SHORTFILENAME 152Q PRIN1 137Q PRIN1 124Q PRIN1 114Q PRIN1 101Q TERPRI 42Q PACKFILENAME 36Q LISTPUT 24Q UNPACKFILENAME) (262Q MAILFOLDERTYPE# 243Q MAILFOLDER 220Q MAILFOLDER 176Q MAILFOLDER 162Q MAILFOLDER 147Q PROMPTWINDOW 134Q PROMPTWINDOW 121Q PROMPTWINDOW 111Q PROMPTWINDOW 76Q PROMPTWINDOW 67Q MAILFOLDER 33Q VERSION) ( 144Q "Multiple versions may not be manipulated at once." 131Q " is already being browsed." 106Q "A different version of ") MAILOMAT.GETNEWMAIL D1 (P 4 MESSAGELIST P 3 MAILSERVER P 1 FIRSTMESSAGE P 0 OUTSTREAM I 1 USER.DATA I 0 MAILFOLDER F 5 LAFITE.AFTER.GETMAIL.FN F 6 \LAFITEUSERDATA) \@g Vµo` ¿A` h!JµI[@HI\²@L ¿I³LY@ ¿U—@LlU¿JZ°Ò(112Q MAILOMAT.SELECTMESSAGE 77Q MAILOMAT.APPENDMESSAGES 67Q MAILOMAT.GETNEWMAIL1 40Q PRIN1 26Q PRIN1 6 \LAFITE.OPEN.FOLDER) (35Q PROMPTWINDOW 23Q PROMPTWINDOW 3 APPEND) ( 20Q "MAILOMAT: No MAILBOXES known for user ") MAILOMAT.GETNEWMAIL1 D1 (P 3 #OFMESSAGES P 2 MAILBOX P 1 OPENRESULT P 0 MESSAGELIST I 3 NTHTIME I 2 OUTSTREAM I 1 MAILFOLDER I 0 MAILSERVER F 7 \LAFITEUSERDATA F 10Q LAFITEFLUSHMAILFLG F 11Q REPORTWINDOW) |p@¼@WW@lLYdd“¿dZdgð³R´QJ´NC¤A ¿Ig »@JBAX²$A @½JWlM¿K¨WH H@¾JhlNh(147Q \LAFITE.GETNEWMAIL# 144Q LENGTH 113Q \LAFITE.CLOSE.FOLDER 104Q \LAFITE.RETRIEVEMESSAGES 74Q LISTGET 63Q UNSELECTALLMESSAGES) (71Q #OFMESSAGES 45Q EMPTY) () MAILOMAT.FORM.MENU.BUTTONFN D1 (I 2 WINDOW I 1 SEL I 0 OBJ) AÉ @g (22Q MAILOMAT.FORM.MENU.ACTIONFN 17Q IMAGEOBJPROP 10Q \TEDIT.PRIMARYW) (14Q MBTEXT 3 SELECTION) () MAILOMAT.FORM.SAVEA0001A0002 D1 (F 0 OUTSTREAM F 1 RESETSTATE F 2 FORMWINDOW F 3 OUTSTREAMNAME) -Q´*P ”P ¿P oP ohR hc(47Q MAILOMAT.PROMPT 33Q FULLNAME 23Q DELFILE 20Q FULLNAME 13Q CLOSEF 6 OPENP) NIL ( 37Q " deleted" 27Q "SAVE ERROR - bad bulk mail form file ") MAILOMAT.FORM.SAVEA0001 D1 (NAME ERRORSET P 12Q C P 11Q X P 7 TOBJ P 6 SEL P 5 FIELD.LEN P 4 FIELD.START P 3 BUTTON.OBJ P 2 CH# P 1 TOBJ P 0 FORMSTREAM F 13Q OUTSTREAM F 14Q RESETVARSLST F 15Q FORMWINDOW F 16Q RESETY) gl hhWc¿ghhhWc¿W W kSnÿÿW ¿¿IJ ZªW hciHJkÙ ¿H [g W ¿Wl ¿Kg ²Kg JØ¼Kg °IJ ^É¼NÉ½HLkÙ ¿Mk OOó³TH _d¡µoKg ohW °%l ð«Ol:ð¥Ol'ð›¿Wl' ¿WO ¿OkÔ_°«W ¿W ¿JkØZ±ÿ#(417Q TERPRI 411Q TERPRI 372Q BOUT 362Q BOUT 352Q BLOCK 325Q MAILOMAT.PROMPT 310Q IMAGEOBJPROP 244Q SETFILEPTR 217Q MBUTTON.FIND.NEXT.FIELD 210Q IMAGEOBJPROP 176Q IMAGEOBJPROP 165Q IMAGEOBJPROP 155Q BOUT 145Q PRIN1 140Q IMAGEOBJPROP 126Q SETFILEPTR 111Q CLOSEF 101Q MBUTTON.FIND.NEXT.BUTTON 73Q BLOCK 67Q LINELENGTH 53Q TEXTOBJ 46Q TEXTSTREAM 7 RADIX) (305Q MBTEXT 232Q SELECTION 223Q SELECTION 205Q MAILOMAT.FIELD.LEN 173Q MAILOMAT.FIELD.START 162Q MAILOMAT.PROTECTED.FLG 135Q MBTEXT 25Q MAILOMAT.FORM.SAVEA0001A0002 2 RADIX) ( 314Q " field -- ignored" 301Q "non-char found in ") MAILOMAT.FORM.SAVE D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 OUTSTREAMNAME P 0 OUTSTREAM I 1 FILENAME I 0 FORMWINDOW F 5 LISPXHIST F 6 RESETVARSLST) 4AggH YU!Vog ‘h‚g\ ¿L’I(60Q ERROR! 52Q RESETRESTORE 40Q MAILOMAT.FORM.SAVEA0001 20Q FULLNAME 11Q OPENSTREAM) (46Q ERROR 35Q INTERNAL 6 NEW 3 OUTPUT) ( 32Q (MAILOMAT.FORM.SAVEA0001)) MAILOMAT.GET.FILENAME D1 (I 0 USERNAME F 0 \LAFITEDEFAULTHOST&DIR F 1 MAILOMATFORM.EXT) gPg@gQgk (24Q PACKFILENAME) (17Q VERSION 13Q EXTENSION 7 NAME 2 DIRECTORY) () MAILOMAT.GET.ASSOCIATED.MENU.BUTTON.VAL D1 (P 0 BUTTON I 1 BUTTON.NAME I 0 WINDOW) $@g A HµoA ¿Hg (41Q IMAGEOBJPROP 30Q ERROR 12Q MAILOMAT.FIND.BUTTON 6 GETWINDOWUSERPROP) (36Q MAILOMAT.FIELD.VALUE 3 TEXTSTREAM) ( 24Q "Can't find associated menu value") MAILOMAT.GET.ASSOCIATED.MENU.VAL D1 (P 0 BUTTON I 1 WINDOW I 0 OBJ) 0Ag @g Hµo@g ¿Hg (55Q IMAGEOBJPROP 44Q ERROR 41Q IMAGEOBJPROP 20Q MAILOMAT.FIND.BUTTON 15Q IMAGEOBJPROP 6 GETWINDOWUSERPROP) (52Q MAILOMAT.FIELD.VALUE 36Q MAILOMAT.ASSOCIATED.MENU 12Q MAILOMAT.ASSOCIATED.MENU 3 TEXTSTREAM) ( 32Q "Can't find associated menu value") MAILOMAT.GET.BUTTON.FIELD.AS.TEXT D1 (P 4 SEL P 3 BUTTON P 2 OBJ P 1 CH# P 0 TOBJ I 1 BUTTON.NAME I 0 WINDOW) =@g j2IkÔ¹HI [µºK¹AJg ð²åK•HI oA (72Q ERROR 61Q MBUTTON.NEXT.FIELD.AS.TEXT 47Q IMAGEOBJPROP 26Q MBUTTON.FIND.NEXT.BUTTON 11Q TEXTOBJ 6 GETWINDOWUSERPROP) (44Q MBTEXT 3 TEXTSTREAM) ( 66Q "Can't find named button") MAILOMAT.GET.BUTTON.FIELD.AS.LISTA0001 D1 (NAME ERRORSET F 0 STR) P h(3 READ) NIL () MAILOMAT.GET.BUTTON.FIELD.AS.LIST D1 (P 4 READ.VAL P 0 STR I 1 FIELD.NAME I 0 FORMWINDOW) )@A Ao \µI»Jµ KhZ¹°êK&º°å(21Q MAILOMAT.GET.BUTTON.FIELD.AS.LISTA0001 7 OPENSTRINGSTREAM 4 MAILOMAT.GET.BUTTON.FIELD.AS.TEXT) NIL ( 16Q (MAILOMAT.GET.BUTTON.FIELD.AS.LISTA0001)) MAILOMAT.MARK.ACTIVE D1 (L (1 OP 0 TOBJ)) @d–A>ANIL (5 TEXTOBJ) () MAILOMAT.MARK.HARDCOPIEDA0001 D1 (NAME ERRORSET L (0 NIL) F 1 MAILFOLDER F 2 MARK F 3 LAFITEIMMEDIATECHANGESFLG F 4 RESETY F 5 MSGDESCRIPTOR F 6 LAFITEMARKPOSITION F 7 MSGS F 10Q UNSEENMARK) `QÉ hi¿SQUÉVØR¿W°9dHRÏ¿HRWð¡k€jÏ ¿HkÏ¿QkÏ ¿kjðhðµÈhci(32Q CHANGEFLAGINFOLDER 12Q OBTAIN.MONITORLOCK) (112Q MAILFOLDER 101Q LAFITEMSG 61Q LAFITEMSG 50Q LAFITEMSG 22Q LAFITEMSG 3 MAILFOLDER) () MAILOMAT.MARK.HARDCOPIED D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 MARK I 1 MSGS I 0 MAILFOLDER F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q MAILOMAT.MARK.HARDCOPIEDA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (MAILOMAT.MARK.HARDCOPIEDA0001)) MAILOMAT.MENU.CR.FN D1 (I 1 TOBJ I 0 TSTREAM) A A g (15Q MAILOMAT.FORM.MENU.ACTIONFN 7 \TEDIT.PRIMARYW 3 MAILOMAT.MARK.ACTIVE) (12Q Get) () MAILOMAT.MENU.FN.CLEAR D1 (I 1 FILL.INS I 0 FORMWINDOW) &@ @g @A @goo@ h(42Q MAILOMAT.PROMPT 32Q PUTWINDOWPROP 17Q MAILOMAT.FORM.CLEAR 12Q PUTWINDOWPROP 3 CLEARW) (23Q TITLE 7 MAILOMAT.USERNAME) ( 36Q "New form cleared." 27Q "New Bulk Mail Process Form") MAILOMAT.MENU.FN.GET D1 (I 1 USER.ASSOC.PAIR I 0 FORMWINDOW) \@ ²o@ «o@ gA•@A ƒ@ ´0o@g oh@ ¿@go@g i(130Q PUTWINDOWPROP 125Q CONCAT 122Q GETWINDOWUSERPROP 102Q MAILOMAT.PROMPT 66Q GETWINDOWUSERPROP 51Q MAILOMAT.LOAD.FROM.PROFILE 44Q MAILOMAT.GET.MAILOMAT 31Q MAILOMAT.PROMPT 20Q MAILOMAT.CONFIRM 6 TEDIT.STREAMCHANGEDP 3 TEXTSTREAM) (117Q USERNAME 107Q TITLE 63Q USERNAME 34Q DON'T) ( 113Q "Editting MAILOMAT form for user " 72Q " retrieved." 57Q "MAILOMAT user data for " 25Q "Get aborted." 14Q "Form has been changed --- confirm GET") MAILOMAT.MENU.FN.APPLY D1 (P 4 EDIT.CHANGES.STRING P 3 SAVE.VALUE P 2 CHECK.VALUE P 1 FILENAME P 0 USERNAME I 1 FORMWINDOW I 0 MENUWINDOW) ¢PA ³oA ©oA hA X´úA A Z²oJoA hoHohA AgHAH [Ai K²"oHohA ¿AgoHoŒAgoHo¿A h(236Q REDISPLAYW 231Q PUTWINDOWPROP 226Q CONCAT 167Q MAILOMAT.PROMPT 143Q TEDIT.STREAMCHANGEDP 135Q MAILOMAT.ADD.USER 130Q PUTWINDOWPROP 120Q MAILOMAT.PROMPT 75Q MAILOMAT.PUT.FAILED 71Q CONCAT 52Q MAILOMAT.CHECK.FIELDS 46Q CLEARW 37Q MAILOMAT.INFER.USERNAME 31Q MAILOMAT.PROMPT 20Q MAILOMAT.CONFIRM 6 TEDIT.STREAMCHANGEDP) (212Q TITLE 174Q TITLE 124Q USERNAME) ( 223Q " not applied." 216Q "MAILOMAT form for " 205Q " --- saved" 200Q "Editting MAILOMAT form for " 157Q " complete." 152Q "Application of MAILOMAT form for " 110Q " ..." 103Q "Applying MAILOMAT form for " 66Q " --- Put Aborted" 61Q "Bad MAILOMAT form: " 25Q "APPLY aborted" 14Q "Form has NOT been changed --- confirm APPLY") MAILOMAT.GET.USERNAME D1 (P 1 USERNAME P 0 PWINDOW I 0 FORMWINDOW) (@l H H ohdHYd´ d (45Q U-CASE 42Q MKATOM 32Q PROMPTFORWORD 20Q GIVE.TTY.PROCESS 14Q CLEARW 5 GETPROMPTWINDOW) NIL ( 24Q "Which user should be assigned this form? ") MAILOMAT.OPEN.MAILFOLDERA0001A0002 D1 (NAME ERRORSET F 0 FOLDERNAME) Pggih(12Q \LAFITE.OPENSTREAM) (6 OLD 3 INPUT) () MAILOMAT.OPEN.MAILFOLDERA0001 D1 (NAME ERRORSET P 2 ERRN P 1 STREAM P 0 MAILFOLDER F 3 FOLDERNAME F 4 \LAFITE.BROWSELOCK F 5 RESETY F 6 BROWSERWINDOW F 7 LAFITEBUFFERSIZE) ºThi¿S Xd¢±£É$c²*` ¿o` ¿S` ¿o` ¿h°qHÉIµ:o Y³EZlð–JSð³)` ¿o` ¿S` ¿h°,gW° Sggi¹HI ¿HI¿Hc i(246Q FULLNAME 235Q \LAFITE.OPENSTREAM 220Q SETFILEINFO 204Q PRIN1 174Q PRIN1 161Q TERPRI 136Q ERRORN 127Q MAILOMAT.OPEN.MAILFOLDERA0001A0002 100Q PRIN1 65Q PRIN1 55Q PRIN1 42Q TERPRI 15Q \LAFITE.GETMAILFOLDER 5 OBTAIN.MONITORLOCK) (255Q MAILFOLDER 242Q MAILFOLDER 231Q NEW 226Q BOTH 213Q BUFFERS 201Q PROMPTWINDOW 171Q PROMPTWINDOW 156Q PROMPTWINDOW 110Q MAILFOLDER 75Q PROMPTWINDOW 62Q PROMPTWINDOW 52Q PROMPTWINDOW 37Q PROMPTWINDOW 26Q MAILFOLDER) ( 166Q "MAILOMAT Could not open " 124Q (MAILOMAT.OPEN.MAILFOLDERA0001A0002) 72Q " because of browse." 47Q "MAILOMAT couldn't use ") MAILOMAT.OPEN.MAILFOLDER D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 FOLDERNAME F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q MAILOMAT.OPEN.MAILFOLDERA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (MAILOMAT.OPEN.MAILFOLDERA0001)) MAILOMAT.PRESENT.TIME D1 (P 0 PTIME) !jo o ÕXó‘jH(27Q IDATE 24Q CONCAT 15Q DATE 6 IDATE) NIL ( 21Q " 00:00:00" 12Q (DATEFORMAT NO.TIME)) MAILOMAT.PROCESS.FILEA0002A0003A0004A0005 D1 (NAME ERRORSET F 0 MAILFOLDER F 1 USER.DATA F 2 #NEWMESSAGES F 3 \LAFITE.MAILSERVERLOCK F 4 RESETY) ŸShi¿PQ ´‚±‹PdÈPÈ¿Qgð–PQ °W` ¿PÈPÈÕkÔc` ¿o` ¿Rkð¤oƒo` ¿o` ¿PÉ` ¿P ¿PdÈ ci(231Q MAILOMAT.UPDATECONTENTSFILE 216Q MAILOMAT.UPDATEMAILFOLDER 211Q PRIN1 174Q PRIN1 161Q PRIN1 135Q PRIN1 122Q PRIN1 72Q TERPRI 62Q MAILOMAT.HARDCOPY 41Q LA.SELECTRANGE 13Q MAILOMAT.GETNEWMAIL 5 OBTAIN.MONITORLOCK) (224Q MAILFOLDER 206Q PROMPTWINDOW 201Q MAILFOLDER 171Q PROMPTWINDOW 156Q PROMPTWINDOW 132Q PROMPTWINDOW 117Q PROMPTWINDOW 105Q MAILFOLDER 77Q MAILFOLDER 67Q PROMPTWINDOW 53Q Yes 34Q MAILFOLDER 26Q MAILFOLDER) ( 166Q " received into " 153Q "" 146Q "s" 127Q " new message") MAILOMAT.PROCESS.FILEA0002A0003A0004 D1 (NAME ERRORSET P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 RESETVARSLST F 4 LAFITE.USERDATA F 5 RESETY F 6 MAILFOLDER F 7 LISPXHIST) Bgd gT ¿Sc¿V ¿W!Sog ‘h‚gZ ¿J“€Ic i(71Q ERROR! 63Q RESETRESTORE 51Q MAILOMAT.PROCESS.FILEA0002A0003A0004A0005 30Q MAILOMAT.LOADMAILFOLDER 16Q SETTOPVAL 6 GETTOPVAL) (57Q ERROR 46Q INTERNAL 12Q \LAFITEUSERDATA 2 \LAFITEUSERDATA) ( 43Q (MAILOMAT.PROCESS.FILEA0002A0003A0004A0005)) MAILOMAT.PROCESS.FILEA0002A0003 D1 (NAME ERRORSET P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 MAILFOLDER F 4 LISPXHIST F 5 RESETVARSLST F 6 RESETY) 7SÉ hi¿T!Uog ‘h‚gZ ¿J“¿Si ci(61Q \LAFITE.CLOSE.FOLDER 52Q ERROR! 44Q RESETRESTORE 32Q MAILOMAT.PROCESS.FILEA0002A0003A0004 12Q OBTAIN.MONITORLOCK) (40Q ERROR 27Q INTERNAL 3 MAILFOLDER) ( 24Q (MAILOMAT.PROCESS.FILEA0002A0003A0004)) MAILOMAT.PROCESS.FILEA0002 D1 (NAME ERRORSET P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 \LAFITE.BROWSELOCK F 4 FOLDERNAME F 5 MAILFOLDER F 6 RESETY F 7 LISPXHIST F 10Q RESETVARSLST) 8Shi¿T c ´&W!Wog ‘h‚gZ ¿J“€Ici(57Q ERROR! 51Q RESETRESTORE 37Q MAILOMAT.PROCESS.FILEA0002A0003 12Q MAILOMAT.OPEN.MAILFOLDER 5 OBTAIN.MONITORLOCK) (45Q ERROR 34Q INTERNAL) ( 31Q (MAILOMAT.PROCESS.FILEA0002A0003)) MAILOMAT.PROCESS.FILE D1 (P 11Q RESETZ P 10Q RESETY P 7 LISPXHIST P 6 MAILSERVER P 3 #NEWMESSAGES P 2 LAFITEUSERDATA P 1 MAILFOLDER P 0 FOLDERNAME I 0 USER.DATA F 12Q LAFITE.USERDATA F 13Q LAFITEMAIL.EXT F 14Q LISPXHIST F 15Q RESETVARSLST) p P@c@Mµ'h´X@W ¸W! Wog ²)h°)^¼NWWNlLið•NµÂi°¿M]°¶g_ ¿O´h(154Q ERROR! 144Q RESETRESTORE 63Q MAILOMAT.PROCESS.FILEA0002 41Q LA.LONGFILENAME) (137Q ERROR 60Q INTERNAL) ( 55Q (MAILOMAT.PROCESS.FILEA0002)) MAILOMAT.PROMPT D1 (P 1 X P 0 PWINDOW I 1 FORMWINDOW I 0 WORDS) *Al H @d²‹dIH µóƒH h(46Q PRIN1 34Q PRIN1 14Q CLEARW 5 GETPROMPTWINDOW) NIL () MAILOMAT.PROTECT.WARNING D1 (I 2 WINDOW I 1 SEL I 0 OBJ) o@g ohB (26Q MAILOMAT.PROMPT 12Q IMAGEOBJPROP) (7 MBTEXT) ( 16Q "%" is protected from editing" 3 "The field %"") MAILOMAT.PUT.FAILED D1 (I 1 FORMWINDOW I 0 MSG) @d£d‘hA Ag@ (31Q PUTWINDOWPROP 26Q MKSTRING 16Q MAILOMAT.PROMPT 2 RINGBELLS) (22Q TITLE) () MAILOMAT.READTOCFILEA0001 D1 (NAME ERRORSET P 20Q LENGTH P 17Q MSG P 16Q MESSAGESTART P 15Q START P 14Q I P 12Q OLDTOCFORMAT P 11Q TOCVERSION P 10Q READMORE P 7 LASTMSG# P 6 EXTRAMESSAGES P 5 MESSAGES P 4 FOLDEREOFPTR P 3 END P 2 MSGCOUNTGUESS P 1 FOLDERSTREAM P 0 TOCSTREAM F 21Q MAILFOLDER F 22Q RESETVARSLST F 23Q LAFITEVERSION# F 24Q TOCFILE F 25Q RESETY) W"kÏ¿W(ggho W"g jƒ gHhhhW$c$¿Hgg¿Hj ¿H áH Øn²*ð›H áH Ø_W&ðªOlð²4i_¿H áH ØH áH Øõ[I \ ³/IK ¿I ³o ±]o ±Si_¿LKÙnôÛZ€JH áH Ø_ÔZ ½OkH j$OOó’±ÅH _ jð©O dœ –H áH ØˆO H áH Øõ_ ¿`dOÍ¿dO¿dO ¿_¿OO Ô_¿OH Í¿O—OH Ï†OH Ï¿OH Ï¿OHl ¿OH ¿OH ¿OH ¿OjOH _ÙÙÍ¿MOO*¿OkÔ_±ÿ:W"OW&ð’O€jÍ ¿O²"W"ILKOkØi ^²=MNOkØN_½W"M¿W"OÍ¿W"L0¿W"kÏ¿ic*ioi °ó(777Q BADTOCFILE 712Q \LAFITE.ADDMESSAGES.TO.ARRAY 671Q MAILOMAT.PARSEMAILFOLDER1 575Q GETFILEPTR 556Q LA.READSHORTSTRING 542Q LA.READSHORTSTRING 526Q LA.READSHORTSTRING 512Q LA.READSTRING 342Q \FZEROP 305Q GETFILEPTR 275Q \LAFITE.MAKE.MSGARRAY 237Q BADTOCFILE 225Q BADTOCFILE 214Q LA.READSTAMP 207Q SETFILEPTR 200Q IEQP 174Q GETEOFPTR 107Q SETFILEPTR 101Q WHENCLOSE 42Q \LAFITE.OPEN.FOLDER 32Q OPENSTREAM) (754Q MAILFOLDER 743Q MAILFOLDER 731Q MAILFOLDER 720Q MAILFOLDER 632Q MAILFOLDER 566Q LAFITEMSG 552Q LAFITEMSG 536Q LAFITEMSG 522Q LAFITEMSG 504Q LAFITEMSG 471Q LAFITEMSG 434Q LAFITEMSG 371Q LAFITEMSGTYPE# 76Q NO 73Q CLOSEALL 51Q CLOSEF? 37Q INPUT 21Q OLD 16Q INPUT 4 MAILFOLDER) ( 773Q "Couldn't parse new messages, trying from scratch..." 234Q "Format obsolete, discarding..." 222Q "It does not agree with mail folder..." 26Q ((ENDOFSTREAMOP \LAFITE.TOCEOF))) MAILOMAT.READTOCFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 TOCFILE I 0 MAILFOLDER F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q MAILOMAT.READTOCFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (MAILOMAT.READTOCFILEA0001)) MAILOMAT.RECONNECT.WINDOW D1 (P 0 TOBJ I 0 FORMWINDOW) .@g H@hHk@g kØH h(52Q TEDIT.UPDATE.SCREEN 46Q \TEDIT.MARK.LINES.DIRTY 41Q GETEOFPTR 36Q GETWINDOWUSERPROP 11Q TEXTOBJ 6 GETWINDOWUSERPROP) (33Q TEXTSTREAM 20Q TEXTOBJ 3 TEXTSTREAM) () MAILOMAT.REMOVE.USER D1 (P 0 USER.PAIR I 0 USERNAME F 1 MAILOMAT.USER.LIST) @Q Xµ@o Q c(27Q REMOVE 22Q ERROR 7 ASSOC) NIL ( 17Q "is not a known username") MAILOMAT.REPLACE.FIELD.VALA0001 D1 (NAME ERRORSET P 3 SEL P 2 INSERT.CH# P 1 NEWVAL.NCHARS P 0 STREAM F 4 OBJ F 5 NEWVAL F 6 CH# F 7 WINDOW F 10Q MACROY) ¸W U "Tg ²RTg VØºHJTg ¿Ijñ²#HUdd¥d¡’ J¿HoJI¿TgI¿TgU°MH V [µo ¿KÉºHJKÉ¿Ijñ´$HUdd¥d¡’ J¿HoJI¿hci(257Q TEDIT.LOOKS 244Q TEDIT.INSERT 240Q MKSTRING 211Q TEDIT.DELETE 166Q SHOULDNT 154Q MBUTTON.FIND.NEXT.FIELD 150Q TEXTOBJ 142Q IMAGEOBJPROP 131Q IMAGEOBJPROP 120Q TEDIT.LOOKS 105Q TEDIT.INSERT 101Q MKSTRING 52Q TEDIT.DELETE 47Q IMAGEOBJPROP 33Q IMAGEOBJPROP 22Q IMAGEOBJPROP 10Q NCHARS 4 TEXTSTREAM) (204Q SELECTION 173Q SELECTION 136Q MAILOMAT.FIELD.VALUE 125Q MAILOMAT.FIELD.LEN 44Q MAILOMAT.FIELD.LEN 30Q MAILOMAT.FIELD.START 17Q MAILOMAT.PROTECTED.FLG) ( 252Q (PROTECTED OFF) 163Q "Can't find button field" 113Q (PROTECTED ON)) MAILOMAT.REPLACE.FIELD.VAL D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 3 NEWVAL I 2 WINDOW I 1 CH# I 0 OBJ F 4 RESETVARSLST) <l 1gHhhTcYog £g»IcgI K“J(67Q ERROR! 62Q APPLY 37Q MAILOMAT.REPLACE.FIELD.VALA0001 4 RADIX) (53Q RADIX 43Q ERROR 34Q INTERNAL 12Q RADIX) ( 31Q (MAILOMAT.REPLACE.FIELD.VALA0001)) MAILOMAT.REPLACE.FILL.INS D1 (P 3 X P 2 FORMSTREAM P 0 BUTTON I 1 FILL.INS I 0 FORMWINDOW) 5A@ IµH»¿JK Xd²ñHJK¿H´ãIY°Ú(52Q MAILOMAT.REPLACE.FIELD.VAL 34Q MAILOMAT.FIND.BUTTON 25Q BLOCK 7 TEXTSTREAM) NIL () MAILOMAT.RESET.SEL D1 (I 0 WINDOW) @g @g jg(27Q TEDIT.SETSEL 20Q MAILOMAT.FIND.UNPROTECTED.CH# 15Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (24Q LEFT 12Q TEXTSTREAM 3 TEXTSTREAM) () MAILOMAT.SCRATCH.LOAD D1 (P 0 SCRATCH.STREAM I 1 MAILOMATSTREAM I 0 FORMWINDOW) @@g H•H ³@ggggX¿Hj Aj @gAH h(74Q PUTWINDOWPROP 71Q MAILOMAT.COPY.AND.INDEX.MAILOMAT 60Q SETFILEPTR 53Q SETFILEPTR 45Q PUTWINDOWPROP 41Q OPENSTREAM 17Q OPENP 6 GETWINDOWUSERPROP) (64Q MAILOMAT.FORM.SCRATCH.MAP 36Q NEW 33Q BOTH 30Q {NODIRCORE} 25Q MAILOMAT.FORM.SCRATCH.STREAM 3 MAILOMAT.FORM.SCRATCH.STREAM) () MAILOMAT.SELECTMESSAGE D1 (P 0 N I 1 MAILFOLDER I 0 MSGDESCRIPTOR) @ÈAHdih(17Q LA.SELECTRANGE) (3 LAFITEMSG) () MAILOMAT.TEXTSTREAM.LOAD D1 (P 16Q X P 14Q SCRATCH.PTR P 13Q SCRATCH.MAP.SPEC P 12Q SEL P 11Q TOBJ P 10Q FIELD.CH# P 7 PROTECT.FIELD.FLG P 6 BUTTON P 5 OBJ P 4 FIELD.LEN P 3 CH# P 2 FORMSTREAM P 1 SCRATCH.MAP P 0 SCRATCH.STREAM I 1 FILL.INS I 0 FORMWINDOW) @@g @g @g jd…J _KkÔ»OK ^¢±¿N½N»Mg _šMg KØ°OK _µo ¿OÉ_¿JOkÙ ¿Mg I _µo ¿Mgh¿°_¿O¼JOjghi ¿LjñšJHOdLØ¿O²NMgL¿MgHO ¿Lk2OOó³$H _"¿O µO"h_ _¿OkÔ_°ãO"&_ ¿°òO ¿Lj ’±ÿ JO”oƒoOL¿±þö@A @g i h(474Q TEDIT.STREAMCHANGEDP 470Q GETWINDOWUSERPROP 461Q MAILOMAT.REPLACE.FILL.INS 450Q TEDIT.LOOKS 421Q EQP 413Q IMAGEOBJPROP 410Q PACKC 323Q SETFILEPTR 310Q IMAGEOBJPROP 273Q TEDIT.INCLUDE 254Q TEDIT.SETSEL 221Q IMAGEOBJPROP 210Q HELP 175Q ASSOC 171Q IMAGEOBJPROP 161Q SETFILEPTR 136Q HELP 123Q MBUTTON.FIND.NEXT.FIELD 111Q IMAGEOBJPROP 77Q IMAGEOBJPROP 61Q BLOCK 51Q MBUTTON.FIND.NEXT.BUTTON 35Q TEXTOBJ 24Q GETWINDOWUSERPROP 15Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (465Q TEXTSTREAM 315Q MAILOMAT.FIELD.VALUE 304Q MAILOMAT.FIELD.LEN 246Q LEFT 215Q MAILOMAT.FIELD.VALUE 166Q MBTEXT 144Q SELECTION 106Q MAILOMAT.FIELD.START 74Q MAILOMAT.PROTECTED.FLG 21Q TEXTSTREAM 12Q MAILOMAT.FORM.SCRATCH.MAP 3 MAILOMAT.FORM.SCRATCH.STREAM) ( 442Q (PROTECTED OFF) 435Q (PROTECTED ON) 205Q "Null scatch map spec" 133Q "Can't find field for button") MAILOMAT.TIME.OF.DAY.WAKEUP D1 (P 3 WAIT P 2 ROLLOVER P 1 TIME.LIST P 0 PRESENT.TIME I 1 FIRING.TIMES I 0 USER.DATA) pP¸A\µ$hµA¹IÙnèÚ»IµiZ´A¹Kjó²K° Hó•LµÝi°×L°ÎJ²oKó™KoÔ ¿@dgð‘h ¿¸°¤(153Q MAILOMAT.PRESENT.TIME 147Q MAILOMAT.PROCESS.FILE 116Q DISMISS 25Q MAILOMAT.PRESENT.TIME 5 MAILOMAT.PRESENT.TIME) (140Q Off) ( 112Q 511456000Q 102Q -537440Q) MAILOMAT.TOBJ.ACTIVEP D1 (L (0 TOBJ)) @d É>NIL (6 TEXTOBJ) () MAILOMAT.TRANSMIT.HARDCOPYA0001 D1 (NAME ERRORSET F 0 MSGLST F 1 \LAFITE.HARDCOPYLOCK F 2 TEXTSTREAM F 3 RESETY F 4 LCASEFILENAME F 5 MAILFOLDER F 6 USER.DATA) GQhi¿RhdP˜P oŠoPÈ oTµUÉ V ci(101Q TEDIT.HARDCOPY 66Q CONCAT 63Q L-CASE 43Q CONCAT 20Q LENGTH 5 OBTAIN.MONITORLOCK) (56Q MAILFOLDER 36Q LAFITEMSG) ( 47Q " from " 31Q "Message #" 24Q " messages") MAILOMAT.TRANSMIT.HARDCOPY D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 4 USER.DATA I 3 LCASEFILENAME I 2 MSGLST I 1 TEXTSTREAM I 0 MAILFOLDER F 3 LISPXHIST F 4 RESETVARSLST F 5 HARDCOPYMARK) 1S!Tog ‘h‚gZ ¿J“¿A A @BU(56Q MAILOMAT.MARK.HARDCOPIED 50Q DELFILE 44Q CLOSEF 36Q ERROR! 30Q RESETRESTORE 16Q MAILOMAT.TRANSMIT.HARDCOPYA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (MAILOMAT.TRANSMIT.HARDCOPYA0001)) MAILOMAT.PERIODIC.WAKEUP D1 (P 1 WAIT P 0 EXPECTEDTIME I 2 TIME.PERIOD I 1 START.TIME I 0 USER.DATA) K AnèÚXnèÚÙ¹Ijó”I ¿@dgð•¿h ¿BnèÚHÙÕ¹HBÔ¸°Ê(73Q IDATE 66Q MAILOMAT.PROCESS.FILE 61Q RINGBELLS 31Q DISMISS 13Q IDATE) (53Q Off) () (PRETTYCOMPRINT MAILOMATCOMS) (RPAQQ MAILOMATCOMS ((* * MAILOMAT.FORM functions and variables) (FNS MAILOMAT.ADD.USER MAILOMAT.APPEND.TIME MAILOMAT.APPENDMESSAGES MAILOMAT.ENCODE.PERIODIC.PARAMS MAILOMAT.ENCODE.START.TIME MAILOMAT.ENCODE.TIME.UNIT MAILOMAT.ENCODE.TOD.PARAMS MAILOMAT.ENCODE.USER.DATA MAILOMAT.EXTRACT.FIELDS MAILOMAT.HARDCOPY MAILOMAT.MENU.FN.PUT MAILOMAT.INFER.USERNAME MAILOMAT.UPDATECONTENTSFILE MAILOMAT.UPDATEMAILFOLDER MAILOMAT.BLANKP MAILOMAT.BUTTON.GET.MENU MAILOMAT.BUTTON.GET.SUBMENU MAILOMAT.BUTTON.OBJ.CREATE MAILOMAT.BUTTONFN.DOMENU MAILOMAT.BUTTONFN.DOSUBMENU MAILOMAT.BUTTONFN.SELFIELD MAILOMAT.CHECK.FIELDS MAILOMAT.CHECK.MENU MAILOMAT.CHECK.SHORTSTRING MAILOMAT.CHECK.SUBMENU MAILOMAT.CONFIRM MAILOMAT.DELETE.FIELD.VAL MAILOMAT.DISCONNECT.WINDOW MAILOMAT.FIND.BUTTON MAILOMAT.FIND.EDIT.CHANGES MAILOMAT.FIND.UNPROTECTED.CH# MAILOMAT.FORM.CLEAR MAILOMAT.FORM.CREATE MAILOMAT.FORM.FILL.INS MAILOMAT.FULLUSERNAME MAILOMAT.ICONFN MAILOMAT.INDEX.FIRING.TIMES MAILOMAT.INIT MAILOMAT.INIT.MAIL.USER MAILOMAT.LOAD.FIELDS MAILOMAT.LOAD.FROM.PROFILE MAILOMAT.LOADMAILFOLDER MAILOMAT.PANEL.CREATE MAILOMAT.PARSE.TIME MAILOMAT.PARSEMAILFOLDER1 MAILOMAT.FORM.GROUP.CREATE MAILOMAT.KILL.ATTACHED.TEDIT.CLOSEFN MAILOMAT.FORM.MENU.ACTIONFN MAILOMAT.GET.MAILOMAT MAILOMAT.GET.PASSWORD MAILOMAT.GETMAILFOLDER MAILOMAT.GETNEWMAIL MAILOMAT.GETNEWMAIL1 MAILOMAT.FORM.MENU.BUTTONFN MAILOMAT.FORM.SAVE MAILOMAT.GET.FILENAME MAILOMAT.GET.ASSOCIATED.MENU.BUTTON.VAL MAILOMAT.GET.ASSOCIATED.MENU.VAL MAILOMAT.GET.BUTTON.FIELD.AS.TEXT MAILOMAT.GET.BUTTON.FIELD.AS.LIST MAILOMAT.MARK.ACTIVE MAILOMAT.MARK.HARDCOPIED MAILOMAT.MENU.CR.FN MAILOMAT.MENU.FN.CLEAR MAILOMAT.MENU.FN.GET MAILOMAT.MENU.FN.APPLY MAILOMAT.GET.USERNAME MAILOMAT.OPEN.MAILFOLDER MAILOMAT.PRESENT.TIME MAILOMAT.PROCESS.FILE MAILOMAT.PROMPT MAILOMAT.PROTECT.WARNING MAILOMAT.PUT.FAILED MAILOMAT.READTOCFILE MAILOMAT.RECONNECT.WINDOW MAILOMAT.REMOVE.USER MAILOMAT.REPLACE.FIELD.VAL MAILOMAT.REPLACE.FILL.INS MAILOMAT.RESET.SEL MAILOMAT.SCRATCH.LOAD MAILOMAT.SELECTMESSAGE MAILOMAT.TEXTSTREAM.LOAD MAILOMAT.TIME.OF.DAY.WAKEUP MAILOMAT.TOBJ.ACTIVEP MAILOMAT.TRANSMIT.HARDCOPY MAILOMAT.PERIODIC.WAKEUP) (CONSTANTS LAFITETOCHEADERLENGTH LAFITETOCPASSWORD TIME.ACCEPTOR UNSEENFLAG DELETEDFLAG SEENFLAG UNDELETEDFLAG) (VARS MAILOMAT.FORM.FIELDS MAILOMAT.FORM.FORMAT MAILOMAT.FORM.SPECS) (INITVARS (MAILOMATBUTTONFONT (FONTCREATE (QUOTE HELVETICA) 12 (QUOTE BOLD))) (MAILOMATFONT (FONTCREATE (QUOTE TIMESROMAN) 8)) ( MAILOMATBOLDFONT (FONTCREATE (QUOTE HELVETICA) 10 (QUOTE BOLD))) (MAILOMAT.USER.LIST ( QUOTE ((**% OTHER% **)))) (MAILOMATFORMTEMPLATE NIL)) (GLOBALVARS MAILOMATFONT MAILOMATBOLDFONT) (ADDVARS (BackgroundMenuCommands ("MAILOMAT Panel" (QUOTE ( MAILOMAT.PANEL.CREATE)) "Bulk mail process a user's mail"))) (VARS (BackgroundMenu)) ( MACROS MAILOMAT.ENTRY.PTR.TO.KEY.VAL.PTR MAILOMAT.ENTRY.TO.NUM MAILOMAT.INDEX.DATA.CONTEXT MAILOMAT.KEY.VAL.PTR.TO.ENTRY.PTR MAILOMATSPECGET ARSPECPUT FIXPIN FIXPOUT IMAGEOBJPROPS UCASE.STREQUAL WORDIN WORDOUT) (RECORDS MAILOMAT.USERDATA DEFAULTHOST&DIR FSM LAFITEMSG LAFITEOPS LAFITEUSERDATA MAILFOLDER MAILSERVER MAILSERVEROPS OPENEDMAILBOX TRANSITION) ( UGLYVARS MAILOMAT.FORM.ICON MAILOMAT.FORM.MASK) (RESOURCES SCRATCHSTRING) (I.S.OPRS SELECTEDIN) (P (MAILOMAT.INIT)))) (RPAQQ LAFITETOCHEADERLENGTH 10) (RPAQQ LAFITETOCPASSWORD 45610) (RPAQQ TIME.ACCEPTOR (((0 (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 0) (0 (LAMBDA (X) (AND (NUMBERP X) (SETQ HOUR X))) 1) (1 (LAMBDA (X) (AND (NUMBERP X) (LESSP (SETQ HOUR ( PLUS X (ITIMES 10 HOUR))) 24))) 2) (1 (LAMBDA (X) (EQ X (QUOTE :))) 3) (2 (LAMBDA (X) (EQ X (QUOTE :))) 3) (3 (LAMBDA (X) (AND (NUMBERP X) (SETQ MINUTE X))) 4) (4 (LAMBDA (X) (AND (NUMBERP X) (LESSP (SETQ MINUTE (PLUS X (ITIMES 10 MINUTE))) 60))) 5) (4 (LAMBDA (X) (EQ X (QUOTE :))) 6) (4 (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 12) (4 (LAMBDA (X) ( UCASE.STREQUAL X (QUOTE A))) 11) (4 (LAMBDA (X) (UCASE.STREQUAL X (QUOTE P))) 9) (5 ( LAMBDA (X) (EQ X (QUOTE :))) 6) (5 (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 12) (5 ( LAMBDA (X) (UCASE.STREQUAL X (QUOTE A))) 11) (5 (LAMBDA (X) (UCASE.STREQUAL X (QUOTE P))) 9) (6 (LAMBDA (X) (AND (NUMBERP X) (SETQ SECOND X))) 7) (7 (LAMBDA (X) (AND (NUMBERP X) ( LESSP (SETQ SECOND (PLUS X (ITIMES 10 SECOND))) 60))) 8) (7 (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 12) (8 (LAMBDA (X) (UCASE.STREQUAL X (QUOTE A))) 11) (8 (LAMBDA (X) ( UCASE.STREQUAL X (QUOTE P))) 9) (8 (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 12) (9 ( LAMBDA (X) (AND (UCASE.STREQUAL X (QUOTE M)) (COND ((LESSP HOUR 12) (SETQ HOUR (PLUS HOUR 12))) (T T)))) 10) (10 (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 12) (11 (LAMBDA (X) (AND (UCASE.STREQUAL X (QUOTE M)) (LESSP HOUR 13) (COND ((EQ HOUR 12) (SETQ HOUR 0)) (T T) ))) 10) (12 (LAMBDA (X) (MAILOMAT.BLANKP X TIME.ACCEPTOR)) 12) (12 (LAMBDA (X) (AND ( NUMBERP X) (SETQ TIME.LIST (MAILOMAT.APPEND.TIME TIME.LIST HOUR MINUTE SECOND)) (SETQ HOUR X) (SETQ MINUTE 0) (SETQ SECOND 0))) 1)) 0 (4 5 7 8 10 12) (MAILOMAT.APPEND.TIME ( TIME.LIST HOUR MINUTE SECOND)) (% % % ))) (RPAQQ UNSEENFLAG 85) (RPAQQ DELETEDFLAG 68) (RPAQQ SEENFLAG 83) (RPAQQ UNDELETEDFLAG 85) (CONSTANTS LAFITETOCHEADERLENGTH LAFITETOCPASSWORD TIME.ACCEPTOR UNSEENFLAG DELETEDFLAG SEENFLAG UNDELETEDFLAG) (RPAQQ MAILOMAT.FORM.FIELDS ((Mail% Folder: MAILFOLDER) (Username: USERNAME) (Hardcopy: HARDCOPY) (Print% Server: PRINTSERVER) (Firing% Mode: FIRINGMODE) (Firing% Times: FIRINGTIMES) (Start% Time: STARTIME) (Time% Period: TIMEPERIOD) (Time% Unit: TIMEUNIT) ( Activation: ACTIVATION))) (RPAQQ MAILOMAT.FORM.FORMAT (Mail% Folder: CR Username: TAB Password: CR Hardcopy: TAB Print% Server: CR Firing% Mode: CR Firing% Times: CR Start% Time: TAB Time% Period: CR Time% Unit: TAB Activation: CR)) (RPAQQ MAILOMAT.FORM.SPECS ((Mail% Folder: FIELDTYPE STRING) (Username: FIELDTYPE STRING) (Password: FIELDTYPE STRING FN MAILOMAT.GET.PASSWORD) (Hardcopy: FIELDTYPE MENU MENULIST ( Yes No)) (Print% Server: FIELDTYPE STRING) (Firing% Mode: FIELDTYPE MENU MENULIST ( Time% of% Day Fixed% Period)) (Firing% Times: FIELDTYPE STRING) (Start% Time: FIELDTYPE STRING) (Time% Period: FIELDTYPE STRING) (Time% Unit: FIELDTYPE MENU MENULIST (Days Hours Minutes)) (Activation: FIELDTYPE MENU MENULIST (On Off)))) (RPAQ? MAILOMATBUTTONFONT (FONTCREATE (QUOTE HELVETICA) 12 (QUOTE BOLD))) (RPAQ? MAILOMATFONT (FONTCREATE (QUOTE TIMESROMAN) 8)) (RPAQ? MAILOMATBOLDFONT (FONTCREATE (QUOTE HELVETICA) 10 (QUOTE BOLD))) (RPAQ? MAILOMAT.USER.LIST (QUOTE ((**% OTHER% **)))) (RPAQ? MAILOMATFORMTEMPLATE NIL) (ADDTOVAR BackgroundMenuCommands ("MAILOMAT Panel" (QUOTE (MAILOMAT.PANEL.CREATE)) "Bulk mail process a user's mail")) (RPAQQ BackgroundMenu NIL) (PUTPROPS MAILOMAT.ENTRY.PTR.TO.KEY.VAL.PTR MACRO (X (BQUOTE (IPLUS , (CADR X) (IQUOTIENT (IDIFFERENCE , (CAR X) MAILOMAT.INDEX.ENTRY.BEGIN.PTR) MAILOMAT.INDEX.ENTRY.SIZE))))) (PUTPROPS MAILOMAT.ENTRY.TO.NUM MACRO (X (BQUOTE (PROGN (SETFILEPTR MAILOMAT.INDEX.FILE , (CAR X)) (\DWIN MAILOMAT.INDEX.FILE))))) (PUTPROPS MAILOMAT.INDEX.DATA.CONTEXT MACRO (X (BQUOTE (WITH.MONITOR MAILOMAT.INDEX.MONITORLOCK (PROG (MAILOMAT.INDEX.FILE MAILOMAT.INDEX.ENTRY.BEGIN.PTR MAILOMAT.INDEX.ENTRY.END.PTR MAILOMAT.INDEX.ENTRY.SIZE MAILOMAT.INDEX.FIELD.SPECS MAILOMAT.INDEX.FIELD.LIST) (DECLARE (SPECVARS MAILOMAT.INDEX.FILE MAILOMAT.INDEX.ENTRY.BEGIN.PTR MAILOMAT.INDEX.ENTRY.END.PTR MAILOMAT.INDEX.ENTRY.SIZE MAILOMAT.INDEX.FIELD.SPECS MAILOMAT.INDEX.FIELD.LIST)) (MAILOMAT.INDEX.DATA.UNPACK ( WINDOWPROP , (CAR X) (QUOTE MAILOMAT.INDEX.DATA))) (MAILOMAT.INDEX.FILE.REOPEN , (CAR X)) (RETURN (PROGN ,@ (CDR X)))))))) (PUTPROPS MAILOMAT.KEY.VAL.PTR.TO.ENTRY.PTR MACRO (X (BQUOTE (IPLUS (ITIMES MAILOMAT.INDEX.ENTRY.SIZE (IDIFFERENCE , (CAR X) , (CADR X))) MAILOMAT.INDEX.ENTRY.BEGIN.PTR)))) (PUTPROPS MAILOMATSPECGET MACRO (X (BQUOTE (LISTGET (CDR (ASSOC , (CADR X) , (CAR X))) , ( CADDR X))))) (PUTPROPS ARSPECPUT MACRO (X (BQUOTE (LISTPUT (CDR (ASSOC , (CADR X) , (CAR X))) , (CADDR X) , (CADDDR X))))) (PUTPROPS FIXPIN DMACRO (OPENLAMBDA (STREAM) (\MAKENUMBER (WORDIN STREAM) (WORDIN STREAM)) )) (PUTPROPS FIXPOUT DMACRO (OPENLAMBDA (STREAM N) (PROGN (WORDOUT STREAM (LRSH N 16)) ( WORDOUT STREAM (LOGAND N 65535))))) (PUTPROPS IMAGEOBJPROPS MACRO (X (IMAGEOBJPROPS.MACRO X))) (PUTPROPS UCASE.STREQUAL MACRO ((X Y) (EQ (ALPHORDER X Y UPPERCASEARRAY) (QUOTE EQUAL)))) (PUTPROPS WORDIN DMACRO (= . \WIN)) (PUTPROPS WORDIN MACRO (= . \WIN)) (PUTPROPS WORDOUT DMACRO (= . \WOUT)) (RECORD MAILOMAT.USERDATA (LAFITE.USERDATA USERNAME PASSWORD MAILFOLDER HARDCOPY PRINTSERVER FIRINGMODE FIRINGTIMES STARTIME TIMEPERIOD TIMEUNIT ACTIVATION SERVERPROCESS)) (RECORD DEFAULTHOST&DIR (PACKEDHOST&DIR . UNPACKEDHOST&DIR) (PROPRECORD UNPACKEDHOST&DIR ( DEFAULTDIR DEFAULTHOST DEFAULTDEV))) (RECORD FSM (TRANSITIONS START.STATE ACCEPT.STATES ACCEPT.RESULT BLANKS)) (DATATYPE LAFITEMSG ((PARSED? FLAG) (DELETED? FLAG) (SEEN? FLAG) (FORMATTED? FLAG) (NIL FLAG) (NIL FLAG) (NIL FLAG) (NIL FLAG) (BEGIN POINTER) (MARKCHAR BYTE) (MESSAGELENGTH POINTER) (# WORD) (STAMPLENGTH WORD) (TOCLENGTH WORD) (NIL WORD) (MESSAGELENGTHCHANGED? FLAG) (MARKSCHANGED? FLAG) (SELECTED? FLAG) (MSGFROMMECHECKED? FLAG) (MSGFROMMETRUTH FLAG) (NIL FLAG) (NIL FLAG) (NIL FLAG) (DATE POINTER) (FROM POINTER) (SUBJECT POINTER) (TO POINTER)) (* BEGIN is the only absolute pointer into the message file -- all other positions are relative to BEGIN -- see the ACCESSFNS *) (BLOCKRECORD LAFITEMSG (( PARSED&DELETED&SEENBITS BITS 3) (NIL BITS 5) (NIL POINTER))) (BLOCKRECORD LAFITEMSG (( MSGFLAGBITS BITS 8) (NIL POINTER))) (ACCESSFNS LAFITEMSG ((END (IPLUS (fetch (LAFITEMSG MESSAGELENGTH) of DATUM) (fetch (LAFITEMSG BEGIN) of DATUM))) (START (IPLUS (fetch ( LAFITEMSG BEGIN) of DATUM) (fetch (LAFITEMSG STAMPLENGTH) of DATUM))) (SEENFILEPTR (IPLUS (fetch (LAFITEMSG BEGIN) of DATUM) LAFITESEENPOSITION)) (MARKFILEPTR (IPLUS (fetch ( LAFITEMSG BEGIN) of DATUM) LAFITEMARKPOSITION)) (DELETEFILEPTR (IPLUS (fetch (LAFITEMSG BEGIN) of DATUM) LAFITEDELETEPOSITION)) (MSGFROMMEP (COND ((fetch (LAFITEMSG MSGFROMMECHECKED?) of DATUM) (fetch (LAFITEMSG MSGFROMMETRUTH) of DATUM)) (T ( LA.MSGFROMMEP DATUM))) (PROG1 (replace (LAFITEMSG MSGFROMMETRUTH) of DATUM with NEWVALUE) (replace (LAFITEMSG MSGFROMMECHECKED?) of DATUM with T)))))) (RECORD LAFITEOPS (LAFITEMODE SENDPARSER SENDER ANSWERER AUTHENTICATOR)) (RECORD LAFITEUSERDATA (FULLUSERNAME UNPACKEDUSERNAME ENCRYPTEDPASSWORD SHORTUSERNAME . MAILSERVERS)) (DATATYPE MAILFOLDER ((BROWSERPROMPTDIRTY FLAG) (BROWSERREADY FLAG) (FOLDERNEEDSUPDATE FLAG) (FOLDERNEEDSEXPUNGE FLAG) (FOLDERBEINGUPDATED FLAG) (HARDCOPYPENDING FLAG) (NIL FLAG ) (FULLFOLDERNAME POINTER) (VERSIONLESSFOLDERNAME POINTER) (SHORTFOLDERNAME POINTER) ( FOLDERSTREAM POINTER) (MESSAGEDESCRIPTORS POINTER) (FOLDERLOCK POINTER) (#OFMESSAGES WORD) (TOCLASTMESSAGE# WORD) (BROWSERFONTHEIGHT WORD) (BROWSERFONTASCENT WORD) ( BROWSERFONTDESCENT WORD) (BROWSERMAXXPOS WORD) (ORDINALXPOS WORD) (DATEXPOS WORD) ( FROMXPOS WORD) (FROMMAXXPOS WORD) (SUBJECTXPOS WORD) (BROWSERDIGITWIDTH WORD) ( FIRSTSELECTEDMESSAGE WORD) (LASTSELECTEDMESSAGE WORD) (FIRSTCHANGEDMESSAGE WORD) ( CURRENTEOMLENGTH WORD) (CURRENTDISPLAYEDSTREAM POINTER) (BROWSEREXTENT POINTER) ( BROWSERORIGIN POINTER) (BROWSERSELECTIONREGION POINTER) (BROWSERWINDOW POINTER) ( BROWSERMENU POINTER) (BROWSERMENUWINDOW POINTER) (BROWSERPROMPTWINDOW POINTER) ( ORIGINALBROWSERTITLE POINTER) (FOLDERDISPLAYWINDOWS POINTER) (FOLDEREOFPTR POINTER) ( DEFAULTMOVETOFILE POINTER) (CURRENTDISPLAYEDMESSAGE POINTER) (BROWSERUPDATEFROMHERE POINTER) (EXTRAFIELD POINTER) (FOLDERCREATIONDATE POINTER) (HARDCOPYMESSAGES POINTER) ( HARDCOPYSTREAM POINTER))) (RECORD MAILSERVER (MAILSERVEROPS MAILPORT MAILSERVERNAME CONTINUANCE . MAILSTATE)) (RECORD MAILSERVEROPS (POLLNEWMAIL OPENMAILBOX NEXTMESSAGE RETRIEVEMESSAGE CLOSEMAILBOX SERVERPORTFROMNAME)) (RECORD OPENEDMAILBOX (MAILBOX . PROPERTIES) (PROPRECORD PROPERTIES (#OFMESSAGES))) (RECORD TRANSITION (CURRENT.STATE PREDICATE NEXT.STATE)) (/DECLAREDATATYPE (QUOTE LAFITEMSG) (QUOTE (FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG POINTER BYTE POINTER WORD WORD WORD WORD FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG POINTER POINTER POINTER POINTER)) (QUOTE ((LAFITEMSG 0 (FLAGBITS . 0)) (LAFITEMSG 0 (FLAGBITS . 16 )) (LAFITEMSG 0 (FLAGBITS . 32)) (LAFITEMSG 0 (FLAGBITS . 48)) (LAFITEMSG 0 (FLAGBITS . 64 )) (LAFITEMSG 0 (FLAGBITS . 80)) (LAFITEMSG 0 (FLAGBITS . 96)) (LAFITEMSG 0 (FLAGBITS . 112)) (LAFITEMSG 0 POINTER) (LAFITEMSG 2 (BITS . 7)) (LAFITEMSG 2 POINTER) (LAFITEMSG 4 ( BITS . 15)) (LAFITEMSG 5 (BITS . 15)) (LAFITEMSG 6 (BITS . 15)) (LAFITEMSG 7 (BITS . 15)) (LAFITEMSG 8 (FLAGBITS . 0)) (LAFITEMSG 8 (FLAGBITS . 16)) (LAFITEMSG 8 (FLAGBITS . 32)) ( LAFITEMSG 8 (FLAGBITS . 48)) (LAFITEMSG 8 (FLAGBITS . 64)) (LAFITEMSG 8 (FLAGBITS . 80)) ( LAFITEMSG 8 (FLAGBITS . 96)) (LAFITEMSG 8 (FLAGBITS . 112)) (LAFITEMSG 8 POINTER) ( LAFITEMSG 10 POINTER) (LAFITEMSG 12 POINTER) (LAFITEMSG 14 POINTER))) (QUOTE 16)) (/DECLAREDATATYPE (QUOTE MAILFOLDER) (QUOTE (FLAG FLAG FLAG FLAG FLAG FLAG FLAG POINTER POINTER POINTER POINTER POINTER POINTER WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((MAILFOLDER 0 (FLAGBITS . 0)) (MAILFOLDER 0 (FLAGBITS . 16)) (MAILFOLDER 0 ( FLAGBITS . 32)) (MAILFOLDER 0 (FLAGBITS . 48)) (MAILFOLDER 0 (FLAGBITS . 64)) (MAILFOLDER 0 (FLAGBITS . 80)) (MAILFOLDER 0 (FLAGBITS . 96)) (MAILFOLDER 0 POINTER) (MAILFOLDER 2 POINTER) (MAILFOLDER 4 POINTER) (MAILFOLDER 6 POINTER) (MAILFOLDER 8 POINTER) (MAILFOLDER 10 POINTER) (MAILFOLDER 12 (BITS . 15)) (MAILFOLDER 13 (BITS . 15)) (MAILFOLDER 14 (BITS . 15)) (MAILFOLDER 15 (BITS . 15)) (MAILFOLDER 16 (BITS . 15)) (MAILFOLDER 17 (BITS . 15) ) (MAILFOLDER 18 (BITS . 15)) (MAILFOLDER 19 (BITS . 15)) (MAILFOLDER 20 (BITS . 15)) ( MAILFOLDER 21 (BITS . 15)) (MAILFOLDER 22 (BITS . 15)) (MAILFOLDER 23 (BITS . 15)) ( MAILFOLDER 24 (BITS . 15)) (MAILFOLDER 25 (BITS . 15)) (MAILFOLDER 26 (BITS . 15)) ( MAILFOLDER 27 (BITS . 15)) (MAILFOLDER 28 POINTER) (MAILFOLDER 30 POINTER) (MAILFOLDER 32 POINTER) (MAILFOLDER 34 POINTER) (MAILFOLDER 36 POINTER) (MAILFOLDER 38 POINTER) ( MAILFOLDER 40 POINTER) (MAILFOLDER 42 POINTER) (MAILFOLDER 44 POINTER) (MAILFOLDER 46 POINTER) (MAILFOLDER 48 POINTER) (MAILFOLDER 50 POINTER) (MAILFOLDER 52 POINTER) ( MAILFOLDER 54 POINTER) (MAILFOLDER 56 POINTER) (MAILFOLDER 58 POINTER) (MAILFOLDER 60 POINTER) (MAILFOLDER 62 POINTER))) (QUOTE 64)) (READVARS MAILOMAT.FORM.ICON MAILOMAT.FORM.MASK) ({ (READBITMAP) (105 103 "@@COOOOOOOOOOOOOOOOOOOOOOOH@" "@@O@@@@@@@@@@@@@@@@@@@@@@OH@" "@@O@@@@@@@@@@@@@@@@@@@@@@OH@" "@CL@@@@@@@@@@@@@@@@@@@@@CLH@" "@CL@@@@@@@@@@@@@@@@@@@@@CLH@" "@O@@@@@@@@@@@@@@@@@@@@@@O@H@" "@O@@@@@@@@@@@@@@@@@@@@@@O@H@" "CL@@@@@@@@@@@@@@@@@@@@@CL@H@" "CL@@@@@@@@@@@@@@@@@@@@@CL@H@" "OOOOOOOOOOOOOOOOOOOOOOOO@@H@" "OOOOOOOOOOOOOOOOOOOOOOOO@@H@" "OOOOOOOOOOOOOOOOOOOOOOOO@@H@" "OOOOOOOOOOOOOOOOOOOOOOOO@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "OCOOOOOOO@@C@@@@@@@@@@@O@@H@" "OCOOOOOOO@@C@@@@@@@@@@@O@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "O@OOOOOOOOOC@OOOOO@@@@@O@@H@" "O@OOOOOOOOOC@OOOOO@@@@@O@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "OCOOOOOOOO@C@OOOOOOOOL@O@@H@" "OCOOOOOOOO@C@OOOOOOOOL@O@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "OOOOOOOOOOOOOOOOOOOOOOOO@@H@" "OOOOOOOOOOOOOOOOOOOOOOOO@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "O@@@@@@OOOOCCOOOOL@@@@@O@@H@" "O@@@@@@OOOOCCOOOOL@@@@@O@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "O@COOOOOOO@C@@OOOOOOO@@O@@H@" "O@COOOOOOO@C@@OOOOOOO@@O@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "OCOOOOOOOOLCCOOOOO@@@@@O@@H@" "OCOOOOOOOOLCCOOOOO@@@@@O@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "OOOOOOOOOOOOOOOOOOOOOOOO@@H@" "OOOOOOOOOOOOOOOOOOOOOOOO@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "O@@@@@@@@@@C@@COOOOL@@@O@@H@" "O@@@@@@@@@@C@@COOOOL@@@O@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "OCOOOOOOOL@C@@@COOOOOL@O@@H@" "OCOOOOOOOL@C@@@COOOOOL@O@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "O@@@@@@@@@@C@@@@@@@@@@@O@@H@" "OOOOOOOOOOOOOOOOOOOOOOOO@@H@" "OOOOOOOOOOOOOOOOOOOOOOOO@@H@" "O@@@@@@@@@@@@@@@@@@@@@@O@@H@" "O@@@@@@@@@@@@@@@@@@@@@@O@@H@" "O@@@@@@@@@@@@@@@@@@@@@@O@@H@" "O@@@@@@@@@@@@@@@@@@@@@@O@@H@" "O@@@@@@@@@@@@@@@@@@@@@@O@@H@" "O@@@@@@@@@@@@@@@@@@@@@@O@@H@" "O@@@@@@@@@@@@@@@@@@@@@@O@@H@" "O@@@@@@@@@@@@@@@@@@@@@@O@@H@" "O@@@@@@@@@@@@@@@@@@@@@@O@@H@" "O@@@@@@@@@@@@@@@@@@@@@@O@@H@" "O@@@@@@@@@@@@@@@@@@@@@@O@@H@" "O@@@@@@@@@@@@@@@@@@@@@@O@@H@" "O@@@@@@@@@@@@@@@@@@@@@@O@@H@" "O@@@@@@@@@@@@@@@@@@@@@@O@@H@" "O@@@@@@@@@@@@@@@@@@@@@@O@@H@" "O@@@@@@@@@@@@@@@@@@@@@@O@@H@" "O@@@@@@@@@@@@@@@@@@@@@@O@@H@" "O@@@@@@@@@@@@@@@@@@@@@@O@@H@" "O@@@@@@@@@@@@@@@@@@@@@@O@@H@" "O@@@@@@@@@@@@@@@@@@@@@@O@@H@" "O@@@@@@@@@@@@@@@@@@@@@@O@@H@" "O@@@@@@@@@@@@@@@@@@@@@@O@@H@" "O@@@@@@@@@@@@@@@@@@@@@@O@@H@" "O@@@@@@@@@@@@@@@@@@@@@@O@@H@" "O@@@@@@@@@@@@@@@@@@@@@@O@CH@" "O@@@@@@@@@@@@@@@@@@@@@@O@CH@" "O@@@@@@@@@@@@@@@@@@@@@@O@O@@" "O@@@@@@@@@@@@@@@@@@@@@@O@O@@" "O@@@@@@@@@@@@@@@@@@@@@@OCL@@" "O@@@@@@@@@@@@@@@@@@@@@@OCL@@" "O@@@@@@@@@@@@@@@@@@@@@@OO@@@" "O@@@@@@@@@@@@@@@@@@@@@@OO@@@" "OOOOOOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOOOOO@@@@" "OOOOOOOOOOOOOOOOOOOOOOOO@@@@") } { (READBITMAP) (105 103 "@@COOOOOOOOOOOOOOOOOOOOOOOH@" "@@OOOOOOOOOOOOOOOOOOOOOOOOH@" "@@OOOOOOOOOOOOOOOOOOOOOOOOH@" "@COOOOOOOOOOOOOOOOOOOOOOOOH@" "@COOOOOOOOOOOOOOOOOOOOOOOOH@" "@OOOOOOOOOOOOOOOOOOOOOOOOOH@" "@OOOOOOOOOOOOOOOOOOOOOOOOOH@" "COOOOOOOOOOOOOOOOOOOOOOOOOH@" "COOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOOOOOOOOO@@" "OOOOOOOOOOOOOOOOOOOOOOOOOO@@" "OOOOOOOOOOOOOOOOOOOOOOOOOL@@" "OOOOOOOOOOOOOOOOOOOOOOOOOL@@" "OOOOOOOOOOOOOOOOOOOOOOOOO@@@" "OOOOOOOOOOOOOOOOOOOOOOOOO@@@" "OOOOOOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOOOOOL@@@" "OOOOOOOOOOOOOOOOOOOOOOOO@@@@" "OOOOOOOOOOOOOOOOOOOOOOOO@@@@") }) (PUTDEF (QUOTE SCRATCHSTRING) (QUOTE RESOURCES) (QUOTE (NEW (ALLOCSTRING 100)))) (I.S.OPR (QUOTE SELECTEDIN) NIL (QUOTE (bind ($$MESSAGES _ (fetch (MAILFOLDER MESSAGEDESCRIPTORS) of BODY)) ($$MSG# _ (SUB1 (fetch (MAILFOLDER FIRSTSELECTEDMESSAGE) of BODY))) ($$MSGLAST _ (fetch (MAILFOLDER LASTSELECTEDMESSAGE) of BODY)) until (IGREATERP ( add $$MSG# 1) $$MSGLAST) when (fetch (LAFITEMSG SELECTED?) of (SETQ I.V. (NTHMESSAGE $$MESSAGES $$MSG#)))))) (MAILOMAT.INIT) (PUTPROPS MAILOMAT COPYRIGHT ("Xerox Corporation" 1984 1985)) NIL