: NOTCHES
143 128 G-CURSOR 2 0 LINE
 46 128 G-CURSOR 2 0 LINE
 96  78 G-CURSOR 0 2 LINE
 96 175 G-CURSOR 0 2 LINE ;
: DIAL PAGE  46 78 G-CURSOR  100 100 BOX  NOTCHES
8 29 CURSOR ." ‚ € ‘ Ÿ"  16 26 CURSOR ." Made in USSR" ;
--> Instead of S l a v a








: @COORDS ( A --> ) DUP C@ SWAP 1+ C@ G-CURSOR ;
: HAND  CREATE ( STEP NEXT LENGTH X Y ) C, C, C, , C,
        DOES>
        270 -90 DO
          DUP DUP @COORDS
          DUP 2+ C@
          DUP  I SIN  10000  */ NEGATE
          SWAP I COS  10000  */
          2DUP LINE ROT DUP 3 + @EXECUTE
          @COORDS LINE
         DUP 5 + C@ +LOOP DROP ;
: WAIT CLICK 288 MS KEY? IF ABORT THEN ;
2  ' WAIT     48  128 96  HAND SEC
6  ' SEC      43  127 95  HAND MIN
30 ' MIN      30  128 95  HAND HOUR
-->
BODY MIN 3 + CONSTANT MIN>
: SETTER BEGIN KEY? UNTIL KEY#
  13 = IF ['] SEC MIN> ! SEC THEN ;
: CLOCK DIAL ['] SETTER MIN> ! BEGIN HOUR AGAIN ;    CLOCK