[Info-vax] VTxxx/VMS term driver: bug or feature?

[Bob Koehler]

In article <00AB1B94.1FA197E0 at SendSpamHere.ORG>,   VAXman-  @SendSpamHere.ORG writes:
> 
> Initially, I would have thought that the local nowrap, terminal driver
> /WRAP combination should have appears the same.  Strangely enough, the
> terminal emulator I was checking didn't show this.  While testing it,
> I was performing the same tests on 2 VT terminals (VT220 and VT525, as
> well as, a DECterm).  I was simple taken aback when I saw differences
> that were shown on the VTs and DECterm but not this terminal emulator.
> I am, of course, convinced now that the terminal emulator got it flat
> out wrong.

   After further investigation, I decided to try the other two
   combinations:  local nowrap and driver /NOWRAP, local wrap
   and driver /WRAP.  In doing so, I reduced the line separation to try
   to fit everything on one screen.

   The results are much different, in comaring DEC VTSTAR to PuTTY's
   emulation. I haven't tried it on anything else yet.

$ esc[0,8]=%x1B
$ FAO := WRITE SYS$OUTPUT F$fao
$ TYPE/PAGE SYS$INPUT
Select a character set for testing.

 1. Normal
 2. Double-Wide
 3. Double-Wide/Double-High top-half
 4. Double-Wide/Double-High bottom-half


$ READ/PROMPT="Character set number: " SYS$COMMAND P1
$ IF F$type(P1).NES."INTEGER" THEN $ EXIT %x14
$ P1=F$element(F$integer(P1),"/","5/5/6/3/4")
$
$ !++
$ ! Clear Screen/Go Home
$ !--
$ FAO("!AS[2J!-!AS[1;1H",esc)
$
$ !++
$ ! Set OpenVMS terminal driver to NOWRAP.
$ SET TERMINAL/NOWRAP
$
$ !++
$ ! Set the local (actual) terminal wrap.
$ !--
$ FAO("!AS[?7h",esc)
$ COUNT_FMT ="!AS!-!AS!-!AS!-!AS!-!AS!-!AS!-!AS!-!AS!-!AS!-!AS!-!AS!-!AS!-!AS!-!AS"
$ FAO("!AS[1;1H!-!AS[7m *** OpenVMS terminal set /NOWRAP, local terminal to WRAP *** !-!AS[0m",esc)
$ FAO("!AS[3;1H_________11111111112!/12345678901234567890",esc)
$ FAO("!AS[5;10H!-!AS#!AS''COUNT_FMT'",esc,P1,"1234567890")
$ !++
$ ! Set OpenVMS terminal driver to WRAP.
$ SET TERMINAL/WRAP
$
$ !++
$ ! Clear the local (actual) terminal wrap.
$ !--
$ FAO("!AS[?7l",esc)
$
$ FAO("!AS[7;1H!-!AS[7m *** OpenVMS terminal set /WRAP, local terminal to NOWRAP *** !-!AS[0m",esc)
$ FAO("!AS[9;1H_________11111111112!/12345678901234567890",esc)'"
$ FAO("!AS[11;10H!-!AS#!AS''COUNT_FMT'",esc,P1,"1234567890")
$
$!++
$ ! Set OpenVMS terminal driver to NOWRAP.
$ SET TERMINAL/NOWRAP
$
$ !++
$ ! Clear the local (actual) terminal nowrap.
$ !--
$ FAO("!AS[?7l",esc)
$ COUNT_FMT ="!AS!-!AS!-!AS!-!AS!-!AS!-!AS!-!AS!-!AS!-!AS!-!AS!-!AS!-!AS!-!AS!-!AS"
$ FAO("!AS[13;1H!-!AS[7m *** OpenVMS terminal set /NOWRAP, local terminal to NOWRAP *** !-!AS[0m",esc)
$ FAO("!AS[15;1H_________11111111112!/12345678901234567890",esc)
$ FAO("!AS[17;10H!-!AS#!AS''COUNT_FMT'",esc,P1,"1234567890")
$ !++
$ ! Set OpenVMS terminal driver to WRAP.
$ SET TERMINAL/WRAP
$
$ !++
$ ! Set the local (actual) terminal wrap.
$ !--
$ FAO("!AS[?7h",esc)
$ COUNT_FMT ="!AS!-!AS!-!AS!-!AS!-!AS!-!AS!-!AS!-!AS!-!AS!-!AS!-!AS!-!AS!-!AS!-!AS"
$ FAO("!AS[19;1H!-!AS[7m *** OpenVMS terminal set /WRAP, local terminal to WRAP *** !-!AS[0m",esc)
$ FAO("!AS[21;1H_________11111111112!/12345678901234567890",esc)
$ FAO("!AS[23;10H!-!AS#!AS''COUNT_FMT'",esc,P1,"1234567890")
$ !++
$ ! Set OpenVMS terminal driver to WRAP.
$ SET TERMINAL/WRAP
$ ! clean up: terminal driver /WRAP, terminal nowrap
$ FAO("!AS[?7l",esc)
$