alias checkhtmltags {
  var %i = 1
  var %lines = $lines(D:\XAMPP\xampplite\htdocs\rips\index.php)
  while (%i <= %lines) {
    var %line = $read(D:\XAMPP\xampplite\htdocs\rips\index.php, %i)
    var %x = 1
    var %tags = $numtok(%line,60)
    while (%x <= %tags) {
      var %tag = $gettok(%line,%x,60)
      var %tag = $gettok(%tag,1,62)
      var %tag = < $+ $gettok(%tag,1,32)
      if ($read(D:\XAMPP\validhtmltags.txt,w,%tag $+ *)) {
        if ($left(%tag,2) == </) {
          var %tag = $remove(%tag,</)
          writeini D:\XAMPP\checktags.ini %tag close $calc($readini(D:\XAMPP\checktags.ini,%tag,close)+1)
        }
        else {
          var %tag = $remove(%tag,<)
          writeini D:\XAMPP\checktags.ini %tag open $calc($readini(D:\XAMPP\checktags.ini,%tag,close)+1)
        }
      }
      inc %x
    }
    inc %i
  }
  var %initopics = $ini(D:\XAMPP\checktags.ini,0)
  var %i = 1
  while (%i <= %initopics ) {
    var %tag = $ini(D:\XAMPP\checktags.ini,%i)
    if ($readini(D:\XAMPP\checktags.ini,%tag,open) != $readini(D:\XAMPP\checktags.ini,%tag,close)) {
      echo -s PROBLEM FOUND! Too many opens on tag < $+ %tag $+ >
    }
    inc %i
  }
}