After that nobody answered my question:
How can the text displayed faster?
- is there another way to edit text on multiple lines?
2nd problem is that this routine doesn't work sometimes.
I used:
If C=3 //C is the selected note
length(Str1 → A
If C=4
length(Str2 → A
If A>115 //5 times 23 characters (3pixel)
115 → A
0 → H
For(B,1,5
If H+23<A //23 characters in a line (3pixel)
Then
If C=3
Text(B*8+14,2,sub(Str1,H+1,H+23 //drawing text
If C=4
Text(B*8+14,2,sub(Str2,H+1,H+23
Else
If C=3
Text(B*8+14,2,sub(Str1,H+1,A //drawing last line text with less than 23 characters
If C=4
Text(B*8+14,2,sub(Str2,H+1,A
End
A-23 → A //characters left decreased
H+23 → H //lenght for start in the string increased
If A<0 //if there are no more characters break the loop
5 → B
End
Here is a screen:

EDIT: Inserted image — burr
Get futuristicOS 8 for your TI-84+
Learn more about futuristicOS 8