<> <> <> DIRECTORY IO USING [STREAM]; TTYStream: CEDAR DEFINITIONS ~ BEGIN <> SubSequenceType: TYPE = [0..256); <<>> <> CreateStream: PROC [] RETURNS [stream: IO.STREAM]; <> SetSST: PROC [self: IO.STREAM, sst: SubSequenceType]; SendAttention: PROCEDURE [self: IO.STREAM, byte: BYTE]; WaitAttention: PROCEDURE [self: IO.STREAM] RETURNS [BYTE]; <<>> <> Attention: SIGNAL [nextIndex: CARDINAL]; SSTChange: SIGNAL [sst: SubSequenceType, nextIndex: CARDINAL]; END.