VTDPUT:  PROC(ROW,COLUMN,STRING);

/* FUNCTION WRITES A DOUBLE-HEIGHT DOUBLE-WIDTH CHARACTER STRING 
   TO A ROW AND COLUMN OF A VT100-COMPATIBLE TERMINAL.  ROW AND
   COLUMN SPECIFICATION ARE UPPER LEFT CORNER OF STRING POSITION
   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'
             ||BYTE(27)||'#3'||STRING);

PROW=ROW+1;

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

END VTDPUT;