HP3000-L Archives

October 2004, Week 1

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:
Bob McGregor <[log in to unmask]>
Reply To:
Bob McGregor <[log in to unmask]>
Date:
Tue, 5 Oct 2004 14:47:07 -0600
Content-Type:
text/plain
Parts/Attachments:
text/plain (80 lines)
We use two cmdfile set to 80 columns
USER DEFINED COMMAND FILE:  T80.CMDFILE.SYS

COMMENT &1 SET THE TERMINAL TO 80 COLS
echo ![chr(27)]&w6f80X


and for 132 column screen width
USER DEFINED COMMAND FILE:  T132.CMDFILE.SYS

COMMENT &1 SETS THE TERMINAL TO 132 COLS
echo ![chr(27)]&w6f132X![chr(33)]



On Tuesday, October 5, 2004 2:46 PM, Paul Scott <[log in to unmask]> wrote:
>:help col
>USER DEFINED COMMAND FILE:  COL.CMNDFILE.PUB
>
>PARM COLS=""
>#                                                               Ver 1.00
>073100
>IF "!COLS"="" THEN
>  INPUT COL;PROMPT="Enter the number of columns you want your screen set
>to:"
>ELSE
>  SETVAR COL !COLS
>ENDIF
>IF !COL > 79 AND !COL < 1000
>  echo ![chr(27)+'&oF']SET DISPLAY-COLUMNS !COL
>  file out=$stdlist;rec=-!cols,,f,ascii;nocctl
>ELSE
>  echo Valid values are in the range of 80 to 999! Try again.
>ENDIF 
>
>-----Original Message-----
>From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On
>Behalf Of Donna Garverick
>Sent: Tuesday, October 05, 2004 12:11 PM
>To: [log in to unmask]
>Subject: Re: [HP3000-L] [MPE:720] Setting screen width in
>Reflection
>
>________________________________
>
>From: Sal P. Tarsio [mailto:[log in to unmask]]
>Sent: Tuesday, October 05, 2004 12:00 PM
>To: MPE List
>Subject: [MPE:720] Setting screen width in Reflection
>	
>	
>Hi All,
>         
>I know I can use an ECHO command to set the screen title in WRQ
>Reflection which makes me wonder if I can do the same for any other
>settings, specifically the screen width.
>         
>Can this be done?
>	
>Thank you,
>         
>Sal P. Tarsio, IT Manager
>Tork, Inc
>(914)664-3542
>Fax: 664-5052
>[log in to unmask]
>www.tork.com
>
>* 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 *
>

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2