home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / GFXFX2.ZIP / REFRESH.PAS < prev    next >
Pascal/Delphi Source File  |  1995-02-14  |  540b  |  20 lines

  1.  
  2. program refreshtest; { REFRESH.PAS }
  3. { Test monitors refresh-rate (should be around 70Hz), by Bas van Gaalen }
  4. uses crt,dos,u_vga,u_kb;
  5. var h1,h2,m1,m2,s1,s2,hs1,hs2,i:word;
  6. begin
  7.   i:=0;
  8.   clrscr; writeln('Please wait, calculating refresh-rate...');
  9.   gettime(h1,m1,s1,hs1); repeat gettime(h2,m2,s2,hs2); until s2>s1;
  10.   gettime(h1,m1,s1,hs1);
  11.   repeat
  12.     vretrace;
  13.     gettime(h2,m2,s2,hs2);
  14.     inc(i);
  15.   until s2>s1;
  16.   writeln('Refresh-rate is ',i,'Hz.');
  17.   writeln('Press a key to continue...');
  18.   waitkey(3);
  19. end.
  20.