(FILECREATED "22-May-85 18:08:11" ("compiled on " {EROS}MAILREADER>CALLTEXT>PROSE-LAFITE.;11) "19-Mar-85 14:34:17" recompiled changes: P.OPEN.BROWSER.ON.FILE P.READ.OLD.MAIL in "INTERLISP-D 16-Apr-85 ..." dated "16-Apr-85 13:02:15") (FILECREATED "22-May-85 18:07:10" {EROS}MAILREADER>CALLTEXT>PROSE-LAFITE.;11 46285 changes to: (FNS P.OPEN.BROWSER.ON.FILE P.READ.OLD.MAIL) previous date: "20-May-85 11:03:22" {EROS}MAILREADER>CALLTEXT>PROSE-LAFITE.;10) BROWSER.FROM.FILE D1 (L (0 MAILFILE) F 2 \ACTIVELAFITEFOLDERS) RHµI¹@IÉ ³òHX°ê(25Q EQUAL) (20Q MAILFOLDER) () P.AUTHENTICATEA0001 D1 (NAME ERRORSET F 0 \LAFITE.MAILSERVERLOCK F 1 RESETY) Phi¿ci(11Q \LAFITE.GET.USER.DATA 5 OBTAIN.MONITORLOCK) NIL () P.AUTHENTICATE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q P.AUTHENTICATEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (P.AUTHENTICATEA0001)) P.QUIT.OR.READ.OLD.MAIL D1 (I 0 ITEM F 0 STATE) #@gð²PhPig (40Q P.HELP 31Q P.CONTROLLER) (35Q WRONG.INPUT.WHILE.P.QUIT 3 #) () PROSE.LAFITE.PREPARE.BROWSERA0001A0002 D1 (NAME ERRORSET F 0 FOLDERNAME) Pggih(12Q \LAFITE.OPENSTREAM) (6 OLD 3 INPUT) () PROSE.LAFITE.PREPARE.BROWSERA0001 D1 (NAME ERRORSET P 3 ERRN P 2 STREAM P 1 BROWSERWINDOW P 0 MAILFOLDER F 4 FOLDERNAME F 5 STATE F 6 \LAFITE.BROWSELOCK F 7 RESETY F 10Q LAFITEBUFFERSIZE) »Vhi¿ T Xd¢±¤É$Y²UH¿I ”I ƒI ¿h±€HÉJµ:o Z³E[lð–KTð³)` ¿o` ¿T` ¿h°:gW° TggiºHJ ¿HJ¿H ¿UH¿Hci(250Q LAB.CREATEWINDOW 231Q FULLNAME 220Q \LAFITE.OPENSTREAM 203Q SETFILEINFO 167Q PRIN1 157Q PRIN1 144Q TERPRI 121Q ERRORN 112Q PROSE.LAFITE.PREPARE.BROWSERA0001A0002 62Q EXPANDW 55Q TOTOPW 50Q OPENWP 15Q \LAFITE.GETMAILFOLDER 5 OBTAIN.MONITORLOCK) (240Q MAILFOLDER 225Q MAILFOLDER 214Q NEW 211Q BOTH 176Q BUFFERS 164Q PROMPTWINDOW 154Q PROMPTWINDOW 141Q PROMPTWINDOW 73Q MAILFOLDER 26Q MAILFOLDER) ( 151Q "Could not open " 107Q (PROSE.LAFITE.PREPARE.BROWSERA0001A0002)) PROSE.LAFITE.PREPARE.BROWSER 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 PROSE.LAFITE.PREPARE.BROWSERA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (PROSE.LAFITE.PREPARE.BROWSERA0001)) P.BYE D1 (F 0 STATE F 1 PHONE.HANGUP F 2 OFF.THE.HOOK F 3 \PROSE.OPERATOR.PROCESS) Ri o iP l g g g g Q hcS (117Q WAKE.PROCESS 110Q FLUSH.ESC.SEQ 105Q READ.PHONECONTROL 102Q SPEAK 76Q BREAKCONNECTION 70Q BREAKCONNECTION 62Q BREAKCONNECTION 54Q BREAKCONNECTION 46Q P.SPEED 41Q P.CONTROLLER.RESET 36Q P.CLOSE.BROWSER 20Q READ.TTS 15Q SPEAK 6 P.RESET.TIMER 3 IGNORETIMER) (73Q IVY 65Q INDIGO 57Q ERIS 51Q PHYLUM 24Q P.HELP.FLG) ( 12Q " You are logged out. Goodbye!^[[i") P.CLOSE.BROWSERA0001 D1 (NAME ERRORSET L (0 NIL) P 4 FILE P 3 WINDOW P 2 BROWSERWINDOW P 1 FOLDER F 5 \ACTIVELAFITEFOLDERS F 6 LAFITEEDITORWINDOWS F 7 \LAFITE.TEMPFILES F 10Q \LAFITE.BROWSELOCK F 11Q \LAFITE.MAINLOCK F 12Q \LAFITE.ACTIVE F 13Q LAFITELASTMESSAGE F 14Q \LAFITEPROFILECHANGED F 15Q \LAFITE.LAST.STATUS F 16Q \LAFITEDEFAULTHOST&DIR F 17Q LAFITEPRIMARYDISPLAYWINDOW F 20Q RESETY) ÏWhi¿Whi¿W´‚±µU !Hµ hc ¿V°nYÉ$Z¦Ii °5IÉ>³IÊ jð™IÊ0jð¨JIgIi ¿JI ¿HX°®dK ²K «Kg [ ”K ¿µÜhc¿W“¿¿WdL ¿L µïhcccccc i(271Q DELFILE 264Q CLOSEF? 247Q LAFITECLEARCACHE 243Q \LAFITE.WRITE.PROFILE 223Q CLOSEW 216Q WINDOWP 212Q GETWINDOWUSERPROP 202Q OPENWP 174Q WINDOWP 155Q CLOSEW 152Q LAB.FLUSHWINDOW 144Q \LAFITE.CLOSE.FOLDER 136Q \LAFITE.EXPUNGE.PROC 70Q \LAFITE.CLOSE.FOLDER 33Q \APPEND2 16Q OBTAIN.MONITORLOCK 6 OBTAIN.MONITORLOCK) (207Q ICONWINDOW 133Q CLOSE 120Q MAILFOLDER 106Q MAILFOLDER 76Q MAILFOLDER 57Q MAILFOLDER) () P.CLOSE.BROWSER D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 MAILFOLDER F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q P.CLOSE.BROWSERA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (P.CLOSE.BROWSERA0001)) P.FILES.IN.ACTIVE.BROWSERS D1 (F 3 \ACTIVELAFITEFOLDERS) 0S°dÉ¸IµHhZH&¹µëJNIL (12Q MAILFOLDER) () P.FIND.MSG.BODY D1 (P 0 A I 0 TEXTSTREAM) @ ®Hl ð”H@ ð¤@ ¸°î@ (32Q GETFILEPTR 6 EOFP) NIL () P.LAFITE.START.NEW.USER D1 (F 0 \LAFITE.LAST.STATUS F 1 STATE F 2 LAFITEDEFAULTHOST&DIR F 3 \LAFITE.ACTIVE F 4 \LAFITE.AUTHENTICATION.FAILURE F 5 \LAFITE.READY) ·o hcSdiðš¿dcQ ¯hc cc¿gh ¿PžPgð¨Po –lú °éPdgð²¿QiQio o gð˜QiPdgð²¿Qio g gð²o QiQig (264Q SHOULDNT 260Q P.HELP 236Q P.CHUNK 220Q P.HELP 212Q P.CHUNK 163Q P.CONTROLLER 145Q P.CHUNK 136Q P.CHUNK 100Q BLOCK 72Q EQUAL 51Q LAFITE 30Q \LAFITE.AFTERLOGIN 6 USEDFREE) (255Q NO.NEW.MAIL 224Q SOME.UP 215Q NO.MAILSERVERS 171Q NO.MAILSERVERS 151Q NEW.MAIL 107Q NO.MAIL 60Q Initializing 45Q ON) ( 233Q " Some mail servers are down. I can not find out whether you have any new mail. " 207Q " No mail servers are available. " 142Q " Push asterisk to quit, or, push sharp sign to read old mail. " 133Q " There is no new mail. " 67Q "Initializing" 3 (\LAFITE.ACTIVE \LAFITE.LAST.STATUS \LAFITE.READY \LAFITE.AUTHENTICATION.FAILURE)) P.OPEN.FOLDER.AND.GET.NEW.MAILA0001 D1 (NAME ERRORSET F 0 USER F 1 MAILFILE) P c i(10Q P.OPEN.BROWSER.ON.FILE 3 P.MAILFILE) NIL () P.OPEN.FOLDER.AND.GET.NEW.MAILA0002 D1 (NAME ERRORSET F 0 USER F 1 MAILFOLDER) PQ i(4 P.GETMAIL) NIL () P.OPEN.FOLDER.AND.GET.NEW.MAIL D1 (P 4 MAILFILE P 3 RESULT P 2 MAILFOLDER P 1 LASTNEW P 0 FIRSTNEW I 0 USER F 5 STATE) «Po o §g hUZdÈkØXo ´çJÈYHIñ²!Ui¿Ui¿o ¿o °KUi¿UH¿UI¿HIðHoIo‹oHo ¿g h(247Q P.HELP 240Q P.CHUNK 235Q CONCAT 220Q CONCAT 134Q P.CHUNK 124Q P.CHUNK 61Q P.OPEN.FOLDER.AND.GET.NEW.MAILA0002 27Q P.HELP 20Q P.OPEN.FOLDER.AND.GET.NEW.MAILA0001 11Q P.CHUNK) (244Q NEW.MAIL 67Q MAILFOLDER 45Q MAILFOLDER 24Q FILE.SERVER.DOWN.OR.MAIL.FILE.BUSY) ( 232Q ". " 225Q "The new message is number " 215Q " is the last message. " 210Q " is the first new message. " 131Q " Push asterisk to quit, or, push sharp sign to read old mail. " 121Q "No new mail is available. " 56Q (P.OPEN.FOLDER.AND.GET.NEW.MAILA0002) 15Q (P.OPEN.FOLDER.AND.GET.NEW.MAILA0001) 6 " You have new mail, which is being retrieved") P.SURVEY.MSGS D1 (P 1 MSG I 2 MAILFOLDER I 1 LASTMSGNO I 0 FIRSTMSGNO F 2 STATE F 3 MESSAGES) BRiA@BÉc¿IHñ³SI I ¿IkØY°ëRh(52Q P.CHUNK 47Q P.PREPARE.HEADER 43Q NTHMESSAGE) (24Q MAILFOLDER) () P.GETMAILA0001 D1 (NAME ERRORSET F 0 MAILFOLDER) PdÉ$ i(11Q \LAFITE.GETNEWMAIL) (4 MAILFOLDER) () P.GETMAIL D1 (I 1 MAILFOLDER I 0 USER) nl oöHg ³AÊjð˜nô ¿°æAÊjð–g ¿o g ¿g ¿AÊjð—nè °ïo h(152Q P.CHUNK 141Q BLOCK 120Q RETFROM 111Q P.HELP 102Q P.GETMAILA0001 71Q P.HELP 46Q DISMISS 24Q TIMEREXPIRED? 5 \CLOCK0) (125Q MAILFOLDER 115Q P.CONTROLLER 106Q CANT.WRITE.MAIL.FILE 66Q CANT.WRITE.MAIL.FILE 55Q MAILFOLDER 32Q MAILFOLDER 21Q MILLISECONDS) ( 147Q " Your mail has been retrieved. " 77Q (P.GETMAILA0001) 11Q 537440Q) P.GETNEWMAILA0001 D1 (NAME ERRORSET F 0 MAILFOLDER) PdÉ$ i(11Q \LAFITE.GETNEWMAIL) (4 MAILFOLDER) () P.GETNEWMAIL D1 (I 0 MAILFOLDER) o o g h(24Q RETFROM 16Q P.CHUNK 6 P.GETNEWMAILA0001) (21Q P.CONTROLLER) ( 13Q "Could not open your mail file. The mail file is in use on some other machine. Please log out by pushing asterisk. " 3 (P.GETNEWMAILA0001)) P.LAFITE.BROWSE D1 (I 0 FILE F 0 LAFITEMAINMENU) gP@(7 \LAFITE.BROWSE) (2 ##BROWSE##) () P.MAILFILEA0001 D1 (NAME ERRORSET F 0 USER) &gggPgg g i(42Q DELFILE 37Q CLOSEF 34Q OPENFILE 26Q PACKFILENAME 22Q GENSYM) (31Q BOTH 17Q F 14Q NAME 10Q DIRECTORY 5 PHYLUM 2 HOST) () P.MAILFILEA0002 D1 (NAME ERRORSET F 0 USER) &gggPgg g i(42Q DELFILE 37Q CLOSEF 34Q OPENFILE 31Q PACKFILENAME 22Q GENSYM) (25Q BOTH 17Q F 14Q NAME 10Q DIRECTORY 5 ERIS 2 HOST) () P.MAILFILEA0003 D1 (NAME ERRORSET F 0 USER) &gggPgg g i(42Q DELFILE 37Q CLOSEF 34Q OPENFILE 31Q PACKFILENAME 22Q GENSYM) (25Q BOTH 17Q F 14Q NAME 10Q DIRECTORY 5 IVY 2 HOST) () P.MAILFILE D1 (P 4 NEW.LOGININFO P 3 HOST P 2 UNKNOWN P 1 MAILFILE P 0 USER.LOGININFO I 1 OLDMAILONLY? I 0 USER F 5 STATE) ð@U Ao H µ@ Yd²-oIg ¿IdHð’±‚¿@UI¿°ro ”g°o “g‹o ´g[²gKg@gggg Y€I²/A³,J³No ¿oKo@o ¿hddIIJ³$I ²Ig jð³oIo Io h(354Q P.CHUNK 343Q P.CHUNK 340Q CONCAT 320Q GETFILEINFO 307Q INFILEP 276Q \LAFITE.BROWSE 266Q P.CHUNK 263Q CONCAT 240Q P.CHUNK 216Q PACKFILENAME 156Q P.MAILFILEA0003 142Q P.MAILFILEA0002 125Q P.MAILFILEA0001 113Q CHANGE.MAILFILE 64Q P.CHUNK 61Q CONCAT 56Q UNPACKFILENAME 37Q P.SEARCH.FOR.MAILFILE 31Q INFILEP 22Q P.CHUNK 10Q GET.LOGININFO) (315Q LENGTH 212Q MAIL 207Q EXTENSION 204Q MAILREADER 201Q NAME 175Q DIRECTORY 171Q HOST 163Q IVY 146Q ERIS 131Q PHYLUM 53Q HOST) ( 351Q " Could not find a mail file called active dot mail for you. Please logout. " 335Q "." 330Q " Could not find a mail file called active dot mail for you. We will read the mail in " 257Q " mailreader dot mail . " 252Q " " 245Q " Your mail will be put in the file " 235Q " Could not find a mail file called active dot mail for you. " 153Q (P.MAILFILEA0003) 137Q (P.MAILFILEA0002) 122Q (P.MAILFILEA0001) 47Q "Found the mail file on " 17Q " Looking for your mail file. ") P.OPEN.BROWSER.ON.FILE D1 (P 5 BROWSERREADY P 4 I P 1 P.FILES.IN.ACTIVE.BROWSERS P 0 FILESINUSE I 0 MAILFILE F 6 STATE) ž0@µhH œV@ iV³åg ¿hdd@¿lkLKó¢M²M—Vi‰g ¿il nê`öºJg ¡MžM¦g ¿LkÔ\°Âlú ¿V²ÚVÊjð³Éi½°Å(175Q DISMISS 161Q P.HELP 146Q TIMEREXPIRED? 132Q \CLOCK0 122Q ERROR 116Q P.HELP 60Q \LAFITE.BROWSE 50Q P.HELP 26Q BROWSER.FROM.FILE 13Q MEMBER) (221Q MAILFOLDER 156Q WAITING.FOR.BROWSER.READY 143Q MILLISECONDS 113Q CANT.READ.MAIL.FILE 45Q OPENING.FOLDER) () P.PREPARE.HEADER D1 (P 5 MINUTELENGTH P 4 LENGTH P 3 SENDER P 2 RECIPIENT P 1 SUBJECT P 0 DATE I 1 MSG# I 0 MSGDESCRIPTOR F 6 MAILFOLDER F 7 STATE) ¹@É@É@V @É @ÉL ]A¯WÈbŸoA oƒoKžoK ƒoHœoHoƒoJ²oJ oƒoIœoIoƒoMœoMoƒo (266Q CONCAT 255Q CONCAT 232Q CONCAT 207Q CONCAT 200Q PREPARE.ADDRESSES 175Q U-CASE 155Q CONCAT 132Q CONCAT 127Q PREPARE.ADDRESSES 124Q U-CASE 105Q CONCAT 76Q MKSTRING 43Q MSG.LEN.TO.TIME 20Q LAFITE.FETCH.TO.FIELD) (61Q MAILFOLDER 32Q LAFITEMSG 24Q LAFITEMSG 11Q LAFITEMSG 3 LAFITEMSG) ( 262Q "" 252Q ". " 245Q " Length: " 237Q "" 227Q ". " 222Q " Subject: " 214Q "" 204Q ". " 171Q " Addressed to: " 162Q "" 152Q ".. " 145Q " on " 137Q "" 120Q " from " 112Q "" 102Q ". " 72Q "Message ") P.READ.OLD.MAILA0001 D1 (NAME ERRORSET F 0 MAILFILE) P i(3 P.OPEN.BROWSER.ON.FILE) NIL () P.READ.OLD.MAIL D1 (P 5 BROWSERREADY P 4 I P 1 MAILFOLDER P 0 NO.MSGS I 0 MAILFILE F 6 STATE) ¾0o §g hViVYlkLKó³>M³Dl nê`öºJg ¡MžM¦g ¿LkÔ\°×lú ¿IÊjð³Øi½°ÔM¦g ¿IÈXVHoHooH Hooo Ik g h(272Q P.HELP 264Q P.SELECT.MSG 257Q P.CHUNK 254Q CONCAT 244Q PLURAL? 230Q MKSTRING 224Q PLURAL? 163Q P.HELP 133Q DISMISS 117Q P.HELP 104Q TIMEREXPIRED? 70Q \CLOCK0 20Q P.HELP 11Q P.READ.OLD.MAILA0001) (267Q PLAYING.MESSAGE.INFO 171Q MAILFOLDER 160Q CANT.READ.MAIL.FILE 140Q MAILFOLDER 114Q WAITING.FOR.BROWSER.READY 101Q MILLISECONDS 15Q FILE.SERVER.DOWN.OR.MAIL.FILE.BUSY) ( 250Q " in your mail file. " 241Q " messages " 235Q " message " 221Q " are " 215Q " is " 210Q " There " 6 (P.READ.OLD.MAILA0001)) P.SAY.MSG? D1 (I 0 PARSEDMSG F 0 STATE) 6P PPPo (63Q P.CHUNK 12Q P.CHUNK) NIL ( 60Q " Push sharp sign if you want to hear the message. Push asterisk if you don't want to hear it. ") P.SAY.QUERY D1 (L (1 BODY 0 HEADER)) hNIL NIL () P.SEARCH.FOR.MAILFILE D1 (I 0 USER) –gg@gg ggg@gg hg µdgg@gg ggg@gg hg µ2gg@gg ggg@gg hg (222Q DIRECTORY 210Q PACK* 164Q PACK* 140Q DIRECTORY 126Q PACK* 102Q PACK* 56Q DIRECTORY 44Q PACK* 20Q PACK*) (217Q COLLECT 204Q *>ACTIVE.MAIL; 201Q > 175Q < 172Q {IVY} 167Q + 160Q ACTIVE.MAIL; 155Q > 151Q < 146Q {IVY} 135Q COLLECT 122Q *>ACTIVE.MAIL; 117Q > 113Q < 110Q {ERIS} 105Q + 76Q ACTIVE.MAIL; 73Q > 67Q < 64Q {ERIS} 53Q COLLECT 40Q *>ACTIVE.MAIL; 35Q > 31Q < 26Q {PHYLUM} 23Q + 14Q ACTIVE.MAIL; 11Q > 5 < 2 {PHYLUM}) () P.SELECT.AND.SAY.MSG D1 (P 2 FIRSTSELECTEDMESSAGE P 1 MAILFOLDER P 0 NO.OF.MSGS I 0 MSG F 3 STATE) ¹SÈS@µGIÈZS ²jIdÈkØ ¿S´rSS°Wd¥d¡§o I@ ¿S´8SS°IJ ¿S´SJ h(265Q P.MESSAGE.QUERY 234Q P.SELECT.MSG 165Q P.SELECT.MSG 157Q P.CHUNK 73Q P.SELECT.MSG 55Q MEMBER) (64Q MAILFOLDER 34Q MAILFOLDER 11Q MAILFOLDER) ( 154Q " Please renter the number of the message again. ") P.SELECT.MSG D1 (P 0 NO.OF.MSGS I 1 MSG# I 0 MAILFOLDER F 1 STATE) œQÈAµQÈµkbH ³.oA oH o g QhQ@ÉA QQA QA@AÍ@AÍh(175Q P.PREPARE.HEADER 147Q NTHMESSAGE 111Q P.HELP 103Q P.CHUNK 100Q CONCAT 70Q MKSTRING 60Q MKSTRING 46Q MSG.IN.RANGE) (225Q MAILFOLDER 216Q MAILFOLDER 141Q MAILFOLDER 106Q SPECIFY.ANOTHER.MSG 33Q MAILFOLDER 11Q MAILFOLDER) ( 74Q "." 64Q ", but the number of messages in the file is only " 54Q " You asked for message ") MSG.IN.RANGE D1 (L (1 NO.OF.MSG 0 MSG)) @¡ik@ñ¥@Añ¡@hNIL NIL () PREPARE.ADDRESSES D1 (P 3 NAME I 0 RECIPIENTS) 10@ ° dK o ¸IµHhZH&¹µáJ (56Q CONCATLIST 30Q CONCAT 21Q PREPARE.SINGLE.ADDRESS 6 \GV.PARSERECIPIENTS) NIL ( 25Q ",") PREPARE.DL D1 (I 0 DLNAME) '@d²#o µ@o ”o€@o (44Q CONCAT 26Q MEMBER 12Q SASSOC) NIL ( 41Q " dl" 33Q "ALL" 23Q ("ALLPA" "ALLWBST" "ALLDLOS" "ALLES" "ALLSV") 7 (("COMPUTERRESEARCH" "COMPUTER RESEARCH") ("ISL" "EYE ESS EL") ("FORUMSATPARC" "FORUMS AT PARC") ("AISBU-PA" "AI EYE ESS BEE YOU") ("EXERCISECLASSINFO" "EXERCISE CLASS INFO"))) PREPARE.NAME D1 (I 0 NAME) o@ (7 CONCAT) NIL ( 3 " ") PREPARE.REGISTRY D1 (I 0 REGISTRY F 0 DEFAULTREGISTRY) '@µoP ³ôo@o µ@ (44Q CONCAT 34Q SASSOC 16Q STREQUAL 13Q MKSTRING) NIL ( 31Q (("PA" "PALO ALTO") ("ES" "EL SEGUNDO") ("WBST" "WEBSTER") ("PASA" "PASADENA") ("HENR" "HENRIETTA") ("OSBUNORTH" "OSB YOU NORTH") ("DLOS" "DALLAS") ("SV" "VERSATEC")) 24Q " in " 6 " ") PREPARE.SINGLE.ADDRESS D1 (P 7 ADDRESS.STRING P 6 SITE.END.POS P 5 REGISTRY.END.POS P 4 NAME.END.POS P 3 TEMPSTRING P 2 SITE P 1 REGISTRY P 0 NAME I 0 ADDRESS F 10Q CHAR F 11Q USERNAME F 12Q DEFAULTREGISTRY) 1€@µo [j\K c²-Wdgð³dgð«dgð¥dgð’¿i¿h¥LkØ¼°ÓWµ@¸°Ogð˜@kL¸°A@kL¸Wgð²LkØ½K cµY@LlÔ ¹MµLkØ¾K cµ*@MµLlÔ ºoHLd ²bHkLkÙ °sdgð¬dgð¦dgð²*¿i°(dgð¥dgð’¿i¿h¢M°‹W²’@LlÔM°¿h¢N°ŽW²•@MµLlÔN°’H Wð²J®I—I Wð”oƒH _I J (456Q CONCAT 453Q PREPARE.SITE 447Q PREPARE.REGISTRY 441Q PREPARE.NAME 424Q PACK* 407Q PACK* 401Q SUBSTRING 351Q SUBSTRING 256Q PREPARE.DL 253Q SUBSTRING 241Q STREQUAL 236Q SUBSTRING 223Q SUBSTRING 204Q GNC 170Q SUBSTRING 154Q GNC 133Q SUBSTRING 122Q SUBSTRING 24Q GNC 15Q CONCAT) (321Q @ 313Q %% 300Q %. 272Q @ 264Q %% 141Q %. 112Q : 61Q : 53Q @ 45Q %. 36Q %%) ( 434Q " you" 230Q "^" 11Q " unrecognized address ") PREPARE.SITE D1 (I 0 SITE) @²o@ µ@ o(22Q CONCAT 12Q SASSOC) NIL ( 27Q " " 6 " at ") \PROSE.LAFITE.PREPARE.BROWSERA0001A0002 D1 (NAME ERRORSET F 0 FOLDERNAME) Pggih(12Q \LAFITE.OPENSTREAM) (6 OLD 3 INPUT) () \PROSE.LAFITE.PREPARE.BROWSERA0001 D1 (NAME ERRORSET P 3 ERRN P 2 STREAM P 1 BROWSERWINDOW P 0 MAILFOLDER F 4 FOLDERNAME F 5 STATE F 6 \LAFITE.BROWSELOCK F 7 RESETY F 10Q LAFITEBUFFERSIZE) ¶Vhi¿U T Xd¢±É$YµPHÉJµ:o Z³V[lð–KTð³:` ¿o` ¿T` ¿h°BgW°1 ”I ƒI ¿h°(TggiºHJ ¿HJ¿H ¿H¿Uci(243Q LAB.CREATEWINDOW 224Q FULLNAME 213Q \LAFITE.OPENSTREAM 174Q EXPANDW 167Q TOTOPW 162Q OPENWP 155Q SETFILEINFO 141Q PRIN1 131Q PRIN1 116Q TERPRI 73Q ERRORN 64Q \PROSE.LAFITE.PREPARE.BROWSERA0001A0002 23Q \LAFITE.GETMAILFOLDER 5 OBTAIN.MONITORLOCK) (233Q MAILFOLDER 220Q MAILFOLDER 207Q NEW 204Q BOTH 150Q BUFFERS 136Q PROMPTWINDOW 126Q PROMPTWINDOW 113Q PROMPTWINDOW 45Q MAILFOLDER 34Q MAILFOLDER) ( 123Q "Could not open " 61Q (\PROSE.LAFITE.PREPARE.BROWSERA0001A0002)) \PROSE.LAFITE.PREPARE.BROWSER 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 \PROSE.LAFITE.PREPARE.BROWSERA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\PROSE.LAFITE.PREPARE.BROWSERA0001)) (PRETTYCOMPRINT PROSE-LAFITECOMS) (RPAQQ PROSE-LAFITECOMS ((FNS BROWSER.FROM.FILE P.AUTHENTICATE P.QUIT.OR.READ.OLD.MAIL PROSE.LAFITE.PREPARE.BROWSER P.BYE P.CLOSE.BROWSER P.FILES.IN.ACTIVE.BROWSERS P.FIND.MSG.BODY P.LAFITE.START.NEW.USER P.OPEN.FOLDER.AND.GET.NEW.MAIL P.SURVEY.MSGS P.GETMAIL P.GETNEWMAIL P.LAFITE.BROWSE P.MAILFILE P.OPEN.BROWSER.ON.FILE P.PREPARE.HEADER P.READ.OLD.MAIL P.SAY.MSG? P.SAY.QUERY P.SEARCH.FOR.MAILFILE P.SELECT.AND.SAY.MSG P.SELECT.MSG MSG.IN.RANGE PREPARE.ADDRESSES PREPARE.DL PREPARE.NAME PREPARE.REGISTRY PREPARE.SINGLE.ADDRESS PREPARE.SITE \PROSE.LAFITE.PREPARE.BROWSER) (INITVARS P.READING.MAIL) (VARS (FOLDER.OPEN NIL) (P.NEW.MAIL.RETRIEVED NIL) (NO.NEW.MAIL NIL) (NEW.MAIL NIL) (HEARDMSGS NIL) (P.MESSAGE.QUERY? NIL) ONEMINUTE) (CONSTANTS ONEMINUTE) (GLOBALVARS P.PASSWORDS P.MAILFILES P.USERS) (RECORDS LAFITEMSG MAILFOLDER))) (RPAQ? P.READING.MAIL NIL) (RPAQQ FOLDER.OPEN NIL) (RPAQQ P.NEW.MAIL.RETRIEVED NIL) (RPAQQ NO.NEW.MAIL NIL) (RPAQQ NEW.MAIL NIL) (RPAQQ HEARDMSGS NIL) (RPAQQ P.MESSAGE.QUERY? NIL) (RPAQQ ONEMINUTE 60000) (RPAQQ ONEMINUTE 60000) (CONSTANTS ONEMINUTE) (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)))))) (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))) (/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)) (PUTPROPS PROSE-LAFITE COPYRIGHT ("Xerox Corporation" 1984 1985)) NIL