FTN4      
      PROGRAM QUERY(3,90),92063-16011 REV.1940 771018 
C 
C 
C*************************************************************
C (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1976.  ALL RIGHTS    *
C RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *
C PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH-  *
C OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.  *
C*************************************************************
C 
C 
C     LISTING:   92063-19011
C     SOURCE:    92063-18011
C     RELOC:     92063-16011
C 
C 
C************************************************************ 
C 
      COMMON ITTY,ILP,IDCB(144),JDCB(144) 
      COMMON DBNAM,DSNAM,DINAM,SELECT,SNAM
      COMMON DSNUM,DINUM,INTIAL,IMA,IB,IEND,ISCAN 
      COMMON IPFLAG 
      COMMON IRRCNT 
C 
      COMMON S,R3,TRKNM,IDILU,R5
      COMMON R6 
      COMMON V
      COMMON STRA 
      COMMON STRC 
      COMMON STRD 
      COMMON P1,P2
      COMMON J1 
      COMMON KSORT(256) 
      COMMON T,U
      COMMON STRE,STRF,STRG,STRH,STRI 
      COMMON L,ATOTAL 
      COMMON ISELD,IRSE,IPTR
      COMMON RCOUNT,N 
C 
      INTEGER DBNAM(3),DSNAM(3),DINAM(3)
      INTEGER SELECT(3),SNAM(3) 
      INTEGER DSNUM,DINUM 
      DIMENSION IPRAM(5),IMA(36),IB(349)
      INTEGER V(8)
      INTEGER T(5)
      INTEGER U(7,5)
      INTEGER R3,S(6,100),R5,TRKNM
      INTEGER R6
      INTEGER STRA(37)
      INTEGER STRC(67)
      INTEGER STRD(37)
      INTEGER STRE(37)
      INTEGER STRF(37)
      INTEGER STRG(37)
      INTEGER STRH(37)
      INTEGER STRI(37)
      INTEGER P1,P2 
      DIMENSION L(6)
      INTEGER ATOTAL(60,5)
      DIMENSION ISELD(128)
      INTEGER RCOUNT
C 
      INTEGER SPACE 
      DIMENSION IMSG(15)
C 
      DATA SPACE/2H  /
C     CR/LF/LF/LF QUERY/1000 (X.Y) READY CR/LF/LF/LF
      DATA IMSG/6412B,5012B,2HQU,2HER,2HY/,2H10,2H00, 
     12H (,2H8.,2H2),2H R,2HEA,2HDY,6412B,5012B/
C 
      CALL RMPAR(IDCB)
      IF (IDCB.EQ.0) GOTO 5 
      ITTY=IDCB+400B
      GO TO 7 
5     ITTY=401B 
7     ILP =IDCB(2)
      IF (ILP.EQ.0) ILP=6 
      DO 10 I=1,3 
      DBNAM(I) = SPACE
      DSNAM(I) = SPACE
      DINAM(I) = SPACE
      SELECT(I) = SPACE 
   10 CONTINUE
      DSNUM = 0 
      DINUM = 0 
      IRRCNT = 0
      SNAM(1) = 2HQS
      SNAM(2) = SPACE 
      SNAM(3) = SPACE 
      CALL REIO(2,ITTY,IMSG,15) 
      INTIAL = 0
      CALL EXEC(8,SNAM) 
      CALL AIDCB
      END 
$ 
                                                          