Here's my analogue clock.I was messing with sin() and cos() and this is what I got after a couple hours.
Let me know what I could improve on.I guess this makesup for when I could'nt do it.
sync on:sync rate 0
rem cos/sin(number)*radius+midpoint
` ~MAIN LOOP~
DO
ink rgb(200,200,200),0
print get time$()
midwidth=screen width()/2
midheight=screen height()/2
second=val(right$(get time$(),2))
minute=val(mid$(get time$(),4)+mid$(get time$(),5))
hour=val(left$(get time$(),2))
for y=1 to 12
ink rgb(255,255,255),0
x2=x
for x=(x2) to (x2+4)
dot cos((x-15)*6)*132+midwidth,sin((x-15)*6)*132+midheight
ink rgb(128,128,128),0
next x
next y
x=0
`second
ink rgb(200,0,0),0
line midwidth,midheight , cos((second-15)*6)*100+midwidth,sin((second-15)*6)*100+midheight
`minute
ink rgb(0,200,0),0
line midwidth,midheight , cos((minute-15)*6)*115+midwidth,sin((minute-15)*6)*115+midheight
`hour
ink rgb(0,0,200),0
line midwidth,midheight , cos((hour-3)*30)*130+midwidth,sin((hour-3)*30)*130+midheight
sync:cls
LOOP
