VTDEL:  PROC;

/* FUNCTION DELETES INFORMATION ON THE SCREEN OF A VT100-COMPATIBLE TERMINAL
   FROM CURRENT POSITION OF CURSOR TO END OF LINE.
   AUTHOR:  AL JAWORSKI
   DATE:    MARCH 16, 1982 */

%INCLUDE QIOWPUT;

CALL QIOWPUT(BYTE(27)||'[K');

END VTDEL;