(FILECREATED "17-Apr-85 11:53:41" ("compiled on " {ERIS}MAILREADER>CALLTEXT>PROSE-UTIL.;10) "20-Dec-84 12:07:22" recompiled changes: P.FINISHED? P.USER.MESSAGE PHONE.INTERRUPT P.CHUNK in "INTERLISP-D 10-Jan-85 ..." dated "10-Jan-85 13:28:55") (FILECREATED "17-Apr-85 11:49:13" {ERIS}MAILREADER>CALLTEXT>PROSE-UTIL.;10 50473 changes to: ( FNS P.CHUNK PHONE.INTERRUPT P.FINISHED? P.USER.MESSAGE) previous date: " 3-Apr-85 18:53:15" {ERIS}MAILREADER>CALLTEXT>PROSE-UTIL.;7) ACTIVEWINDOW D1 (P 0 X I 2 WINDOWPROPLST I 1 REGION I 0 WINDOWNAME) 8@ ˜@ ³)@A@i ¿B°d@ BBµì@(57Q WINDOWPROP 47Q EVAL 32Q SET 27Q CREATEW 24Q L-CASE 13Q WINDOWP 10Q EVAL 3 BOUNDP) NIL () ADVISE.FOR.TYPEOUT D1 (P 0 F I 0 READVISE/UNADVISE F 1 PROSETYPEOUTADVISEDFNS) 0Q°)d@dgð˜¿gH gð—gH ‚µØh(47Q SHOULDNT 43Q APPLY 26Q APPLY) (37Q UNADVISE 32Q UNADVISE 22Q READVISE 14Q READVISE) () VERIFYINPUTA0001 D1 (NAME ERRORSET F 0 DTMF.LOCK F 1 STATE F 2 RESETY) Phi¿Qhci(5 OBTAIN.MONITORLOCK) NIL () VERIFYINPUT D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST I 0 INPUTLIST F 4 LISPXHIST F 5 RESETVARSLST) u@Hµ7i³g@gð¦@gðžg@§g@´KT!Uog ²h°d¥d¡¢h°¿HX°¶g[ ¿K“¿o g h(160Q RETFROM 152Q P.CHUNK 143Q DESCRIBE.STATE 136Q ERROR! 130Q RESETRESTORE 70Q VERIFYINPUTA0001) (155Q P.CONTROLLER 124Q ERROR 65Q INTERNAL 44Q * 35Q # 30Q * 21Q #) ( 147Q "Illegal command. Please reenter the command. " 62Q (VERIFYINPUTA0001)) DESCRIBE.STATE D1 NIL hNIL NIL () GETSTATEFIELD D1 (I 0 FIELDLIST) gg@o (20Q EVAL) (5 STATE 2 fetch) ( 13Q (of STATE)) P.INDEX.SEQ? D1 (P 4 X I 0 REVOUTPUT) x@AHµ.@I lØ l[ð´^@I lØ lð´L0I °:\ d¥d¡²ÅL»JµKhZ¹HX°³K&º°ød ½NµMh_M&¾µìO (165Q PACK 136Q CHARACTER 71Q CHARACTER 62Q REVERSE 44Q NTH 36Q LENGTH 23Q NTH 15Q LENGTH) NIL () P.RS232.INIT D1 (I 0 RS232CONNECTED? F 0 RECLAIMWAIT) #@²nX g n'cg (40Q P.NO.RS232 34Q CHECK.RS232.SETTINGS 31Q RS232BACKGROUND 16Q RS232XON\XOFF? 10Q RS232INIT) (26Q ON 13Q ON) () P.FINISHED?A0001 D1 (NAME ERRORSET F 0 DTMF.LOCK F 1 STATE F 2 RESETY) Phi¿Qhci(5 OBTAIN.MONITORLOCK) NIL () P.FINISHED? D1 (P 6 RESETZ P 5 RESETY P 4 LISPXHIST P 2 TIMER P 1 FLG P 0 INPUT F 7 STATE F 10Q LISPXHIST F 11Q RESETVARSLST) Ã@lwoöZ¿Y³XW ³;Jg ³2¿X²ÏWW[HK°¨I²RWg¿W!Wog ‘h‚g^ ¿N“¿Wh¿o ¿g ‚h(277Q P.FINISHED.ACTIONS 273Q RETFROM 264Q P.CHUNK 236Q ERROR! 230Q RESETRESTORE 216Q P.FINISHED?A0001 100Q NO.WAIT.READ.TTS 74Q BLOCK 67Q TIMEREXPIRED? 56Q EQUAL 53Q P.INTERPRET.OUTPUT 23Q PHONE.INTERRUPT) (270Q COPYMSGBYTES 224Q ERROR 213Q INTERNAL 173Q HALTED 64Q TICKS 10Q FIXP) ( 261Q " Interrupted. Back up, change speed or abort. " 210Q (P.FINISHED?A0001) 15Q 3763714Q) P.INTERPRET.OUTPUT D1 (P 0 PROSEOUTPUT F 1 STATE) QH (24Q P.LAST.SENTENCE.SAID) NIL () P.LAST.SENTENCE.SAID D1 (L (0 REVPROSEOUTPUT)) @Hµhdgð¥¿HX°îNIL (20Q i) () P.MESSAGE.QUERY D1 (I 1 MSGNO I 0 MSGDESCRIPTOR F 0 STATE) AP PPPg Pi(62Q P.HELP 12Q P.CHUNK) (57Q P.MESSAGE.QUERY) () P.PROCESSA0001 D1 (NAME ERRORSET) i(2 P.CONTROLLER) NIL () P.PROCESS D1 NIL i ¿o ³ôo ¿°ê(24Q P.CHUNK 13Q P.PROCESSA0001 3 BLOCK) NIL ( 21Q "Error encountered. Please try again. " 10Q (P.PROCESSA0001)) P.NO.RS232 D1 NIL zgg gg gg gg gg gg gg gg gg gg gg gg oi i (167Q TERPRI 163Q PRIN1 153Q MOVD 142Q MOVD 131Q MOVD 120Q MOVD 107Q MOVD 76Q MOVD 65Q MOVD 54Q MOVD 43Q MOVD 32Q MOVD 21Q MOVD 10Q MOVD) (150Q RS232READBYTE 145Q NILL 137Q ORIGINAL.RS232READBYTE 134Q RS232READBYTE 126Q RS232WRITESTRING 123Q PRIN1 115Q ORIGINAL.RS232WRITESTRING 112Q RS232WRITESTRING 104Q RS232WRITECHARS 101Q PRIN1 73Q ORIGINAL.RS232WRITECHARS 70Q RS232WRITECHARS 62Q RS232WRITEBYTE 57Q CHARACTER 51Q ORIGINAL.RS232WRITEBYTE 46Q RS232WRITEBYTE 40Q RS232CLEARBUFFER 35Q NILL 27Q ORIGINAL.RS232CLEARBUFFER 24Q RS232CLEARBUFFER 16Q RS232FORCEOUTPUT 13Q NILL 5 ORIGINAL.RS232FORCEOUTPUT 2 RS232FORCEOUTPUT) ( 157Q "RS232 functions redefined to allow running without any device connected to the RS232 port.") DEBUGOUTPUT? D1 (F 0 PROSEDEBUG) o o P´(23Q PROSEDEBUGINFO 15Q USEDFREE 6 GLOBALVARS) NIL ( 12Q (PROSEDEBUG) 3 (PROSEDEBUG)) PROSEDEBUGINFO D1 (P 2 VAL P 1 X F 3 PROSESTATUS) ]ghoS g !HµhYS ¿lhS¿ggIho Z—Jkl€JS ¿S ¿HX°¿(125Q TERPRI 120Q PRIN1 112Q SUBSTRING 77Q EVAL 53Q TAB 43Q PRIN1 24Q RECORDFIELDNAMES 16Q CLEARW 12Q ACTIVEWINDOW) (62Q STATE 57Q FETCH 21Q STATE 2 PROSESTATUS) ( 72Q (of STATE) 7 (BUTTONEVENTFN PROSEDEBUGINFO)) MAKECOMMANDA0001 D1 (NAME ERRORSET F 0 DTMF.LOCK F 1 STATE F 2 RESETY) Phi¿Qhci(5 OBTAIN.MONITORLOCK) NIL () MAKECOMMAND D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 STATE F 4 LISPXHIST F 5 RESETVARSLST) `SSd£¿h°'²SdŸ ‹S T!Uog ‘h‚gZ J“I(133Q ERROR! 126Q RESETRESTORE 114Q MAKECOMMANDA0001 74Q REVERSE 57Q PACK 54Q REVERSE) (122Q ERROR 111Q INTERNAL) ( 106Q (MAKECOMMANDA0001)) MSG.LEN.TO.TIME D1 (P 0 SECS I 0 MSGLENGTH) @ Xdl<ñ”d oHo(35Q CONCAT 20Q MSG.LEN.TO.MINS 6 MSG.LEN.TO.SECS) NIL ( 32Q " seconds " 25Q " ") MSG.LEN.TO.SECS D1 (L (0 MSGLENGTH) F 0 STATE) @lÛPëoêjØNIL NIL ( 16Q 60.0) MSG.LEN.TO.MINS D1 (P 1 REMAININGSECS P 0 MINS I 0 SECS) A @l<ÛX@l<ÜYoHdooIjð³oIdooƒo(76Q CONCAT 66Q CONCAT 63Q PLURAL? 35Q PLURAL?) NIL ( 73Q ". " 60Q " seconds " 54Q " second " 46Q " " 32Q " minutes " 26Q " minute " 20Q " ") PLURAL? D1 (L (2 PL 1 SG 0 VALUE)) l@ñ¡BANIL NIL () BACK.SENTENCE D1 (I 1 NO.OF.SENTENCES I 0 TRIGGERBUTTON F 0 STATE) ÀA£kb¿@dgð².¿P³ P g g @gð²#Pj ²PlÙ j @dgð²%¿Pk ²PlØ j @gð²*Pd¥d¡²P j A (275Q BACK.SENTENCE1 270Q BACK.SENTENCE1 264Q P.SPEED 211Q BACK.SENTENCE1 205Q P.SPEED 167Q EQUAL 137Q BACK.SENTENCE1 133Q P.SPEED 115Q EQUAL 67Q RETFROM 61Q P.HELP 53Q P.QUIT.READING.MSG) (216Q * 145Q * 74Q * 64Q P.CONTROLLER 56Q QUIT.READING.MESSAGE 12Q *) () P.SPEED D1 (I 0 WPM F 0 STATE) ?lÉ@ñ³o ¿@o h@dlOñ©¿o ho P@h(64Q P.SEND.ESC.SEQ 61Q PACK* 50Q P.CHUNK 30Q P.SEND.ESC.SEQ 25Q PACK* 14Q P.CHUNK) NIL ( 56Q "r" 45Q " I can't talk that slow. " 22Q "r" 11Q " I can't talk that fast. ") P.QUIT.READING.MSG D1 (I 0 MSGFILE F 0 STATE) ]P PhPhPhPhPh(20Q CLOSEF) NIL () BACK.SENTENCE1 D1 (P 4 SENT.PTR.PAIR P 3 START.SENTENCE P 2 FPTR P 1 SYNCHLIST P 0 MSGFILE I 0 NO.OF.SENTENCES F 5 STATE F 6 LAST.SENTENCE.UTTERED) ™UU2@jð“kb¿cdµHU @kÙÙ[ddjñ³¿HU I \dZULU J’HµhJ °ú(225Q SETFILEPTR 217Q SHOULDNT 206Q MEMBER 141Q ASSOC 134Q SETFILEPTR 77Q SETFILEPTR 52Q P.INTERPRET.OUTPUT) NIL () BOUT.FROM.STRING D1 (P 2 X P 0 WORKSTRING I 1 STRING I 0 TOSTREAM) *Ak H kJIñ³@H ¿JkØZ°ìh(37Q BOUT 34Q CHCON1 31Q GNC 13Q NCHARS 4 SUBSTRING) NIL () LETTERP D1 (P 0 CODE I 0 CHAR) @ H (12Q BINLETTERP 3 CHCON1) NIL () READ.TTY D1 (P 0 X F 1 TOPLEVELTTYWINDOW) Q X ¿°÷(12Q PRINT 6 READ) NIL () SAYT D1 (P 5 P.READBUFFER P 4 PHONEMEMODE P 3 OUTPUTBYTES P 2 CHAR P 1 ESCAPECHAR P 0 STRING I 1 DONTLOWERCASE I 0 INSTRING) $@k g BA‘@ƒ@ i ¿h (41Q PACK 35Q PROSE.COMMENCE.OUTPUT 31Q RS232WRITESTRING 25Q L-CASE 12Q CHCON1 4 SUBSTRING) (7 _) () SETSTATEFIELD D1 (I 1 VALUE I 0 FIELDLIST) gg@o (20Q EVAL) (5 STATE 2 REPLACE) ( 13Q (of STATE with VALUE)) START.PROSE.PROCESSES D1 (F 0 TTS.LOCK F 1 DTMF.LOCK F 2 STATE F 3 PHONECONTROL.LOCK F 4 PROSE.DEFAULT.SETTINGS) •g cg cg chddhhdddddhhdddhhddhhhddddddddddhThdddhhdddddddhhcgg (222Q START.OPERATOR.PROCESS 217Q START.PROSE.PROCESS 214Q SETUP.PHONE 211Q START.CALLTEXT.MONITOR.PROCESS 206Q RS232BACKGROUND 25Q CREATE.MONITORLOCK 15Q CREATE.MONITORLOCK 5 CREATE.MONITORLOCK) (203Q ON 200Q LOGINHOST/DIR 175Q {DSK} 22Q PHONECONTROL.LOCK 12Q DTMF.LOCK 2 TTS.LOCK) () PHONE.MONITOR D1 (P 0 DUMMY F 1 STATE) ƒQdgð²"o ŸQiQgð®Qgð´1Q §¿¿Qi h(177Q WAKE.PROCESS 153Q BLOCK 147Q START.PROSE.PROCESS 143Q PROCESSP 43Q EQUAL) (116Q # 100Q * 22Q TALKING) ( 40Q (*)) START.PROSE.PROCESS D1 (F 0 \PROSE.PROCESS F 1 STATE) /o g ”P ¨o cQP(31Q ADD.PROCESS 21Q PROCESSP 14Q BOUNDP 6 USEDFREE) (11Q \PROSE.PROCESS) ( 26Q (P.PROCESS) 3 (\PROSE.PROCESS)) SYNCH D1 (P 2 NEWSYNCH# P 1 LASTSYNCH# P 0 PTR I 0 INSTREAM F 4 STATE) `@ T"Id¥d¡µ7kZdo TT[JHKhkØY°É(61Q P.SEND.ESC.SEQ 56Q CONCAT 3 GETFILEPTR) NIL ( 53Q "i") CHARS.TO.MINUTES D1 (P 2 SECS P 1 MINUTES P 0 RATE I 0 CHARLENGTH F 3 STATE) HS!@lÛHÛZ@lÛHÛl<ÛYdoJdlñ¦¿o°lñ¤oJl(ñ¤oƒo(105Q CONCAT) NIL ( 102Q "and about 50 seconds. " 75Q "and about 40 seconds. " 63Q "and about 30 seconds. " 51Q "and about 15 seconds. " 36Q " minutes ") CHECK.RS232.SETTINGS D1 (F 0 RS232INIT) Çoi i i oi l hi`“g‚gi i oi l hiPi i oi l hiPi i oi l hiP“g‚gi i oi l hiPi i oi l hi`”oƒoi i (304Q TERPRI 300Q PRIN1 257Q TAB 250Q PRIN1 240Q TERPRI 234Q PRIN1 224Q TAB 215Q PRIN1 205Q TERPRI 201Q PRIN1 163Q TAB 154Q PRIN1 144Q TERPRI 140Q PRIN1 131Q TAB 122Q PRIN1 112Q TERPRI 106Q PRIN1 100Q TAB 71Q PRIN1 61Q TERPRI 55Q PRIN1 36Q TAB 27Q PRIN1 17Q TERPRI 13Q TERPRI 7 PRIN1) (262Q RS232XON\XOFF? 175Q No 171Q Yes 51Q No 45Q Yes 41Q RS232XON\XOFF?) ( 274Q " OFF" 267Q " ON" 244Q "RS232 output-broom process: " 211Q "Number of stop bits:" 150Q "Eight bit used as parity bit:" 116Q "Bits per channel:" 65Q "Baudrate:" 23Q "Obeying XON/XOF protocol:" 3 "The RS232 interface has been configured with the following settings:") COPYMSGBYTESA0001 D1 (NAME ERRORSET F 0 DTMF.LOCK F 1 STATE F 2 RESETY) Phi¿Qhci(5 OBTAIN.MONITORLOCK) NIL () COPYMSGBYTES D1 (P 11Q RESETZ P 10Q RESETY P 7 LISPXHIST P 6 B P 5 I P 1 INPUT P 0 FLG I 1 OUTSTREAM I 0 INSTREAM F 12Q STATE F 13Q LISPXHIST F 14Q RESETVARSLST F 15Q IMAGEOBJMSG) 5 @@ ¯@ bgg¿Wg@ kÙ@ MLñ«¿X¢±™Y²WZIJ¿M@ ›@ ¿Al. ¿H²JWg¿W! Wog ‘h‚g_ ¿O“¿Wh¿°¿¿¿g ¿g h@ ¾Y²'WW[IK¿N gð³AN ¿N@ š@ „W ¿MkØ]±ÿ(453Q RS232WRITESTRING 445Q SYNCH 440Q EOSP 432Q BOUT 427Q BINARYLCASE 414Q TYPENAME 340Q NO.WAIT.READ.TTS 330Q P.HELP 321Q P.HELP 312Q P.FINISHED? 306Q PROSE.COMMENCE.OUTPUT 302Q RS232FORCEOUTPUT 275Q P.USER.MESSAGE 253Q ERROR! 244Q RESETRESTORE 231Q COPYMSGBYTESA0001 163Q BOUT 154Q SYNCH 147Q EQUAL 144Q GETEOFPTR 107Q NO.WAIT.READ.TTS 77Q PHONE.INTERRUPT 73Q BLOCK 61Q GETFILEPTR 53Q GETEOFPTR 26Q SETFILEINFO 13Q OPENTEXTSTREAM 6 OPENP) (417Q IMAGEOBJ 325Q SPECIFY.ANOTHER.MSG 316Q EOM 237Q ERROR 226Q INTERNAL 206Q HALTED 46Q TALKING 23Q NILL 20Q ENDOFSTREAMOP) ( 223Q (COPYMSGBYTESA0001)) BINARYLCASE D1 (L (0 CODE)) lA@ñ©@dlZó¤l Ø@NIL NIL () BINLETTERP D1 (L (1 UCASEFLG 0 CODE)) lA@ñ¤@lZó™la@ñ¦@lzñ¡ihNIL NIL () P.USER.MESSAGE D1 (F 0 STATE) Pgð´ o (30Q P.CHUNK) (16Q HALTED) ( 25Q " Interrupted. Back up, change speed or abort. ") PHONE.INTERRUPTA0001 D1 (NAME ERRORSET F 0 DTMF.LOCK F 1 STATE F 2 RESETY) Phi¿Qhci(5 OBTAIN.MONITORLOCK) NIL () PHONE.INTERRUPT D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 STATE F 4 LISPXHIST F 5 RESETVARSLST) =S´.o T!Uog ‘h‚gZ ¿J“¿i(71Q READ.TTS 64Q ERROR! 56Q RESETRESTORE 44Q PHONE.INTERRUPTA0001 25Q P.SEND.ESC.SEQ) (52Q ERROR 41Q INTERNAL) ( 36Q (PHONE.INTERRUPTA0001) 22Q "S") EOSP D1 (P 0 NX I 1 STREAM I 0 BYTE F 1 B F 2 EOSENTCHARCODES) QR ´A dl ð¦dl ð¡d¡ih(15Q \PEEKBIN 7 MEMBER) NIL () P.CHECK.GLOBAL.VARS D1 (F 0 TOPLEVELTTYWINDOW F 1 P.USER F 2 \LAFITE.AUTHENTICATION.FAILURE F 3 P.QUIT F 4 PHONE.INPUT F 5 P.MAILFOLDER F 6 P.BROWSEROPEN F 7 \LAFITE.LAST.STATUS) zoP QP P oP SP P oP TP P oP UP P oP VP P oP WP P oP RP P (167Q TERPRI 163Q PRIN1 156Q PRIN1 146Q TERPRI 142Q PRIN1 134Q PRIN1 124Q TERPRI 120Q PRIN1 113Q PRIN1 103Q TERPRI 77Q PRIN1 72Q PRIN1 62Q TERPRI 56Q PRIN1 51Q PRIN1 41Q TERPRI 35Q PRIN1 30Q PRIN1 20Q TERPRI 14Q PRIN1 7 PRIN1) NIL ( 152Q "\LAFITE.AUTHENICATION.FAILURE " 130Q "\LAFITE.LAST.STATUS " 107Q "P.BROWSEROPEN " 66Q "P.MAILFOLDER " 45Q "PHONE.INPUT " 24Q "P.QUIT " 3 "P.USER ") P.HELP D1 (I 0 INTERNALSTATE F 0 MENUINPUT F 1 P.HELP.FLG) o Q´‚±@dgð˜¿o gð—o @dgð˜¿o gð—o @dgð²¿o gb¿¿¿° gð—o @dgð˜¿o gð—o @gð§@dgð˜¿o gð—o @dgðœ¿Po gð›Po @dgð˜¿o gð—o @dgð˜¿o gð—o (420Q SHOULDNT 414Q P.CHUNK 377Q P.CHUNK 357Q P.CHUNK 342Q P.CHUNK 322Q P.CHUNK 317Q CONCAT 301Q P.CHUNK 276Q CONCAT 255Q P.CHUNK 240Q P.CHUNK 212Q P.CHUNK 175Q P.CHUNK 155Q P.CHUNK 127Q P.CHUNK 106Q P.CHUNK 71Q P.CHUNK 51Q P.CHUNK 34Q P.CHUNK 6 GLOBALVARS) (403Q CANT.READ.MAIL.FILE 365Q CANT.WRITE.MAIL.FILE 346Q FILE.SERVER.DOWN.OR.MAIL.FILE.BUSY 330Q NO.MORE.MESSAGES 305Q WRONG.INPUT.WHILE.P.MESSAGE.QUERY 263Q WRONG.INPUT.WHILE.P.QUIT 244Q NEW.MAIL 226Q NO.MAILSERVERS 217Q NO.NEW.MAIL 201Q P.MESSAGE.QUERY 163Q READING.OLD.MAIL 144Q PLAYING.MESSAGE.INFO 132Q PLAYING.MESSAGE.INFO 114Q QUIT.READING.MESSAGE 75Q LOGIN.HELP 57Q SPECIFY.ANOTHER.MSG 40Q EOM 22Q OPENING.FOLDER) ( 411Q " Could not open your mail file for reading. It is probably in use on some other machine. " 374Q " Could not open your mail file for writing. It is probably in use on some other machine. Only old mail is accessible. " 354Q " Either the file server for your mail file is not responding or your mail file is busy. Please logout and try again later. " 337Q " No more messages. Push asterisk to quit, push a message number if you want to hear a specific message. " 314Q " is not a possible command here. You have to type sharp sign to hear the message, or astersik to ignore it. " 273Q " is not a possible command here. You have to type sharp sign to read old mail, or astersik to quit. " 252Q " To hear the new messages keep pushing sharp sign. To hear an arbitrary message, push its number followed by shar sign. Push asterisk to quit. " 235Q " Push asterisk to quit, or, push sharp sign to read old mail. " 207Q " Push sharp sign if you want to hear the message. Push asterisk if you don't want to hear it. " 172Q " Retrieving old mail . " 152Q " To listen to a message, enter its number, followed by sharp sign. Push asterisk to quit. " 124Q " Message aborted. " 103Q " All commands end with sharp sign. Asterisk is the interrupt character. To log on, simply enter your name by pushing the buttons with the appropriate letters on them. Push 1 to enter Q, Z, or a hyphen in your name. When you are promted for your password, you have to spell it. Most of the push buttons are labelled with a number, and three, letters. Simply entering a key enters the first letter on the key. 0 followd by a key enters the second letter on the key. 1 followed by a key enters the third letter on the key. 0 0 followed by a key enters the number on that key. 0 1 enters Q. 1 1 enters Z. 1 0 rubs out the last code. If your password is all numeric you can type sharp sign followed by the numbers without the 0, 1, preefix. Terminate the password with sharp sign. When a message is being red you can interrupt it by pushing asterisk. To back up two sentences type 2, followed by sharp sign. To back up 3, sentences type 3, followed by sharp sign. And so on. If you want to abort the reading of a message type another asterisk. When you have interrupted a message using the asterisk command you can increase the speech rate by typing 1, followed by asterisk. You can decrease the speech rate by typing 0, followed by asterisk. When the mail reader is not talking you can log out by typing asterisk. Please enter your user name now. " 66Q "Specify another message. " 46Q " End of message. " 31Q " Opening mail folder. " 3 (P.HELP.FLG)) P.CHUNK D1 (P 5 SPEED P 4 END.POS P 3 REST P 2 ESC.SEQ P 1 POS P 0 CHUNK I 1 DONTLOWERCASE I 0 TEXTSTRING F 6 STATE) '`V]l @ jð@ Y@A M h(43Q P.SPEED 37Q SAYT 31Q P.FIND.ESC.SEQ 22Q NCHARS 16Q P.SPEED) NIL () P.RESET.TIMER D1 (F 0 P.TIMEOUTTIMER) o Plð‘P‚lwoöc(6 GLOBALVARS) (24Q FIXP) ( 31Q 3763714Q 3 (P.TIMEOUTTIMER)) SIMPLESYNCH D1 (P 2 NEWSYNCH# P 1 LASTSYNCH# P 0 PTR F 4 STATE) ]jT"Id¥d¡µ7kZdo TT[JHKhkØY°É(56Q P.SEND.ESC.SEQ 53Q CONCAT) NIL ( 50Q "i") IGNORETIMER D1 (L (0 FLG) F 0 \IGNORETIMER) @cNIL NIL () P.COMMAND D1 (P 0 BUFFERCONTENT I 4 ARG4 I 3 ARG3 I 2 ARG2 I 1 ARG1 I 0 COMMAND) t@dgð²&¿X²oi ¿Hi ¿i ¿i hgð–g @dgð˜¿gA gð–g @dgð—¿g gð–g (161Q SHOULDNT 155Q P.ESC.SEQ 141Q P.ESC.SEQ 122Q P.ESC.SEQ 106Q P.ESC.SEQ 66Q P.ESC.SEQ 51Q P.RESET 44Q TERPRI 37Q PRIN1 31Q PRIN1 16Q P.READBUFFER) (152Q H 145Q HOLD.OUTPUT 136Q S 130Q IMMEDIATE.STOP 117Q x 112Q INDEXED.STOP 102Q i 74Q INDEX.MARKER 63Q C 56Q COMMENCE.OUTPUT 4 IMMEDIATE.RESET) ( 25Q "This is sitting in the input buffer: ") P.ENSURE.ESC.SEQ D1 (P 1 I I 0 ESC.STRING.CANDIDATE) ‰@ kIHñ³I@I d¥d¡³@I gð²-Idkð³(¿@I i ¿oi ¿Ii ¿i ¿IkØY°·Ilð²@I ›@IkØg²@I ´@IkØ gð´i(177Q NTHCHAR 166Q LETTERP 163Q NTHCHAR 154Q NTHCHAR 141Q LETTERP 136Q NTHCHAR 114Q TERPRI 107Q PRIN1 101Q PRIN1 70Q PRIN1 64Q NTHCHAR 42Q NTHCHAR 21Q NTHCHAR 3 NCHARS) (202Q ^ 151Q ^ 45Q ;) ( 75Q " ") P.FIND.ESC.SEQ D1 (P 1 NEXTPOS P 0 POS I 0 TEXTSTRING) ,g@ H¡hg@HkØYd´ó@HkØI ´H(46Q P.ENSURE.ESC.SEQ 43Q SUBSTRING 27Q STRPOS 6 STRPOS) (20Q ^ 2 ^) () P.FINISHED.ACTIONSA0001 D1 (NAME ERRORSET F 0 DTMF.LOCK F 1 STATE F 2 RESETY) Phi¿Qhci(5 OBTAIN.MONITORLOCK) NIL () P.FINISHED.ACTIONS D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 STATE F 4 LISPXHIST F 5 RESETVARSLST) S ²S ¿ShShShShT!Uog ‘h‚gZ ¿J“¿Sh(174Q ERROR! 166Q RESETRESTORE 154Q P.FINISHED.ACTIONSA0001 43Q CLOSEF 20Q OPENP) (162Q ERROR 151Q INTERNAL) ( 146Q (P.FINISHED.ACTIONSA0001)) P.FIX D1 (P 0 X) &o°dggHho µåh(35Q EVAL) (20Q STATE 15Q REPLACE) ( 30Q (of STATE with NIL) 3 (TALKING HALTSPEECH MESSAGEQUERY? PHONEINPUT MENUINPUT SYNCHLIST TEMPFILE MSGDESCRIPTOR MSGBODYBEGIN MSGNO PROSEOUTPUT)) P.FIND.IMAGE.OBJS D1 (I 1 BEG I 0 STREAM) @ (6 TEDIT.LIST.OF.OBJECTS 3 TEXTOBJ) NIL () P.SEARCH.SELECT.AND.SAY.MSG D1 (P 1 P.SELECTEDMESSAGE P 0 MAILFOLDER F 2 STATE) 8RHÉ$H Yd´ dÊjð²hHgHÉ&g I(64Q \LAFITE.DISPLAY 23Q SELECTMESSAGETODISPLAY) (60Q LEFT 53Q MAILFOLDER 47Q Display 33Q LAFITEMSG 15Q MAILFOLDER) () P.SEND.ESC.SEQ D1 (I 0 ESC.STRING) li o@ i (21Q RS232WRITESTRING 15Q CONCAT 5 RS232WRITEBYTE) NIL ( 11Q "[") TEDIT.LIST.OF.OBJECTSA0001 D1 (I 3 OBL I 2 PC# I 1 PC I 0 CH# F 0 TESTFN) 2Ad².gð³'AÉ´ P›AÉkP´CAÉ@h h(55Q TCONC) (44Q PIECE 27Q PIECE 15Q PIECE 6 LASTPIECE) () TEDIT.LIST.OF.OBJECTS D1 (P 0 OBJLIST I 1 TESTFN I 0 TEXTOBJ) h @gHH(16Q TEDIT.MAPPIECES 3 TCONC) (12Q TEDIT.LIST.OF.OBJECTSA0001) () P.SAY.BODY D1 (P 0 TEMPMSG I 1 MSGDESCRIPTOR I 0 MAILFOLDER F 1 STATE) T@h4@gg XAH QHHA AÊ jð—A@l@¿@H@A4h(101Q MARKMESSAGE 60Q P.SAY.BODY1 34Q CLOSEF 30Q LA.COPY.MESSAGE.TEXT 23Q OPENSTREAM) (115Q MAILFOLDER 106Q MAILFOLDER 64Q LAFITEMSG 20Q BOTH 15Q {NODIRCORE} 6 MAILFOLDER) () P.SAY.BODY1 D1 (P 4 IMAGEOBJLIST P 3 MSG.STRING P 2 MSGBODYEND P 1 MSGBODYBEGIN P 0 TEXTSTREAM I 4 BUTTON I 3 MENU I 2 ITEM I 1 MSGDESCRIPTOR I 0 STREAM F 5 STATE) p@ AHggH YUIH ZIJð—o ¿HI \ULLœo ¿H o HI Hg h(154Q COPYMSGBYTES 151Q GETSTREAM 142Q SETFILEPTR 135Q P.CHUNK 125Q CLOSEF 120Q P.CHUNK 70Q P.FIND.IMAGE.OBJS 62Q SHOULDNT 46Q GETEOFPTR 24Q P.FIND.MSG.BODY 20Q SETFILEINFO 3 OPENTEXTSTREAM) (146Q {RS232} 15Q NILL 12Q ENDOFSTREAMOP) ( 132Q "The body of the message follows. " 115Q "The message contains image objects, and I can not handle it at the present. Please specify another message. " 57Q "Found only header in message") ACTIVEWINDOW D1 (P 0 X I 2 WINDOWPROPLST I 1 REGION I 0 WINDOWNAME) 8@ ˜@ ³)@A@i ¿B°d@ BBµì@(57Q WINDOWPROP 47Q EVAL 32Q SET 27Q CREATEW 24Q L-CASE 13Q WINDOWP 10Q EVAL 3 BOUNDP) NIL () PROSE.LAFITE.WRITE.PROFILE D1 NIL hNIL NIL () PROSE.LAFITE.BROWSE D1 (I 4 OPTIONS I 3 FILE I 2 BUTTON I 1 MENU I 0 ITEM F 0 LAFITEMAINMENU) A¬@µ gb¿Pb¿@ABCD (27Q ORIGINAL.LAFITE.BROWSE) (7 ##BROWSE##) () (PRETTYCOMPRINT PROSE-UTILCOMS) (RPAQQ PROSE-UTILCOMS ((FNS ACTIVEWINDOW ADVISE.FOR.TYPEOUT VERIFYINPUT DESCRIBE.STATE GETSTATEFIELD P.INDEX.SEQ? P.RS232.INIT P.FINISHED? P.INTERPRET.OUTPUT P.LAST.SENTENCE.SAID P.MESSAGE.QUERY P.PROCESS P.NO.RS232 DEBUGOUTPUT? PROSEDEBUGINFO MAKECOMMAND MSG.LEN.TO.TIME MSG.LEN.TO.SECS MSG.LEN.TO.MINS PLURAL? BACK.SENTENCE P.SPEED P.QUIT.READING.MSG BACK.SENTENCE1 BOUT.FROM.STRING LETTERP READ.TTY SAYT SETSTATEFIELD START.PROSE.PROCESSES PHONE.MONITOR START.PROSE.PROCESS SYNCH CHARS.TO.MINUTES CHECK.RS232.SETTINGS COPYMSGBYTES BINARYLCASE BINLETTERP P.USER.MESSAGE PHONE.INTERRUPT EOSP P.CHECK.GLOBAL.VARS P.HELP P.CHUNK P.RESET.TIMER SIMPLESYNCH IGNORETIMER P.COMMAND P.ENSURE.ESC.SEQ P.FIND.ESC.SEQ P.FINISHED.ACTIONS P.FIX P.FIND.IMAGE.OBJS P.SEARCH.SELECT.AND.SAY.MSG P.SEND.ESC.SEQ TEDIT.LIST.OF.OBJECTS P.SAY.BODY P.SAY.BODY1) (FNS ACTIVEWINDOW) (RECORDS PROSESETTINGS STATE) (VARS (\TIMEOUTFLG NIL) (TOPLEVELTTYWINDOW ( TTYDISPLAYSTREAM)) (\IGNORETIMER NIL)) (VARS (EOSENTCHARCODES (QUOTE (46 59 33))) (IMAGEOBJMSG " Uh! There is a bitmap here which I can not describe. I will continue reading the text after the bitmap. " ) (STATE (CREATE STATE)) (PROSEDEBUG NIL)) (INITVARS (PROSE.DEFAULT.SETTINGS (CREATE PROSESETTINGS SPEECHRATE _ 160))) (* Modifications to LAFITE) (FNS PROSE.LAFITE.WRITE.PROFILE PROSE.LAFITE.BROWSE) ( P (SETQ P.TIMEOUTTIMER (SETUPTIMER 1000 NIL (QUOTE TICKS)))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA))))) (RECORD PROSESETTINGS (SPEECHRATE PROSODY FASTSCAN BASELINEPITCH MONOTONEPITCH ATTENUATION EMPHATICSTRESSCHAR INPUTMODE ALPHABETICPRONUN PUNCTPRONUN DIGITPRONUN SPACEPRONUN MINUSPRONUN FULLNUMPRONUN ACRRECOGN ABBREVRECOGN ALLOPROC ERRORCHARGEN INDEXMARKECHO VOWELEDACRPRONUN FASTPROC CRAFTEROUTPUT)) (RECORD STATE (USERINFO LAFITEINFO STATEINFO PROSESETTINGS INPUTINFO PROSEINPUT) (RECORD USERINFO ( USER PASSWORD TOUCHTONES)) (RECORD LAFITEINFO (NEWMAIL NONEWMAIL FOLDEROPEN MAILFOLDER MSG SELECTEDMSGDESCR)) (RECORD STATEINFO (QUIT MSGS NEWMAILRETRIEVED READINGNEWMAIL READINGOLDMAIL MESSAGEQUERY? MSGSURVEY TALKING HALTSPEECH PROSEOUTPUT PROCESS CALLTEXTPROCESS OPERATORPROCESS) ( RECORD MSGS (NOOFMSGS NEWMSGS HEARDMSGS) (RECORD HEARDMSGS (HEARD EXAMINED SKIPPED)) (RECORD NEWMSGS ( FIRSTNEW LASTNEW)))) (RECORD INPUTINFO (TTSINPUT DTMFINPUT PHONECONTROLINPUT COMMAND)) (RECORD PROSEINPUT (HEADER BODY MSGDESCRIPTOR MSGNO MSGBODYBEGIN IMAGEOBJLIST TEMPFILE SYNCHLIST))) (RPAQQ \TIMEOUTFLG NIL) (RPAQ TOPLEVELTTYWINDOW (TTYDISPLAYSTREAM)) (RPAQQ \IGNORETIMER NIL) (RPAQQ EOSENTCHARCODES (46 59 33)) (RPAQ IMAGEOBJMSG " Uh! There is a bitmap here which I can not describe. I will continue reading the text after the bitmap. " ) (RPAQ STATE (CREATE STATE)) (RPAQQ PROSEDEBUG NIL) (RPAQ? PROSE.DEFAULT.SETTINGS (CREATE PROSESETTINGS SPEECHRATE _ 160)) (SETQ P.TIMEOUTTIMER (SETUPTIMER 1000 NIL (QUOTE TICKS))) (PUTPROPS PROSE-UTIL COPYRIGHT ("Xerox Corporation" 1985)) NIL