home *** CD-ROM | disk | FTP | other *** search
- TO VIRUSY ; DER ANTI-VIRUS
- LABEL "VIR
- LOCAL "RAND
- LOCAL "NAME
- LOCAL "KENN
- LOCAL "ANW_WORT
- LOCAL "ANW_VIRUS
- LOCAL "PAR_LIST
- LOCAL "DEF_NEU
-
- LABEL "START
- MAKE "RAND 1 + RANDOM COUNT PROCLIST ;LOGO-WORT AUSWAEHLEN
- MAKE "NAME ITEM :RAND PROCLIST ;NAMEN DES WORTES HOLEN
- MAKE "KENN FIRST BF FIRST BF TEXT :NAME ;KENNUNG HOLEN
- IF (:KENN = ""VIR) [GO "START] ;NICHT INFIZIEREN
- IF (EMPTYP GPROP :NAME "COPY) ;NOCH NICHT INFIZIERT?
- [GO "INFIZ]
-
- IF (TEXT :NAME = GPROP :NAME "COPY) [STOP] ;NICHT VERSEUCHT
- PRINT [ACHTUNG VIREN !!!] ;SONST WARNUNG AUSGEBEN
- DEFINE :NAME GPROP :NAME "COPY ;BOESEN VIRUS ENTFERNEN
- STOP
-
- LABEL "INFIZ
- MAKE "PAR_LIST FIRST TEXT :NAME ;PARAMETERLISTE HOLEN
- MAKE "ANW_VIRUS [[LABEL "XYZ VIRUSY]] ;AUFRUF VON "VIRUSY
- MAKE "ANW_WORT BF TEXT :NAME ;HOLE WORT-ANWEISUNGEN
- MAKE "DEF_NEU FPUT :PAR_LIST (SE :ANW_VIRUS :ANW_WORT)
- DEFINE :NAME :DEF_NEU ;WORT NEU DEFINIEREN
- PPROP :NAME "COPY TEXT :NAME ;KOPIE ANFERTIGEN
- END