start tok64 d64-8oP5PP
0 POKE45,.:POKE46,64:CLR:REM ensure that graphics screen won't be overwritten
10 in=51200:of=in+3:gc=of+3:sc=gc+3:pc=sc+3:pc=sc+3:pl=pc+3:up=pl+3:sl=up+3
11 cl=sl+3:gl=cl+3:gs=gl+3:hc=gs+3
20 POKE53280,6:POKE53281,6:INPUT"{white}{clear}{down}{right}please enter the time {light blue}";ti$
30 SYSin:SYSgc:SYSsc,230:sx=160:mx=sx:hx=sx:sy=100:my=sy:hy=sy:GOSUB600
35 FORi=.TO59:w=i*{pi}/30:x=160+150*SIN(w):y=100-90*COS(w):x1=160+154*SIN(w)
36 y1=100-94*COS(w):IFi/5=INT(i/5)THENx1=160+159*SIN(w):y1=100-99*COS(w)
37 SYSsl,x,y,x1,y1:NEXT
40 s=VAL(MID$(ti$,5)):m=VAL(MID$(ti$,3,2))+s/60:h=VAL(LEFT$(ti$,2))+m/60
50 h=h+12*(h>12):IFs=ssTHEN40
60 ss=s:sw=s*{pi}/30:mw=m*{pi}/30:hw=h*{pi}/6
65 SYScl,160,100,sx,sy
70 sx=160+150*SIN(sw):sy=100-90*COS(sw):SYSsl,160,100,sx,sy:SYScl,160,100,mx,my
80 mx=160+120*SIN(mw):my=100-70*COS(mw):SYSsl,160,100,mx,my:SYScl,160,100,hx,hy
90 hx=160+90*SIN(hw):hy=100-50*COS(hw):SYSsl,160,100,hx,hy:GOTO40
600 FORy=4TO13:SYScl,4,y,21,y:NEXT
610 SYSsl,5,6,5,8:SYSsl,6,5,6,9:SYSsl,7,8,7,12:SYSsl,8,9,8,11
611 SYSsl,7,5,8,5:SYSsl,7,6,8,6:SYSsl,5,11,6,11:SYSsl,5,12,6,12
620 SYSsl,10,5,10,8:SYSsl,11,5,11,9:SYSsl,12,8,12,12:SYSsl,13,8,13,12
621 SYSsl,14,5,14,9:SYSsl,15,5,15,8
630 SYSsl,17,6,17,8:SYSsl,18,5,18,9:SYSsl,19,8,19,12:SYSsl,20,9,20,11
631 SYSsl,19,5,20,5:SYSsl,19,6,20,6:SYSsl,17,11,18,11:SYSsl,17,12,18,12
640 RETURN
stop tok64
(bastext 1.0)