MODULE BOrder; MODULE A EXPORT x; VAR x : INTEGER; BEGIN x := 1 END A; MODULE B EXPORT y; VAR y : INTEGER; BEGIN y := A.x + 10 END B; VAR ExitCode : INTEGER; BEGIN ExitCode := A.x * 100 + B.y END BOrder.