>D
ps=""
tmp=0
res=0
s1=0
pulsetime=1
str=""
tm=""
vn=0
vm=0
vo=0
p1=0
p2=0
p3=0
p4=0

>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

if chg[vn]>0
then
=>pulsetime 10
=>power 1
endif

if chg[vm]>0
then
=>pulsetime 25
=>power 1
endif

if chg[vo]>0
then
=>pulsetime 50
=>power 1
endif

>W
sl(100 120 s1 "10 seg." "15 seg." "20 seg.")
;@<hr>
%=#clocksub
bu(vn "A" "B")bu(vm "C" "D")bu(vo "E" "F")
bu(p1 "p1 on" "p1 off")bu(p2 "p2 on" "p2 off")bu(p3 "p3 on" "p3 off")bu(p4 "p4 on" "p4 off")