compact-copyright/src/Copyright.i3


--------------------------------------------------------------------------
INTERFACE Copyright;
--------------------------------------------------------------------------
TYPE
  T = {German, English, All};
--------------------------------------------------------------------------
PROCEDURE Get(t : T) : TEXT;
--------------------------------------------------------------------------
PROCEDURE Show(t : T);

END Copyright.