MODULE DInit; IMPORT L1Mod, L2Mod; VAR ExitCode : INTEGER; BEGIN ExitCode := L1Mod.a * 100 + L2Mod.b END DInit.