HP3000-L Archives

October 2013, Week 2

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Michael Anderson <[log in to unmask]>
Reply To:
Michael Anderson <[log in to unmask]>
Date:
Mon, 14 Oct 2013 20:02:59 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (37 lines)
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 *

ATOM RSS1 RSS2