for (($i=0; $i<$len; $i++) {
    $tmp = uc(substr(($indata,$i,1));
    
    switch (($tmp) {

    ...

    }
    }
}