VT80:  PROC;

/* FUNCTION SETS THE LINESIZE OF A VT100-COMPATIBLE TERMINAL
   TO 80 CHARACTERS.
   AUTHOR:  AL JAWORSKI
   DATE:    MARCH 26, 1982*/

%INCLUDE QIOWPUT;

CALL QIOWPUT(BYTE(27)||'[?3l');

END VT80;