program yuvarlama;
uses crt;
const ekran=351; step=35; adet=1; say=pi; eyvah=255;
var
  cizgi_renk:array[0..3*ekran-1] of byte;
  yer_ayar:array[0..eyvah] of word;
  adet_sayimi:array[0..adet-1] of word;

procedure hesaplama; var i:byte; begin
  for i:=0 to eyvah do yer_ayar[i]:=round(sin(2*say*i/eyvah)*105)+112; end;

procedure renk_adeti;
var n,i:word;
begin
  for n:=0 to adet-1 do begin
    for i:=0 to 63 do cizgi_renk[n mod 3+3*yer_ayar[adet_sayimi[n]]+3*i]:=i;
    for i:=0 to 63 do cizgi_renk[n mod
3+3*yer_ayar[adet_sayimi[n]]+3*64+3*i]:=63-i;
    adet_sayimi[n]:=1+adet_sayimi[n] mod eyvah;
  end;
end;

procedure renk_hiz_kontrol;
var cc,l:word;
begin
  asm cli end;
  while (port[$3da] and 8) <> 0 do;
  while (port[$3da] and 8) = 0 do;
  cc:=0;
  for l:=0 to ekran-1 do begin
    port[$3c8]:=0;
    port[$3c9]:=cizgi_renk[cc];
    port[$3c9]:=cizgi_renk[cc+1];
    while (port[$3da] and 1) <> 0 do;
    while (port[$3da] and 1) = 0 do;
    port[$3c9]:=cizgi_renk[cc+2];
    inc(cc,3);
  end;
  asm sti end;
end;

var i:byte;

begin

  for i:=0 to adet-1 do adet_sayimi[i]:=step*i;
  hesaplama;
Clrscr;
TextColor(4);
WriteLn('');
WriteLn('');
WriteLn('                                     tHî                                       ');
WriteLn('                                                                               ');
WriteLn('  °±²Û²±° ±²±Û²   ±²± Û²²²ÛÛ²±°° Û²²²ÛÛ²±°° Û²²²ÛÛ²±±±° ±²±Û²   ±²± Û²²²ÛÛ²Û²² ');
WriteLn('    ²Û² ² ±²± Û²  ±²± ²²²  ²     ²²²    ²   ²²²      ±° ±²± Û²  ±²± ²²² Û  ²²² ');
WriteLn('    ²Û²   ±²± Û²  ±²± ²²±±ÛÛ²±°  ²²±±²ÛÛ²±  ²²±±²ÛÛ²±±° ±²± Û²  ±²± ²²± ²  ±Û² ');
WriteLn('    ²Û² ° ±²±  Û² ±²± ±²± ²   ±  ±²±   ²  ° ±²±   Û²±   ±²±  Û² ±²± ±²°    °Û² ');
WriteLn('    ²Û²   ±²±  Û² ±²± °²± ±   °  °²±   °    °²± ²² Û²±  ±²±  Û² ±²± ±²²    °²± ');
WriteLn('  °±²Û²±° ±²±   Û²±²± °±± °      °±±±²Û²±°° °±±  ±  Û²± ±²±   Û²±²± ²Û²²±ÛÛ²±° ');
WriteLn('  ²±   ²²  ²Û   ±² ±Û  ²  °    °  ±² ²  ²²  ²²   ±   ²   ²Û   ±² ±Û  ²² ² Û  ² ');
WriteLn('  °²    ²   ²    ±  °  °  °        ±     ²   ±    °  ±    ²    ±  °  ±° ± ²± ± ');
WriteLn('   ± °  ±   ±      ±²  °      °    °  ° ²±   °       °    ±      ±²  °  ° ±° ° ');
WriteLn('   °    °   °       °     °   °    °   ± °     ° °        °       °  °     °   ');
WriteLn('                    °          °         °   °       °            °    °  °    ');
WriteLn('');
{TextColor(12);}
WriteLn('                            (216) 418-62-84 Call Now!');
WriteLn('');
{TextColor(9);}
WriteLn('                                  SysOp tRoN');
repeat
    renk_adeti;
    renk_hiz_kontrol;
  until keypressed;
  clrscr;
  Writeln('Intro By tRoï fRom INFERNO 216-418-6284 cALL NoW!');
end.