100 OVER 0:FILL 0:PAPER 0:INK 2:CLS:SCALE 200,-160,-100:CIRCLE 0,0,50
110 FOR i=450 TO 90 STEP -6:LINE 0,0:TURNTO i:MOVE 47:PENDOWN:MOVE 3:PENUP
120 FOR i=420 TO 90 STEP -30:LINE 0,0:TURNTO i:MOVE 45:PENDOWN:MOVE 2:PENUP
130 FILL 1:CIRCLE 0,0,5:FILL 0
140 CSIZE 1,0:STRIP 2:INK 0:AT #2,0,0:CSIZE #2,3,1
150 FOR i=1 TO 12:CURSOR SIN(i*PI/6)*40,COS(i*PI/6)*40,-4,-5:PRINT i
160 OVER -1:last_hour=-1:last_minute=-1
170 REPeat i
180 i=i MOD 720:minute i:hour i:time i:j=CODE(INKEY$(1500))
190 SELect ON j
200 =200:i=i-1
210 =208:i=i+10
220 =216:i=i-10
225 =0,27:i=DATE/60:i=i-INT(i/720)*720
230 =REMAINDER :i=i+1
240 END SELect 
250 END REPeat i
400 DEFine PROCedure hour(t)
410 angle=(t+6) DIV 12*6:IF angle=last_hour THEN RETurn 
420 LINE 0,0:INK 4*(last_hour>=0):TURNTO -last_hour:PENDOWN:MOVE 1:TURN 90:MOVE 25:PENUP
430 LINE 0,0:INK 4:TURNTO -angle:PENDOWN:MOVE 1:TURN 90:MOVE 25:PENUP
440 last_hour=angle
450 END DEFine 
460 DEFine PROCedure minute(t)
470 angle=t MOD 60*6
480 LINE 0,0:INK 7*(last_minute>=0):TURNTO -last_minute+90:PENDOWN:MOVE 40:PENUP
490 LINE 0,0:INK 7:TURNTO -angle+90:PENDOWN:MOVE 40:PENUP
500 last_minute=angle
510 END DEFine 
520 DEFine PROCedure time(t)
530 a$=(t DIV 60)*100+t MOD 60:a$=FILL$("0",5-LEN(a$))&a$
540 AT #2,8,11:PRINT #2,a$(2 TO 3);':';a$(4 TO 5)
550 END DEFine 
