Going COLOR Blind!!!!!!

Thread View: bit.listserv.rexxlist

1 messages

[T] Back to Threads [V] Tree View [G] Group Articles

1 total messages Started by Lily Thu, 18 Jun 1992 14:57

#61

Author: Lily
Date: Thu, 18 Jun 1992 14:57

54 lines
1892 bytes

Hello All,

I have a problem here that's driving me crazy.  I'm trying to change
colors for screen display.  Below is a sample of it; with comments
next to the problem...


/* Lily's Colors */

Arg ITR .
Parse Value Diag(8, 'Q SCREEN') With 'VMOUT' COLOR ATTR '15'x
call Diag 8, 'SCREEN VMOUT DEF'

HI = '1d08'x ; LO = '1d10'x

Do CUR = 1 To ITR By 1

   Call Display CUR
End
call Diag 8, 'SCREEN VMOUT' COLOR ATTR

Exit

DISPLAY:  Procedure

  Arg CUR .

  HI = '1d08'x ; LO = '1d10'x

  'VMFCLEAR'
  Call Diag 8, 'SCREEN VMOUT RED'      /*This is where the problem is!*/
  Say '-----------------------------'  /*The first line changes to red*/
  Say '-----------------------------'  /*But the second goes back to  */
  Call Diag 8, 'SCREEN VMOUT DEF'      /*the default color.  WHY????? */
  Say ' '
  Say 'Current Iteration:'HI||CUR||LO
  Say ' '
  Call Diag 8, 'SCREEN VMOUT RED'
  Say '-----------------------------'
  Say '-----------------------------'
  Call Diag 8, 'SCREEN VMOUT DEF'
  Say ' '
  Say '      Press Enter To Continue'
  Say ' '

  Pull RESP

Return
===============================================================================

Am I missing anything here?  If anyone has any idea...please let me
know.  Thanks!!!!!!

Lily

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads