11 lines
107 B
Plaintext
11 lines
107 B
Plaintext
|
x: module
|
||
|
|
|
||
|
|
synmode aset = SET (stopped, moving);
|
||
|
|
|
||
|
|
DCL xyz aset;
|
||
|
|
|
||
|
|
xyz := moving;
|
||
|
|
xyz := SUCC (xyz);
|
||
|
|
|
||
|
|
END x;
|