In Accuterm, changing to 132 column mode changes my emulation. How to fix that?

I'd like to use Adds Viewpoint enhanced, it works well with my application except - when my application switches from 80 to 132 column mode, it changes the emulation to VT100. I haven't found the right place to tell me how to fix this.

TIA,
Bruce

------------------------------
Bruce Ackman
Vice President
Lewis Supply Co Inc
Richmond VA US
------------------------------

There are normally two steps to changing the number of columns (and/or rows) on the screen. The first is to actually make the change in AccuTerm - either by changing mode (80 <-> 132 column mode) or by changing the number of columns/rows assigned to the current mode; and the second is to change the TERM settings to match the new number of columns (rows).

I suspect you are using a program to make these changes - so that you only have one apparent step. And I suspect that the program is using a TERM statement something like this: TERM 131,24,VT100 Or it could be executing two TERM statements.

So, check the program that you are using to make these changes.

Cheers,

Brian

------------------------------
Brian Speirs
Senior Analyst - Information Systems
Self Registered
Wellington NZ
------------------------------

It's using print Esc~; which worked with my old settings on my old hardware. Apparently that escape sequence changes my terminal type in Accuterm? I can't find that in the documentation.

------------------------------
Bruce Ackman
Vice President
Lewis Supply Co Inc
Richmond VA US
------------------------------

There are normally two steps to changing the number of columns (and/or rows) on the screen. The first is to actually make the change in AccuTerm - either by changing mode (80 <-> 132 column mode) or by changing the number of columns/rows assigned to the current mode; and the second is to change the TERM settings to match the new number of columns (rows).

I suspect you are using a program to make these changes - so that you only have one apparent step. And I suspect that the program is using a TERM statement something like this: TERM 131,24,VT100 Or it could be executing two TERM statements.

So, check the program that you are using to make these changes.

Cheers,

Brian

------------------------------
Brian Speirs
Senior Analyst - Information Systems
Self Registered
Wellington NZ
------------------------------

Found ESC~; in the QWyse programming doc. Yep, it changes the emulation

------------------------------
Bruce Ackman
Vice President
Lewis Supply Co Inc
Richmond VA US
------------------------------

Changed ~ to `. Done!

------------------------------
Bruce Ackman
Vice President
Lewis Supply Co Inc
Richmond VA US
------------------------------

If you are only using AccuTerm, you could consider using the AccuTerm private escape sequences - which should then work with any emulation:

ESC : STX : 'E' changes to 132 column mode
ESC : STX : 'N' changes to 80 column mode

Alternatively, you can use the AccuTerm scripting to change the column and row counts assigned to each mode. For example:

script = 'InitSession.NormCols = 111'
script := CHAR(25) : 'InitSession.NormRows = 30'
CRT ESC : STX : 'R' : script : CR

Cheers,

Brian

------------------------------
Brian Speirs
Senior Analyst - Information Systems
Self Registered
Wellington NZ
------------------------------

I have really large monitors and tend to run my screen with lots of columns and rows. You can set the number of rows in AccuTerm for both normal and extended modes. The problem is they don't change the terminal settings so they're out of sync.

To fix it I created two routines to set Accuterm to normal or extended mode. Then I wrote a subroutine that returns the current columns and rows from the AccuTerm session and changes the terminal settings to match. I've posted it below in case someone finds it useful.

AT80
* PROGRAM TO SET THE SCREEN TO NORMAL AND ADJUST THE TERM SETTINGS BASED ON
* THE ACTUAL ACCUTERM SCREEN SIZ
DEFFUN GET.SCREEN.SIZE
EQU ESC TO CHAR(27)
EQU STX TO CHAR(2)
* PRINT THE ACCUTERM STRING TO SET NORMAL MODE
PRINT ESC:STX:"N":
SCREEN.SIZE = GET.SCREEN.SIZE()
COLS = FIELD(SCREEN.SIZE,',',2)
ROWS = FIELD(SCREEN.SIZE,',',3)
CMD = 'TERM ':COLS:',':ROWS
EXECUTE CMD CAPTURING JUNK

AT132
* PROGRAM TO SET THE SCREEN TO EXTENDED AND ADJUST THE TERM SETTINGS BASED ON
* THE ACTUAL ACCUTERM SCREEN SIZE
DEFFUN GET.SCREEN.SIZE
EQU ESC TO CHAR(27)
EQU STX TO CHAR(2)
* PRINT THE ACCUTERM STRING TO SET EXTENDED MODE
PRINT ESC:STX:"E":
SCREEN.SIZE = GET.SCREEN.SIZE()
COLS = FIELD(SCREEN.SIZE,',',2)
ROWS = FIELD(SCREEN.SIZE,',',3)
CMD = 'TERM ':COLS:',':ROWS
EXECUTE CMD CAPTURING JUNK

GET.SCREEN.SIZE
FUNCTION GET.SCREEN.SIZE
* FUNCTION TO QUERY ACCUTERM AND RETURN THE SCREEN SIZE AS
* MODE,COLS,ROWS
* MODE=0 NORMAL, MODE= -1 EXTENDED COLUMNS
EQU ESC TO CHAR(27)
EQU STX TO CHAR(2)
EQU EM TO CHAR(25)
EQU CR TO CHAR(13)
* SEND VBA SCRIPT TO RETURN THE CURRENT COLUMNS AND ROWS
PRINT ESC:STX:'RWith ActiveSession':EM:'.Output .ScrMode & "," & .Cols & "," & .Rows & ChrW$(13)':EM:'End With':CR:
ECHO OFF
SAVED.PROMPT = SYSTEM(26)
PROMPT ''
INPUT SCREEN.SIZE
PROMPT SAVED.PROMPT
ECHO ON
RETURN(SCREEN.SIZE)

------------------------------
Joe Goldthwaite
Consultant
Bar-S Foods
Phoenix AZ US
------------------------------

Sign up

Please log in or register:

Welcome to the Rocket Forum!

Please log in or register:

Scanning file for viruses.

This file cannot be downloaded