      * FONTS.DEF - Definitions for the W$FONT routine
      * Last modified: 03-Jun-1996 - TDC.

      * Copyright (c) 1996-2007 by Acucorp, Inc.  Users of ACUCOBOL
      * may freely include this file in their COBOL source code.

      * Opcodes

       78  WFONT-SUPPORTED                     VALUE 1.
       78  WFONT-CHOOSE-FONT                   VALUE 2.
       78  WFONT-GET-FONT                      VALUE 101.
       78  WFONT-GET-CLOSEST-FONT              VALUE 102.
       78  WFONT-DESCRIBE-FONT                 VALUE 106.

      * W$FONT return codes

       78  WFONT-FONT-SUPPORT                  VALUE 1.
       78  WFONT-FULL-SUPPORT                  VALUE 2.

       78  WFONTERR-UNSUPPORTED                VALUE 0.
       78  WFONTERR-CANCELLED                  VALUE -1.
       78  WFONTERR-FONT-NOT-FOUND             VALUE -2.
       78  WFONTERR-INVALID-HANDLE             VALUE -3.

      * WFONT-CHOOSE-FLAGS values

       78  WFCHOOSE-FIXED-ONLY                 VALUE 1.
       78  WFCHOOSE-INITIALIZE                 VALUE 2.
       78  WFCHOOSE-EFFECTS-OK                 VALUE 4.
       78  WFCHOOSE-ANSI-ONLY                  VALUE 8.

       01  WFONT-DATA.
           03  WFONT-FACE-DATA.
               05  WFONT-DEVICE                HANDLE, VALUE NULL.
                   88  WFDEVICE-CONSOLE        VALUE NULL.
                   88  WFDEVICE-WIN-PRINTER    VALUE 1.
               05  WFONT-NAME                  PIC X(33).
               05  WFONT-CHAR-SET              PIC X COMP-X.
                   88  WFCHARSET-DONT-CARE       VALUE 0.
                   88  WFCHARSET-DEFAULT         VALUE 1.
                   88  WFCHARSET-WIN-OEM         VALUE 2.
                   88  WFCHARSET-WIN-SYMBOL      VALUE 3.
                   88  WFCHARSET-WIN-SHIFTJIS    VALUE 4.
                   88  WFCHARSET-WIN-HANGUL      VALUE 5.
                   88  WFCHARSET-WIN-GB2312      VALUE 6.
                   88  WFCHARSET-WIN-CHINESEBIG5 VALUE 7.
                   88  WFCHARSET-WIN-JOHAB       VALUE 8.
                   88  WFCHARSET-WIN-HEBREW      VALUE 9.
                   88  WFCHARSET-WIN-ARABIC      VALUE 10.
                   88  WFCHARSET-WIN-GREEK       VALUE 11.
                   88  WFCHARSET-WIN-TURKISH     VALUE 12.
                   88  WFCHARSET-WIN-VIETNAMESE  VALUE 13.
                   88  WFCHARSET-WIN-THAI        VALUE 14.
                   88  WFCHARSET-WIN-EASTEUROPE  VALUE 15.
                   88  WFCHARSET-WIN-RUSSIAN     VALUE 16.
                   88  WFCHARSET-WIN-MAC         VALUE 17.
                   88  WFCHARSET-WIN-BALTIC      VALUE 18.
               05  WFONT-SIZE                  PIC X COMP-X.
               05  WFONT-BOLD-STATE            PIC X COMP-X.
                   88  WFONT-BOLD              VALUE 1, FALSE ZERO.
               05  WFONT-ITALIC-STATE          PIC X COMP-X.
                   88  WFONT-ITALIC            VALUE 1, FALSE ZERO.
               05  WFONT-UNDERLINE-STATE       PIC X COMP-X.
                   88  WFONT-UNDERLINE         VALUE 1, FALSE ZERO.
               05  WFONT-STRIKEOUT-STATE       PIC X COMP-X.
                   88  WFONT-STRIKEOUT         VALUE 1, FALSE ZERO.
               05  WFONT-PITCH-STATE           PIC X COMP-X.
                   88  WFONT-FIXED-PITCH       VALUE 1, FALSE ZERO.
               05  WFONT-FAMILY                PIC X COMP-X.
                   88  WFFAMILY-DONT-CARE      VALUE 0.
                   88  WFFAMILY-MODERN         VALUE 1.
                   88  WFFAMILY-ROMAN          VALUE 2.
                   88  WFFAMILY-SWISS          VALUE 3.
                   88  WFFAMILY-SCRIPT         VALUE 4.
                   88  WFFAMILY-DECORATIVE     VALUE 5.
           03  WFONT-CHOOSE-DATA.
               05  WFONT-CHOOSE-FLAGS          PIC X COMP-X.
               05  WFONT-CHOOSE-MIN-SIZE       PIC X COMP-X.
               05  WFONT-CHOOSE-MAX-SIZE       PIC X COMP-X.
               05  WFONT-CHOOSE-RED            PIC X COMP-X.
               05  WFONT-CHOOSE-GREEN          PIC X COMP-X.
               05  WFONT-CHOOSE-BLUE           PIC X COMP-X.
               05  WFONT-CHOOSE-COLOR-NUM      PIC X COMP-X.
           03  WFONT-ANGLE                     PIC X(2) COMP-X.
      * end of fonts.def
