Subject: | |
From: | |
Reply To: | |
Date: | Mon, 14 Oct 2013 20:02:59 -0500 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
Try"
Display inverse-on "bbbbbbbbbb".
All in one statement.
Hp Terminal escape sequences are terminated at %15, each display
statement ends with a %15.
On 10/14/2013 07:59 PM, Paul Richards wrote:
> 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 *
|
|
|