and 431:

 Code:
; begin KiXgolfUDF
;
;!
Function CIF($d, $l)
Dim $, $c, $i, $j, $p, $k, $o, $r, $t[($d^)-1], $z

	$z = @crlf
	$l = split($l,$z)
	
	For $k = 0 to 1
		$c='@' + join($t,'-') + '@'
		$r = $c + $z
		For $i = 0 to ubound($l)
			For $j = 0 to ($d^)-1
				$ = split($l[$i],'&')[$j]
				$o = substr($d,$j+1,1)
				$p = $t[$j]
				while ($p^)<($^)+2
					$p = $p + '-'
				Loop
				while ($p^)>($^)+2
					$ = ' ' + $ + ' '
					$ = iif( $o=">",left($,~),right( $,iif( $o="=",($p^)-2,~ ) ) )
				Loop
				$t[$j] = $p
				$r = $r + '| ' + $ + ' '
			Next
			$r = $r + '|'+$z
			if $i = 0
				$r = $r + '|' + join($t,'+') + '|' + $z
			endif
		Next
		$cif = $r + $c
EndFunction
;!
;!
; end KiXgolfUDF
_________________________
The Code is out there