VTBRIGHT:  PROC;

/* FUNCTION SETS THE CURSOR OF A VT100-COMPATIBLE TERMINAL
   TO WRITE HIGHT INTENSITY CHARACTERS
   AUTHOR:  AL JAWORSKI
   DATE:    MARCH 12, 1982 */

%INCLUDE QIOWPUT;

CALL QIOWPUT(BYTE(27)||'[1m');

END VTBRIGHT;