to_upper_case.bf

,[
  >1  --[-->+<] >2 ----- <1 set 122 to 2 <0
  >>2 [-<<->>] sub 122 from char <<0
  >1 ++++++++++ ++++++++++ ++++++ set 26 cnt <0
  >1 [-
    <0   [->>+>+<<<] dup char 2&3 >1
    >>3  [-<<<+>>>] recov char to 0 <<1
    1    [->>+>+<<<] dup cnt 3&4
    >>>4 [-<<<+>>>] recov cnt <<<1
    2 is char; 3 is cnt
    >>3  [-<+>] dec cnt & inc char <<1
    >>3  [-]+ set flag <<1
    >2   [[-]>[-]<] reset flag if char is 0 <1
    >>3  [[-] if char is 0 (flag2 is set)
         <<<0 ---------- ---------- ----------
             -- >>>3 sub 32 from original char
         <<1 [-] stop cnt loop >>3
       ] <<1
  ] <0
  >1 --[--<+>] <0 ----- add 122 to char
  0 . print char
,] get new char