<> <> <> <> DIRECTORY IO USING [STREAM], Process USING [Ticks], Rope USING [ROPE]; SimpleTerminal: CEDAR DEFINITIONS = BEGIN ROPE: TYPE ~ Rope.ROPE; STREAM: TYPE ~ IO.STREAM; Ticks: TYPE ~ Process.Ticks; TurnOn: PROC [nameStripe: ROPE _ NIL] RETURNS [in, out: STREAM]; <> <<>> TurnOff: PROC; <> <<>> SetInputTimeout: PROC [ticks: Ticks]; <> <<>> InputTimeout: SIGNAL; DisableCursorTracking: PROC; <<... increments a counter that controls cursor tracking.>> <> <<>> EnableCursorTracking: PROC; <<... decrements (if greater than zero) a counter that controls cursor tracking.>> <> END.