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-19 14:12:22 +02:00
commit 60db522e87
107 changed files with 36924 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.