* 			:---------------------------------------
      * ------------------------: Copybook for using ChooseFont.
      * 			:
      * 			: See the documentation for details.
      * 			:---------------------------------------
      *
       01  CHOOSEFONT-PARMS.
	   05  CHOOSEFONT-HINSTANCE	      PIC X(4).
	   05  CHOOSEFONT-HWNDOWNER	      PIC X(4).
	   05  CHOOSEFONT-FLAGS 	      PIC S9(9) COMP-5.
      * 			: Values returned by ChooseFont
      * 			:   Pointsize of selected font
      * 			:   Font type of selected font
      * 			:   RGB color of selected font
	   05  CHOOSEFONT-POINTSIZE	      PIC S9(9) COMP-5.
	   05  CHOOSEFONT-FONTTYPE	      PIC S9(4) COMP-5.
	   05  CHOOSEFONT-RGBCOLORS	      PIC X(4).
      *
      * 			: Font definition; used to initialize
      * 			: the common dialog, and to return the
      * 			: selected font.
      *
       01  CHOOSEFONT-LOGFONT.
      * 			: Height in logical units
	   05  CHOOSEFONT-HEIGHT	  PIC S9(9) COMP-5.
      * 			: Width; zero will automatically match
      * 			: the device's aspect ratio
	   05  CHOOSEFONT-WIDTH 	  PIC S9(9) COMP-5.
      * 			: Angle a line of text is rotated
	   05  CHOOSEFONT-ESCAPEMENT	  PIC S9(9) COMP-5.
      * 			: Angle each character is rotated
	   05  CHOOSEFONT-ORIENTATION	  PIC S9(9) COMP-5.
      * 			: Weight is 0 through 1000; 0 is default
	   05  CHOOSEFONT-WEIGHT	  PIC S9(9) COMP-5.
      * 			: Italics: 0 = no, 1 = yes
	   05  CHOOSEFONT-ITALIC	  PIC X.
      * 			: Underline: 0 = no, 1 = yes
	   05  CHOOSEFONT-UNDERLINE	  PIC X.
      * 			: Strikeout: 0 = no, 1 = yes
	   05  CHOOSEFONT-STRIKEOUT	  PIC X.
      * 			: Character set:  Common values:
      * 			:
      * 			:		  DEFAULT-CHARSET   1
      * 			:		  ANSI-CHARSET	    0
      * 			:		  SYMBOL-CHARSET    2
	   05  CHOOSEFONT-CHARSET	  PIC X.

      * 			: Use default value of zero.
	   05  CHOOSEFONT-OUTPRECISION	  PIC X.
      * 			: Use default value of zero.
C	   05  CHOOSEFONT-CLIPPRECISION   PIC X.
      * 			: Use Default value of zero.
	   05  CHOOSEFONT-QUALITY	  PIC X.
      * 			: Pitch and Family.
      * 			: Default is zero!
      * 			:
      * 			: Add one value from this group:
      * 			: (suggest DEFAULT-PITCH)
      * 			:
      * 			:	      DEFAULT-PITCH	   0
      * 			:	      FIXED-PITCH	   1
      * 			:	      VARIABLE-PITCH	   2
      * 			:	      MONO-FONT 	   8

      * 			: to one value from this group:
      * 			: (suggest DONTCARE)
      *
      * 			:	      FF-DONTCARE	   0
      * 			:	      FF-ROMAN		  16
      * 			:	      FF-SWISS		  32
      * 			: Courier New FF-MODERN 	  48
      * 			: Script      FF-SCRIPT 	  64
      * 			: Novelty     FF-DECORATIVE	 128

	   05  CHOOSEFONT-PITCHANDFAMILY  PIC X.
      * 			: Face name (e.g., Times New Roman)
	   05  CHOOSEFONT-FACENAME	  PIC X(32).