PRO Write_At, col, line, text,$
  NEW=new, SIZE=size, DELETE=delete, $
  TITLE=title

  isX = !d.name EQ 'X' 

  IF isX THEN BEGIN
    IF Keyword_Set(NEW) THEN BEGIN
      IF Keyword_Set(TITLE) THEN Window,TITLE=title $
      ELSE Window
      Set_XY,1,80,24,1 ; "simualtion" of a text window
    ENDIF
    IF NOT Keyword_Set(SIZE) THEN size=1.5
    XYOuts, col, line, text, SIZE=size
    IF Keyword_Set(DELETE) THEN BEGIN
       XYOuts,  2, 23, 'Click in the window to continue ...',SIZE=1.5
       Cursor,x,y,1
       WDelete
       Set_XY,0,1,0,1
    ENDIF
  ENDIF ELSE BEGIN
    IF Keyword_Set(NEW) THEN Clear_Screen
    PTo, line, col, text
    IF Keyword_Set(DELETE) THEN BEGIN
       Print,"Hit any key to continue ... '
       HAK
    ENDIF
  ENDELSE

END