9 lines
131 B
Plaintext
9 lines
131 B
Plaintext
PROC tlp (CHAN OF BYTE err, out, keyboard)
|
|
WHILE TRUE
|
|
BYTE b:
|
|
SEQ
|
|
keyboard ? b
|
|
err ! b
|
|
out ! (b + 1)
|
|
:
|