b_init.mod 140 B

12345678910
  1. MODULE BInit;
  2. MODULE M EXPORT cnt;
  3. VAR cnt : INTEGER;
  4. BEGIN
  5. cnt := 42
  6. END M;
  7. VAR ExitCode : INTEGER;
  8. BEGIN
  9. ExitCode := M.cnt
  10. END BInit.