; begin BOB
;
;!

function a($)
   Dim $0, $1, $2, $3
   $0 = " bottle of beer"
   $1 = " bottles of beer"
   $2 = " on the wall"
   $3 = ". Take one down and pass it around, "
   If $ > 1
      $a = l($) + $1 + $2 + ", " + LCase(l($)) + $1 + $3 + LCase(l(-1+$)) + IIf($=2, $0, $1) +$2+ "."
   Else
      $a = IIf($=1, l(1)+$0+$2+", one"+$0+$3+"no more"+$1+$2+".", "No more"+$1+$2+", no more"+$1+". Go to the store and buy some more, ninety-nine"+$1+$2+".")
endfunction

function l($)
   Dim $t
   $t = '',One,Two,Three,Four,Five,Six,Seven,Eight,Nine,Ten,Eleven,Twelve,Thirteen,Fourteen,Fifteen,Sixteen,Seventeen,Eighteen,Nineteen,Twenty,Thirty,Forty,Fifty,Sixty,Seventy,Eighty,Ninety
   If 20 > $
      $l = $t[$]
   Else
      $l = IIf($ mod 10, $t[1*$/10+18]+"-"+lcase($t[$ mod 10]), $t[1*$/10+18])
endfunction

;!
;!
; end BOB

function a($)
  Dim $b
  if $+0=$
    $b="no more",one,two,three,four,five,six,seven,eight,nine,ten,eleven,twelve,thir,four,fif,six,seven,eigh,nine,twen,thir,"for",fif,six,seven,eigh,nine
    if $<20
      $a=$b[$]
      if $>12
        $a=$a+teen
      endif
    else
      $a=$b[18+$/10]+ty
      if $ mod 10
        $a=$a + "-" + $b[$ mod 10]
      endif
    endif
    $a = $a + ' bottle' + IIf($ = 1, @, s) + ' of beer'
  else
    $ = 1 * $
    $b = ' on the wall'
    $a = chr(asc(a($))-32) + Right(a($), ~) + $b + ', ' + a($) + ". "
    If $
      $a = $a + 'Take one down and pass it around, ' + a($-1) + $b + "."
    Else
      $a = $a + 'Go to the store and buy some more, ' + a(99) + $b + "."
endfunction

 
function a($)
  Dim $b
  if $+0=$
    $b="no more",one,two,three,four,five,six,seven,eight,nine,ten,eleven,twelve,thir,four,fif,six,seven,eigh,nine,twen,thir,"for",fif,six,seven,eigh,nine
    if $<20
      $a=$b[$] + iif($>12,teen,@)
    else
      $a=$b[18+$/10]+ty
      if $ mod 10
        $a=$a + "-" + $b[$ mod 10]
      endif
    endif
    $a = $a + ' bottle' + IIf($ = 1, @, s) + ' of beer'
  else
    $ = 1 * $
    $b = ' on the wall'
    $a = chr(asc(a($))-32) + Right(a($), ~) + $b + ', ' + a($) + ". "
    If $
      $a = $a + 'Take one down and pass it around, ' + a($-1) + $b + "."
    Else
      $a = $a + 'Go to the store and buy some more, ' + a(99) + $b + "."
endfunction

function a($)
  Dim $b
  if $+0=$
    $b="no more",one,two,three,four,five,six,seven,eight,nine,ten,eleven,twelve,thir,four,fif,six,seven,eigh,nine,twen,thir,"for",fif,six,seven,eigh,nine
    if $<20
	  $a=$b[$] + iif($>12,teen,@)
    else
	  $a=$b[18+$/10]+ty + iif($ mod 10,"-" + $b[$ mod 10],@)
    endif
    $a = $a+' bottle'+IIf($=1,@,s)+' of beer'	
    
  else
    $ = 1 * $
    $b = ' on the wall'
    $a = chr(asc(a($))-32) + Right(a($), ~) + $b + ', ' + a($) + ". "
    If $
      $a = $a + 'Take one down and pass it around, ' + a($-1) + $b + "."
    Else
      $a = $a + 'Go to the store and buy some more, ' + a(99) + $b + "."
endfunction

Private Round

Allen    559    5    1
Glenn    568    4    1
Shane    660    3    1

Public Round

Allen    506    5    1
Shane    514    4    1
Glenn    571    3    1    *Glenn has posted a code gaining 3 strokes in comparison to his private round score, dunno what to make with that :/

Shane - 32
Allen - 18
Glenn -  9

function a($)
  Dim $b
  if $+0=$
    $b="no more",one,two,three,four,five,six,seven,eight,nine,ten,eleven,twelve,thir,four,fif,six,seven,eigh,nine,twen,thir,"for"
    if $<20
      $a=$b[$] + iif($>12,teen,@)
    else
      $a= $b[18+$/10-($>49)*8] + ty + iif($ mod 10,"-" + $b[$ mod 10],@)
    endif     
    $a = $a + ' bottle' + left(s,$^1) + ' of beer'  
  else  
    $ = 1 * $
    $b = ' on the wall'
    $a = chr(asc(a($))-32) + Right(a($), ~) + $b + ', ' + a($) + ". "
    If $
      $a = $a + 'Take one down and pass it around, ' + a($-1) + $b + "."
    Else
      $a = $a + 'Go to the store and buy some more, ' + a(99) + $b + "."
endfunction

left(s,$^1)