10 lines
119 B
Plaintext
10 lines
119 B
Plaintext
PROC echo(CHAN BYTE in, out)
|
|
BYTE c:
|
|
WHILE TRUE
|
|
SEQ
|
|
in ? c
|
|
out ! c
|
|
out ! c
|
|
out ! 255
|
|
:
|