*
* $Id: hplpto.F,v 1.1.1.1 1996/01/19 10:50:11 mclareni Exp $
*
* $Log: hplpto.F,v $
* Revision 1.1.1.1  1996/01/19 10:50:11  mclareni
* Hplot
*
*
#include "hplot/pilot.h"
*CMZ :  5.12/00 26/02/92  16.46.39  by  O.Couet
*-- Author :
      SUBROUTINE HPLPTO(TEXTIN,TEXTUT)
*.==========>
*.            Request string (eg. <CR>)
*.            Subroutine to allow users to pause with a prompt and
*             receive a reply in interactive systems.
*..=========>
#include "hplot/himeta.inc"
      CHARACTER*(*) TEXTIN,TEXTUT
*._____________________________
*
      IF(.NOT.TEKACT)RETURN
      IWKID=1
      ISTDNR=1
      TEXTUT=' '
      CALL IRQST(IWKID,ISTDNR,ISTAT,NCH,TEXTUT)
      END