10 CLEAR:CUROFF:SCREEN1
20 CIRCLE(120,31),30
30 LINE(119,3)-(119,6)
40 LINE(121,3)-(121,6)
50 LINE(145,31)-(148,31)
60 LINE(120,56)-(120,59)
61 LINE(92,31)-(95,31)
70 PSET(134,7),(144,17),(144,45),(134,55),(106,55),(96,45),(96,17),(106,7)
71 T$=TIME$:MI=VAL(MID$(T$,4,2)):HR=VAL(LEFT$(T$,2)):SC=VAL(RIGHT$(T$,2))
72 AM=MI*6+270:IFAM>359THENAM=AM-360
73 AH=HR*30+270:IFAH>359THENAH=AH-360
74 XM=FIX(23*COS(AM*PI/180)):YM=FIX(23*SIN(AM*PI/180))
75 XH=FIX(15*COS(AH*PI/180)):YH=FIX(15*SIN(AH*PI/180))
80 AG=SC*6+270:IFAG>359THENAG=AG-360:TI=500
90 IFAG>359THENAG=AG-360
100 TH=AG*PI/180
110 LINE(120,31)-(120+XS,31+YS),0
120 YS=FIX(25*SIN(TH)):XS=FIX(25*COS(TH)):LINE(120,31)-(120+XS,31+YS)
121 LINE(120,31)-(120+XM,31+YM)
122 LINE(120,31)-(120+XH,31+YH)
123 CHAR1,1:LOCATE1,1:PRINT" ";TIME$;" "
150 SOUND100,10
155 IFAG=270THENGOSUB200
160 TU=VAL(RIGHT$(TIME$,1))
170 IFTI=TUTHEN160
180 TI=TU:AG=AG+6:GOTO90
200 AM=AM+6
205 IFAM>359THENAM=AM-360
210 TH=AM*PI/180
220 LINE(120,31)-(120+XM,31+YM),0
230 XM=FIX(23*COS(TH)):YM=FIX(23*SIN(TH)):LINE(120,31)-(120+XM,31+YM)
240 IFAM<>270THENRETURN
250 AH=AH+30
255 IFAH>359THENAH=AH-360
260 TH=AH*PI/180
270 LINE(120,31)-(120+XH,31+YH),0
280 XH=FIX(15*COS(TH)):YH=FIX(15*SIN(TH)):LINE(120,31)-(120+XH,31+YH)
290 RETURN