Qwerty type

[luby]

Well, do to a surge of interest I propose a new puzzle. Qwerty in basic. So more specifics:
Must work for the letters A-Z.
Anything on the bottom row must yield a space.
Displays the text on the graph screen as small, one after the other not inverted so you can see it.
[attachment=1948:attachment]
It also must wordwrap automatically.
All the text typed must be stored to a string
if you press Y=, it must backspace both what is displayed and what is in the string.
Exits when you press sto.

Since this is a lengthy program, I will set the bar at 247 bytes, my best attempt.

[BatBlaster]

Does this work on the 84 plus?

[TheStorm]

the challenge is to make it work on an 83+ or 84+ in the smallest size.

[Weregoose]

It (your program, should you desire to submit one to the challenge) should work on the 84+ simply as a consequence of its interoperability with the TI-83 Plus – as long as you don't plan on using clock functions to meet the challenge requirements. The purpose of this subforum is outlined here (marked, "read this first"), which you should have read first. Because of this and recent posts, I suggest slowing down and becoming aware of and accustomed to the environment you're in before acting on impulse, so that we don't end up having to explain things like this.

[DarkerLine]

Given that this is a rather lengthy teaser, I suggest we post our answers openly and try to optimize them, as it's slightly strenuous to write the whole thing yourself. This is my attempt (I think it's 219 bytes):

"(1 space)→Str1
DelVar R DelVar C ClrDraw
Repeat K=1
Repeat Ans
.1getKey
E2fPart(Ans)-int(Ans→K
End
If K>9:Then
If K<37:Then
sub("QWERTYUIOPASDFGHIJKLZXCVBNM",K-9,1
Else
"(1 space)
End
Text(R,C,Ans
Str1+Ans→Str1
C+4→C
If C=92:Then
DelVar C R+6→R
End
End
If K=9 and Str1≠"(1 space)
Then
sub(Str1,1,length(Str1)-1→Str1
If not(C:Then
92→C
R-6→R
End
C-4→C
Text(R,C,"(3 spaces)
End
End

[Weregoose]

">
ClrDraw
Repeat D=9.1
Ans→Str1
‾1+length(Ans→A
int(Ans/23→B
4A-92Ans→C
Text(6B,Ans,sub(Str1,A+1,1
Repeat Ans
.1getKey→D
End
10fPart(Ans)-3+3int(Ans
If iPart(2fPart(D
1
Str1+sub(" P??OL?IK?UJMYHNTGBRFVEDCWSXQAZ",Ans,1
If D<ln([font="times new roman"]π
Then
sub(Str1,1,max(A,1
Text(6B,C,"(3 spaces)
End
End

[luby]

WoW....

The awesomeness is dripping off my moniter. I'll be back with some paper towels....

I never expected it to drop below 200 bytes, let alone 177!!!

Nice Job Goose!

[adriweb]

[BatBlaster]

The txt to calc doesn't work well under wine.
Should I find another editor.

[Weregoose]

[BatBlaster]

I am on Linux. Know an editor that can do that on linux.