Zeichenkette in Großbuchstaben umwandeln

PUB strtoupper (strAddr) | i
{{ sets all characters in string to uppercase. }}
  bytefill(@ostr, 0, STR_MAX_LENGTH)    
                             
  REPEAT i FROM 0 TO strsize(strAddr)
    IF (byte[strAddr + i] => 97 AND byte[strAddr + i] =< 122)  ' if byte is in the lowercase range, subtract 32 from byte
      ostr[i] += byte[strAddr + i] - 32
    ELSE                                     
      ostr[i] += byte[strAddr + i]
                                  
  return @ostr