anchor.diff:        LNEW = LOLD + NREL
         NW = LQ(LTF+1) - LOLD
         IF (NW.EQ.0) GO TO 68
  -      CALL UCOPY (LQ(KQS+LOLD),LQ(KQS+LNEW),NW)
  +      CALL UCOPYI (LQ(KQS+LOLD),LQ(KQS+LNEW),NW)
      68 LTF = LTF + 4
         IF (LTF.NE.LQTE) GO TO 61
         GO TO 999
  
positive.code:      + KNWKEY=32,KKDES=33,KNSIZE=253,KEX=6,KNMAX=100)
        COMMON /MZIOC/ NWFOAV,NWFOTT,NWFODN,NWFORE,IFOCON(3)
       +, MFOSAV(2), JFOEND,JFOREP,JFOCUR,MFO(200)
        DIMENSION V(*)
        NL1=LREC-IP1+1
        IF(IPC.LE.NL1)THEN
           IRS=IR1
  
negative.code:       COMMON /QUEST/ IQUEST(100)
        DIMENSION LIST(9)
        JBIT(IZW,IZP)     = AND(ISHFTR(IZW,IZP-1),1)
        CALL VZEROI (IQUEST,100)
        CALL VZEROI (IQVID,18)
        CALL VZEROI (NQPHAS,15)
        NQBITW = IQBITW
        NQBITC = IQBITC
        NQCHAW = IQCHAW
  