Cool. Tell us how it goes.
KermMartian wrote:
Optimizations:
>> While W=1 > While W
>> Remove outer grouping paren for A-(...+...)-->A
>> While W=1 > While W
>> Remove outer grouping paren for A-(...+...)-->A
I tried this, and the code didn't work. Those extra set keeps the calc from becoming confused I think...
I tried it on the star trek menu, going up would go up, but not stop at the limit, and it wouldn't go down. Adding the extra ( ) fixed it...
BASIC Code wrote:
:ClrHome
:ClrDraw
:AxesOff
:62
YMax
:0Ymin
:94Xmax
:0Xmin
:15A
:1W
:Horizontal(50
:Text(1,20,"WELCOME TO RWK
:Text(15,35,"START
:Text(30,35,"HELP
:Text(45,35,"QUIT
:While W
:Text(A,28,">
:getKeyK
:If K
:Text(A,28,"
:A-15(K=25)(A>15)+15(K=34)(A<45)A
:If K=105:Delvar W
:End
:If A=15:Goto
:If A=30:Goto H
:If A=45:Goto Q
Generated by SourceCoder, © 2005 Cemetech
:ClrDraw
:AxesOff
:62
YMax
:0
Ymin
:94
Xmax
:0
Xmin
:15
A
:1
W
:Horizontal(50
:Text(1,20,"WELCOME TO RWK
:Text(15,35,"START
:Text(30,35,"HELP
:Text(45,35,"QUIT
:While W
:Text(A,28,">
:getKey
K
:If K
:Text(A,28,"
:A-15(K=25)(A>15)+15(K=34)(A<45)
A
:If K=105:Delvar W
:End
:If A=15:Goto
:If A=30:Goto H
:If A=45:Goto Q
Generated by SourceCoder, © 2005 Cemetech
Register to Join the Conversation
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
Advertisement