Celestin Apprentice 4/Apprentice-Release4.iso/Languages/MPW Oberon 2.1168/CodePatterns/Sample1.mod

Text File | 1995-10-30 | 146 b | 12 lines | [TEXT/MPS ]

MODULE Sample1;

  PROCEDURE Add*(a, b: INTEGER): INTEGER;
    VAR
      sum: INTEGER;
  BEGIN
    sum:=a+b;
    RETURN sum
  END Add;

END Sample1.