DIRECTORY   Rope USING [ROPE];  TerminalIO: CEDAR DEFINITIONS = BEGINUserAbort: SIGNAL;WriteRope: PROC [text: Rope.ROPE];WriteLn: PROC [];WriteChar: PROC [ch: CHAR];WriteInt: PROC [i: INT];RequestRope: PROC [text, text2: Rope.ROPE _ NIL] RETURNS [Rope.ROPE];RequestChar: PROC [text, text2: Rope.ROPE _ NIL] RETURNS [CHAR];RequestInt: PROC [text, text2: Rope.ROPE _ NIL] RETURNS [INT];UserSaysYes: PROC [label, text: Rope.ROPE _ NIL, default: BOOL_FALSE] RETURNS [BOOL];RequestSelection: PROC [label: Rope.ROPE _ NIL, choice: LIST OF Rope.ROPE, text: Rope.ROPE _ NIL, default: NAT_0]RETURNS [NAT];AddLock: PROC [lock, unLock: PROC];END.    ê  TerminalIO.mesaCopyright c 1983, 1985 by Xerox Corporation.  All rights reserved.By Ch. Jacobi,  August 3, 1983 9:54 amLast edited by Ch. Jacobi,  May 18, 1985 4:30:25 pm PDTSequential IO for "terminal and keyboard"--default returned if discarded.--returns 1 for first choice, 2 for second...--returns 0 if discarded--default means: the cursor is initially moved to this line.--Procedures to prevent other processes of accepting userinput--while the user is expected to answer a request.--The lock, unLock procedures are called within the monitorlock--locks cannot (yet?) be removed, use only one lock per moduleRestrictions:Current implementation may deadlock if routines are called from insidea viewers repaint-procedure.Ê  ˜ šœ™Icodešœ
Ïmœ7™BJšœ&™&Jšœ7™7Jšœ)™)—J˜ šÏk	œ˜Jšœžœžœ˜J˜ —JšÏb
œžœžœ˜ Jšž˜J˜ Jšœžœ˜J˜ JšÏn	œžœžœ˜"Jš œžœ˜Jš 	œžœžœ˜Jš œžœžœ˜J˜ Jš œžœžœžœžœžœ˜EJš œžœžœžœžœžœ˜@Jš 
œžœžœžœžœžœ˜>J˜ š œžœžœžœžœžœžœžœ˜UJšœ ™ J˜ —š œžœžœžœ
žœžœžœžœžœžœ˜qJšžœžœ˜Jšœ-™-Jšœ™J™<J˜ —š œžœžœ˜#Jšœ>™>Jšœ1™1Jšœ?™?Jšœ>™>—J™ Jšžœ˜J˜ šœ™JšœF™FJšœ™—— …—    ˜  ƒ  