oh, I'm working on something alright...

I wanted to post some other (intermediate) solutions, but you didn't give me any time ;\)

 Code:
Your solution passed all tests

KiXtart
KiXtart Version  = 4.60
KiXGolf Script   = kixgolf_if.KIX

Computer
OS               = Windows Vista Business Edition
CPU              = Intel Pentium Model 15
Speed            = 2194 MHz
Memory           = 2038 MB

KiXGolf Scoring Engine
Scoring Engine   = 3.3

KiXtart Golf Score
Tournament       = Instruens Fabulam
Processing Start = 2008/12/30 21:39:41.499
Processing End   = 2008/12/30 21:39:41.530
Duration         = 0000/00/00 00:00:00.031
KiXGolf Score    = 401

Thank you for participating in KiXtart Golf!


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

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