d_from.LST 283 B

12345678910111213141516
  1. Listing:
  2. 1 MODULE DFrom;
  3. 2 FROM DLib IMPORT step, Get;
  4. 3 FROM DLib2 IMPORT dbl, Bump;
  5. 4 VAR ExitCode : INTEGER;
  6. 5 v : INTEGER;
  7. 6 BEGIN
  8. 7 v := 1;
  9. 8 Bump(v);
  10. 9 ExitCode := v + step + dbl + Get()
  11. 10 END DFrom.
  12. 0 errors