Speeding up

Forum Attachments

Speeding up

Pirahnaplant 19 Jan 2009 22:33

How can I make this go faster?

:1→L
:Lbl ST
:ClrHome
:Disp "NAME:
:" "→Str1
:0→K
:1→P
:Repeat K=105 and length(Str1>1
:If L=1:Then
:Output(1,16,"A
:Else
:Output(1,16," "
:End
:Output(3,P,"^
:Repeat K=23 or K=31 or K=45 or K=105 or K>40 and K<103 and K≠95
 and K≠44 and L=1 or K> 61 and K<105 and K≠71 and K≠81 and K≠91 and L=0
:getkey→K
:End
:If K≠23 and K≠31 and K≠45 and K≠105 and P<15:Then
:If L=1
:sub("ABC       DEFGH     IJKLM     NOPQR     STUVW     XYZθ",Ans-40,1
:if L=0
:sub(",()/      789*      456-      123+      0.-",Ans-61,1
:Str1+Ans→Str1
:Output(3,P," "
:P+1→P
:End
:If K=23:Then
:Output(3,P," "
:max(1,P-1→P
:sub(str1,1,max(length(Str1)-1,1→Str1
:Output(2,P," "
:End
:If K=45
:Goto ST
:If K=31
:not(L→L
:End
:sub(Str1,2,length(Str1)-1→Str1

This allows users to enter text up to 14 characters.
L is the Alpha Lock
P is the Position of the ^
K is the Keypress

Last edited on 19 Jan 2009 22:34 by Pirahnaplant Show more

Re: Speeding up

burr 20 Jan 2009 02:00

Since the alpha lock can only be on or off, you can just use the L variable by itself in tests. This also allows you to remove some conditionals.

:1→L
:Lbl ST
:ClrHome
:Disp "NAME:
:" "→Str1
:0→K
:1→P
:Repeat K=105 and length(Str1>1
:Output(1,16," "
:If L
:Output(1,16,"A
:Output(3,P,"^
:Repeat K=23 or K=31 or K=45 or K=105 or K>40 and K<103 and K≠95
 and K≠44 and L=1 or K>61 and K<105 and K≠71 and K≠81 and K≠91 and not(L
:getKey→K
:End
:If K≠23 and K≠31 and K≠45 and K≠105 and P<15:Then
:sub("ABC       DEFGH     IJKLM     NOPQR     STUVW     XYZθ",Ans-40,1
:If not(L
:sub(",()/      789*      456-      123+      0.-",Ans-61,1
:Str1+Ans→Str1
:Output(3,P," "
:P+1→P
:End
:If K=23:Then
:Output(3,P," "
:max(1,P-1→P
:sub(str1,1,max(length(Str1)-1,1→Str1
:Output(2,P," "
:End
:If K=45
:Goto ST
:If K=31
:not(L→L
:End
:sub(Str1,2,length(Str1)-1→Str1

Re: Speeding up

jnesselr 20 Jan 2009 03:02

Burr, I thought you had left!! Glad to see ya!!!

Re: Speeding up

noahbaby94 20 Jan 2009 03:30

Does this mean your back?

---

Join Codeworld.
Also check out my blog.

Re: Speeding up

jnesselr 20 Jan 2009 04:06

If so, we should start another discussion welcoming him back.

Re: Speeding up

Timothy Foster 20 Jan 2009 13:32

You know, he could just be visiting and checking up on progress.

Hello, burr! :)

---

Timothy Foster - @tfAuroratide
Auroratide.com - Go here if you're nerdy like me

Re: Speeding up

(account deleted) 20 Jan 2009 12:33

:Repeat K=105 and length(Str1>1

have you tested this? an > (or something like that) does not function as as a new line or STO. I dont know what it does but i guess it should be

:Repeat K=105 and 1<length(Str1

i tested the program but it throws ERR:datatype at Ans when i press a button
but it maybe because i copied the code wrong.
tried again…
hmm,its that sub command.

sub(",()/      789*      456-      123+      0.-",Ans-61,1

itsays Ans-61,but what if Ans<61, you will have a negative start :/

but there are still a few other tiny optimize thingies.
like:
:" "→Str1
shoulde be :" →Str1
and::Output(1,16," "
should be :Output(1,16," ;but keep the space!
(this output appears three times in your code)

Re: Speeding up

Pirahnaplant 20 Jan 2009 21:59

I had only put those extra quotes on the spaces to make sure that it was clear that they were there.
In my actual program they are left out. Also The key is never going to be less than 61, because that is checked in the getkey loop.

Re: Speeding up

SpaceManiac 26 Jan 2009 02:40

In the getKey/Repeat loop, instead of using K in the conditional use Ans. From what I hear it takes less time to access the Ans variable than an ordinary one.