FTN4,Q,C
* 
*     DATE: MARCH 15, 1979
*     NAME: TXTD2 
*     SOURCE: 91711-18025 
*     RELOC:  91711-16025 
*     PGMR:  R.T.A. 
* 
*  *******************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS         *
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,          *
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT    *
*  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.           *
*  *******************************************************************
* 
* 
* 
      PROGRAM TXTD2 (5,89),91711-16025  REV 1926  790906
C     31.07.79
C 
C     IF IPARM(2) IS NEGATIVE, THIS SEGMENT WAS CALLED BY IMPTM OR TXTD1. 
C     IF IPARM(2) IS POSITIVE, THIS SEGMENT WAS CALLED BY TXTD3.
C 
C     WHEN THE RUN STRING HAS ONLY A LINE AND:OR A TERMINAL LU, A 
C     SURVEY MESSAGE IS MADE THEN IMPTM OVERLAYS ITSELF WITH TXTD2.  IN 
C     THE SEGMENT OVERLAY CALL IMPTM FORCE DEFINES THE OP CODE TO BE
C     VERIFY LINE IF JUST THE LINE LU IS KNOWN, OR VERIFY A TERMINAL
C     ON THE DEFINED LINE IF THE TERMINAL LU IS ALSO KNOWN. 
C     WHEN THE RUN STRING CONTAINS AN OP CODE FOR LINE VERIFY OR
C     TERMINAL VERIFY, TXTD1 MAKES THE SEGMENT LOAD CALL FOR TXTD2, 
C     WHICH EXECUTES THE PROCEDURE.  WHENEVER THE INTERACTIVE PROMPT
C     APPEARS AND THE OPERATOR ENTERS AN OP CODE AMONG THOSE EXECUTED 
C     BY TXTD2, TXTD3 MAKES THE SEGMENT OVERLAY CALL TO TRANSFER
C     CONTROL HERE. 
C     IPARM(2) = -1 ALL INTERACTIVE OPERATOR PROMPTS ARE INHIBITED, 
C     THE CODE COMPLETES IMMEDIATELY. 
C 
      COMMON IARAY(3),ILU(1),ILLU(1),INLU(1),ITLU(1),IXLU(1), 
     +IBUFR(128),IGRUP(30),IOFLN(30),IBUFV(60)
      DIMENSION IPARM(5),IOP(1),ICWORD(2),INAM1(3),INAM2(3) 
      DATA ICWORD/0,200B/ 
      DATA INAM1/2HTX,2HTD,2H3 /
      DATA INAM2/2HCF,2HTM,2HL /
C 
      CALL RMPAR(IPARM) 
      IOP = IPARM(1)
C     WRITE(ILLU,110)IPARM
110   FORMAT(5(2X"IPAR:",I2)) 
      ICWORD(1) = IOR(ILU,100000B)
20    IF(IOP.EQ.053124B) GO TO 201
      IF(IOP.EQ.044524B) GO TO 205
      IF(IOP.EQ.041506B) GO TO 207
      IF(IOP.EQ.053114B) GO TO 213
      IF(IOP.EQ.020040B) GO TO 900
C 
C   CHECK IN TXTD3 FOR NEXT OPERATION 
21    IOP = 0 
      CALL EXEC(8,INAM1,IOP)
C 
C  VT 
201   IXLU = IPARM(2) 
      CALL VMPTL(ILU,INLU,ILLU,ITLU,IARAY,IXLU) 
      IXLU = 0
      GO TO 30
C 
C 
C  IT 
205   IXLU = 0
      CALL UPMPT(ILU,INLU,ILLU,ITLU,-1,IXLU,IARAY)
      GO TO 21
C 
C  CF 
207   CALL EXEC(8,INAM2)
C 
C  VL 
213   IXLU = IPARM(2) 
      CALL VMPLN(ILU,INLU,ILLU,IARAY,IXLU)
      IXLU = 0
C 
C   WAS TXTD2 CALLED BY TXTD1 OR IMPTM ?  IPARM(2) WILL BE -1 
30    IF(IPARM(2)) 900,21 
C 
C   TXTD1 - DONE
900   CALL IMSG6(ILLU,0,0,0,IARAY,3,11) 
      END 
      END$
                                                                                                                                                                                                                    