Disp "TITLE Output(2,2,Str1 [And so on.]

:ClrHome :Output(1,1,Ans :16{^-1}length(Ans :If fPart(Ans :1+iPart(Ans :min({8,Ans→D :2→X :Ans→Y :While 1 :Output(X,2," :Output(Y,2,"> :Repeat Ans :getKey→A :End :If max(Ans={21,105,26 :Then :Y-1→X :ClrHome :Output(1,1," :Return :End :Y→X :Ans-(A=25)+(A=34→Y :2(Y>D)+D(Y<2 :If Ans :Ans→Y :End

EDIT: There are some optimizations to do… Done.
EDIT EDIT: Even more optimizations… Done. And 1 last error check, so 161 bytes.

:"Title,option 1,option 2,option 3 :PrgmMENU42

for however many options you want, each simply seperated by a comma.
Once an option is chosen, the menu exits and the option number that was chosen is stored in Ans
The scrolling is a little slow (it'd be so much better if I were allowed to use Pics!)

If you're interested, here is a Download

Variables used: Str1, LQ, and variables O, P, Q, R, S, T, and U

And then the number of the option picked is given as Ans once the menu is done, so you're free to do what you like with it. I'm almost done, only a buttload of optimizing to do!

And yeah. I guess I wouldn't really mind Gotos but I never use them since nobody likes them and they're supposed to be bad.

up to 8 items, or for title, up to 7

Using Disp to display eight items doesn't work because when you display on the eighth line it shifts everything up one line as the following shows:

For(A,1,12
disp A
end

It has to allow you to easily select options and customize the result of each option from the 'Exec' function in the program menu.

Sorry, I missed that part >_<

:1→B
:While 1
:If B=1:Str1
:If B=2:Str2
:If B=3:Str3
:If B=A:StrA
:ClrHome
:Output(1,1,Ans
:16ֿ¹length(Ans // inverse character
:If fPart(Ans
:1+iPart(Ans
:Ans→D
:2→X
:Ans→Y
:Repeat max(C={21,24,26
:Output(X,2," "
:Output(Y,2,">
:getKey→C
:Y→X
:Ans-(C=25)+(C=34
:2(Ans>D)+D(Ans≤1)+Ans(Ans≤D and Ans>1→Y
:max(1,min(A,B+(C=26)-(C=24→B
:End
:If C≠21
:End
:DS<(X,X:

Repeat Ans=105 Output(X,2,"* Repeat Ans getKey End Output(X,2,":" If Ans=25 and X>1+(L<0 X-1→X If Ans=25 and X=1+(L<0 abs(L→X If Ans=34 and X<abs(L X+1→X If Ans=34 and X=abs(L 1+(L<0→X If iPart(.1Ans)≥7 and Ans≤94 and max(10fPart(.1Ans)={2,3,4 Then 3(9-iPart(.1Ans))-1+10fPart(.1Ans If L>0 or ((L<0)(L≠1)(Ans+1≤abs(L Then Ans+(L<0→X Return End End End

ClrHome Disp "1:Item1","2:Item2","n:ItemN"

up to 8 items, or for title:

ClrHome Disp "Title","1:Item1","n:ItemN"

up to 7. It is kind of tedious to type the number before each item manually in a program but for my use it is easier to do than to use string variables.
After displaying the items, X is used to select the default highlighted item (usually 1, or 2 if a title is included) and L is used to define the number of items (negative if there is a title). I'll give an actual example:

Disp "FunPak","1:Games","2:Toys","3:ASM prgms","4:Settings","5:HELP?","6:End" 2→X -7→L prgmS1

*S1 is the name I used for the menu program.

So there are only 2 variables to keep up with, both real, and the selected item is returned into the variable X after a selection has been made. It is a little less than 294 bytes large (the version I use has the number inverted like a normal menu instead of a star placed next to it) so it is small and efficient.

ClrHome 2->Y Disp "Menu Name Output(2,2,Str1 Output(2,3,Str2 Output(2,4,Str3 Output(2,5,Str4 Output(2,6,Str5 Output(2,7,Str6 Output(2,8,Str7 While 1 Output(Y,1,"{ If Y=2 lengh(Str1)->A [And so on...] A+2->A Output(Y,A,"} getkey->K If K[does not =]0 ClrHome If K=25 and Y>2 Y-1->Y If K=34 and Y<8 Y+1->Y If K=21 and Y=2:Goto 1 If K=21 and Y=3:Goto 2 If K=21 and Y=4:Goto 3 If K=21 and Y=5:Goto 4 If K=21 and Y=6:Goto 5 If K=21 and Y=7:Goto 6 End