(FILECREATED "10-Apr-85 11:16:21" ("compiled on " {ERIS}MAILREADER>CALLTEXT>PROSE-PHONE.;14) "20-Dec-84 12:07:22" recompiled changes: PROSE.OPERATOR HAS.USER.TIMED.OUT? SETUP.PHONE in "INTERLISP-D 10-Jan-85 ..." dated "10-Jan-85 13:28:55") (FILECREATED "10-Apr-85 11:15:35" {ERIS}MAILREADER>CALLTEXT>PROSE-PHONE.;14 14940 changes to: (FNS HAS.USER.TIMED.OUT? PROSE.OPERATOR SETUP.PHONE) previous date: " 3-Apr-85 18:51:10" {ERIS}MAILREADER>CALLTEXT>PROSE-PHONE.;11) NO.WAIT.READ.TTSA0001 D1 (NAME ERRORSET F 0 TTS.LOCK F 1 STATE F 2 RESETY) Phi Qhci(5 OBTAIN.MONITORLOCK) NIL () NO.WAIT.READ.TTS D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 INPUT F 4 STATE F 5 LISPXHIST F 6 RESETVARSLST) -TXU!Vog hg[ KH(51Q ERROR! 43Q RESETRESTORE 31Q NO.WAIT.READ.TTSA0001) (37Q ERROR 26Q INTERNAL) ( 23Q (NO.WAIT.READ.TTSA0001)) START.OPERATOR.PROCESS D1 (F 0 \PROSE.OPERATOR.PROCESS F 1 STATE) 1o g P o cQP(31Q ADD.PROCESS 21Q PROCESSP 14Q BOUNDP 6 USEDFREE) (11Q \PROSE.OPERATOR.PROCESS) ( 26Q (PROSE.OPERATOR) 3 (\PROSE.OPERATOR.PROCESS)) PROSE.OPERATOR D1 (P 0 READ.RESULT F 1 MAILREADERLOGFILE F 2 PHONE.NO.DTMF F 3 OFF.THE.HOOK F 4 \PROSE.OPERATOR.PROCESS F 5 MAILREADERUSERSFILE) R icg Q Q oQ Q gg cg gg c h T Q oQ Q (175Q TERPRI 170Q PRIN1 157Q PRIN1 153Q DATE 147Q SUSPEND.PROCESS 142Q IGNORETIMER 135Q P.RESET.TIMER 127Q OPENHASHFILE 115Q OPENP 104Q OPENFILE 72Q TERPRI 65Q PRIN1 54Q PRIN1 50Q DATE 43Q OPENP 35Q BOUNDP 26Q READ.TTS 16Q READ.PHONECONTROL 12Q SPEAK 5 FLUSH.ESC.SEQ) (124Q BOTH 121Q {DSK}NAME.HASH 112Q {DSK}NAME.HASH 101Q APPEND 76Q {DSK}MAILREADERLOG 32Q MAILREADERLOGFILE) ( 164Q ": Call completed." 61Q ": Call received.") START.CALLTEXT.MONITOR.PROCESS D1 (F 0 \CALLTEXT.MONITOR.PROCESS F 1 \TIMEOUTFLG F 2 STATE) 7o hci g P o cRP(40Q ADD.PROCESS 30Q PROCESSP 23Q BOUNDP 15Q IGNORETIMER 6 USEDFREE) (20Q \CALLTEXT.MONITOR.PROCESS) ( 35Q (CALLTEXT.MONITOR.PROCESS) 3 (\CALLTEXT.MONITOR.PROCESS)) CALLTEXT.MONITOR.PROCESSA0001 D1 (NAME ERRORSET F 0 DTMF.LOCK F 1 STATE F 2 CHARACTERS F 3 RESETY) Phi QRci(5 OBTAIN.MONITORLOCK) NIL () CALLTEXT.MONITOR.PROCESSA0002 D1 (NAME ERRORSET F 0 PHONECONTROL.LOCK F 1 STATE F 2 CHARACTERS F 3 RESETY) Phi QR ci(22Q DREVERSE 5 OBTAIN.MONITORLOCK) NIL () CALLTEXT.MONITOR.PROCESSA0003 D1 (NAME ERRORSET F 0 TTS.LOCK F 1 STATE F 2 CHARACTERS F 3 RESETY) Phi QR ci(20Q DREVERSE 5 OBTAIN.MONITORLOCK) NIL () CALLTEXT.MONITOR.PROCESS D1 (P 17Q RESETZ P 16Q RESETY P 15Q LISPXHIST P 14Q RESETZ P 13Q RESETY P 12Q LISPXHIST P 11Q RESETZ P 10Q RESETY P 7 LISPXHIST P 6 POSSIBLY.MULTIDIGIT P 5 NEGATIVE.FLAG P 4 CHARACTERS P 3 DTMF.IN P 2 FINISHED.ESC.SEQ P 1 ESC.TYPE P 0 C F 20Q \RS232BACKGROUNDERRORSTATUS F 21Q INTRPT F 22Q LISPXHIST F 23Q RESETVARSLST F 24Q REQUESTED.DATA F 25Q UNREQUESTED.DATA F 26Q \TIMEOUTFLG) x0`W !``nxjtW"````dk`€hXn l`W !``nxjtW"````dk`€hXn Kl[gHl*;gi1J`W !``nxjtW"````dk`€hXn l0HSHdl9MMhHl0 LiIgHl0LhvNLLjl Hl0L]Hl0LiQHl*Hdl#H Lh9l-ihi,Hl;IghhIdgKKFHW( HW* 5hc,W$! W&og hg_ OcIg0H LW$! W&og hg_ O.H LW$!W&og hg_ OiZe(1152Q ERROR! 1143Q RESETRESTORE 1130Q CALLTEXT.MONITOR.PROCESSA0003 1104Q CHARACTER 1074Q ERROR! 1065Q RESETRESTORE 1052Q CALLTEXT.MONITOR.PROCESSA0002 1026Q CHARACTER 1010Q PHONEINPUT.MONITOR 1003Q ERROR! 774Q RESETRESTORE 761Q CALLTEXT.MONITOR.PROCESSA0001 733Q P.RESET.TIMER 725Q CHCON1 715Q CHCON1 624Q CHARACTER 506Q MINUS 447Q HAS.USER.TIMED.OUT? 443Q DISMISS 375Q \RS232.PROCESSINTERRUPT 342Q \RS232C.PROCESSINTERRUPT 265Q HAS.USER.TIMED.OUT? 261Q DISMISS 212Q \RS232.PROCESSINTERRUPT 157Q \RS232C.PROCESSINTERRUPT 133Q HAS.USER.TIMED.OUT? 127Q DISMISS 60Q \RS232.PROCESSINTERRUPT 25Q \RS232C.PROCESSINTERRUPT 5 HAS.USER.TIMED.OUT?) (1136Q ERROR 1125Q INTERNAL 1060Q ERROR 1047Q INTERNAL 1017Q PHONE 767Q ERROR 756Q INTERNAL 700Q PHONE 662Q TTS 521Q PHONE 427Q \RS232IRING.READ 423Q \RS232IRING.SIZE 415Q \RS232IRING.READ 412Q \RS232IRINGBUF 404Q \RS232IRING.WRITE 401Q \RS232IRING.READ 353Q \DLionTTYInLoc 347Q \RS232DLion? 332Q \RS232DLionRS232C? 315Q PHONE 301Q TTS 244Q \RS232IRING.READ 240Q \RS232IRING.SIZE 232Q \RS232IRING.READ 227Q \RS232IRINGBUF 221Q \RS232IRING.WRITE 216Q \RS232IRING.READ 170Q \DLionTTYInLoc 164Q \RS232DLion? 147Q \RS232DLionRS232C? 112Q \RS232IRING.READ 106Q \RS232IRING.SIZE 100Q \RS232IRING.READ 75Q \RS232IRINGBUF 67Q \RS232IRING.WRITE 64Q \RS232IRING.READ 36Q \DLionTTYInLoc 32Q \RS232DLion? 15Q \RS232DLionRS232C?) ( 1122Q (CALLTEXT.MONITOR.PROCESSA0003) 1044Q (CALLTEXT.MONITOR.PROCESSA0002) 753Q (CALLTEXT.MONITOR.PROCESSA0001)) HAS.USER.TIMED.OUT?A0001 D1 (NAME ERRORSET F 0 DTMF.LOCK F 1 STATE F 2 RESETY) Phi Qoci(5 OBTAIN.MONITORLOCK) NIL ( 21Q (*)) HAS.USER.TIMED.OUT? D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 \TIMEOUTFLG F 4 STATE F 5 \IGNORETIMER F 6 LISPXHIST F 7 RESETVARSLST) pUh`g Sico i`g ESBhcV!Wog hgZ JTiThn i(154Q BLOCK 146Q PHONEINPUT.MONITOR 120Q ERROR! 112Q RESETRESTORE 100Q HAS.USER.TIMED.OUT?A0001 50Q TIMEREXPIRED? 35Q P.RESET.TIMER 32Q P.CHUNK 14Q TIMEREXPIRED?) (106Q ERROR 75Q INTERNAL 45Q TICKS 42Q P.TIMEOUTTIMER 11Q TICKS 6 P.TIMEOUTTIMER) ( 72Q (HAS.USER.TIMED.OUT?A0001) 27Q "Please keep pushing the keys to maintain the connection.") PHONEINPUT.MONITOR D1 (F 0 STATE) PdgdgigPg4P n Pi h(174Q WAKE.PROCESS 150Q BLOCK 141Q START.PROSE.PROCESS 135Q PROCESSP) (110Q * 72Q # 36Q * 17Q TALKING) () READ.TTSA0001 D1 (NAME ERRORSET F 0 TTS.LOCK F 1 STATE F 2 RESETY) Phi Qhci(5 OBTAIN.MONITORLOCK) NIL () READ.TTS D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 INPUT F 4 STATE F 5 LISPXHIST F 6 RESETVARSLST) 7TXn U!Vog hg[ KH(63Q ERROR! 55Q RESETRESTORE 43Q READ.TTSA0001 21Q DISMISS) (51Q ERROR 40Q INTERNAL) ( 35Q (READ.TTSA0001)) READ.DTMFA0001 D1 (NAME ERRORSET F 0 DTMF.LOCK F 1 STATE F 2 RESETY) Phi Qhci(5 OBTAIN.MONITORLOCK) NIL () READ.DTMF D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 INPUT F 4 STATE F 5 LISPXHIST F 6 RESETVARSLST) 8TXn U!Vog hg[ KH(64Q ERROR! 56Q RESETRESTORE 44Q READ.DTMFA0001 22Q DISMISS) (52Q ERROR 41Q INTERNAL) ( 36Q (READ.DTMFA0001)) READ.PHONECONTROLA0001 D1 (NAME ERRORSET F 0 PHONECONTROL.LOCK F 1 STATE F 2 RESETY) Phi Qhci(5 OBTAIN.MONITORLOCK) NIL () READ.PHONECONTROL D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 INPUT F 4 STATE F 5 LISPXHIST F 6 RESETVARSLST) 9TXn U!Vog hg[ KH(65Q ERROR! 57Q RESETRESTORE 45Q READ.PHONECONTROLA0001 23Q DISMISS) (53Q ERROR 42Q INTERNAL) ( 37Q (READ.PHONECONTROLA0001)) SETUP.PHONE D1 (F 0 TTS.STOP F 1 PHONE.INIT F 2 PHONE.AUTO.ANSWER F 3 PHONE.ARM) DP oi i Q oi i R S oi i (101Q TERPRI 75Q PRIN1 65Q READ.PHONECONTROL 62Q SPEAK 56Q SPEAK 52Q TERPRI 45Q PRIN1 35Q READ.PHONECONTROL 32Q SPEAK 26Q TERPRI 21Q PRIN1 11Q READ.TTS 6 SPEAK 2 FLUSH.ESC.SEQ) NIL ( 71Q " Response from arming phone. " 41Q " Response from phone init." 15Q " Response from TTS.STOP.") SPEAK D1 (P 1 C P 0 TEMPBUFFER I 0 BUFFER) I@k H Y@m o l i hgH l I (104Q RS232WRITEBYTE 101Q CHCON1 72Q RS232WRITEBYTE 64Q CHCON1 61Q GNC 46Q RS232FORCEOUTPUT 41Q RS232WRITEBYTE 33Q STREQUAL 24Q SUBSTRING 13Q GNC 4 SUBSTRING) (53Q ^) ( 30Q ".") FLUSH.ESC.SEQ D1 NIL g (5 RS232CLEARBUFFER) (2 INPUT) () (PRETTYCOMPRINT PROSE-PHONECOMS) (RPAQQ PROSE-PHONECOMS ((FNS NO.WAIT.READ.TTS START.OPERATOR.PROCESS PROSE.OPERATOR START.CALLTEXT.MONITOR.PROCESS CALLTEXT.MONITOR.PROCESS HAS.USER.TIMED.OUT? PHONEINPUT.MONITOR READ.TTS READ.DTMF READ.PHONECONTROL SETUP.PHONE SPEAK FLUSH.ESC.SEQ) (VARS OFF.THE.HOOK PHONE.ARM PHONE.AUTO.ANSWER PHONE.DTMF PHONE.HANGUP PHONE.INIT PHONE.NO.DTMF TTS.STOP) (VARS REQUESTED.DATA UNREQUESTED.DATA))) (RPAQQ OFF.THE.HOOK NIL) (RPAQQ PHONE.ARM "^[*3L") (RPAQQ PHONE.AUTO.ANSWER ( "^[*%"^[*1;0;61T^[[200sThis is the Apr 2nd Interlisp-D mail reader. Please report problems to Becky Burwell. Please log in . %"" )) (RPAQQ PHONE.DTMF "^[*1;30;1T") (RPAQQ PHONE.HANGUP "^[*5L") (RPAQQ PHONE.INIT "^[*0L") (RPAQQ PHONE.NO.DTMF "^[*0T") (RPAQQ TTS.STOP "^[[S") (RPAQQ REQUESTED.DATA R) (RPAQQ UNREQUESTED.DATA U) (PUTPROPS PROSE-PHONE COPYRIGHT ("Xerox Corporation" 1984 1985)) NIL