toUpper(ch)
    S ch=$TR(ch,"a","A")
    S ch=$TR(ch,"b","B")
    S ch=$TR(ch,"c","C")
    S ch=$TR(ch,"d","D")
    S ch=$TR(ch,"e","E")
    S ch=$TR(ch,"f","F")
    S ch=$TR(ch,"g","G")
    S ch=$TR(ch,"h","H")
    S ch=$TR(ch,"i","I")
    S ch=$TR(ch,"j","J")
    S ch=$TR(ch,"k","K")
    S ch=$TR(ch,"l","L")
    S ch=$TR(ch,"m","M")
    S ch=$TR(ch,"n","N")
    S ch=$TR(ch,"o","O")
    S ch=$TR(ch,"p","P")
    S ch=$TR(ch,"q","Q")
    S ch=$TR(ch,"r","R")
    S ch=$TR(ch,"s","S")
    S ch=$TR(ch,"t","T")
    S ch=$TR(ch,"u","U")
    S ch=$TR(ch,"v","V")
    S ch=$TR(ch,"w","W")
    S ch=$TR(ch,"x","X")
    S ch=$TR(ch,"y","Y")
    S ch=$TR(ch,"z","Z")

    S ch=$TR(ch,"á","Á")
    S ch=$TR(ch,"ě","Ě")
    S ch=$TR(ch,"é","É")
    S ch=$TR(ch,"č","Č")
    S ch=$TR(ch,"ď","Ď")
    S ch=$TR(ch,"ň","Ň")
    S ch=$TR(ch,"ř","Ř")
    S ch=$TR(ch,"š","Š")
    S ch=$TR(ch,"ť","Ť")
    S ch=$TR(ch,"í","Í")
    S ch=$TR(ch,"ú","Ú")
    S ch=$TR(ch,"ů","Ů")
    S ch=$TR(ch,"ý","Ý")
    S ch=$TR(ch,"ž","Ž")

    S ch=$TR(ch,"ö","Ö")
    S ch=$TR(ch,"ü","Ü")

    Q ch

zredukováno na

toUpper(ch)
    S lower="aáäbcčdďeéěëfghiíjklľĺmnňoóöôpqrřŕsštťuúůüvwxyýzž"
    S upper="AÁÄBCČDĎEÉĚËFGHIÍJKLĽĹMNŇOÓÖÔPQRŘŔSŠTŤUÚŮÜVWXYÝZŽ"
    S ch=$TR(ch,lower,upper)
    Q ch