_CHOOSE_COLOR.GRS

  PROC/PROMPT,CLRLST,CLRSEL,SRESP
$$
$$ SUBROUTINE: _CHOOSE_COLOR.GRS
$$
$$ KEYWORDS:
$$   MANAGEMENT, UTILITY
$$
$$ ABSTRACT:
$$   THIS SUBROUTINE PRESENTS A MENU OF COLORS, ASKING THE USER
$$   WHICH ONE THEY WANT. IT DISPLAYS THE "]" BY THE CURRENT
$$   SETTING, SO ENTRY COMPLETE WILL ACCEPT THAT COLOR.
$$.
$$   WHEN #15 IS THE DEFAULT, THE MENU WILL LIST 2-15 AND USE
$$   AA FOR COLOR #1.
$$
$$ RELEASE HISTORY:
$$   02-MAY-94 INITIAL DESIGN, TESTING & IMPLEMENTATION
$$   03-MAY-94 DOCUMENTATION, SUBROUTINE HEADER ADDED
$$   09-MAY-94 MODIFIED TO ALLOW SELECTING "NO COLOR"
$$   17-JUL-1996 Initial submission to PTE Library
$$   17-JUL-1996 Initial submission to GRIP International Library
$$   13-OCT-2001 Contact Information Updated!
$$
$$ Called by:
$$   super_chain.grs
$$   (Also A Utility Subroutine)
$$
$$ AUTHOR:  Greg Krumrey, Information Manager
$$ COMPANY: Patriot Machine, Inc.
$$          951 Harmsted Court
$$          St. Charles, MO 63301
$$          greg.krumrey@patriot-machine.com
$$          636-940-1776 x 130
$$
$$ SYSTEM TYPE: ALL
$$
$$ THEORY/VARIABLE USAGE:
$$   PROMPT - String to use for prompting user
$$   CLRLST - List of system colors, obtained by calling _READ_SYS_COLORS
$$   CLRSEL - Default color setting, returned value (0=No color)
$$   SRESP  - Subroutine response: 1-Back, 2=Cancel, 3=OK
$$
$$ VERSIONS SUPPORTED: ALL
$$