/*REXX*/
/*--- Send Content of ANSI File to Screen - 1998 Mark McDonald -------*/
T = CHAROUT('','1b'x||'[2J')
CALL DANSI "COLOR6.ANS"
PULL Z
EXIT
/*--------------------------------------------------------------------*/
DANSI: PROCEDURE
  PARSE ARG MAPNAME
  T = CHAROUT('',LINEIN(MAPNAME))             ;/*Send file to screen  */
  T = LINEOUT(MAPNAME)                        ;/*Ensure file released */
RETURN