setvar utc_reflect_serial "X"
setjcw UTCReflection=0

#  GETTERM.XEQ - Jeff Kell <jeff-kell@utc.edu>
#
#  We set 'utc_reflect_serial' to the Reflection serial number,
#  which provides information on the Reflection product being used.
#  There are six parts to the 14-character string xnnyvvvzssssss:
#
#  x - Defines the personal computer code (this value is only of
#      use for copies of Reflection prior to version 5.10)
#  nn - The product number: 01 is Reflection for HP, 02 is
#       Reflection for Unix and Digital, and 04 for Reflection
#       for ReGIS Graphics  (this value is only
#       of use for copies of Reflection prior to version 5.10)
#  y - Indicates a regular, combo, or demo version of the product
#      (- means regular, / means combination product for both HP
#      and DEC, * means demo version)
#  vvv - Indicates the version number of the product (this value
#        is only of use for copies of Reflection prior to 5.10)
#
#  z - Indicates whether this is a individual (I), LAN (L), or
#      a Server (S) version of Reflection
#  ssssss - Indicates the Reflection serial number (this value
#           is only of use for copies of Reflection prior to 5.10)
#
#  'UTCReflection' is a number 0=no Reflection, 1=Windows, 2=Mac,
#  and 3=DOS, and xdstermtype is 1 (a local screen I/O variable
#  not unlike unix's TERM environment variable) if there's an
#  hpterm on the other end.

if "!hpjobtype" = "J"
   return
endif

setvar hpmsgfence 2
setvar hpcierr 0

set echo=off
pause 1
continue
input utc_reflect_serial;prompt="![chr(27)+"*s12347^"]";wait=2
set echo=on

#  The Reflection platform can be deduced from the first char of
#  the serial number (0=no Reflection, 1=Windows, 2=Mac, and
#  3=DOS).  The version number follows the platform code which
#  is what you are looking for.

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

#  Note that all 'real' hpterms will return the regular terminal
#  type in res<ddddd to the Reflection status query, so you can
#  check for a  leading 'HP' or '700' if you care that this is
#  a real hpterm.

if UTCReflection > 0
   setjcw xdstermtype 1
endif

setvar hpmsgfence 0