#!/usr/local/bin/yabasic
goto Main

label hora
t$=time$
h$=left$(t$,2)
m$=mid$(t$,4,2)
s$=mid$(t$,7,2)
return

label reloj
circle 100,100,80
text 95,15,"12"
text 95,195,"6"
text 10,100,"9"
text 185,100,"3"
hora=val(h$)
if hora>12 then hora=hora-12 fi
r=40:w=hora*30*PI/180
gosub manecilla
minu=val(m$)
r=60:w=minu*6*PI/180
gosub manecilla
secu=val(s$)
r=70:w=secu*6*PI/180
gosub manecilla
return

label manecilla
xi=100:yi=100
xf=r*sin(pi-w)
yf=r*cos(pi-w)
line xi,yi to xi+xf,yi+yf
return

label Main
open window 200,200
i=0
label loop
gosub hora
text 5,10,t$
gosub reloj
 wait 1
clear window
rem i=i+1
rem if i<18 then goto loop fi
goto loop
close window
end