Someone

alias reknajoins {
  var %file = $sfile(c:,välj log,oki!)
  var %i = 1
  var %joins = 0
  var %joinstot = 0
  while (%i <= $lines(%file)) {
    if (join isin $read(%file,%i)) && ($chr(60) !isin $read(%file,%i)) {
      inc %joins
      if (%joins > %joinstot) { var %joinstot = %joins | var %linez0r = $read(%file,%i) | var %i2 = %i }
    }
    else {
      var %joins = 0 
    }
    inc %i
  }
  echo -a Flest joins i rad: %joinstot (Rad $chr(35) $+ $calc(%i2 - %joinstot + 1) $+ - $+ %i2 $+ : %linez0r $+ )
}