anchor.diff:              NS = NS - 1
             END IF
    1021     CONTINUE
  -          PRINT*,'FLUSHING STACK TO OPAR'
           END SELECT
   *
         CASE DEFAULT
  
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:  9001 FORMAT('0*** ERROR TOKEN: -->',A,'<--')
   9021 FORMAT(3(2X,I4),2X,A)
   9031 FORMAT('0***   STACKSIZE: ',I4)
   9041 FORMAT('0*** UNDEFINED VARIABLE: ',A)
   9101 FORMAT('0***      RESULT: ',E12.6)
   9999 STOP 'ERROR IN PARSE'
        END SUBROUTINE PARSE
  