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

:Program.       AntiLinkVirus

:Contents.      überprüft (erzeugt beim ersten Mal) eine Checksumme von
:Contents.      dem Programm, an das AntiLinkVirus gelinkt wurde.

:Usage.         IMPORT AntiLinkVirus;


:Copyright.     frei kopierbar und benutzbar. Versionen in anderen Sprachen
:Copyright.     sowie die freie Verwendung auch in kommerziellen Produkten
:Copyright.     (was mich angeht) hiermit gestattet.

:Author.        Thomas Ansorge

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


:Language.      Modula-2

:Translator.    M2Amiga V4.0 (deutsch)

:Imports.       ReqSupport [Jürgen Zimmermann], AMOK#55, Copyright beachten!

:Imports.       Resident [Thomas Ansorge]


:Version.       1.0 vom 11. April 1992

:History.       1.0 vom 11. April 1992. erste funktionierende Version.


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


DEFINITION MODULE AntiLinkVirus;

(* Mit alvEvent kann das eigentliche Programm, falls es noch dazu kommt, *)
(* abfragen, was AntiLinkVirus gefunden hat. {} heißt "alles ok".        *)

TYPE ALVEvent    = (alvCheckSum,    (* falsche Checksumme *)
                    alvLength,      (* falsche Länge im Directory *)
                    alvMoreHunks,   (* mind. ein Hunk zuviel da *)
                    alvNoHunk,      (* ALV-Hunk nicht gefunden *)
                    alvVirusControl (* mit VIRUSCONTROL© geschützt *)
                   );

     ALVEventSet = SET OF ALVEvent;

VAR alvEvent: ALVEventSet;

END AntiLinkVirus (* Definitions-Modul *).