d_basic.LST 252 B

123456789101112131415
  1. Listing:
  2. 1 MODULE DBasic;
  3. 2 FROM DLib IMPORT counter, Add;
  4. 3 IMPORT DLib;
  5. 4 VAR ExitCode : INTEGER;
  6. 5 BEGIN
  7. 6 counter := 20;
  8. 7 Add(5);
  9. 8 ExitCode := counter + DLib.Get()
  10. 9 END DBasic.
  11. 0 errors