FTN4,L
C 
C  ***************************************************************
C  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS     *
C  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
C  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
C  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
C  ***************************************************************
C 
C     SOURCE PART NUMBER :92067-18409 
C 
C     RELOCATABLE PART NUMBER : 92067-16361 
C 
C     PROGRAMER(S)   : J.M.N. 
C 
C 
C 
C     ACPRM - ROUTINE TO WRITE A PROMPT TO THE INTERACTIVE INPUT DEVICE 
C 
C     CALLING SEQUENCE:  CALL ACPRM(MSG,MSGLN)
C                WHERE
C                        MSG   = PROMPT TO BE WRITTEN 
C                        MSGLN = LENGTH OF PROMPT (#WORDS)
C 
C 
      SUBROUTINE ACPRM(MSG,MSGLN) ,92067-16361 REV.1940 790125  
      LOGICAL IFBRK 
      DIMENSION MSG(40) 
      COMMON /ACOM8/LASTP(40),LENP
      IF(IFBRK(IDUM)) CALL ACERR(0) 
C 
C 
C     WRITE THE PROMPT
C 
      IF(MSGLN.EQ.-1) GO TO 200 
      CALL ACWRI(MSG,MSGLN) 
C 
C     SAVE THE PROMPT IN CASE OF ACERR
C 
      DO 100 LENP=1,MSGLN 
      LASTP(LENP)=MSG(LENP) 
  100 CONTINUE
      RETURN
C 
C     RE-PROMPT WITH THE LAST PROMPT ISSUED 
C 
  200 CALL ACWRI(LASTP,LENP-1)
      RETURN
      END 
                                                                                                                                                                    