anchor.diff:       +         sline)
                  call errms2(' limit of COMDECKs reached =',ndcomm)
                  call summup
  +               stop 1
               endif
               ndcomm=ndcomm+1
               do 20 ii=ndcomm,iposd+1,-1
  
positive.code:      +               ' ++++++ WARNING - user flag table full at:',
       +               nuflag)
                       iffull=1
                       goto 999
                    else
                       nuflag=nuflag+1
  
negative.code:                call errms2(
       +         ' ++++++ WARNING - deck table reset at limit =',nddeck)
                 nddeck=0
                 stop 1
              endif
              nddeck=nddeck+1
              sddeck(nddeck)=sname
  