home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 11 / virus2.log < prev    next >
Encoding:
Text File  |  1987-09-02  |  1.0 KB  |  19 lines
  1. TO VIRUSAì
  2.   LOCAL "RAND                    ;ZUFALLSZAHL FUER WAHLì
  3.   LOCAL "NAME                    ;NAME DES GEWAEHLTEN WORTESì
  4.   LOCAL "ANW_WORT                ;ANWEISUNGEN DES WORTESì
  5.   LOCAL "ANW_VIRUS               ;ANWEISUNGEN DES VIRUSì
  6.   LOCAL "PAR_LIST                ;PARAMETERLISTE DES WORTESì
  7.   LOCAL "DEF_NEU                 ;NEUE DEFINITION DES WORTESì
  8.   ì
  9.  LABEL "START ì
  10.   MAKE "RAND 1 + RANDOM COUNT PROCLIST    ;LOGO-WORT AUSWAEHLEN ì
  11.   MAKE "NAME ITEM :RAND PROCLIST          ;NAMEN DES WORTES HOLENì
  12.   IF (:NAME = "VIRUSA) [GO "START]        ;NAME = "VIRUSA ?
  13.   MAKE "PAR_LIST FIRST TEXT :NAME         ;PARAMETERLISTE HOLENì
  14.   MAKE "ANW_VIRUS BF TEXT "VIRUSA  ;ANWEISUNGEN VON "VIRUSA HOLENì
  15.   MAKE "ANW_WORT BF TEXT :NAME     ;ANWEISUNGEN DES WORTES HOLENì
  16.   MAKE "DEF_NEU FPUT :PAR_LIST (SE :ANW_VIRUS :ANW_WORT)ì
  17.   DEFINE :NAME :DEF_NEU            ;WORT NEU DEFINIERENì
  18. END
  19.