d_multi.mod 188 B

12345678910
  1. MODULE DMulti;
  2. IMPORT DLib;
  3. IMPORT DLib2;
  4. VAR ExitCode : INTEGER;
  5. BEGIN
  6. DLib.counter := 7;
  7. DLib.Add(3);
  8. DLib2.Bump(DLib.counter);
  9. ExitCode := DLib.counter + DLib.Get()
  10. END DMulti.