slederer/Tridora-CPU
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 3 Wiki Activity Actions

Initial commit

Browse source
This commit is contained in:
slederer 2024-09-10 23:57:08 +02:00
commit 65ee0cd1f4
80 changed files with 27856 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
tests/timetest.pas Normal file
View file

@ -0,0 +1,12 @@
program timetest;
var time:DateTime;
begin
while true do
begin
writeln('ticks: ', GetTicks);
time := GetTime;
writeln('h:', time.hours, ' m:', time.minutes, ' s:', time.seconds);
writeln(DateStr(time), ' ', TimeStr(time,true));
readln;
end;
end.