Option default none
page write 2
Const sw=-7,mw=-11,hw=-15
Const sl=250,ml=220,hl=180
Const xc=MM.HRES\2,yc=MM.VRES\2
Dim integer t=Epoch(now)
Dim x$=DateTime$(t)
Print x$
Dim integer s,m,h
Do
 show s,sw,sl,0
 show m,mw,ml,0
 show h,hw,hl,0
'  t$=Time$
 s=Val(Right$(x$,2))*6
 m=Val(Mid$(x$,15,2))*6
 h=Val(Mid$(x$,12,2))*30
 show h,hw,hl,RGB(yellow)
 show m,mw,ml,RGB(green)
 show s,sw,sl,RGB(red)
 Circle xc,yc,-mw,,,RGB(blue),RGB(blue)
 page copy 2 to 0,b
 Pause 50
'  Do
'  Loop Until Time$<>t$
Inc t
x$=DateTime$(t)
print @(0,0)x$
Loop
'
Sub show(byval angle As integer, byval w As integer, byval l As integer,  byval col As integer)
 Local integer x=l*Sin(Rad(angle))+xc
 Local integer y=yc-l*Cos(Rad(angle))
 Line xc,yc,x,y,w,col
End Sub

'MODE 1,16 ' 800x600
PAGE WRITE 1
LOAD JPG "img\crt3.jpg"
PAGE DISPLAY 1
DO:LOOP