Function CIF($a, $l)
Dim $b, $c, $d, $f, $i, $j, $k, $n, $t[$a^0], $,$z;
        $z=@crlf
	$l = split($l,$z)

	for $i = 0 to 79
		$f = $f + ' '
		$d = $d + '-'
	next

	for each $i in $l
		$k = split($i,'&')
		for $j = 1 to $a^0
			$c = len($k[$j-1])
			if $c>$t[$j]
				$t[$j]=$c
			endif
		next
	next

	for each $i in $l
		for $j = 1 to $a^0
			$k = substr($a,$j,1)

			$c = instr($i+'&','&')
			$n = left($i,$c-1)
			$i = substr($i,$c+1)

			$c = $t[$j]

			$ = $ + '| ' + iif($k='<',left($n + $f,$c),iif($k='>',right($f + $n,$c),left(left($f,($c-($n^))/2) + $n + $f,$c))) + ' '

		next
		$ = $ + '|' + $z
		if $b=0
			$b = '@' + left($d,($^)-4) + '@'
			$ =  $b  + $z + $ + '|'
			for $k = 1 to $a^0
				$ = $ + left($d,$t[$k]+2) + '+'
			next
			$ = left($,($^)-1) + '|' + $z
		endif
		$cif = $ + $b

EndFunction