var ox=200,oy=100,rs=90,rm=100,rh=70
while 1:vsync
var h=val(mid$(time$,0,2))
var m=val(mid$(time$,3,2))
var s=val(mid$(time$,6,2))
var t=h*3600*m*60+s
var th=(t/86400)*4*pi()
var tm=(t/3600)*2*pi()
var ts=s/60*2*pi()
gcls
gline ox,oy,ox+sin(th)*rh,oy-cos(th)*rh
gline ox,oy,ox+sin(tm)*rm,oy-cos(tm)*rm
gline ox,oy,ox+sin(ts)*rs,oy-cos(ts)*rs,#red
wend
1そうだね プレイ済み