less時計

origin(120,120)
while(!scan){
lock()
cls()
arc(-120,-120,240)
j=second+millisecond/1000
d=j*6-90
line(0,0,115*dcos(d*PI/180),115*dsin(d*PI/180))
j=minute+j/60
d=j*6-90
line(0,0,110*dcos(d*PI/180),110*dsin(d*PI/180))
j=hour+j/60
d=j*30-90
line(0,0,80*dcos(d*PI/180),80*dsin(d*PI/180))
text("time:".hour.":".minute.":".second)
unlock()
}
end

moreで動くかは不明