20 lines
192 B
Plaintext
20 lines
192 B
Plaintext
PROTOCOL FOO
|
|
CASE
|
|
:
|
|
PROC P ()
|
|
CHAN OF FOO c:
|
|
INT n:
|
|
SEQ
|
|
SEQ
|
|
PAR
|
|
IF
|
|
c ? CASE
|
|
n := 0
|
|
CASE n
|
|
PLACED PAR
|
|
ALT
|
|
ALT
|
|
TRUE & c ? CASE
|
|
c ? CASE
|
|
:
|