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