From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: *
X-Spam-Status: No, score=1.1 required=5.0 tests=BAYES_40,INVALID_DATE
	autolearn=no autolearn_force=no version=3.4.4
Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!samsung!zaphod.mps.ohio-state.edu!usc!ucsd!ucbvax!ada2.crd.ge.com!xanadu
From: xanadu@ada2.crd.ge.com (Rick Conn)
Newsgroups: comp.lang.ada
Subject: Enumeration I/O
Message-ID: <9005081545.AA01734@ada2.>
Date: 8 May 90 15:45:59 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
List-Id: <comp.lang.ada>

Mike, try
  COLOR_IO.PUT(ITEM => C, SET => COLOR_IO.LOWER_CASE);

It doesn't know where LOWER_CASE is coming from otherwise.

Rick Conn