speed.pas

{ zwei.stein@worldonline.cz, zweistein.kgb.cz }
Program speedy;

{
 (c) Petr "Zweistein" Prokop

 Program speedy :
  Zrychlení časovače v biosu, softwarové přetaktování hodin
}

Uses Crt,Dos;

Procedure SpeedUp(sp:Word);
Begin;
 sp:=65536 div sp;
 Port[$43]:=$34;
 Port[$40]:=Lo(sp);
 Port[$40]:=Hi(sp);
End;

var Y,Mo,D,x,H,M,S,SS,I,I2:Word;
Begin;
 ClrScr;
 SpeedUp(65535);
 Repeat
  GetTime(h,m,s,ss);
  GetDate(y,mo,d,x);
  For I:=1 To 25 Do
   For I2:=1 To 3 Do
  Begin;
   GotoXY(Trunc(Random*(I2*23-22)),Trunc(Random*I-2)+3);
   TextColor(Trunc(Random*I));
   TextBackGround(Trunc(Random*I2));
   Write(y,':',mo,':',d,':',h,':',m,':',s,':',ss,' ');
  End;
   GotoXY(1,1);
   TextColor(14);
   TextBackGround(0);
   Write('[z]----- Y2K FATAL ERROR : ',y,':',mo,':',d,':',h,':',m,':',s,':',ss,' ');
 Until Keypressed;
 SpeedUp(1);
End.