Function a($,$b)
  Dim $c,$d
  
  For $c = -9 to 0
    While InStr($,-$c)
      $b=$b-1
      $d=Right($,-2)
      If -$c > $
        $=$d+_+Val($)
        If $b<0
          $b=($^)/2
        EndIf
      Else
        $=$d
        $a=$a+1
        If $b<0
          $c=0
;        EndIf
;      EndIf
;    Loop
;  Next
EndFunction