algol<
begin
   comment

   No buffer:

   N    Classic         Turbo           pct
   640   659.797         612.932        7.1
   680   689.896         642.808        6.8
   720   729.221         679.751        6.8
   760  5649.694        5649.645        0.001
   800  5908.468        5895.573        0.2
   ;
   integer n,i;
   select(32);
   writetext(«algol<
begin
   comment
   ;
   integer N,i;
   real a,b,time;
   real procedure clock count;
   code clock count;
   1, 37;
     zl        , grf p−1   ; RF ≔ clock count; stack[p−1] ≔ RF;
   e;
   writecr;»);
   for n ≔ 0 step 40 until 800 do
   begin
      writetext(«
   clock count;
   N ≔ 10000;
   for i ≔ 1 step 1 until N do
   begin»);
      for i ≔ 1 step 1 until n do writetext(«
      a ≔ b;»);
      writetext(«
   end for i;
   time ≔ clock count;
   writecr;
   write(«ddddd.ddd»,»);
   writeinteger(«p»,n);
   writetext(«,time);»);
   end n;
   writetext(«
end
t<
»);
end;
t<