USGS InfoBank program -- htmltags

htmltags

  Program to identify HTML tags.

       

  Clint Steele     1/16/2002


    

          read (90, '(q,a)', end=99)
     *        ALineLength, ALine(1:ALineLength)

              write (91, '(a)') 'change: '//
     *            ALine(AnchorStart:AnchorEnd)
              write (91, '(a)') '    to: '//
     *            SmallLine(AnchorStart:AnchorEnd)

      call openem (1,-1)
                      call changecase 
     *                    ('SMALL', SmallLine(Letter:Letter))