From:	CRDGW2::CRDGW2::MRGATE::"SMTP::CRVAX.SRI.COM::RELAY-INFO-VAX"  9-NOV-1989 07:10
To:	MRGATE::"ARISIA::EVERHART"
Subj:	LIBSEARCH problem with /HIGHLIGHT on 7-bit terminals

Message-Id:  <8911091148.AA16769@crdgw1.ge.com>
Received: From NSFNET-RELAY.AC.UK by CRVAX.SRI.COM with TCP; Thu,  9 NOV 89 03:19:59 PDT
Received: from ncdlab.ulcc.ac.uk by vax.NSFnet-Relay.AC.UK 
           via Janet with NIFTP  id ab03431; 9 Nov 89 10:40 GMT
Date:           Thu, 9 Nov 89  10:41 BST
From: "Kevin Ashley - ULCC Networks Development." <KEVIN%ncdlab.ulcc.ac.uk@NSFnet-Relay.AC.UK>
To: INFO-VAX <@NSFnet-Relay.AC.UK:INFO-VAX@crvax.sri.com>
Subject:        LIBSEARCH problem with /HIGHLIGHT on 7-bit terminals

Ho hum...
              A number of people have mailed me saying that the /HIGHLIGHT
switch in the LIBSEARCH program I sent to the list recently doesn't work
correctly on 7-bit ANSI terminals such as VT100, or 8-bit terminals which are
in 7-bit mode. This is due to a misunderstanding I had about how the VMS
terminal driver handled terminals set /NOEIGHTBIT. I thought it converted
8-bit control codes to 7-bit pairs, but I was wrong. The fix is simple,
to OUTPUT.FOR. I enclose it below. All that is done is that the parameter
CSI is changed from Character*1 to Character*2, and the Parameter statement
which defines it is altered to initialise it to ESC [ (That's escape,
followed by open square bracket for those of you in EBCDIC land.)

************
File $DISK1:[KEVIN.LIBSEARCH]OUTPUT.FOR;27
  108   	Character*2 Hion(4),Hioff,CSI
  109   	Character*1 Cr
  110   	Parameter (CSI = Char(27)//'[', Cr= Char(13))
  111   	Data Hion /'1m','5m','7m','4m'/
******
File $DISK1:[KEVIN.LIBSEARCH]OUTPUT.FOR;26
  108   	Character*2 Hion(4),Hioff
  109   	Character*1 CSI,Cr
  110   	Parameter (CSI = Char(155), Cr= Char(13))
  111   	Data Hion /'1m','5m','7m','4m'/
************

Number of difference sections found: 1
Number of difference records found: 3

DIFFERENCES /IGNORE=()/MERGED=1/OUTPUT=$DISK1:[KEVIN.LIBSEARCH]OUTPUT.DIF;1-
    $DISK1:[KEVIN.LIBSEARCH]OUTPUT.FOR;27-
    $DISK1:[KEVIN.LIBSEARCH]OUTPUT.FOR;26

Apologies for inconvenience, as usual
------------------------------------------------------------------------------
Kevin Ashley                              janet: K.Ashley@Uk.Ac.Ulcc.Ncdlab
Network Development Group Manager         Telephone: +44 1 405 8400
University of London Computer Centre. 

Arpa:        K.Ashley@Ncdlab.ulcc.Ac.uk OR
             K.Ashley%Ncdlab.ulcc.Ac.uk@nsfnet-relay.ac.uk
Bitnet/EARN: K.Ashley@ncdlab.ulcc.ac.uk OR  K.Ashley%Uk.ac.ulcc.ncdlab@UKACRL
Ean:  K.Ashley@Ncdlab.Ulcc.Ac.Uk
UUCP:   Your guess is as good as mine. I can't reply to Usenet addresses.

