- [Duke's Virus Labs #4] - [Page 25] -

 ⨪  Duke'
(c) by Tankist/Hell13


    ୠ DVL 㦥 ⠫ ਢ - ⨪ (. DVL1-07,
DVL2-13, DVL2-14, DVL3-21). ஬   ⥪⮢    ,
 Duke/SMF. ⮬ । ⢮ ⠫  ᠬ (" 㤨,   㤥
㤨...").
   , -  襫  ᢥ DVL#1,  ஬ ਫ: "ࠧ
 ,    㤥 ᥭ     । 稭騬
ଥࠬ".   ⠬  HLLC.Friend.3573  Friend-1,  ஬
砫 窠
 exec(st,paramstr(1)+paramstr(2)+paramstr(3)+paramstr(4)+
                            paramstr(5)+paramstr(6)+paramstr(7));
     祬   ?   ⨢ 䥪?  祬
 ⮬ 祣  ᪠ (  ᪠ )?
         . ᫨  㢨  
,  ⠢ writeln(st) ᫥ ࠩ⮢  : 
- ᥩ. , , 祭 ᯮ ,  " 
४ਨ  㤥 ᪮쪨 COM-䠩   "... ࠭
ᯮ짮 !
     襫 DVL#2,     HLLC.Friend.5216  Friend-3.   
?  䨪ᥭ,    訡  ᫮!  -० 
ᯮ짮 ࠭  祣  ᪠  ⮬,  । ᪮
४ २ 室  COM...  祬?   ⠪ ࠡ⠥.
  ࠧ ᪮쪮 ࠧ ᪠ EXE譨?  ᠬ ࠤᠫ쭮,
 ⠬  㭪
  function ReadKey : Char;                { 㭪樨 ReadKey  Crt}
  var chrout : char;
      CheckBreak: boolean;
  begin
  Inline(
  $B4/$07/               {  MOV AH,$07          }
  $CD/$21/               {  INT $21             }
  $88/$86/>CHROUT);      {  MOV >chrout[bp],AL  }
  if CheckBreak and (chrout = #3) then
    begin
    Inline(
    $CD/$23);            {  INT $23             }
    end;
  ReadKey := chrout;
  end;

     ⠫  ,  ⠪   ᬮ.  ६
CheckBreak   頥  true.   ⥫ ᯮ짮
Crt.CheckBreak? :-(
    DVL#3  , 襭  ᠭ  (  㤠 뫮
),  ⮫쪮 ,      ᫮  . 
 騩 ୠ,   ⮨ 㣨  ᢮ 訡.

P.S. 㢠 Duke. ᥬ ᢮⢥  訡 ( ⮬ ᫥ 
䮣᪨,   ୠ 筮). "ᯮ    襬..."-
    ⥡  ⭥. :(
P.P.S.  祬  ⠪   ⨢᭨?     ᭥.
