/*REXX*/
/*-- SAT.REX ---- MSDOS/PCDOS/DOSBOX/Unix/Linux - 1991 Mark McDonald--*/
/*  Say text at row,col using current color.  No CRLF                 */
T = CHAROUT('','1b'x||'[2J'||'1b'x||'[1;34;40m')
DO CNT = 1 TO 25
  CALL SAT CNT,CNT+4,"ROW "CNT" COL "CNT+4
END
CALL SAT 20,1,""
PULL Z
EXIT
/*--- Position Cursor on Screen Using ANSI Codes ---------------------*/
APOS: PROCEDURE
  ARG ROW,COL
  T = CHAROUT('','1b'x||"["||ROW||";"||COL||"H")
RETURN
/*--- Same as Say only w/o CRLF of SAY -------------------------------*/
SAT: PROCEDURE
  PARSE ARG ROW,COL,TSTR
  CALL APOS ROW,COL
  T = CHAROUT('',TSTR)
RETURN