anchor.diff:        CHARACTER*40 ifile,ofile,tag
         CHARACTER*240 arg
         INTEGER i,narg,j,opt,p,c,long
  -      ifile = 'none'
  +      ifile = 'stdin'
         ofile = 'none'
         opt = 0
         long = 0
  -      p = 0
  +      p = 1
         c = 0
         arg = 'none'
         narg = iargc()
  
positive.code:               endif
                goto 102
    101     continue
            close(11)
        else
            call getfmt(arg,ifmt)
            call rdarg(arg,ifmt,opt,long)
            call getans(ans,opt,long)
            write(*,*) trim(ans)
        endif
  C
        END
  
  C======================================================================C
  
negative.code: C----
        if (p.eq.0) open(unit=12,file=ofile,status='unknown')
        if (c.eq.0) then
            if (ifile.eq.'stdin') then
                u = 5
            else
                u = 11
                open(unit=u,file=ifile,status='old')
            endif
    102     read(u,'(A240)',end=101) arg
                call getfmt(arg,ifmt)
                call rdarg(arg,ifmt,opt,long)
                call getans(ans,opt,long)
  