.; ************************************************************
.; *                                                          *
.; *                  T E K 4 0 1 0  .  C M D                 *
.; *                                                          *
.; *                      Version 1.01                        *
.; *                                                          *
.; *                       Written by                         *
.; *                                                          *
.; *                 Arnold Scott De Larisch                  *
.; *               Florida Atlantic University                *
.; *                  Boca Raton, FL  33431                   *
.; *                                                          *
.; *                      23 July 1986                        *
.; *                                                          *
.; ************************************************************
.;
.;  ASDL073086	Set terminal to NOWRAP mode
.;              (required for TEK Plot-10 IGL to work correctly)
.;
.;

.ENABLE QUIET
.DISABLE DISPLAY
.ENABLE SUBSTITUTION
.SETN ASCESC 33
.SETS ESC "'ASCESC%V'"
.SETS CSI ESC+"["
.IF <TITYPE> <= 24 .EXIT
.OPEN TI:
.DATA 'CSI'?38h
.CLOSE
.IF <CLI> = "MCR" SET /NOWRAP=TI:
.IF <CLI> = "DCL" SET TERM /NOWRAP
.EXIT
