1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-24 10:12:20 -05:00
Simba/Tests/PS/Uptext.simba

11 lines
187 B
Plaintext
Raw Normal View History

2010-04-09 16:02:20 -04:00
program new;
var
i,t:integer;
begin
t:=getsystemtime;
for i := 0 to 100 do
rs_getuptext;
2010-04-16 11:04:50 -04:00
writeln(floattostr(round(getsystemtime - t) / 100.0));
2010-04-09 16:02:20 -04:00
writeln(rs_getuptext);
end.