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