After Michael,
I was going to say add  WITH NO ADVANCING on the  DISPLAY inverse-on
    DISPLAY inverse-on WITH NO ADVANCING

Not sure if it will work - but a try.

Keven Miller - (I can't believe I'm advising Cobol coding - I'm a C 
programmer!)

----- Original Message ----- 
From: "Paul Richards" <[log in to unmask]>
To: <[log in to unmask]>
Sent: Monday, October 14, 2013 06:59 PM
Subject: [HP3000-L] Cobol: Cobol+Video Attributes


I am trying to use video attributes (e.g. inverse, blink, underline etc) 
using the Stromasys HP3000 emulator, QCTerm and HP COBOL 85.

I have a script that cycles through all of the available attributes (i.e. 
setvar esc chr(27) ...  setvar inverse esc+'&dB'...) which works perfectly 
in demonstrating the use of the various attributes.

However I cannot get a COBOL version to work. I know that ESC = %33 and I'm 
trying data definitions thus:

01 inverse-on.
  03               pic x      %33.
  03               pic x(3) "&dB".

then

display inverse-on followed by a
display "bbbbbbbb" ....

This is not working - the text bbbbbbbb is displayed without any change to 
its attributes.

What is the correct way to define such attribute data and then use it in the 
Procedure Division to achieve the desired effect?

TIA

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *