home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MLFASTWR.ZIP / TESTMLFW.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1989-08-26  |  1.5 KB  |  72 lines
  1. program TpTimerDemo;
  2.   {-Simple demonstration program for TPTIMER unit}
  3. uses
  4.   TpTimer, Crt, dos;
  5.  
  6.  
  7. {$F+}
  8.  
  9. PROCEDURE mlfw(x,y : integer; strng : string); EXTERNAL;    { ML Fast Write }
  10. {$L mlfw.OBJ }
  11.  
  12. PROCEDURE mlfwa(x,y,a : integer; strng : string); EXTERNAL; { FW with attr }
  13. {$L mlfwa.OBJ }
  14.  
  15. {$F-}
  16.  
  17.  
  18.  
  19. var
  20.    i,j : integer;
  21.    st  : string;
  22.    ch  : char;
  23.  
  24.   DelayCount : Word;
  25.   Start, Stop : LongInt;
  26.   start1, stop1 : longint;
  27.   start2, stop2 : longint;
  28. begin
  29.  
  30.  
  31.   clrscr;
  32.   writeln(' Test will take about 5 seconds on 286 box / 15 on 8088');
  33.   write('           Press any key to start test... ');
  34.   ch := readkey;
  35.  
  36.   st := '123456789012345678901234567890123456789012345678901234567890';
  37.  
  38.   Start := ReadTimer;
  39.  
  40.   for i := 1 to 100 do
  41.     for j := 1 to 25 do mlfw(1,j, st);
  42.  
  43.   Stop := ReadTimer;
  44.  
  45.   clrscr;
  46.  
  47.   Start1 := ReadTimer;
  48.     for i := 1 to 100 do
  49.       for j := 1 to 25 do mlfwa(1,j, 7,st);
  50.  
  51.   Stop1 := ReadTimer;
  52.  
  53.   Start2 := ReadTimer;
  54.     for i := 1 to 100 do
  55.       for j := 1 to 25 do begin
  56.         gotoxy(1,j);
  57.         write(st);
  58.       end;
  59.   Stop2 := ReadTimer;
  60.  
  61.  
  62.  
  63.   clrscr;
  64.   writeln(
  65. 'Results for 100 screens (25 lines per screen) of 60 bytes - 150,000 bytes');
  66.   writeln;
  67.   WriteLn('Elapsed time (in ms) MLFW:             ', ElapsedTimeString(Start, Stop));
  68.   WriteLn('Elapsed time (in ms) MLFW with Attrib: ', ElapsedTimeString(Start1, Stop1));
  69.   WriteLn('Elapsed time (in ms) TP5 WRITE:        ', ElapsedTimeString(Start2, Stop2));
  70.  
  71. end.
  72.