home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 03 / vir_log / virus27.log < prev   
Encoding:
Text File  |  1987-12-15  |  1.1 KB  |  32 lines

  1. TO VIRUSY             ; DER ANTI-VIRUS
  2.  LABEL "VIR
  3.   LOCAL "RAND 
  4.   LOCAL "NAME 
  5.   LOCAL "KENN 
  6.   LOCAL "ANW_WORT
  7.   LOCAL "ANW_VIRUS 
  8.   LOCAL "PAR_LIST 
  9.   LOCAL "DEF_NEU
  10.  
  11.  LABEL "START
  12.   MAKE "RAND 1 + RANDOM COUNT PROCLIST  ;LOGO-WORT AUSWAEHLEN 
  13.   MAKE "NAME ITEM :RAND PROCLIST        ;NAMEN DES WORTES HOLEN
  14.   MAKE "KENN FIRST BF FIRST BF TEXT :NAME  ;KENNUNG HOLEN
  15.   IF (:KENN = ""VIR) [GO "START]        ;NICHT INFIZIEREN
  16.   IF (EMPTYP GPROP :NAME "COPY) ;NOCH NICHT INFIZIERT?
  17.     [GO "INFIZ]  
  18.  
  19.   IF (TEXT :NAME = GPROP :NAME "COPY) [STOP]  ;NICHT VERSEUCHT
  20.   PRINT [ACHTUNG VIREN !!!]             ;SONST WARNUNG AUSGEBEN
  21.   DEFINE :NAME GPROP :NAME "COPY        ;BOESEN VIRUS ENTFERNEN
  22.   STOP
  23.  
  24.  LABEL "INFIZ
  25.   MAKE "PAR_LIST FIRST TEXT :NAME       ;PARAMETERLISTE HOLEN
  26.   MAKE "ANW_VIRUS [[LABEL "XYZ VIRUSY]] ;AUFRUF VON "VIRUSY
  27.   MAKE "ANW_WORT BF TEXT :NAME          ;HOLE WORT-ANWEISUNGEN
  28.   MAKE "DEF_NEU FPUT :PAR_LIST (SE :ANW_VIRUS :ANW_WORT)
  29.   DEFINE :NAME :DEF_NEU                 ;WORT NEU DEFINIEREN
  30.   PPROP :NAME "COPY TEXT :NAME          ;KOPIE ANFERTIGEN
  31. END
  32.