Modula-2R10

Aliases: Modula-2 Revision 2010, M2R10

Provenance: commit 219eff1021 · authored 2026-03-05T10:43:23+01:00 · agent claude-code · model claude-sonnet-4-6

1 source · not in taxonomy (canonical name didn't match any upstream)

Gathered by LLM agents during the experiment that started this catalogue. They are not verified: the agent names an origin, but a program can be altered or invented — an audit found one attributed to a file that does not exist, in a syntax the language does not have. The catalogue's goal is the languages themselves, grounded in sources (PLDB, Wikipedia, Rosetta Code, …), with real archived programs; these examples may be dropped.

MODULE Fibonacci;

FROM InOut IMPORT WriteCard, WriteLn;

PROCEDURE Fib ( n : CARDINAL ) : CARDINAL;
BEGIN
  IF n <= 1 THEN
    RETURN n
  ELSE
    RETURN Fib(n-1) + Fib(n-2)
  END (* IF *)
END Fib;

VAR
  i : CARDINAL;

BEGIN
  FOR i := 0 TO 10 DO
    WriteCard(Fib(i), 6);
    WriteLn
  END (* FOR *)
END Fibonacci.