VTPUT:  PROC(ROW,COLUMN,STRING);

/* FUNCTION WRITES A CHARACTER STRING TO A ROW AND COLUMN OF A VT100-
   COMPATIBLE TERMINAL
   AUTHOR:  AL JAWORSKI
   DATE:    MARCH 12, 1982 */

%INCLUDE QIOWPUT;

DCL (ROW,COLUMN) FIXED BIN(31);
DCL STRING CHAR(*) VARYING;
DCL (PROW,PCOLUMN) PIC'99';

PROW=ROW;
PCOLUMN=COLUMN;

CALL QIOWPUT(BYTE(27)||'['||PROW||';'||PCOLUMN||'H'||STRING);

END VTPUT;