       structure /tagBitMapFileHeader/
          Integer*2 bfType
          Integer*4 bfSize
          Integer*2 bfReserved1
          Integer*2 bfReserved2
          Integer*4 bfOffBits
       End Structure
       structure /tagbitmapinfoheader/
          Integer*4 biSize
          Integer*4 biWidth
          Integer*4 biHeight
          Integer*2 biPlanes
          Integer*2 biBitCount
          Integer*4 biCompression
          Integer*4 biSizeImage
          Integer*4 biXPelsPerMeter
          Integer*4 biYPelsPerMeter
          Integer*4 biClrUsed
          Integer*4 biClrImportant
       End Structure
       structure/wndclass/
        integer*4 style
        integer*4 lpfnWndProc
        integer*4 cbClsExtra
        integer*4 cbWndExtra
        integer*4 hInstance
        integer*4 hIcon
        integer*4 hCursor
        integer*4 hbrBackground
        integer*4 lpszMenuName
        integer*4 lpszClassName
      end structure
       structure /tagmsg/
          integer*4 hwnd
          integer*4 message
          integer*4 wParam
          Integer*4 lParam
          Integer*4 time
          integer*4 pt_x
          integer*4 pt_y
       End Structure
       structure /tagTextMetric/
          integer*4 tmHeight
          integer*4 tmAscent
          integer*4 tmDescent
          integer*4 tmInternalLeading
          integer*4 tmExternalLeading
          integer*4 tmAveCharWidth
          integer*4 tmMaxCharWidth
          integer*4 tmWeight
          INTEGER*1 tmItalic
          INTEGER*1 tmUnderlined
          INTEGER*1 tmStruckOut
          INTEGER*1 tmFirstChar
          INTEGER*1 tmLastChar
          INTEGER*1 tmDefaultChar
          INTEGER*1 tmBreakChar
          INTEGER*1 tmPitchAndFamily
          INTEGER*1 tmCharSet
          integer*4 tmOverhang
          integer*4 tmDigitizedAspectX
          integer*4 tmDigitizedAspectY
       end structure
       structure /tagRect/
          integer*4 left
          integer*4 top
          integer*4 right
          integer*4 bottom
       end structure
       structure /tagPAINTSTRUCT/
          integer*4 hdc
          integer*4 fErase
          record /tagRect/ rcPaint
          integer*4 fRestore
          integer*4 fIncUpdate
          integer*1 rgbReserved(16)
       end structure
       structure /tagLOGPEN/
          integer*4 style
          integer*4 x
          integer*4 y
          INTEGER*4 color
       end structure
      integer*4 idc_arrow
      parameter (idc_arrow=32512)
      integer*4 SRCCOPY
      Parameter (SRCCOPY=#00CC0020)
      integer*4 null
      Parameter (null=0)
      integer*4 cbm_init
      Parameter (CBM_INIT=4)
      integer*4 dib_rgb_colors
      Parameter (DIB_RGB_COLORS=0)
      integer*4 ws_overlappedwindow
      Parameter (ws_overlappedwindow=#00cc4000)
      integer*4 cw_usedefault
      Parameter (cw_usedefault=#8000)
      integer*4 wm_command
      Parameter (WM_COMMAND=#0111)
      integer*4 wm_create
      Parameter (WM_CREATE=1)
      integer*4 wm_size
      Parameter (WM_SIZE=5)
      integer*4 wm_destroy
      Parameter (WM_DESTROY=2)
      integer*4 wm_close
      Parameter (WM_CLOSE=#10)
      integer*4 wm_paint
      Parameter (WM_PAINT=#f)
      integer*4 wm_char
      Parameter (WM_CHAR=#102)
      integer*4 true
      Parameter (true=1)
      integer*4 false
      Parameter (false=0)
      integer*4 system_fixed_font
      Parameter (SYSTEM_FIXED_FONT=16)
      integer*4 opaque
      Parameter (OPAQUE=2)
      integer*4 ps_solid
      Parameter (PS_SOLID=0)
