Re: How do you?

[Prev][Next][Index][Thread]

Re: How do you?

Code snippets - Not guaranteed to work perfectly, but probably will.


No lightbar (faster):


Disp "1) Clear y funcs","2) Clear all funcs","3) Exit"
Lbl CHK
getKy\->\K
if K==92
goto ONE
if K==93
goto TWO
if K==94
goto THREE
goto CHK


Lbl ONE
...
Lbl TWO
...
Lbl THREE
...


Adding the lightbar is a little tougher (and slows down the program a bit):
Disp ">1) Clear y funcs"," 2) Clear all funcs"," 3) Exit"
1->Sel


Lbl CHK


getKy\->\K


if K==25
Then
Output(Sel,1," "
mod(Sel+1,3)+1\->\Sel
Output(Sel,1,">"
End


if K==34
Then
Output(Sel,1," "
mod(Sel+3,3)+1\->\Sel
Output(Sel,1,">"
End


if K==105 and Sel==1
Goto ONE
if K==105 and Sel==2
Goto TWO
if K==105 and Sel==3
Goto THREE


if K==92
goto ONE
if K==93
goto TWO
if K==94
goto THREE


goto CHK


Lbl ONE
Lbl TWO
Lbl THREE




At 19:38 11/19/96 EST, Jonathan E Delfraisse wrote:
>How do you make a menu on the TI- 85?
>
>I would like this menu to look like a TI-82/83 menu......
>
>1. Clear y functions
>2. Clear all functions
>3. Exit
>
>Then the user hits 2 and hit does that!!!
>
>Jonathan Delfraisse
>
>
+--------------------------------------------------------+
| Peter Kolbus                           +1.810.474.0872 |
| ae607@detroit.freenet.org      #include <disclaimer.h> |
+--------------------------------------------------------+
| Due to financial difficulties, the light at the end of |
|   the tunnel has been permanently disconnected.        |
|                                                        |
| The packet goes out the card, into the copper, out     |
|   the router, onto the fiber, across the world, thru   |
|   the copper............       NOTHING BUT NET.        |
|                                                        |
| ***Written using 100% recycled electrons***            |
|         *** (80% post-consumer) ***                    |
+--------------------------------------------------------+
References: