<<>> <> <> <> <> <> <<>> <> <<>> 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.