DIRECTORY   Rope USING [ROPE];  TerminalIO: CEDAR DEFINITIONS = BEGINUserAbort: SIGNAL;WriteRope: PROC [text: Rope.ROPE];WriteLn: PROC [];WriteChar: PROC [ch: CHAR];WriteInt: PROC [c: 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: BOOLEAN_FALSE] RETURNS [BOOLEAN];RequestSelection: PROC [label: Rope.ROPE _ NIL, choice: LIST OF Rope.ROPE, text: Rope.ROPE _ NIL, default: CARDINAL_0]RETURNS [CARDINAL];AddLock: PROC [lock, unLock: PROC];END.   p  TerminalIO.mesaBy Ch. Jacobi August 3, 1983 9:54 amLast edited by Ch. Jacobi August 5, 1983 5:18 pmSequential IO for "terminal and keyboard"--label and choices may be clipped to one line!--returns 1 for first choice, 2 for second...--returns 0 if discarded--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.Э╩ш  Ш JШ JЪЬЩJЪЬ$Щ$JЪЬ0Щ0JЪЬ)Щ)JШ Ъ╧k	ЬШJЪЬЭЬЭЬШJШ ЧJЪ╧b
ЬЭЬЭЬШ JЪЭШJШ JЪЬЭЬШJШ JЪ╧n	ЬЭЬЭЬШ"JЪЯЬЭЬШJЪЯ	ЬЭЬЭЬШJЪЯЬЭЬЭЬШJШ JЪЯЬЭЬЭЬЭЬЭЬЭЬШEJЪЯЬЭЬЭЬЭЬЭЬЭЬШ@JЪЯ
ЬЭЬЭЬЭЬЭЬЭЬШ>JЪЯЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬШ[ЪЯЬЭЬЭЬЭЬ
ЭЬЭЬЭЬЭЬЭЬЭЬШvJЪЭЬЭЬШJЪЬ/Щ/JЪЬ-Щ-JЪЬЩJШ ЧЪЯЬЭЬЭЬШ#JЪЬ>Щ>JЪЬ1Щ1JЪЬ?Щ?JЪЬ>Щ>ЧJЩ JЪЭЬШJШ ЪЬЩJЪЬFЩFJЪЬЩЧЧ ЕЧ    ж  ■  