# ***********************************************************
# * TERMTYPE - Returns Primary Terminal Status
# *
# * Usage example: (note: replace ^ by ! below)
# *
# *      :print a_logon_udcudc.group.account
# *      hpordec
# *      option logon,nolist,nobreak,nohelp
# *      pause 2
# *      continue
# *      TERMTYPE
# *      if len("^status") >= 6
# *           continue
# *           run (an application requiring HP terminal emulation)
# *      else
# *           continue
# *           run (a command driven version of the application)
# *      endif
# *      bye
# *      ***
# *
# * Written by:  Steve Barrett
# ************************************************************

setvar status ""
deletevar status
file result=$stdin
setvar termstat chr(27)+"^"
continue
echo !termstat
pause 5
continue
input status;wait=1 <*result >$null
return