d_init.LST 182 B

123456789101112
  1. Listing:
  2. 1 MODULE DInit;
  3. 2 IMPORT L1Mod, L2Mod;
  4. 3 VAR ExitCode : INTEGER;
  5. 4 BEGIN
  6. 5 ExitCode := L1Mod.a * 100 + L2Mod.b
  7. 6 END DInit.
  8. 0 errors