d_lib2impl.LST 247 B

123456789101112131415
  1. Listing:
  2. 1 IMPLEMENTATION MODULE DLib2;
  3. 2 FROM DLib IMPORT counter;
  4. 3 PROCEDURE Bump(VAR v : INTEGER);
  5. 4 BEGIN
  6. 5 v := v + dbl + counter
  7. 6 END Bump;
  8. 7 BEGIN
  9. 8 flag := 0
  10. 9 END DLib2.
  11. 0 errors