(FILECREATED " 3-Apr-85 19:00:55" ("compiled on " {ERIS}MAILREADER>CALLTEXT>PROSE-CONTROLLER.;3) "20-Dec-84 12:07:22" recompiled changes: P.CONTROLLER in "INTERLISP-D 10-Jan-85 ..." dated "10-Jan-85 13:28:55") (FILECREATED " 3-Apr-85 18:59:55" {ERIS}MAILREADER>CALLTEXT>PROSE-CONTROLLER.;3 18255 changes to: (FNS P.CONTROLLER) previous date: "29-Mar-85 18:16:22" {ERIS}MAILREADER>CALLTEXT>PROSE-CONTROLLER.;2) P.CONTROLLER D1 (P 0 MAILFILE F 1 STATE F 2 TRIGGERBUTTON F 3 ALL.NUMERIC.PASSWORD) i QcQ Qi$QdRdgQQhRgQo g 2RgQddiho ihQdg:QhQhQho io QQd2SRgQic_YQ KR ?QdgRdg9Q QhQg g:RQ QhQg 1Qd Qi H{ oQdVRdgQhLgGQhQQQ Q  h h(1243Q IGNORETIMER 1237Q P.RESET.TIMER 1233Q P.SELECT.AND.SAY.MSG 1216Q P.SAY.BODY 1200Q P.SELECT.MSG 1054Q SHOULDNT 1046Q P.READ.OLD.MAIL 1032Q P.MAILFILE 1012Q P.OPEN.FOLDER.AND.GET.NEW.MAIL 765Q P.FINISHED.ACTIONS 757Q COPYMSGBYTES 754Q GETSTREAM 710Q BACK.SENTENCE 661Q COPYMSGBYTES 656Q GETSTREAM 612Q BACK.SENTENCE 534Q P.QUIT.OR.READ.OLD.MAIL 520Q P.LAFITE.START.NEW.USER 514Q P.USER.INIT 502Q P.SET.PASSWORD 431Q P.SET.USERNAME 417Q P.CHUNK 407Q PROSE.STOP 373Q P.CHUNK 312Q PROSE.STOP 261Q P.BYE 244Q P.CHUNK 151Q P.HELP 142Q EQUAL 37Q MAKECOMMAND 34Q VERIFYINPUT 21Q DEBUGOUTPUT? 3 IGNORETIMER) (1124Q # 1101Q * 751Q {RS232} 667Q * 653Q {RS232} 572Q # 557Q HALTED 453Q # 303Q HALTED 160Q * 146Q LOGIN.HELP 116Q # 72Q *) ( 414Q " You gave a command to quit. If you really want to quit type another asterisk. " 370Q " Message aborted. Ready to read another message. " 241Q "Specify another message. " 137Q (0)) P.SET.USERNAME D1 (P 4 PERSON P 2 ACTUAL.PERSON P 1 PEOPLE.WITH.SAME.TOUCHTONES P 0 TOUCHTONES F 5 STATE F 6 MAILREADERUSERSFILE) U !HV Ydd kCIo IKo oJ oLo K[IZUJUHJo J oJi o oo h(254Q P.CHUNK 237Q P.CHUNK 234Q CONCAT 225Q L-CASE 211Q SAY.PHONEMES 202Q P.CHUNK 140Q P.CHUNK 135Q CONCAT 114Q P.CHUNK 111Q CONCAT 77Q P.CHUNK 57Q P.CHUNK 41Q FLENGTH 27Q GETHASHFILE 17Q MKSTRING 14Q PACK) NIL ( 251Q " Please re-enter your name. " 244Q " Please enter your password." 231Q "," 217Q " User " 177Q " User " 132Q " " 124Q " " 104Q " Assuming you are " 74Q "." 54Q "Sorry, the touch tones you entered represent more than one name. You could be: ") P.SET.PASSWORD D1 (F 0 STATE F 1 PASSWORD F 2 MAILREADERLOGFILE F 3 ALL.NUMERIC.PASSWORD F 4 \LAFITE.AUTHENTICATION.FAILURE) o SP P chcQPho hh P hPQ gPQ gPQ gPQ gPQ hco Tdgo hgPho hPio oR PR R i(335Q TERPRI 330Q PRIN1 320Q PRIN1 310Q P.CHUNK 272Q P.CHUNK 247Q P.CONTROLLER.RESET 244Q P.CHUNK 225Q P.AUTHENTICATE 222Q P.CHUNK 210Q LAFITECLEARCACHE 205Q SETPASSWORD 202Q MKSTRING 170Q SETPASSWORD 165Q MKSTRING 153Q SETPASSWORD 150Q MKSTRING 136Q SETPASSWORD 133Q MKSTRING 121Q SETPASSWORD 116Q MKSTRING 106Q SETUSERNAME 75Q PACK 67Q P.CHUNK 43Q P.DECIPHER.TOUCHTONES 25Q PACK 6 USEDFREE) (254Q BadPassword 232Q BadRName 173Q INDIGO 156Q IVY 141Q ERIS 124Q PHYLUM) ( 314Q "User: " 305Q "You are logged in, checking for new mail." 267Q " Please re-enter your password. " 241Q " Please re-enter your name." 217Q "We are checking the password. " 64Q " Please re-enter your password. " 3 (\LAFITE.AUTHENTICATION.FAILURE)) P.USER.INIT D1 (L (0 USER) F 0 P.HELP.FLG) @ghcNIL (3 HALVORSEN) () P.DECIPHER.TOUCHTONES D1 (P 3 TONE P 1 TOUCHTONE.STATE P 0 LETTER.LIST I 0 TOUCHTONES) @gY@ZIdgH Idg^KdjgYpkgYfKdl,dl&dl dldldldll 3Ko l HX"ggKdjgYkgHgYKdl,dl&dl dldldldll Ko l HgYIdgDKdj4dk/dl)dl#dldldldldll sKHgYlgcKdjHUHXOkgHXDKdl)dl#dldldldldll Ko l HXgYJa h(654Q P.INVALID.TOUCHTONES 643Q SHOULDNT 632Q SHOULDNT 622Q NTH 615Q ASSOC 344Q NTH 337Q ASSOC 175Q NTH 170Q ASSOC 35Q PACK 32Q REVERSE) (636Q SIMPLE 523Q Z 474Q ONE 466Q SIMPLE 364Q ZEROZERO 353Q SIMPLE 243Q SIMPLE 235Q Q 223Q ZEROZERO 207Q ZERO 74Q ONE 62Q ZERO 45Q SIMPLE 20Q SIMPLE 5 SIMPLE) ( 612Q ((2 A B C) (3 D E F) (4 G H I) (5 J K L) (6 M N O) (7 P R S) (10Q T U V) (11Q W X Y)) 334Q ((2 A B C) (3 D E F) (4 G H I) (5 J K L) (6 M N O) (7 P R S) (10Q T U V) (11Q W X Y)) 165Q ((2 A B C) (3 D E F) (4 G H I) (5 J K L) (6 M N O) (7 P R S) (10Q T U V) (11Q W X Y))) P.INVALID.TOUCHTONES D1 (I 0 TOUCHTONE.STATE) :@dgo !go @go o (67Q P.CHUNK 57Q SHOULDNT 53Q P.CHUNK 34Q P.CHUNK 16Q P.CHUNK) (42Q ZEROZERO 23Q ONE 4 ZERO) ( 64Q "with nothing following is invalid." 50Q "Zero Zero " 31Q "One " 13Q "Zero ") P.CONTROLLER.RESET D1 (P 1 X I 0 DONTTOUCH F 2 STATE F 3 PROSE.DEFAULT.SETTINGS F 4 ALL.NUMERIC.PASSWORD F 5 \PROSE.PROCESS F 6 \CALLTEXT.MONITOR.PROCESS F 7 \PROSE.OPERATOR.PROCESS F 10Q \LAFITE.LAST.STATUS F 11Q LAFITEDEFAULTHOST&DIR) '@2g HhY@ ggIho HXo hRo gRo gRo gRo gRo hddhhdddddhhdddhhddhhhddddddddddhShdddhhdddddddhhcdURVRWhcdcdcg (444Q DEL.PROCESS 441Q FIND.PROCESS 173Q LAFITECLEARCACHE 170Q SETPASSWORD 153Q SETPASSWORD 136Q SETPASSWORD 121Q SETPASSWORD 104Q SETPASSWORD 71Q SETUSERNAME 54Q EVAL 27Q MEMBER 10Q RECORDFIELDNAMES) (436Q LAFITEMAILWATCH 156Q ERIS 141Q INDIGO 124Q IVY 107Q PHYLUM 37Q STATE 34Q REPLACE 5 STATE) ( 165Q "" 150Q "" 133Q "" 116Q "" 101Q "" 66Q "" 47Q (of STATE with NIL)) (PRETTYCOMPRINT PROSE-CONTROLLERCOMS) (RPAQQ PROSE-CONTROLLERCOMS ((VARS (P.PASSWORD NIL) (P.HELP.FLG T) (ALL.NUMERIC.PASSWORD NIL) P.TOUCHTONE.LIST) (CONSTANTS P.TOUCHTONE.LIST) (FNS P.CONTROLLER P.SET.USERNAME P.SET.PASSWORD P.USER.INIT P.DECIPHER.TOUCHTONES P.INVALID.TOUCHTONES P.CONTROLLER.RESET))) (RPAQQ P.PASSWORD NIL) (RPAQQ P.HELP.FLG T) (RPAQQ ALL.NUMERIC.PASSWORD NIL) (RPAQQ P.TOUCHTONE.LIST ((2 A B C) (3 D E F) (4 G H I) (5 J K L) (6 M N O) (7 P R S) (8 T U V) (9 W X Y))) (RPAQQ P.TOUCHTONE.LIST ((2 A B C) (3 D E F) (4 G H I) (5 J K L) (6 M N O) (7 P R S) (8 T U V) (9 W X Y))) (CONSTANTS P.TOUCHTONE.LIST) (PUTPROPS PROSE-CONTROLLER COPYRIGHT ("Xerox Corporation" 1984 1985)) NIL