.; ************************************************************
.; *                                                          *
.; *                  V T 2 0 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 WRAP mode.
.;
.;

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