C
C Define menu items for Fortran compiler
C
      INTEGER*2 IDM_CHIMES,IDM_SOLIDHANDS,IDM_SECONDSICON
      INTEGER*2 IDM_TIMEZONE,IDM_EXIT,IDM_ABOUT
      PARAMETER (IDM_CHIMES=     100)
      PARAMETER (IDM_SOLIDHANDS= 101)
      PARAMETER (IDM_SECONDSICON=102)
      PARAMETER (IDM_TIMEZONE=   103)
      PARAMETER (IDM_EXIT=       104)
      PARAMETER (IDM_ABOUT=      105)
C
C Parameters
C
C PI       o REAL pi.
C
C ZINC     o REAL Angle increment for 1 minute, in radians.
C
      REAL PI,ZINC
      PARAMETER (PI=3.1415926536)
      PARAMETER (ZINC=PI/60.0*2.0)
C
C General variables
C
C HINST    o INTEGER*2 Records the current instance of FWClock
C            application.
C
C HWND     o INTEGER*2 Records the handle of the main FWClock window.
C
C WSTATUS  o INTEGER*4 Get status returns etc from Window functions. This
C            variable is INTEGER*4 so that it can be used for both the BOOL
C            and DWORD Windows functions.
C
C FWCPS    o RECORD /PAINTSTRUCT/ Paint control structure for FWClock.
C
C MYTIMER  o INTEGER*2 Handle of FWClock's timer.
C
      INTEGER*2 HINST,HWND
      INTEGER*4 WSTATUS
      RECORD /PAINTSTRUCT/ FWCPS
      INTEGER*2 MYTIMER
C
C IMANICON
C          o LOGICAL .TRUE. when FWClock has been iconised.
C
C SECONDSICON
C          o LOGICAL .TRUE. if seconds hand should be displayed in icon.
C
C SOLIDHANDS
C          o LOGICAL .TRUE. when solid hands should be drawn for the open
C            window, .FALSE. for outlines only.
C
C CHIMES   o LOGICAL .TRUE. when the clock should chime once an hour.
C
C DWIDTH and DHEIGHT
C          o INTEGER*2 The width and height of the display in pixels.
C
C HASPECT and VASPECT
C          o INTEGER The horizontal (width) and vertical (height) size
C            of the display.
C
C VARATIO  o REAL Vertical aspect ratio, VASPECT/HASPECT.
C
C WWIDTH and WHEIGHT
C          o INTEGER*2 The width and height of the main FWClock window
C            in pixels.
C
C RCLOCK   o RECORD /RECT/ The region occupied by the window.
C
C TRECT    o RECORD /RECT/ Temporary rectangle structure.
C
      LOGICAL IMANICON,SECONDSICON,SOLIDHANDS,CHIMES
      INTEGER*2 DWIDTH,DHEIGHT
      INTEGER HASPECT,VASPECT
      REAL VARATIO
      INTEGER*2 WWIDTH,WHEIGHT
      RECORD /RECT/ RCLOCK,TRECT
C
C FBRUSH and BBRUSH
C          o INTEGER*2 The handles for foreground and background brushes
C            for drawing operations.
C
C FPEN and BPEN
C          o INTEGER*2 The handles for the foreground and background pens
C            for drawing operations.
C
C FPENCOLOUR and BPENCOLOUR
C          o INTEGER*4 The colour descriptors of the foreground and background
C            pens.
C
      INTEGER*2 FBRUSH,BBRUSH,FPEN,BPEN
      INTEGER*4 FPENCOLOUR,BPENCOLOUR
C
C AXC and AYC
C          o INTEGER*2 The coordinates of the centre of the analogue clock
C            face in the window.
C
C RADIUS   o INTEGER*2 The radius of the analoge clock face.
C
       INTEGER AXC,AYC,RADIUS
C
C HOURS, MINS and SECS
C          o INTEGER*2 These hold the current time.
C
C OHOURS, OMINS and OSECS
C          o INTEGER*2 These hold the last time displayed.
C
      INTEGER*2 HOURS,MINS,SECS
      INTEGER*2 OHOURS,OMINS,OSECS
C
C SHANDV(2,0:59)
C          o RECORD /POINT/ Vector tables for second hand.
C
C HHAND2(0:59)
C          o RECORD /POINT/ Vector table for iconic hour hand.
C
C MHAND2(0:59)
C          o RECORD /POINT/ Vector tables for iconic minute hand.
C
      RECORD /POINT/ SHANDV(2,0:59)    ! Second hand device vectors
      RECORD /POINT/ HHAND2(0:59)      ! Iconic hour hand device vectors
      RECORD /POINT/ MHAND2(0:59)      ! Iconic minute hand device vectors
C
C Common block
C
      COMMON /FWCLOCK/HINST,HWND,WSTATUS,FWCPS,MYTIMER,
     *                IMANICON,SECONDSICON,SOLIDHANDS,CHIMES,
     *                WWIDTH,WHEIGHT,DWIDTH,DHEIGHT,HASPECT,VASPECT,
     *                VARATIO,
     *                RCLOCK,TRECT,FBRUSH,BBRUSH,FPEN,BPEN,
     *                FPENCOLOUR,BPENCOLOUR,AXC,AYC,RADIUS,
     *                HOURS,MINS,SECS,OHOURS,OMINS,OSECS,
     *                SHANDV,HHAND2,MHAND2
