×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
This won't help at all for Position Cursor, but maybe you will find it
useful for Reverse Image. Years ago I wrote an order entry program
(RPG/400) with the following code & comments in the *INZSR subroutine...
(I don't know if the newsgroup will use a proportional font, so things may
not line up properly.)
**************************************************************
*
* NORMAL VIDEO - 20H - 0010 0000
* REVERSE IMAGE - 21H - 0010 0001
* HIGH INTENSITY - 22H - 0010 0010
* UNDERSCORE - 24H - 0010 0100
* BLINK - 28H - 0010 1000
*
* COMBINATIONS CAN BE ACHIEVED BY LOGICALLY ORing ATTRIBUTES
* EXAMPLE : FOR HIGH INTENSITY/REVERSE IMAGE, COMBINE
* REVERSE IMAGE - 21H - 0010 0001
* HIGH INTENSITY - 22H - 0010 0010
* --------------------------------
* REVERSE/HIGH - 23H - 0010 0011
* WHICH IS BITON ' 2 67'
*
*
C BITOFF '01234567' ATRRI 1
C BITON '257' ATRRI
*
C BITOFF '01234567' ATRHB 1
C BITON '246' ATRHB
*
C BITOFF '01234567' ATRHI 1
C BITON '26' ATRHI
*
C BITOFF '01234567' ATRNO 1
C BITON '2' ATRNO
*
C BITOFF '01234567' ATRHU 1
C BITON '256' ATRHU
*
C BITOFF '01234567' ATRHR 1
C BITON '267' ATRHR
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact
[javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
