b_order.mod 210 B

123456789101112131415
  1. MODULE BOrder;
  2. MODULE A EXPORT x;
  3. VAR x : INTEGER;
  4. BEGIN
  5. x := 1
  6. END A;
  7. MODULE B EXPORT y;
  8. VAR y : INTEGER;
  9. BEGIN
  10. y := A.x + 10
  11. END B;
  12. VAR ExitCode : INTEGER;
  13. BEGIN
  14. ExitCode := A.x * 100 + B.y
  15. END BOrder.