No, it doesn't work. This is better:
Code:
Edit: And I see you edited your code. Oh well.
Code:
:Repeat Ans
:getKey:If Ans
:Disp sub("ABC??DEFGHIJKLMNOPQRSTUVWXYZθ .?",Ans-5iPart(.1Ans+4),1
:0:End
Edit: And I see you edited your code. Oh well.