anchor.diff:        LNZ = LQ(KQS+LNZ)
         GO TO 35
      36 LN = LORG - NL - NQNIO - 1
  -      CALL UCOPY (LQ(KQS+LN),NQIOCH,NQNIO+1)
  +      CALL UCOPYI (LQ(KQS+LN),NQIOCH,NQNIO+1)
         IF (NQNIO.NE.0) NQIOSV(1)=0
         NQIOCH(1) = MSBYT (NQNL+NQNIO+12,NQIOCH(1),1,16)
      41 LE = LORG + ND + 9
  
positive.code:                        CALL UCOPY2(IQ(KQSP+LRIN+1),IQ(KQSP+LRIN+2),LREC)
                         IQ(KQSP+LRIN+1)=IDOUB1
                         NWFOAV=NL+1
                         CALL FZICV(IQ(KQSP+LRIN+1),V)
                         CALL UCOPY2(IQ(KQSP+LRIN+2),IQ(KQSP+LRIN+1),LREC)
                       ELSE
                         NWFOAV=NL
                         CALL FZICV(IQ(KQSP+LRIN+1),V)
                       ENDIF
                       IF(NWFOAV.GT.0.OR.IFOCON(1).LT.0)GO TO 95
                       IF(NWFOAV.LT.0)IDOUB1=IQ(KQSP+LRIN+NL)
                       IQUEST(1)=0
                    ELSE
                       CALL UCOPY(IQ(KQSP+LRIN+1),V(NP1+1),NL)
                    ENDIF
                    IQ(KQSP+LTOP+KIRIN)=IRIN
                 ELSE
  
negative.code:       IF(IOPTC.NE.0.AND.IOPTD.EQ.0)GO TO 99
        IDTIME=IQUEST(14)
        IDNW  =IQUEST(12)
        IF(IOPTS.NE.0)CALL UCOPYI(IQUEST(20),IQKS,10)
        IF(IOPTN.NE.0)THEN
           IF(IOPTD.EQ.0)GO TO 99
           CALL UCOPYI(IQUEST(41),IQK,10)
        ENDIF
        LBANK=0
        IF(LSUP(1).NE.0)THEN
  