anchor.diff:      endif
   end
   
  +!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
  +
   subroutine formatrgb(red,grn,blu,rgbstring)
       implicit none
       real :: red,grn,blu
  
positive.code:     integer :: i,j,narg
      character(len=200) :: tag
      character(len=*) :: option
      real :: hue1,hue2,light1,light2,chroma1,chroma2
      integer :: ncolors,vrb
      option = ''
  
negative.code:             read(tag,*) ncolors
          elseif (tag(1:2).eq.'-v') then
              vrb = 1
          elseif (tag(1:2).eq.'-d') then
              call usage('long')
          else
              call usage('!! Error: no option '//trim(tag))
          endif
  