Script to change Extended Rows

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Does someone know a way to change the Extended Rows, from say 24 to 48 using a Print command similiar to the one used to change to Extended Mode? (Print ESC:STX:"E").

Also, is there a list somewhere that would let me see how to change other settings this way?

thanks!

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
ComputerDoug Members Profile Find Members Posts Newbie Joined: March 23 2005 Status: Offline Points: 2	Post Options Post Reply Quote ComputerDoug Report Post Thanks(0) Quote Reply Topic: Script to change Extended Rows Posted: April 14 2005 at 3:36am
	Does someone know a way to change the Extended Rows, from say 24 to 48 using a Print command similiar to the one used to change to Extended Mode? (Print ESC:STX:"E"). Also, is there a list somewhere that would let me see how to change other settings this way? thanks!

kilomike Members Profile Find Members Posts Beta Tester Joined: March 18 2004 Location: United States Status: Offline Points: 9	Post Options Post Reply Quote kilomike Report Post Thanks(0) Quote Reply Posted: April 14 2005 at 7:48am
	Here is a template changing both columns and rows: * ACCUTERM.COLS.ROWS * Query/Change Columns and Rows - Template * PS FEB 2004 * * KILO APR 2005 - MODIFICATIONS / NOTES * EQU STX TO CHAR(02); * START OF TEXT (CTRL-B) 02 EQU CR TO CHAR(13); * CARRIAGE RETURN (CTRL-M) 0D EQU ESC TO CHAR(27); * ESCAPE (CTRL-[) 1B ESC-KEY * PROMPT ''; * SET PROMPT CHARACTER TO NULL * EXECUTE \TERM (R\; * DISPLAY CURRENT TERMINAL CHARACTERISTICS * EXECUTE \ECHO\; * TOGGLE TERMINAL ECHO OFF * * ASK FOR COLUMNS AND ROWS USED BY ACCUTERM * PRINT ESC : STX : 'P InitSession.Output CStr(InitSession.NormCols) & "," & CStr(InitSession.NormRows) & Chr$(13) ' : CR : * INPUT COLSROWS; * GET REPLY FROM ACCUTERM * PRINT COLSROWS; * DISPLAY CURRENT COLUMNS AND ROWS USED BY ACCUTERM * EXECUTE \ECHO\; * TOGGLE TERMINAL ECHO ON * COLS = 100; * NUMBER OF COLUMNS * ROWS = 30; * NUMBER OF ROWS * * CHANGE COLUMNS AND ROWS USED BY ACCUTERM * PRINT ESC : STX : 'P InitSession.NormCols = ' : COLS : ' : InitSession.NormRows = ' : ROWS : CR : * EXECUTE \TERM \ : COLS : \,\ : ROWS : \ (R\; * CHANGE CURRENT TERMINAL DISPLAY SETTINGS AND DISPLAY * * DO NOT FORGET TO CHANGE DISPLAY SETTINGS BACK TO YOUR DEFAULT SOMETIME * STOP