Program 2
=========

.. code::

   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