      * PALETTE.DEF - definitions for W$PALETTE library routine.
      * Last modified: 11-Mar-94 - TDC.

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

      * W$PALETTE opcodes

       78  WPALETTE-SUPPORTED                  VALUE 1.
       78  WPALETTE-NUM-COLORS                 VALUE 2.
       78  WPALETTE-GET-COLOR                  VALUE 3.
       78  WPALETTE-SET-COLOR                  VALUE 4.
       78  WPALETTE-UPDATE                     VALUE 5.
       78  WPALETTE-CHOOSE-COLOR               VALUE 6.
       78  WPALETTE-SET-USER-COLOR             VALUE 7.

      * WPALETTE-CHOOSE-COLOR flags

       78  WPCHOOSE-USE-DEFAULT                VALUE 1.

      * WPALETTE-SET-USER-COLOR color types

       78  WPUSER-COLOR-3D                     VALUE 1.
       78  WPUSER-COLOR-BACKGROUND             VALUE 2.

      * WPALETTE-SUPPORTED return values

       78  WPAL-NO-SUPPORT                     VALUE 0.
       78  WPAL-PALETTE-SUPPORTED              VALUE 1.
       78  WPAL-FULL-SUPPORT                   VALUE 2.

      * W$PALETTE error return values

       78  WPERR-UNSUPPORTED                   VALUE 0.
       78  WPERR-BAD-ARG                       VALUE -1.
       78  WPERR-CANCELLED                     VALUE -2.

      * Parameters for W$PALETTE

       01  WPALETTE-DATA.
           03  WPAL-COLOR-ID                   PIC X COMP-X.
           03  WPAL-FLAGS REDEFINES
               WPAL-COLOR-ID                   PIC X COMP-X.
           03  WPAL-RED                        PIC X COMP-X.
           03  WPAL-USER-COLOR-ID REDEFINES
               WPAL-RED                        PIC X COMP-X.
           03  WPAL-GREEN                      PIC X COMP-X.
           03  WPAL-BLUE                       PIC X COMP-X.

      * End of PALETTE.DEF.
