(FILECREATED " 3-Apr-85 10:51:32" ("compiled on " {DSK}<LISPFILES>ANSWER-PHONE.;2)
"20-Dec-84 12:07:22" recompiled changes: ANSWER.PHONE in "INTERLISP-D 10-Jan-85 ..." dated
"10-Jan-85 13:28:55")
(FILECREATED " 3-Apr-85 10:51:26" {DSK}<LISPFILES>ANSWER-PHONE.;2 1668 changes to: (FNS ANSWER.PHONE)
(VARS ANSWER-PHONECOMS) previous date: " 3-Apr-85 10:11:47" {DSK}<LISPFILES>ANSWER-PHONE.;1)
ANSWER.PHONE D1
(I 0 MESSAGE) A g g
nX g o o @o o o g g (76Q ADD.PROCESS 61Q SPEAK 52Q SPEAK 47Q CONCAT 33Q SPEAK 24Q RS232BACKGROUND 16Q RS232INIT 10Q LOAD?)
(73Q Answer% Phone 70Q NAME 21Q ON 5 SYSLOAD 2 {ERIS}<LISP>HARMONY>LIBRARY>RS232.DCOM)
( 65Q (while T bind MARKER.FLAG do (* Wait up to five minutes for the index marker (returned from auto answer) then hangup.) (forDuration 454Q timerUnits (QUOTE SECONDS) until MARKER.FLAG do (SETQ MARKER.FLAG (EQ (RS232READBYTE) (CHARCODE i))) (BLOCK 1750Q)) (SETQ MARKER.FLAG NIL) (SPEAK "↑[*5L")) 56Q "↑[*3L" 44Q "%"" 37Q "↑[*%"↑[[200s" 30Q "↑[*0L")
(PRETTYCOMPRINT ANSWER-PHONECOMS)
(RPAQQ ANSWER-PHONECOMS ((FNS ANSWER.PHONE)))
(PUTPROPS ANSWER-PHONE COPYRIGHT ("Xerox Corporation" 1985))
NIL