Help with custom text input routine

Forum Attachments

Summary:

The one on the wiki page has a syntax error

Help with custom text input routine

wchill 30 Sep 2009 23:53

All right so I wanted to use this (http://tibasicdev.wikidot.com/custominput - the advanced editing functionality one)

:"ABC  abc  DEFGHdefghIJKLMijklmNOPQRnopqrSTUVWstuvwXYZ(Theta)!xyz(Theta).  :?   :? →Str0
:"  →Str1   // 2 spaces in quotes
:DelVar M1→P
:Repeat K=105 and 2<length(Str1
:Text(0,0,sub(Str1,1,length(Str1)-P)+"|"+sub(Str1,1,length(Str1)-P+1,P)+"        // 5 spaces after quote
:Repeat Ans
:getKey→K:End
:P-(K=26 and Z>1)+(K=24 and Z<length(Str1)-1→P
:M xor K=31→M
:If K>40 and K<105 and K≠44 and K≠45
:sub(Str1,1,length(Str1)-P)+sub(Str0,K-40+5M,1)+sub(Str1,1,length(Str1)-P+1,P→Str1
:If K=23 and P<length(Str1)-1
:sub(Str1,1,length(Str1)-P-1)+sub(Str1,length(Str1)-P+1,P→Str1
:If K=45:Then
:"  →Str1   // 2 spaces in quotes
:1→P
:End
:End
:sub(Str1,2,length(Str1)-2→Str1

Now, I wanted to make it use only numbers. So I modified it a bit, as best as I could.

"789          456          123      0üStr0
"  üStr1 //2 spaces in quotes
DelVar M
1üP
Repeat K=105 and 2<length(Str1
Text(13,36,sub(Str1,1,length(Str1)-P)+"]"+sub(Str1,length(Str1)-P+1,P+"     //5 spaces in quotes
Repeat Ans
getKeyüK:End
P-(K=26 and Z>1)+(K=24 and Z<length(Str1)-1üP
If K>71 and K<103 and Kø75 and Kø81 and Kø85 and Kø91 and Kø95
sub(Str1,1,length(Str1)-P)+sub(Str0,K-71,1)+sub(Str1,length(Str1)-P+1,PüStr1
If K=23 and P<length(Str1)-1
sub(Str1,1,length(Str1)-P-1)+sub(Str1,length(Str1)-P+1,PüStr1
If K=45:Then
"  üStr1 //2 spaces in quotes
1üP
End
End
sub(Str1,2,length(Str1)-2üStr1

(the u characters are ->)

So 3 of the sub( commands have an extra argument, causing ERR: ARGUMENT.
How should I solve this? I only have a limited knowledge of TI-Basic.

Re: Help with custom text input routine

Zaphod Beeblebrox 01 Oct 2009 00:46

The line:

Text(13,36, ... ,length(Str1)-P+1,P+"     //5 spaces in quotes

Should become:

Text(13,36, ... ,length(Str1)-P+1,P)+"      //5 spaces in quotes

Re: Help with custom text input routine

wchill 01 Oct 2009 02:20

Okay, forgot about that, but that isn't the problem.

Text(13,36,…+sub(Str1,1,length(Str1)-P+1,P)+" //5 spaces in quotes (original code)

I count 4 arguments, Str1, 1, length(Str1)-P+1, and P. sub( only calls for 3.

Re: Help with custom text input routine

Zaphod Beeblebrox 01 Oct 2009 11:15

Yes, you are correct I made a mistake when typing the routine into that page. The correct code should be:

Text(...+sub(Str1,length(Str1)-P+1,P)+"     // 5 spaces

I will go change the page now. Thank you for pointing this out!