anchor.diff:            NQIOCH(1) = LQ(KQS+IQLN)
             GO TO 49
           ELSE
  -          CALL UCOPY (LQ(KQS+IQLN),NQIOCH,NQNIO+1)
  +          CALL UCOPYI (LQ(KQS+IQLN),NQIOCH,NQNIO+1)
             NQIOSV(1) = 0
             GO TO 49
           ENDIF
  
positive.code:       IF (JBIAS.NE.63)  THEN
            NQBIA = JBIAS
            NIO   = JBYT (NAME(5),12,4)
            CALL UCOPY (NAME,NQID,NIO+5)
            IF (NIO.NE.0)  NQIOSV(1)=0
          ENDIF
        JDV   = IXDIV(1)
  
negative.code:    41 NQOFFT(JQSTOR+1) = KQT
        NQOFFS(JQSTOR+1) = KQS
        NQALLO(JQSTOR+1) = IFLSPL
        CALL VZEROI (IQTABV(KQT+1),NQTSYS)
        CALL VBLANK (IQDN1(KQT+1), 40)
        NQSTOR = NQSTOR + 1
        LQ(KQS+NDATA-1) = IQNIL
  