Language: Oberon Author: Peter Ryser MODULE M; IMPORT O:=Out; CONST T=";PROCEDURE c*;BEGIN O.Char(22X);O.String(T) END c;BEGIN O.String('MODULE M;IMPORT O:=Out;CONST T=');c END M."; PROCEDURE c*; BEGIN O.Char(22X);O.String(T) END c; BEGIN O.String('MODULE M;IMPORT O:=Out;CONST T='); c END M. Author: Hans Klaver MODULE Print; (* Hans Klaver, 09-May-1999 *) (** To execute middle-click Print.Me **) IMPORT In, Out; PROCEDURE Me*; VAR ch: CHAR; BEGIN In.Open; In.Char(ch); WHILE In.Done DO Out.Char(ch); In.Char(ch) END END Me; END Print.Me*