M2compiler-V3/compiler/tests/showcase12lib.mod

IMPLEMENTATION MODULE Showcase12Lib;

PROCEDURE Score (s : ARRAY OF CHAR) : INTEGER;
BEGIN
  IF s[0] = "A" THEN RETURN 2 END;
  IF s[0] = "B" THEN RETURN 3 END;
  RETURN 0
END Score;

END Showcase12Lib.