{1 $X1000 $Y0 (>X0 -X1 +Y2 ) }
{2 ƒT0 $N0 (^N1000 @1 +N1) ƒR0 ƒY1 -RT /RY :R2 ' seconds¶' }

'Execute Benchmark test 1000 times.¶'
'That is 1.000.000 loops!¶'
@2
'Finished¶'

// CBench1.mc--
// to be copied & pasted in a Memo
void Test1000() {
    nX=1000;
    nY=0;
    while(nX>0) {
        nX--;
        nY=nY+2;
    }
}
void TestManyLoops() {
    nT=Ticks();
    for(nN=0; nN<1000; nN++)
        Test1000();
    nR=Ticks()-nT/TicksPerSecond();
    puts(nR;2);
    puts(' seconds\n');
}

main() {
    puts('Execute Benchmark test 1000 times.\n');
    puts('That is 1.000.000 loops!\n');
    TestManyLoops();
    puts('Finished');
}

Test1000:
    X=1000 : Y=0
    WHILE X>0
        DEC X : Y=Y+2
    WEND
RETURN

TestManyLoops:
    T=TICKS
    FOR N=1 TO 1000
        GOSUB Test1000
    NEXT
    R=TICKS-T/TICKSPERSEC
    PRINT R USING 2;
    PRINT " seconds"
RETURN

BEGIN
PRINT "Execute Benchmark test 1000 times."
PRINT "That is 1.000.000 loops!"
GOSUB TestManyLoops
PRINT "Finished"
END

Procedure Test1000;
begin
    nX:=1000;
    nY:=0;
    while nX>0 do begin
        dec(nX);
        nY:=nY+2;
    end;
end;

Procedure TestManyLoops;
begin
    nT:=Ticks;
    for nN:=1 to 1000 do
        Test1000;
    nR:=Ticks-nT/TicksPerSecond;
    write(nR,2);
    writeln(' seconds');
end;

begin
    writeln('Execute Benchmark test 1000 times.');
    writeln('That is 1.000.000 loops!');
    TestManyLoops;
    writeln('Finished');
end.