Source Code
5 REM clock
10 LET B=0
20 LET U=0
30 LET A=0
40 LET T=1
50 CIRCLE 84,90,85
60 GO SUB 460
70 FOR N=1 TO 12
80 PRINT AT 10-9*COS (N/6*PI),10+9*SIN (N/6*PI);N
90 NEXT N
100 PLOT 84,90: DRAW 55*SIN B,55*COS B
102 LET A=T/30*PI
105 PLOT 84,90: DRAW 60*SIN A,60*COS A
110 FOR V=0 TO 60
120 LET C=V/30*PI
130 LET SX=84+62*SIN C
140 LET SY=90+62*COS C
150 OVER 1: PLOT SX,SY
160 BEEP .01,25: PAUSE 1
170 PLOT SX,SY
180 IF V=60 THEN LET V=0: GO TO 200
190 NEXT V
250 LET A=T/30*PI
260 LET MX=60*SIN A
270 LET MY=60*COS A
280 PLOT 84,90
290 OVER 1: DRAW MX,MY
295 IF T/12=INT (T/12) THEN GO SUB 340
300 LET T=T+1
310 PLOT 84,90
311 LET A=T/30*PI
312 LET MX=60*SIN A
313 LET MY=60*COS A
320 OVER 1: DRAW MX,MY
330 GO TO 110
340 LET B=U/30*PI
350 LET HX=55*SIN B
360 LET HY=55*COS B
370 PLOT 84,90
380 OVER 1: DRAW HX,HY
390 PLOT 84,90
400 LET U=U+1
410 LET B=U/30*PI
420 LET HX=55*SIN B
430 LET HY=55*COS B
440 OVER 1: DRAW HX,HY
450 RETURN
460 LET xc=84: LET yc=90
470 LET r=82
480 LET d=6
490 LET d=d*PI/180
500 FOR p=0 TO 2* PI STEP d
510 LET x=r*COS (p)
520 LET y=r*SIN (p)
530 LET x=x+xc
540 LET y=y+yc
550 PLOT x,y
560 NEXT p
570 RETURN
600 SAVE "clock" LINE 1
