aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

26
Task/Draw-a-clock/Batch-File/draw-a-clock.bat
View file

@ -7,7 +7,7 @@ title Sample Batch Clock
setlocal enabledelayedexpansion
chcp 65001
::Set the characters...
::Set the characters...
set "#0_1=█████"
set "#0_2=█ █"
set "#0_3=█ █"
@ -75,26 +75,26 @@ set "#C_4=█"
set "#C_5= "
:clock_loop
::Clear display [leaving a whitespace]...
::Clear display [leaving a whitespace]...
for /l %%C in (1,1,5) do set "display%%C= "
::Get current time [all spaces will be replaced to zero]...
::Also, all colons will be replaced to "C" because colon has a function in variables...
::Get current time [all spaces will be replaced to zero]...
::Also, all colons will be replaced to "C" because colon has a function in variables...
set "curr_time=%time: =0%"
set "curr_time=%curr_time::=C%"
::Process the numbers to display [we will now use the formats we SET above]...
::Process the numbers to display [we will now use the formats we SET above]...
for /l %%T in (0,1,7) do (
::Check for each number and colons...
for %%N in (0 1 2 3 4 5 6 7 8 9 C) do (
if "!curr_time:~%%T,1!"=="%%N" (
::Now, barbeque each formatted char in 5 rows...
for /l %%D in (1,1,5) do set "display%%D=!display%%D!!#%%N_%%D! "
)
)
::Check for each number and colons...
for %%N in (0 1 2 3 4 5 6 7 8 9 C) do (
if "!curr_time:~%%T,1!"=="%%N" (
::Now, barbeque each formatted char in 5 rows...
for /l %%D in (1,1,5) do set "display%%D=!display%%D!!#%%N_%%D! "
)
)
)
::Refresh the clock...
::Refresh the clock...
cls
echo.
echo.[%display1%]