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