1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-12-25 08:48:51 -05:00
Simba/trunk/Tests/PS/Uptext.mufa
2010-01-26 04:47:07 +00:00

11 lines
183 B
Plaintext

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.