(FILECREATED " 2-Dec-84 13:18:47" ("compiled on " {ERIS}PROSE>COMMUNICARD.;11) "30-Nov-84 13:35:34" bcompl'd in "INTERLISP-D 30-Nov-84 ..." dated "30-Nov-84 14:17:38") (FILECREATED " 2-Dec-84 13:18:25" {ERIS}PROSE>COMMUNICARD.;11 13483 changes to: (FNS ANSWERING.MACHINE GET.MESSAGES PLAYIT TEST.RECORD STORE.MESSAGE WAIT.FOR.CALL DIAL.DIGIT DIAL STATUS TONE? TEST.TONE TEST.PLAY COMMUNICARD.SETUP OFF.HAND OFF.HOOK OFF.LINE OFF.PHONE ON.HAND ON.HOOK ON.LINE ON.PHONE RINGING? TEST INIT.ANSWERING.MACHINE CORRECT TEST.PLAY.FILE INP OUT HEX POLL) (VARS COMMUNICARDCOMS SMEAR.LIMIT SLOW.LIMIT FAST.LIMIT BEEP.LIMIT BACKWARDS.LIMIT SPEECH3.LIMIT SPEECH2.LIMIT SPEECH1.LIMIT RESPONSE.LIMIT SPEECH.THRESHOLD RDY TONE MONITOR HAND ENB LINE PHONE OH DATA DTMF RST CTRL AROUNDEXITFNS BANK) previous date: "30-Nov-84 17:10:18" {ERIS}PROSE>COMMUNICARD.;1) ANSWERING.MACHINE D1 (P 0 PHONEMESSAGESTREAM F 1 STATUSSTREAM F 2 RESPONSE.ARRAY F 3 RESPONSE.LIMIT F 4 SPEECH1.ARRAY F 5 SPEECH1.LIMIT F 6 SPEECH3.ARRAY F 7 BEEP.ARRAY F 10Q BEEP.LIMIT F 11Q FAST.LIMIT F 12Q SMEAR.ARRAY F 13Q SPEECH2.ARRAY F 14Q SPEECH2.LIMIT F 15Q SPEECH3.LIMIT F 16Q FAST.ARRAY F 17Q BACKWARDS.ARRAY F 20Q BACKWARDS.LIMIT F 21Q SLOW.ARRAY F 22Q SMEAR.LIMIT F 23Q SLOW.LIMIT) gg XoQ Q oQ Q `ljoQ Q Q TU WW RS WW RS WW RSg W"W& RSg WW RSg WW$ RSg VW n HR VH h(333Q CLOSEF 323Q STORE.MESSAGE 315Q ON.HOOK 311Q BLOCK 302Q PLAYIT 273Q PLAYIT 262Q PLAYIT 252Q PLAYIT 241Q PLAYIT 231Q PLAYIT 220Q PLAYIT 210Q PLAYIT 177Q PLAYIT 167Q PLAYIT 161Q PLAYIT 151Q RECORDIT 143Q PLAYIT 133Q PLAYIT 125Q TERPRI 120Q PRIN1 114Q DATE 110Q PRIN1 77Q OFF.HOOK 73Q WAIT.FOR.CALL 52Q TERPRI 45Q PRIN1 34Q PRIN1 30Q DATE 24Q PRIN1 13Q OPENSTREAM) (270Q SMEAR 247Q FAST 226Q SLOW 205Q BACKWARDS 55Q \EM.KBDAD3 10Q APPEND 5 {DSK}MESSAGES.SPEECH) ( 104Q "call at " 41Q " --" 20Q "-- Started at ") COMMUNICARD.SETUP D1 (F 0 RST F 1 CTRL) Pj Q (13Q BUS.OUTPUT 7 BUS.OUTPUT 2 BUS.RESET) NIL () CORRECT D1 (L (0 DATUM)) @dllNIL NIL () DIAL D1 (P 2 X P 0 STRING I 0 PHONE.NUMBER) %@k H kJIH JkZh(32Q DIAL.DIGIT 27Q GNC 13Q NCHARS 4 SUBSTRING) NIL () DIAL.DIGIT D1 (P 1 X I 0 DIGIT) W@j@d l b@dd8@kIH$o l ld IkYn (124Q BLOCK 116Q TERPRI 103Q BLOCK 75Q OFF.HOOK 71Q BLOCK 63Q ON.HOOK 57Q PRIN3 13Q \FZEROP) NIL ( 54Q ".") GET.MESSAGES D1 (P 2 MESSAGE# P 0 MESSAGESTREAM F 6 RESPONSE.ARRAY F 7 BEEP.LIMIT) gg kH cHd W oi Ji i `kjHVV K6KLjMlIVd JkԺH h(204Q ON.HOOK 201Q CLOSEF 165Q PLAYIT 162Q ARRAYSIZE 125Q ARRAYSIZE 110Q BLOCK 72Q TERPRI 65Q PRIN1 57Q PRIN1 46Q SETFILEPTR 40Q GETFILEPTR 31Q EOFP 21Q OFF.HOOK 16Q WAIT.FOR.CALL 10Q OPENSTREAM) (141Q FDEV 134Q STREAM 117Q ARRAYP 76Q \EM.KBDAD2 5 INPUT 2 {DSK}MESSAGES.SPEECH) ( 53Q "Press for message number ") HEX D1 (P 3 X P 1 STRING P 0 LENGTH I 0 STR) 5 @k Yd XdkjKJLlHK I ԼKk[L(50Q HEXCHAR 45Q GNC 41Q EXPT 14Q NCHARS 7 SUBSTRING) NIL () HEXCHAR D1 (L (0 CHAR)) r@djldkgdladl[dlUdlOdlIdlCdl=dl 7dgl dgl gl @dgl gl@glNIL (152Q F 141Q E 131Q D 117Q C 107Q B 76Q A) () INIT.ANSWERING.MACHINE D1 (F 0 SPEECH1.LIMIT F 1 SPEECH1.ARRAY F 2 SPEECH2.LIMIT F 3 RESPONSE.ARRAY F 4 SPEECH2.ARRAY F 5 SPEECH3.LIMIT F 6 BACKWARDS.LIMIT F 7 SPEECH3.ARRAY F 10Q RESPONSE.LIMIT F 11Q BACKWARDS.ARRAY) H Pgjd cRgjd cUgjd cWgjd cVgjd coi i h(104Q TERPRI 77Q PRIN1 65Q ARRAY 52Q ARRAY 36Q ARRAY 23Q ARRAY 10Q ARRAY) (60Q BYTE 45Q BYTE 31Q BYTE 16Q BYTE 3 BYTE) ( 73Q "now run TEST.RECORD on SPEECH1.ARRAY, SPEECH2.ARRAY, SPEECH3.ARRAY, RESPONSE.ARRAY, and BACKWARDS.ARRAY.") INP D1 (I 0 A) @ (3 BUS.INPUT) NIL () OFF.HAND D1 (F 0 CTRL F 1 HAND) PQmP (14Q BUS.OUTPUT 10Q BUS.INPUT) NIL () OFF.HOOK D1 (F 0 CTRL F 1 OH) Pd Q (11Q BUS.OUTPUT 4 BUS.INPUT) NIL () OFF.LINE D1 (F 0 CTRL F 1 LINE) PQmP (14Q BUS.OUTPUT 10Q BUS.INPUT) NIL () OFF.PHONE D1 (F 0 CTRL F 1 PHONE) PQP (11Q BUS.OUTPUT 5 BUS.INPUT) NIL () ON.HAND D1 (F 0 CTRL F 1 HAND) PQP (11Q BUS.OUTPUT 5 BUS.INPUT) NIL () ON.HOOK D1 (F 0 CTRL F 1 OH) Pd Qm (14Q BUS.OUTPUT 4 BUS.INPUT) NIL () ON.LINE D1 (F 0 CTRL F 1 LINE) PQP (11Q BUS.OUTPUT 5 BUS.INPUT) NIL () ON.PHONE D1 (F 0 CTRL F 1 PHONE) PQmP (14Q BUS.OUTPUT 10Q BUS.INPUT) NIL () OUT D1 (I 1 D I 0 A) @A (4 BUS.OUTPUT) NIL () PLAYIT D1 (P 1 DATUM I 2 OPTION I 1 LIMIT I 0 ARRAY F 2 DATA) Bdg&AkjIHhR@I( R@I( IkYg$AkjIHR@I(@Ik( IlYBdgjAkHIR@I( ImԹg2AljIHR@Il( R@Ik( R@I( IkYAkjIH[R@I( IkY(302Q BUS.OUTPUT 246Q BUS.OUTPUT 236Q BUS.OUTPUT 224Q BUS.OUTPUT 157Q BUS.OUTPUT 113Q BUS.OUTPUT 44Q BUS.OUTPUT 34Q BUS.OUTPUT) (172Q SMEAR 130Q BACKWARDS 56Q FAST 4 SLOW) () POLL D1 (I 1 DATA I 0 ADDR) @A (4 BUS.OUTPUT) NIL () RECORDIT D1 (P 1 DATUM I 1 LIMIT I 0 ARRAY F 2 DATA F 3 SPEECH.THRESHOLD) !RS AkjIHh@IR *IkY(27Q BUS.INPUT 4 BUS.OUTPUT) NIL () RINGING? D1 (F 1 MONITOR F 2 CTRL) QR Hj HH (26Q \FZEROP 4 BUS.INPUT) NIL () STATUS D1 (P 0 STATUS F 7 CTRL F 10Q OH F 11Q PHONE F 12Q TONE F 13Q LINE F 14Q HAND F 15Q MONITOR) 5pW Xoi WHYjIoi oi WHZjJoi oi WH[jKoi oi WH\jzLpoi oi WH]jOMEoi oi WH^j$Noi oi i h o o o co` /o, o(450Q \FZEROP 432Q \FZEROP 414Q \FZEROP 401Q \FZEROP 366Q \FZEROP 353Q \FZEROP 346Q TERPRI 341Q PRIN1 330Q PRIN1 301Q PRIN1 270Q PRIN1 241Q PRIN1 230Q PRIN1 201Q PRIN1 170Q PRIN1 133Q PRIN1 122Q PRIN1 65Q PRIN1 54Q PRIN1 20Q PRIN1 7 BUS.INPUT) NIL ( 460Q "on" 442Q "" 424Q "off" 407Q "off" 374Q "" 361Q "no " 335Q "tone " 324Q "" 275Q "ringing/" 264Q "not " 235Q "hand/" 224Q "on" 175Q "line/" 164Q "on" 127Q "phone/" 116Q "no " 61Q "hook/" 50Q "off" 14Q "Status: ") STORE.MESSAGE D1 (I 1 SAMPLE I 0 FILE F 4 BEEP.ARRAY) G@TT H8HIjJlK@AA H8HIjJlK(55Q ARRAYSIZE 12Q ARRAYSIZE) (71Q FDEV 64Q STREAM 47Q ARRAYP 26Q FDEV 21Q STREAM 4 ARRAYP) () TEST D1 (P 1 DATUM F 2 DATA F 3 SPEECH.THRESHOLD F 4 SPEECH.LIMIT F 5 SPEECHARRAY) 0RS TkjIHUIR *IkY(53Q ON.HOOK 37Q BUS.INPUT 15Q BUS.OUTPUT 7 OFF.HOOK 2 RINGING?) NIL () TEST.PLAY D1 (I 2 OPTION I 1 LIMIT I 0 ARRAY) @AB (22Q ON.HOOK 16Q PLAYIT 7 OFF.HOOK 2 RINGING?) NIL () TEST.PLAY.FILE D1 (P 1 DATUM I 0 FILE F 2 SPEECH.LIMIT F 3 DATA) )RkjIHS@ IkY(44Q ON.HOOK 31Q BUS.OUTPUT 7 OFF.HOOK 2 RINGING?) NIL () TEST.RECORD D1 (I 1 LIMIT I 0 ARRAY F 0 DATA F 1 SPEECH.THRESHOLD) FPQ o @A oi i @A n n (101Q BLOCK 72Q ON.HOOK 66Q BLOCK 57Q PLAYIT 51Q TERPRI 44Q PRIN1 33Q RECORDIT 25Q PRIN1 15Q BUS.OUTPUT 7 OFF.HOOK 2 RINGING?) NIL ( 40Q "done." 22Q "Recording... ") TEST.TONE D1 (P 0 THE.TONE F 2 DTMF F 3 CTRL F 4 TONE) P n S TYj)II oi R i i Rj (113Q ON.HOOK 107Q BUS.OUTPUT 101Q TERPRI 74Q PRIN1 70Q BUS.INPUT 63Q PRIN1 51Q \FZEROP 32Q BUS.INPUT 25Q BLOCK 16Q OFF.HOOK 11Q RINGING? 5 BLOCK) NIL ( 57Q "tone ") TONE? D1 (F 1 DTMF F 2 CTRL F 3 TONE) *R SHj HH hQ lQj (46Q BUS.OUTPUT 36Q BUS.INPUT 26Q \FZEROP 3 BUS.INPUT) NIL () WAIT.FOR.CALL D1 NIL h(10Q BLOCK 2 RINGING?) NIL () (PRETTYCOMPRINT COMMUNICARDCOMS) (RPAQQ COMMUNICARDCOMS ((VARS BACKWARDS.LIMIT BANK BEEP.LIMIT CTRL DATA DTMF ENB FAST.LIMIT HAND LINE MONITOR OH PHONE RDY RESPONSE.LIMIT RST SLOW.LIMIT SMEAR.LIMIT SPEECH.THRESHOLD SPEECH1.LIMIT SPEECH2.LIMIT SPEECH3.LIMIT TONE) (FNS ANSWERING.MACHINE COMMUNICARD.SETUP CORRECT DIAL DIAL.DIGIT GET.MESSAGES HEX HEXCHAR INIT.ANSWERING.MACHINE INP OFF.HAND OFF.HOOK OFF.LINE OFF.PHONE ON.HAND ON.HOOK ON.LINE ON.PHONE OUT PLAYIT POLL RECORDIT RINGING? STATUS STORE.MESSAGE TEST TEST.PLAY TEST.PLAY.FILE TEST.RECORD TEST.TONE TONE? WAIT.FOR.CALL))) (RPAQQ BACKWARDS.LIMIT 5000) (RPAQQ BANK 4) (RPAQQ BEEP.LIMIT 2000) (RPAQQ CTRL 630) (RPAQQ DATA 631) (RPAQQ DTMF 628) (RPAQQ ENB 8) (RPAQQ FAST.LIMIT 5000) (RPAQQ HAND 16) (RPAQQ LINE 4) (RPAQQ MONITOR 32) (RPAQQ OH 1) (RPAQQ PHONE 2) (RPAQQ RDY 128) (RPAQQ RESPONSE.LIMIT 30000) (RPAQQ RST 629) (RPAQQ SLOW.LIMIT 5000) (RPAQQ SMEAR.LIMIT 5000) (RPAQQ SPEECH.THRESHOLD 128) (RPAQQ SPEECH1.LIMIT 30000) (RPAQQ SPEECH2.LIMIT 5000) (RPAQQ SPEECH3.LIMIT 5000) (RPAQQ TONE 64) (PUTPROPS COMMUNICARD COPYRIGHT ("Xerox Corporation" 1984)) NIL