Source Code - dpp/source/speed test.dpp
Download link (right click, save as)
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
|
screenput "Speed Test!"; screen; screen;
doevents;
newvar i;
newvar a;
newvar t = dpp.tick;
for i = 0 to 10000;
a = mid("hello" & " " & "world", len(mid("aa",1,1)), len(left("hello",2)));
next i;
screenput "Done! Time = ";
screenput dpp.tick - t;
|
This code is Copyright (C) 2000-2012 PageMac Programming. Reproduction of this code must adhere to the GNU General Public License.