Extra Characters?

I keep getting this error i was hoping and extra set of eyes might be able to tell me where the problem is.

errorInfo:

extra characters after close-brace

   while compiling

“while {Pos2 != ” “}{

          set Pos2 [string index $OBX5 $Pos1]

set Pos2[ expr $Pos1 – 1]

          puts $Pos2

}else {

}

set xlateOutVal…”

original code

lassign $xlateInVals OBX5

if {[string length $OBX5] > 80} {

set Pos1 80  

while {Pos2 != ” “}{

          set Pos2 [string index $OBX5 $Pos1]

set Pos2[ expr $Pos1 – 1]

          puts $Pos2}

}else {

}

set xlateOutVals