d_func.LST 209 B

1234567891011121314
  1. Listing:
  2. 1 MODULE DFunc;
  3. 2 FROM DLib IMPORT Get, Add;
  4. 3 VAR ExitCode : INTEGER;
  5. 4 BEGIN
  6. 5 Add(10);
  7. 6 Add(Get());
  8. 7 ExitCode := Get()
  9. 8 END DFunc.
  10. 0 errors