(FILECREATED "31-Jan-85 17:09:45" {ERIS}<SPEECH>MAILREADER>PROSE-YIELD.;4
 1995   

      changes to:  (FNS READY STOP.MAILREADER? YIELD.TO.MAILREADER)
		   (VARS PROSE-YIELDCOMS)

      previous date: "31-Jan-85 16:32:54" {ERIS}<SPEECH>MAILREADER>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 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 (877 1913 (READY 887 . 1182) (STOP.MAILREADER? 1184 . 1614) (YIELD.TO.MAILREADER 1616 . 
1911)))))
STOP