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