(FILECREATED " 5-Jun-85 10:52:22" {EROS}<SPEECH>MAILREADER>CALLTEXT>PROSE-YIELD.;4
 2016   

      previous date: " 8-Apr-85 11:10:27" {EROS}<SPEECH>MAILREADER>CALLTEXT>PROSE-YIELD.;3)


(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT PROSE-YIELDCOMS)

(RPAQQ PROSE-YIELDCOMS
 ((VARS (YIELD.TO.MAILREADER.LIMIT 300)
			      (YIELDING.TO.MAILREADER T))
			(GLOBALVARS YIELD.TO.MAILREADER.LIMIT YIELDING.TO.MAILREADER)
			(ADDVARS (BACKGROUNDFNS YIELD.TO.MAILREADER))
			(FNS READY STOP.MAILREADER? YIELD.TO.MAILREADER)))

(RPAQQ YIELD.TO.MAILREADER.LIMIT
 300)

(RPAQQ YIELDING.TO.MAILREADER
 T)
(DECLARE: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS YIELD.TO.MAILREADER.LIMIT YIELDING.TO.MAILREADER)
)

(ADDTOVAR BACKGROUNDFNS
 YIELD.TO.MAILREADER)
(DEFINEQ

(READY

  [LAMBDA NIL                                                (* BBB " 8-Apr-85 11:05")

    (
SUSPEND.PROCESS
 \PROSE.OPERATOR.PROCESS)
    (
SETUP.PHONE
)
    (
WAKE.PROCESS
 \PROSE.OPERATOR.PROCESS)
    (
SETQ
 YIELDING.TO.MAILREADER T)
    (
PROMPTPRINT
 "Waking up the mailreader ")
    (
ADD.PROCESS
 (
QUOTE
 (STOP.MAILREADER?
])

(STOP.MAILREADER?

  [LAMBDA NIL                                                (* BBB " 8-Apr-85 10:02")

    (until
 (
AND
 (
KEYDOWNP
 (
QUOTE
 SPACE))
		(
NOT
 OFF.THE.HOOK))
       do
 (
BLOCK
) finally
 (
PROGN
 (
SUSPEND.PROCESS
 \PROSE.OPERATOR.PROCESS)
				 (
SETQ
 YIELDING.TO.MAILREADER NIL)
				 (
PROMPTPRINT
 "Hello, I'm yours")
				 (
SPEAK
 PHONE.INIT)
				 (
READ.PHONECONTROL
)
				 (
PROCESS.RETURN
 NIL])

(YIELD.TO.MAILREADER

  [LAMBDA NIL                                                (* pkh: "31-Jan-85 16:28")

    (
COND

      ((
AND
 YIELD.TO.MAILREADER.LIMIT (
NOT
 YIELDING.TO.MAILREADER)
	    (
\SECONDSCLOCKGREATERP
 \LASTUSERACTION YIELD.TO.MAILREADER.LIMIT))
	(READY
])
)
(PUTPROPS PROSE-YIELD COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (794 1934 (READY 804 . 1170) (STOP.MAILREADER? 1172 . 1635) (YIELD.TO.MAILREADER 1637 . 
1932)))))
STOP