FYI:

In the RHP 10.0 release due out this fall 2002 the version encoding has
changed to accommodate versions above 9.00.   If you test for version
specific changes in Reflection (after version 9) this maybe important to
you.  Only the version encoding has changed.

5th, 6th, and 7th characters in string
###-900L###### 900 equals "version 9.0"
###-910L###### 910 equals "version 10.0"
###-920L###### 920 equals "version 11.0"
###-930L###### 930 equals "version 12.0"
etc....

HP Escape Sequences and what is returned in 10.0
Esc *s12345^     returns       WRQ-56789
Esc *s12346^     returns       1-910L456789
Esc *s12347^     returns       W01-910L456789
Esc *s12348^     returns       WNT1-910-123456789


Joe Silagi
WRQ, Inc.



"Jeff Kell" <[log in to unmask]> wrote in message
news:ado75d02uea@enews4.newsguy.com...
> Michael Anderson wrote:
>
> > Don't look for a predefined variable, but rather ask the terminal
> > emulator directly.
> >
> > Here's a little script written by Jeff Kell, I think ;-)
>
> Guilty as charged :-)
>
> Some clarifications:
>
> >    input utc_reflect_serial;prompt="![chr(27)+"*s12347^"]";wait=2
>
> As Wirt said:
>
> > However, I believe everyone has also adopted the sequence originally
> > used by Reflection:  Esc*s1234<x>^
>
> > ...that returns some sort of version-identifying string in the form,
> > such as QCTERM-V3.2, where in QCTerm at least, <x> is any numeric
> > character, 0-9. The individual digits, 0-9, may mean something
> > different in Reflection, check to be sure first.
>
> Indeed.  ESC*12345^ was the original form and returned emulator type.
> The above ESC*12347^ gets the serial number.  Reflection answers with
> a string like <P>01-<vnn>Lxxxxxx where:
>
>    <P> = platform (W=Windows, M=Macintosh, I=DOS)
>    <vnn> = version of Reflection
>    L = I forget :-)
>    <xxxxxx> = Software serial number
>
> This was deprecated as of version 5.2 (I think) but still works.  At any
> rate, the next code piece:
>
> >    setvar hpmsgfence 0
> >    set echo=on
> >    if lft(utc_reflect_serial,1) = "W"
> >       setjcw UTCReflection=1
> >    elseif lft(utc_reflect_serial,1) = "M"
> >       setjcw UTCReflection=2
> >    elseif lft(utc_reflect_serial,1) = "I"
> >       setjcw UTCReflection=3
> >    endif
>
> This translates the platform to a numeric (used by other code). And:
>
> >    if UTCReflection > 0
> >       setjcw xdstermtype 1
> >       endif
> > else
> >    setvar hpmsgfence 0
> > endif
>
> this sets xdstermtype to 1 if HP terminal emulation is available (again,
> other code uses it).
>
> The current form of the UDC accounts for QCTERM too:
>
> >    if lft(utc_reflect_serial,1) = "W"
> >       setjcw UTCReflection=1
> >    elseif lft(utc_reflect_serial,1) = "M"
> >       setjcw UTCReflection=2
> >    elseif lft(utc_reflect_serial,1) = "I"
> >       setjcw UTCReflection=3
> >    elseif lft(utc_reflect_serial,6) = "QCTERM"
> >       setjcw UTCReflection=4
> >    endif
> >    if UTCReflection > 0
> >       setjcw xdstermtype 1
> >       setvar term "hp2392a"
> >       endif
> > else
> >    setvar hpmsgfence 0
> > endif
> > deletevar savetype
>
> This also sets 'TERM' for the Posix environment.
>
> MiniSoft will return something like MS92 (for 12345^) or MS92 IS BETTER
> (for 12347^), but I don't have MS92 available to me at the moment to
> check.
>
> Jeff
> Jeff
>
> * 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 *