; begin WWD
;
;!
function a($)
  ; $  - Array of source data, WWD Value of Current String
  ; $A - Function Return Value
  ; $C - Character being evaluated
  ; $I - Index Pointer
  ; $L - Length of current string
  ; $P - Char Pointer
  ; $V - Current String
  ; $X - WWD Winning String
  ; $Y - WWD Winning Value
  ; $Z - Win/Draw text
  Dim $C,$I,$L,$P,$V,$X,$Y,$Z

  $X = 0
  $Y = 99					; init LOW value
  For Each $V In Split($, ',')			; process each value in list
    $L = Len($V)				; get length
    $ = 0					; Init WWD value of current string
    For $P = 1 to $L				; enumerate the string parts
      $C = Asc(SubStr(UCase($V), $P, 1)) - 48	; get ASCII value
      $ = $ + IIf($C < 10, $C, $C - 16)		; set index value & add to prior
    Next

    While $ > 9					; process multi-digit values
      $I = IIf($ > 109, 1, 0)			; middle digit?
     ; $I = IIf($ > 109, Val(SubStr($,2,1)),0)
      $ = $I + Left($,1) + Right($,1)
    Loop

    $A = $A + $V + '=' + $ + ', '		; Create output string

; Process the current value and determine the WWD status
    $I = Len($X)
    If $ < $Y					; Is current WWD < prior WWD?
      $X = $V					; set current winning string
      $Y = $					; set current winning value
      $Z = 'Winner='
    Else
      If $ = $Y
        If $I = $L
          $X = ''
          $Y = $
          $Z=Draw
        Else
          If $I < $L
            $X = $V				; set current winning string
            $Y = $				; set current winning value
            $Z = 'Winner='
          EndIf
        EndIf
      EndIf
    EndIf
  Next
$A = $A + $Z + $X				; Create output string
;$A ? ?
endfunction
;!
;!
; end WWD