ðGSyntax10.Scn.FntŠÿÿÿp°­VersionElemsAllocBeg#Syntax10.Scn.Fnt Windows LinuxLinuxWindows#Syntax10.Scn.FntWindowsLinux p°­VersionElemsAllocEnd Œÿÿÿp°­#Syntax10.Scn.Fnt Windows LinuxLinuxWindows#Syntax10.Scn.FntWin32Linux p°­À|ÿÿÿp°­#Syntax10.Scn.Fnt Windows LinuxLinuxWindows#Syntax10.Scn.FntWin32.MessageBeep(0);Linux p°­ÀÉMODULE BeepFilter; (* for Linux *) IMPORT Console, PostOffice, Mail, Texts, Input, Oberon; VAR oldRec: PostOffice.Receiver; PROCEDURE Beep (mail: PostOffice.Mail; t: Texts.Text); VAR i: INTEGER; time: LONGINT; BEGIN FOR i := 1 TO 3 DO Console.Ch(07X); time := Oberon.Time(); WHILE time + Input.TimeUnit DIV 3 > Oberon.Time() DO END END ; oldRec(mail, t) END Beep; BEGIN oldRec := Mail.receiver; Mail.receiver := Beep END BeepFilter.