Here We Go!
:Str1 //has to be under 24 characters(have solution) :DelVar B :For(C,1,length(Str1 :sub(Str1,C,1 :For(A,0,26 :Text(A,B,Ans :End :B+4→B :End
thats it and heres the solution for up there
:Repeat 24>length(Str1 :Input "Word: ",Str1 :End
but i have a full program with that
i am sure many people have used this, its just that many might want to refer to a TI|BD version