/rb {
  set %texttosay $null
  set %strippedtxt $strip($1-)
  var %i = 1

  if ((%startcolr > 6) || (%startcolr < 0)) {
    set %rcolr 0
    set %startcolr 0
    inc %startcolr
  }
  else {
    set %rcolr %startcolr
    inc %startcolr
  }

  while (%i <= $len(%strippedtxt)) {

    if (%rcolr == 0) {
      set %texttosay $+(%texttosay,4,$chr(44),01)
    }
    else if (%rcolr == 1) {
      set %texttosay $+(%texttosay,7,$chr(44),01)
    }
    else if (%rcolr == 2) {
      set %texttosay $+(%texttosay,8,$chr(44),01)
    }
    else if (%rcolr == 3) {
      set %texttosay $+(%texttosay,9,$chr(44),01)
    }
    else if (%rcolr == 4) {
      set %texttosay $+(%texttosay,11,$chr(44),01)
    }
    else if (%rcolr == 5) {
      set %texttosay $+(%texttosay,12,$chr(44),01)
    }
    else if (%rcolr == 6) {
      set %texttosay $+(%texttosay,13,$chr(44),01)
      set %rcolr -1
    }

    if ($mid(%strippedtxt,%i,1) == $chr(32)) {
      set %texttosay $+(%texttosay,$upper($mid(%strippedtxt,%i,2)))
      inc %i
    }
    else {    
      set %texttosay $+(%texttosay,$upper($mid(%strippedtxt,%i,1)))
    }

    inc %rcolr
    inc %i
  }
  say %texttosay
}