function a($)
Dim $o
$o = Ro, Sp, Pa, Li, Sc

$a = (AScan($o, Left($,2)) + 5 - AScan($o, Left(Split($,",")[1],2))) mod 5

$a = IIf($a>2, 2, $a>0*1)

endfunction

function a($)
$a = Ro, Sp, Pa, Li, Sc

$a = (AScan($a, Left($,2)) + 5 - AScan($a, Left(Split($,",")[1],2))) mod 5

$a = IIf($a>2, 2, $a>0*1)
endfunction

function a($)
  dim $r
  $r=cai,aop,oic,ipa,pco 
  $a=substr($,instr($,",")+2,1)
  $=substr($,2,1)
  for each $r in $r
    if left($r,1)=$
      $a=2-(instr($r,$a)>1)-($=$a)*2
	;endif
  ;next
endfunction

function a($)
  $a = Ro, Sp, Pa, Li, Sc
  $a = (AScan($a, Left($,2)) + 5 - AScan($a, Left(Split($,",")[1],2))) mod 5
  $a = IIf($a>2, 2, $a>0)
endfunction

function a($)
  $a = Ro, Sp, Pa, Li, Sc
  $a = (AScan($a, Left($,2)) + 5 - AScan($a, Left(Split($,",")[1],2))) mod 5
  $a=($a>0) + ($a>2)
endfunction

function a($)

  $ = Split($, ',')
  $a = 0

  If $[0] <> $[1]
    $a = x,ai,op,ic,ap,co 
    $a = IIf(InStr($a[InStr(caoip, substr($[0],2,1))], substr($[1],2,1)),1,2)

endfunction

Private Round

Shane     130    5    1
Glenn     141    4    1
Allen     151    3    1


Public Round

Allen     120    5    1
Shane     125    4    1
Glenn     141    3    1

Shane - 43
Allen - 29
Glenn - 18

function a($)
    $a = (instr(cake,substr($,4,1)) + 5 - instr(cake,substr($,instr($,',')+4,1))) mod 5
    $a = $a - 2*($a>2)
endfunction