anchor.diff:        PARAMETER (NCLS=5,   NRWS=135,   MTOK=128)
   *
         INTEGER    UNKN,      WHIT,      IDEN      
  -      PARAMETER (UNKN=0,    WHIT=101,  IDEN=201)
  +      PARAMETER (UNKN=0,    WHIT=101,  IDEN=200)
         INTEGER    INTG,      FLOT,       SCI,      SCIS,      NUMB
         PARAMETER (INTG=301,  FLOT=302,   SCI=303,  SCIS=304,  NUMB=300)
         INTEGER     POW,       MUL,       DIV,      FDIV,      MODU
  
positive.code:       PARAMETER (NCLS=5,   NRWS=135,   MTOK=128)
  *
        INTEGER    UNKN,      WHIT,      IDEN      
        PARAMETER (UNKN=0,    WHIT=101,  IDEN=201)
        INTEGER    INTG,      FLOT,       SCI,      SCIS,      NUMB
        PARAMETER (INTG=301,  FLOT=302,   SCI=303,  SCIS=304,  NUMB=300)
        INTEGER     POW,       MUL,       DIV,      FDIV,      MODU
  
negative.code:             NS = NS - 1
            END IF
   1021     CONTINUE
          END SELECT
  *
        CASE DEFAULT
  