(**************************************************************************

:Program.       TestAntiLinkVirus

:Contents.      testet AntiLinkVirus, könnte z. Bsp. als "SetPatch" in der
:Contents.      Startup-Sequence stehen (gefolgt vom echten SetPatch) und
:Contents.      prüft sich beim Booten jedesmal auf einen Link-Virus.

:Usage.         TestAntiLinkVirus


:Copyright.     Public Domain

:Author.        Thomas Ansorge

:Address.       Dinkelackerring 55, W-6730 Neustadt, Deutschland


:Language.      Modula-2

:Translator.    M2Amiga V4.0 (deutsch)


:Imports.       AntiLinkVirus [Thomas Ansorge]

:Support.       ReqSupport [Jürgen Zimmermann] in AntiLinkVirus


:Version.       1.0 vom 22. Mai 1992

:History.       1.0 vom 22. Mai 1992: erste lauffähige Version


:Bugs.          (mir derzeit nicht bekannnt)


**************************************************************************)


MODULE TestAntiLinkVirus;

FROM AntiLinkVirus IMPORT alvEvent, ALVEvent, ALVEventSet;

FROM Terminal IMPORT WriteLn, WriteString;

BEGIN

WriteLn;
WriteString ("TestAntiLinkVirus ist ");

IF (alvEvent - ALVEventSet {alvVirusControl}) # ALVEventSet {} THEN
   WriteString ("\e[33mverändert worden!\e[31m");

ELSE (* IF (alvEvent *)
   WriteString ("ok.");
END (* IF (alvEvent *);

WriteLn;
WriteLn;

END TestAntiLinkVirus.