DIRECTORY
Rope,
TerminalIO;

TestTerminalIO: CEDAR PROGRAM
IMPORTS Rope, TerminalIO
~ BEGIN

lastRope: Rope.ROPE ¬ "";
ReadRope: PUBLIC PROC [prompt: Rope.ROPE] RETURNS [stop: BOOL] ~ {
lastRope ¬ TerminalIO.RequestRope[prompt];
stop ¬ FALSE;
IF Rope.Equal[lastRope, "quit", FALSE] THEN stop ¬ TRUE;
IF Rope.Equal[lastRope, "cf", FALSE] THEN {
IF TerminalIO.Confirm["Press Here", "This Selection returns TRUE", 0, TRUE] THEN
TerminalIO.PutRope["Confirm TRUE \n"]
ELSE TerminalIO.PutRope["Confirm FALSE \n"];
};

};

WHILE NOT ReadRope["Enter a Value (quit to exit, cf to test confirm): "] DO
TerminalIO.PutRopes["Last str: ", lastRope," \n"];
ENDLOOP; 

TerminalIO.PutRope["Done\n"];
END.
   H  
TestTerminalIO.mesa
Copyright Ó 1989, 1992 by Xerox Corporation.  All rights reserved.
Krivacic, September 27, 1989 11:46:17 am PDT
Bob Krivacic September 27, 1989 12:03:01 pm PDT
Christian Jacobi, March 27, 1992 3:13 pm PST

Test TerminalIO

Read a Rope
Read a rope from TerminalIO.  If it is quit then set stop = TRUE

Ê  –(cedarcode) style•NewlineDelimiter
™ code•MarkoutsideHeaderšœ™Kšœ
Ïeœ7™BKšœ,™,K™/K™,K™ K™K™ —šÏk	˜	Kšœ˜Kšœ˜—K˜ šÏnœžœž˜Kšžœ˜—Kšœž˜˜ Kšœžœ˜—head™šŸœžœžœžœžœžœ˜BK™@K˜*Kšœžœ˜Kšžœžœžœžœ˜8šžœžœžœ˜+KšžœDžœžœ&˜vKšžœ(˜,Kšœ˜—K˜ K˜K™ ——K˜ šžœžœ@ž˜KKšœ2˜2Kšžœ˜	—K˜ Kšœ˜Kšžœ˜— …—    ²  ‰  