(FILECREATED "25-Feb-85 19:06:12" {ERIS}<SPEECH>MAILREADER>PROSE-YIELD.;5
 1898   

      previous date: "31-Jan-85 17:09:45" {ERIS}<SPEECH>MAILREADER>PROSE-YIELD.;4)


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

(PRETTYCOMPRINT PROSE-YIELDCOMS)

(RPAQQ PROSE-YIELDCOMS
 ((VARS (YIELD.TO.MAILREADER.LIMIT 300)
			      (YIELDING.TO.MAILREADER NIL))
			(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
 NIL)
(DECLARE: DOEVAL@COMPILE DONTCOPY

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

(ADDTOVAR BACKGROUNDFNS
 YIELD.TO.MAILREADER)
(DEFINEQ

(READY

  [LAMBDA NIL                                                (* pkh: "31-Jan-85 17:04")

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

(STOP.MAILREADER?

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

    (until
 [
AND
 (
KEYDOWNP
 (
QUOTE
 SPACE))
		(
ZEROP
 (
LOGAND
 OH (
BUS.INPUT
 CTRL]
       do
 (
BLOCK
) finally
 (
PROGN
 (
SUSPEND.PROCESS
 \PROSE.OPERATOR.PROCESS)
				 (
SETQ
 YIELDING.TO.MAILREADER NIL)
				 (
PROMPTPRINT
 "Hello, I'm yours")
				 (
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 (780 1816 (READY 790 . 1085) (STOP.MAILREADER? 1087 . 1517) (YIELD.TO.MAILREADER 1519 . 
1814)))))
STOP