home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TP_ADV.ZIP / LIST0709.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-11-20  |  1.3 KB  |  54 lines
  1. Program Timer;
  2.  
  3. Uses
  4.   Crt,
  5.   Int1C;
  6.  
  7. Var
  8.   w : LongInt;
  9.   loopct : LongInt;
  10.   result1,
  11.   result2,
  12.   result3,
  13.   result4 : LongInt;
  14.  
  15. Begin
  16.   Write ( 'Loop how many times? ' );
  17.   ReadLn ( loopct );
  18.  
  19. (******************************************************)
  20. (***** Write String/Char directly to video memory *****)
  21. (******************************************************)
  22.  
  23.   DirectVideo := TRUE;
  24.   timerct := 0;
  25.   For w := 1 To loopct Do
  26.     Write ('12345678901234567890123456789012345678901234567890123456789012345678901234567890');
  27.   result1 := timerct;
  28.  
  29.   timerct := 0;
  30.   For w := 1 To ( loopct * 80 ) Do
  31.     Write ( '1');
  32.   result2 := timerct;
  33.  
  34. (******************************************************)
  35. (********** Write String/Char via BIOS calls **********)
  36. (******************************************************)
  37.  
  38.   DirectVideo := FALSE;
  39.   timerct := 0;
  40.   For w := 1 To loopct Do
  41.     Write ('12345678901234567890123456789012345678901234567890123456789012345678901234567890');
  42.   result3 := timerct;
  43.  
  44.   timerct := 0;
  45.   For w := 1 To ( loopct * 80 ) Do
  46.     Write ( '1');
  47.   result4 := timerct;
  48.  
  49.   WriteLn ( 'Direct Video : String = ', result1 : 5, ' Char = ', result2 : 5 );
  50.   WriteLn ( 'Bios Writes  : String = ', result3 : 5, ' Char = ', result4 : 5 );
  51.  
  52.   ReadLn;
  53. End.
  54.