⨭ ᠭ  ⪮ ᬥ Pascal/C/Assembler/Russian ;0  
  ࣭  讪 ! (     ...)


>>     ⨭ ண 㦥  ⥫쭮  ᯮ⭮ 㡨⢠
>>       -ࠪ...
 !    堫 㤥  筮, ᬮ  騭  ९
 ਭ   !!! (c) Duke/SMF

>>  const
>>    xorbyte: byte = $9F {160};
>>    xorb1: byte   = $E8;
>>    position: word = $17;
 ࠡ⠥ ⮫쪮  ⢮ ⭮  !
 ᠬ  xorbyte=X[2] ; xorb1=X[4]   ⠪ ...

>>    for i := 1 to 512 do
>>      b[i+1+???] := Random(255);
䨣 !  室  b[i]:=random(255)

>>      { ,  really -ࠪ...   ⮫쪮,
>>        ⮫쪮  祬 ⮬,     , ᪠  ? }
  祣  - ୥ ࠪ !
 , 祬  ࠡ뢠:   ୥ ᫨誮 ண,
㣨 ⮣ ୥ , 쨬 ମ騭 ...


>>    for i := 1 to 1024 do
>>      X[i] := Random(256);
>>    while position < 5 do
>>      position := Random(256);
   position,  X[1]

>>        writeln('砧 㤥 ᮧ IC.DAT ... ');
>>        {  楫 ⮫ writeln }
>>        {      ᪠뢠,   o  1$
>>           ,    ॣ !-) ,   ஫ 짮⥫ }
          業 !!!

>>  var registered: boolean;
>>  const
>>      rightsum: byte = $B8;
 ࠡ⠥ ⮫쪮  ⢮ ⭮  !


>>          sum := (sum + position[i]); {   㤥  ६
>>                                     sum  ??? , -, ஬
>>                                       ᫠ ???   ண 
>>                                      ७  ॣ :-P }
  筮 ... ...  稭 ⮣  楤 뢠
 ,  sum  樮୮ 祭   ॣ !

>> {   ⥫ ४ ५ - keygen for Duke's IC -    :( }
>> { , 筮,  ᬮ    sum  ⥪ 筮  ... }
  1.3  室... ;-0

>>          name := '';
>>          for i := position+7+1 to position+namelen+7 do
namelen=X[3],     ⭠
>>          begin
>>            s1 := name;
  ࠭ -  横 ᢠ ⠭ ;-)))
>>            s2 := s2 + x[i] xor xorb1;
>>          end;
>>           {  㣤 ࠢ s1  s2 ? }
    祣 ࠢ -  稫     ,
⮡ 뤠   ॣ樨 !







>>    WriteLn(F, 'ATZ'); //   業騭  !   ⠬  ,
>>                     //   !!!!
⠩     ⠪ ᯥ䥪 -   ᪠஢   ਭ
뤠 襡 ᫮ ;)
 ᫨ ਭ , 室  ﭨ ⮢    ࠢ
⮡㬠  2$   - ⮣ ⠩  砩襩 樥 
ᮢ ਧ ;-)))))))))))))
   ਭ  COM ...  !

>>  const fuck_jpg: array[0..$2d8d] of byte = (
>>              {  , -  , ⮫ ???
>>                   ᮢ襭⭨...
 -   ? ;-Q
>>                 ,  쪮, ᠬ ࠥ襪:
>>                db FF, D8, FF, 00, 0E, 10, 'JFIF', 00, 01, 01, 01, 00...
  ???    !!!
(  - ⠪ ,   ୮ ࠭塞 ;))

>>    if KeyPressed then
>>      if KeyPressed then // ⠬ ࠢ 2 ࠧ
>>        c := readkey;
 ᠭ   :
if keypressed then while keypressed do ch:=readkey;
      ⮦...



  procedure MakeDict;
  begin
    Write ⨪;
>>    Writeln('ᮧ 䠩 ᫮ '); //  -  㦥  ...
>>                        // ࠡ -   ;)
 Duke  ࠡ ! (c) Duke/SMF  ;-))
>>    Scan('c:'); // ⠪-  ᫮ ᮧ...
  㬥... :)



>>    writeln(' ');
>>    scan;
>>    {     墠⨫... 砧 ᤮,    ᪠
>>         ...     ...  dev/nul
>>            ... }
 !  ⥫ 㦥  ⥪,    ᠬ ᭮ 
⠭ !!!

>>PS:  -ࠪ -   ᪠
>>PPS: C rules!
ᥭ  ᥬ 㭪⠬ :)))

Duke/SMF