616:
 Code:
Function CIF($f, $)
  Dim $b,$d,$e[($f^)],$g,$h,$j,$k,$l,$o,$p,$s,$t,$u,$!
  $! = @CRLF
  $ = Split($, $!)
  $g = ($f ^) - 1
  For Each $b in $
    $b = Split($b, '&')
    For $d = 0 to $g
	  if $e[$d] < ($b[$d]^)
      $e[$d] = $b[$d]^0
	  endif
    Next
  Next
  For $d = 0 to $g
    $o = $o + $e[$d]
  Next
  $s = 1
  For Each $b in $
    For $d = 0 to $g
      $ = Split($b, '&')
      $h = SubStr($f,$d+1,1)
      $u = $[$d]
      For $j = 1 to $e[$d] +2
        $p = $p + '-'
      Next
      $j = $e[$d] - ($u^)
      If $s
        $p = $p + '+'
      EndIf
      For $k = 1 to $j /2
        $l = $l + ' '
      Next
      $ = IIf($j mod 2,' ','')
      $t = Join(Split($t+'| '+IIf($h<>'=',IIf($h='<',$u+$l+$l+$,$l+$l+$+$u),$l+$u+$l+$)+' |','||'),'|')
      $l = ''
    Next
    $t = $t + $! + IIf($s,'|' + Left($p, ~) + '|' + $!,'')
    $s = 0
  Next
  For $k = 1 to $o+3*($f^)-1
    $l = $l + '-'
;  Next
  $CIF = '@' + $l + '@' + $! + $t + '@' + $l + '@'
EndFunction
_________________________
!

download KiXnet