m_multi.mod 199 B

12345678910111213
  1. MODULE MMulti;
  2. MODULE M EXPORT cnt;
  3. VAR cnt : INTEGER;
  4. END M;
  5. MODULE N EXPORT k;
  6. VAR k : INTEGER;
  7. END N;
  8. VAR ExitCode : INTEGER;
  9. BEGIN
  10. M.cnt := 3;
  11. N.k := 4;
  12. ExitCode := M.cnt + N.k
  13. END MMulti.