anchor.diff:        PARAMETER ( ADD=406,   SUB=407,  OPER=400)
         INTEGER     GRP,      OGRP,      CGRP,      OPAR,      CPAR
         PARAMETER ( GRP=500,  OGRP=510,  CGRP=520,  OPAR=511,  CPAR=521)
  +      INTEGER    FUNC
  +      PARAMETER (FUNC=600)
   *
         INTEGER     ERR,       NEW,      PUSH,      FLSH
         PARAMETER ( ERR=0,     NEW=101,  PUSH=102,  FLSH=103)
  
positive.code:       DO 1001 I=1,NTOK
        SELECT CASE(100*(TOKLST(1,I)/100))
  *
        CASE (NUMB)
          NQ = NQ + 1
          Q(1,NQ) = TOKLST(1,I)
          Q(2,NQ) = TOKLST(2,I)
  
negative.code:       PARAMETER ( ADD=406,   SUB=407,  OPER=400)
        INTEGER     GRP,      OGRP,      CGRP,      OPAR,      CPAR
        PARAMETER ( GRP=500,  OGRP=510,  CGRP=520,  OPAR=511,  CPAR=521)
        INTEGER    FUNC
        PARAMETER (FUNC=600)
  *
        INTEGER     ERR,       NEW,      PUSH,      FLSH
        PARAMETER ( ERR=0,     NEW=101,  PUSH=102,  FLSH=103)
  