anchor.diff:        LOGQ   = IQUEST(1)
         IFLSPL = IQUEST(2)
         JQSTOR = NQSTOR + 1
  -      CALL VZERO (KQT,27)
  +      CALL VZEROI (KQT,27)
         LQSTOR = LOCF(LV(1)) - 1
         KQS    = LQSTOR - LQASTO
         NFEND  = (LQSTOR+1) - LOCF(IFENCE(1))
  
positive.code:    44 CONTINUE
     47 CONTINUE
     61 IQ(KQS+LSYS+1) = NWTAB + 5
        CALL VZERO (LAREA,NL)
    999 NQTRAC = NQTRAC - 2
        RETURN
     94 NQCASE = 1
  
negative.code:       IF (IFLAG.NE.1) GO TO 42
        IF ((NQRESV.GE.INCTT).AND.(NQRESV.LT.INCND)) GO TO 42
        LNN = LN - INCNL
        CALL UCOPYI (NQIOCH,LQ(KQS+LNN),NQNIO+1)
        IQ(KQS+LORG-3) = NQNL
        IQ(KQS+LORG-2) = NQNS
        NWD = -INCNL
  