moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-24 18:22:25 -05:00
Code Issues Releases Wiki Activity

Uptext test script

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@183 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2009-11-03 14:31:36 +00:00
parent 751d04436a
commit 2381c4814b
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Tests/PS/Uptext.mufa Normal file
View File

@ -0,0 +1,10 @@
program new;
var
i,t:integer;
begin
t:=getsystemtime;
for i := 0 to 100 do
rs_getuptext;
writeln(inttostr(round(getsystemtime - t) / 100));
writeln(rs_getuptext);
end.