18 lines
340 B
Text
18 lines
340 B
Text
MODULE InputLoop;
|
|
IMPORT
|
|
StdChannels,
|
|
Channel;
|
|
VAR
|
|
reader: Channel.Reader;
|
|
writer: Channel.Writer;
|
|
c: CHAR;
|
|
BEGIN
|
|
reader := StdChannels.stdin.NewReader();
|
|
writer := StdChannels.stdout.NewWriter();
|
|
|
|
reader.ReadByte(c);
|
|
WHILE reader.res = Channel.done DO
|
|
writer.WriteByte(c);
|
|
reader.ReadByte(c)
|
|
END
|
|
END InputLoop.
|