>D
ps=""
tmp=0
res=0
s1=0
str=""
tm=""

>B
;MES
res=is1(0 "Ene|Feb|Mar|Abr|May|Jun|Jul|Ago|Sep|Oct|Nov|Dic|")
;DIA DE LA SEMANA
res=is(0 "Dom|Lun|Mar|Mie|Jue|Vie|Sab|")

#clocksub
if wm==0
then
wcs {s}<center><h1 style="color:lightgreen;font-size:40px;">%2.0hours%:%2.0mins%:%2.0secs%</h1>{m}%is[wday]% %0day%-%is1[month]% <br>%0year%{e}
    dp(2 0)
    ps=s(int(sunrise/60))+":"+s(sunrise%60)
    str=s(int(sunset/60))+":"+s(sunset%60)
    res=sunset-sunrise
    tm=s(int(res/60))+":"+s(res%60)
    wcs {s}<center>🌞 %ps% <--- %tm% ---> %str% 🌙{e}
    dp(0 2)
}

>S
if chg[s1]>0
then
=>pulsetime %s1%
endif

>W
sl(7300 14500 s1 "2h" "3h" "4h")
@<hr>
%=#clocksub