How to get this kind of color background, with this menu item colors

[QB64Curious]

Hi,

I'm playing with the Multi-column text menu at

http://brisray.com/qbasic/qmenu.htm

, in 4.5

I changed a few things, and experimented with colors, but I don't understand them well enough.  How would we change the menus and background to the following:

background blue
menu items = white
selected menu item is blue, but with a white background, only on the selected item.

The goal is to make it into a scrolling horizontal menu with a message bar, and to convert the DATA statements to an array.  But right now I just want to play with the colors and the widths of the menu items.

Code: QB64: [Select]

1. 'Menucol.bas    Ray Thomas      January 2002
2. 'Modified 01/29/2022
3.  
4. OPTION BASE 1
5.  
6. DIM MenuItem(60) AS STRING * 15 'Define the menu item array
7. DIM ChooseItem AS INTEGER       'Currently chosen menu item
8. DIM XMenuPosn AS INTEGER        'Controls the menu item X positions
9. DIM YMenuPosn AS INTEGER        'Controls the menu item Y positions
10. DIM Count AS INTEGER            'Array counter
11. DIM MenuLine AS INTEGER         'Number of menu items per line
12. DIM Temp AS STRING              'Used to centre text in the space
13.  
14. DATA Choice 1, Choice 2, Longer Choice 3, Choice 4, Longer Choice 5
15. DATA Choice 6, Choice 7, Choice 8, Choice 9, Choice 10
16. DATA Choice 11, Choice 12, Choice 13, Choice 14, Choice 15
17. DATA Choice 16, Choice 17, Choice 18, Choice 19, Choice 20
18. DATA Choice 21, Choice 22, Choice 23, Choice 24, Choice 25
19. DATA Choice 26, Choice 27, Choice 28, Choice 29, Choice 30
20. DATA Choice 31, Choice 32, Choice 33, Choice 34, Choice 35
21. DATA Choice 36, Choice 37, Choice 38, Choice 39, Choice 40
22. DATA Choice 41, Choice 42, Choice 43, Choice 44, Choice 45
23. DATA Choice 46, Choice 47, Choice 48, Choice 49, Choice 50
24. DATA Choice 51, Choice 52, Choice 53, Choice 54, Choice 55
25. DATA Choice 56, Choice 57, Choice 58, Choice 59, Choice 60
26.  
27. ChooseItem = 1          'Starting point of highlighted menu item
28. XMenuPosn = 10          'X starting point of menu
29. YMenuPosn = 3           'Y starting point of menu
30. MenuLine = 4            'Number of columns in the menu
31.  
32.  
33. '*** Fill the MenuItme Array ***
34.  
35. FOR Count = 1 TO UBOUND(MenuItem$)
36.         READ Temp$
37.         '*** Centre the Text ***
38.         Temp$ = SPACE$((15 - LEN(Temp$)) / 2) + Temp$
39.         MenuItem(Count) = Temp$
40. NEXT Count
41.  
42.  
43. CLS
44.  
45.  
46. GOSUB DrawMenu
47.  
48. '*** get cursor key movements and redraw menu ***
49. DO
50.         Cmmnd$ = INKEY$
51.        
52.         'Check for Esc key
53.         IF Cmmnd$ = CHR$(27) THEN
54.                 END
55.         END IF
56.         IF LEN(Cmmnd$) = 2 THEN Cmmnd$ = RIGHT$(Cmmnd$, 1)
57.        
58.         IF Cmmnd$ = "8" OR Cmmnd$ = CHR$(72) THEN GOSUB MoveUp
59.         IF Cmmnd$ = "2" OR Cmmnd$ = CHR$(80) THEN GOSUB MoveDown
60.         IF Cmmnd$ = "4" OR Cmmnd$ = CHR$(75) THEN GOSUB Moveleft
61.         IF Cmmnd$ = "6" OR Cmmnd$ = CHR$(77) THEN GOSUB MoveRight
62.         IF Cmmnd$ = "9" OR Cmmnd$ = CHR$(73) THEN GOSUB TopCol
63.         IF Cmmnd$ = "3" OR Cmmnd$ = CHR$(81) THEN GOSUB BottomCol
64.         IF Cmmnd$ = "7" OR Cmmnd$ = CHR$(71) THEN ChooseItem = 1
65.         IF Cmmnd$ = "1" OR Cmmnd$ = CHR$(79) THEN ChooseItem = UBOUND(MenuItem$)
66.  
67.  
68.         GOSUB DrawMenu
69.  
70. LOOP UNTIL Cmmnd$ = CHR$(13)
71.  
72. PRINT
73. COLOR 16, 10
74. PRINT "Item chosen ="; MenuItem(ChooseItem)
75.  
76. END:
77.  
78. DrawMenu:
79. 'Draw the menu
80. LOCATE YMenuPosn, XMenuPosn
81. FOR Count = 1 TO UBOUND(MenuItem$)
82.         IF Count = ChooseItem THEN COLOR 0, 1 ELSE COLOR 4, 1
83.         PRINT MenuItem$(Count);
84.         IF Count MOD MenuLine = 0 THEN
85.                 PRINT
86.                 LOCATE CSRLIN, XMenuPosn
87.         END IF
88.         NEXT Count
89. RETURN
90.  
91. MoveUp:
92. IF ChooseItem <= MenuLine THEN
93.         ChooseItem = UBOUND(MenuItem$) - (MenuItem MOD MenuLine)
94. ELSE
95.         ChooseItem = ChooseItem - MenuLine
96. END IF
97. RETURN
98.  
99. MoveDown:
100. IF ChooseItem > UBOUND(MenuItem$) - MenuLine THEN
101.         ChooseItem = ChooseItem MOD MenuLine
102. ELSE
103.         ChooseItem = ChooseItem + MenuLine
104. END IF
105. IF ChooseItem = 0 THEN ChooseItem = MenuLine
106. RETURN
107.  
108. Moveleft:
109. ChooseItem = ChooseItem - 1
110. IF ChooseItem = 0 THEN ChooseItem = UBOUND(MenuItem$)
111. RETURN
112.  
113. MoveRight:
114. ChooseItem = ChooseItem + 1
115. IF ChooseItem = UBOUND(MenuItem$) + 1 THEN ChooseItem = 1
116. RETURN
117.  
118. TopCol:
119. ChooseItem = ChooseItem MOD MenuLine
120. IF ChooseItem = 0 THEN ChooseItem = MenuLine
121. RETURN
122.  
123. BottomCol:
124. ChooseItem = UBOUND(MenuItem$) - (MenuLine - (ChooseItem MOD MenuLine))
125. IF MenuLine - (ChooseItem MOD MenuLine) = MenuLine THEN ChooseItem = UBOUND(MenuItem$)
126. RETURN
127.  
128.  

[bplus]

Color Foreground or Text Ink, Background or Paper Color

White on Blue is
Color 15, 9 for QB colors

Update better go 1 for blue 7 for white since cant do high white in background in default 0 screen.

Color 1,7 for blue print on low white paper and
color 7, 1 for white on blue background.

Screen 12 might get full range of background color. Yeah, Screen 12 is good 15 for white and 1 for blue, nice contrast (and way more room for menu items!).

Screen _NewImage(pixWidth, pixHeight, 32) ' give a really nice _RGB32(red, green, blue) color range

Code: QB64: [Select]

1. 'Menucol.bas    Ray Thomas      January 2002
2. 'Modified 01/29/2022
3. Screen 12
4.  
5. Option Base 1
6.  
7. Dim MenuItem(60) As String * 15 'Define the menu item array
8. Dim ChooseItem As Integer 'Currently chosen menu item
9. Dim XMenuPosn As Integer 'Controls the menu item X positions
10. Dim YMenuPosn As Integer 'Controls the menu item Y positions
11. Dim Count As Integer 'Array counter
12. Dim MenuLine As Integer 'Number of menu items per line
13. Dim Temp As String 'Used to centre text in the space
14.  
15. Data Choice 1,Choice 2,Longer Choice 3,Choice 4,Longer Choice 5
16. Data Choice 6,Choice 7,Choice 8,Choice 9,Choice 10
17. Data Choice 11,Choice 12,Choice 13,Choice 14,Choice 15
18. Data Choice 16,Choice 17,Choice 18,Choice 19,Choice 20
19. Data Choice 21,Choice 22,Choice 23,Choice 24,Choice 25
20. Data Choice 26,Choice 27,Choice 28,Choice 29,Choice 30
21. Data Choice 31,Choice 32,Choice 33,Choice 34,Choice 35
22. Data Choice 36,Choice 37,Choice 38,Choice 39,Choice 40
23. Data Choice 41,Choice 42,Choice 43,Choice 44,Choice 45
24. Data Choice 46,Choice 47,Choice 48,Choice 49,Choice 50
25. Data Choice 51,Choice 52,Choice 53,Choice 54,Choice 55
26. Data Choice 56,Choice 57,Choice 58,Choice 59,Choice 60
27.  
28. ChooseItem = 1 'Starting point of highlighted menu item
29. XMenuPosn = 10 'X starting point of menu
30. YMenuPosn = 3 'Y starting point of menu
31. MenuLine = 4 'Number of columns in the menu
32.  
33.  
34. '*** Fill the MenuItme Array ***
35.  
36. For Count = 1 To UBound(MenuItem$)
37.     Read Temp$
38.     '*** Centre the Text ***
39.     Temp$ = Space$((15 - Len(Temp$)) / 2) + Temp$
40.     MenuItem(Count) = Temp$
41. Next Count
42.  
43.  
44. Cls
45.  
46.  
47. GoSub DrawMenu
48.  
49. '*** get cursor key movements and redraw menu ***
50. Do
51.     Cmmnd$ = InKey$
52.  
53.     'Check for Esc key
54.     If Cmmnd$ = Chr$(27) Then
55.         End
56.     End If
57.     If Len(Cmmnd$) = 2 Then Cmmnd$ = Right$(Cmmnd$, 1)
58.  
59.     If Cmmnd$ = "8" Or Cmmnd$ = Chr$(72) Then GoSub MoveUp
60.     If Cmmnd$ = "2" Or Cmmnd$ = Chr$(80) Then GoSub MoveDown
61.     If Cmmnd$ = "4" Or Cmmnd$ = Chr$(75) Then GoSub Moveleft
62.     If Cmmnd$ = "6" Or Cmmnd$ = Chr$(77) Then GoSub MoveRight
63.     If Cmmnd$ = "9" Or Cmmnd$ = Chr$(73) Then GoSub TopCol
64.     If Cmmnd$ = "3" Or Cmmnd$ = Chr$(81) Then GoSub BottomCol
65.     If Cmmnd$ = "7" Or Cmmnd$ = Chr$(71) Then ChooseItem = 1
66.     If Cmmnd$ = "1" Or Cmmnd$ = Chr$(79) Then ChooseItem = UBound(MenuItem$)
67.  
68.  
69.     GoSub DrawMenu
70.  
71. Loop Until Cmmnd$ = Chr$(13)
72.  
73. Print
74. Color 1, 15
75. Print "Item chosen ="; MenuItem(ChooseItem)
76.  
77. End
78.  
79. DrawMenu:
80. Color 15, 1
81. 'Draw the menu
82. Locate YMenuPosn, XMenuPosn
83. For Count = 1 To UBound(MenuItem$)
84.     If Count = ChooseItem Then Color 1, 15 Else Color 15, 1
85.     Print MenuItem$(Count);
86.     If Count Mod MenuLine = 0 Then
87.         Print
88.         Locate CsrLin, XMenuPosn
89.     End If
90. Next Count
91. Return
92.  
93. MoveUp:
94. If ChooseItem <= MenuLine Then
95.     ChooseItem = UBound(MenuItem$) - (MenuItem)
96. Else
97.     ChooseItem = ChooseItem - MenuLine
98. End If
99. Return
100.  
101. MoveDown:
102. If ChooseItem > UBound(MenuItem$) - MenuLine Then
103.     ChooseItem = ChooseItem Mod MenuLine
104. Else
105.     ChooseItem = ChooseItem + MenuLine
106. End If
107. If ChooseItem = 0 Then ChooseItem = MenuLine
108. Return
109.  
110. Moveleft:
111. ChooseItem = ChooseItem - 1
112. If ChooseItem = 0 Then ChooseItem = UBound(MenuItem$)
113. Return
114.  
115. MoveRight:
116. ChooseItem = ChooseItem + 1
117. If ChooseItem = UBound(MenuItem$) + 1 Then ChooseItem = 1
118. Return
119.  
120. TopCol:
121. ChooseItem = ChooseItem Mod MenuLine
122. If ChooseItem = 0 Then ChooseItem = MenuLine
123. Return
124.  
125. BottomCol:
126. ChooseItem = UBound(MenuItem$) - (MenuLine - (ChooseItem Mod MenuLine))
127. If MenuLine - (ChooseItem Mod MenuLine) = MenuLine Then ChooseItem = UBound(MenuItem$)
128. Return
129.  
130.  

[bplus]

More room more colors:

Code: QB64: [Select]

1. 'Menucol.bas    Ray Thomas      January 2002
2. 'Modified 01/29/2022
3. Screen _NewImage(1024, 720, 32)
4. Const blue = &HFF112288
5. Const white = &HFFFFDDFF
6.  
7. Option Base 1
8.  
9. Dim MenuItem(60) As String * 15 'Define the menu item array
10. Dim ChooseItem As Integer 'Currently chosen menu item
11. Dim XMenuPosn As Integer 'Controls the menu item X positions
12. Dim YMenuPosn As Integer 'Controls the menu item Y positions
13. Dim Count As Integer 'Array counter
14. Dim MenuLine As Integer 'Number of menu items per line
15. Dim Temp As String 'Used to centre text in the space
16.  
17. Data Choice 1,Choice 2,Longer Choice 3,Choice 4,Longer Choice 5
18. Data Choice 6,Choice 7,Choice 8,Choice 9,Choice 10
19. Data Choice 11,Choice 12,Choice 13,Choice 14,Choice 15
20. Data Choice 16,Choice 17,Choice 18,Choice 19,Choice 20
21. Data Choice 21,Choice 22,Choice 23,Choice 24,Choice 25
22. Data Choice 26,Choice 27,Choice 28,Choice 29,Choice 30
23. Data Choice 31,Choice 32,Choice 33,Choice 34,Choice 35
24. Data Choice 36,Choice 37,Choice 38,Choice 39,Choice 40
25. Data Choice 41,Choice 42,Choice 43,Choice 44,Choice 45
26. Data Choice 46,Choice 47,Choice 48,Choice 49,Choice 50
27. Data Choice 51,Choice 52,Choice 53,Choice 54,Choice 55
28. Data Choice 56,Choice 57,Choice 58,Choice 59,Choice 60
29.  
30. ChooseItem = 1 'Starting point of highlighted menu item
31. XMenuPosn = 10 'X starting point of menu
32. YMenuPosn = 3 'Y starting point of menu
33. MenuLine = 4 'Number of columns in the menu
34.  
35.  
36. '*** Fill the MenuItme Array ***
37.  
38. For Count = 1 To UBound(MenuItem$)
39.     Read Temp$
40.     '*** Centre the Text ***
41.     Temp$ = Space$((15 - Len(Temp$)) / 2) + Temp$
42.     MenuItem(Count) = Temp$
43. Next Count
44.  
45.  
46. Cls
47.  
48.  
49. GoSub DrawMenu
50.  
51. '*** get cursor key movements and redraw menu ***
52. Do
53.     Cmmnd$ = InKey$
54.  
55.     'Check for Esc key
56.     If Cmmnd$ = Chr$(27) Then
57.         End
58.     End If
59.     If Len(Cmmnd$) = 2 Then Cmmnd$ = Right$(Cmmnd$, 1)
60.  
61.     If Cmmnd$ = "8" Or Cmmnd$ = Chr$(72) Then GoSub MoveUp
62.     If Cmmnd$ = "2" Or Cmmnd$ = Chr$(80) Then GoSub MoveDown
63.     If Cmmnd$ = "4" Or Cmmnd$ = Chr$(75) Then GoSub Moveleft
64.     If Cmmnd$ = "6" Or Cmmnd$ = Chr$(77) Then GoSub MoveRight
65.     If Cmmnd$ = "9" Or Cmmnd$ = Chr$(73) Then GoSub TopCol
66.     If Cmmnd$ = "3" Or Cmmnd$ = Chr$(81) Then GoSub BottomCol
67.     If Cmmnd$ = "7" Or Cmmnd$ = Chr$(71) Then ChooseItem = 1
68.     If Cmmnd$ = "1" Or Cmmnd$ = Chr$(79) Then ChooseItem = UBound(MenuItem$)
69.  
70.  
71.     GoSub DrawMenu
72.  
73. Loop Until Cmmnd$ = Chr$(13)
74.  
75. Print
76. Color blue, white
77. Print "Item chosen ="; MenuItem(ChooseItem)
78.  
79. End
80.  
81. DrawMenu:
82. Color white, blue
83. 'Draw the menu
84. Locate YMenuPosn, XMenuPosn
85. For Count = 1 To UBound(MenuItem$)
86.     If Count = ChooseItem Then Color blue, white Else Color white, blue
87.     Print MenuItem$(Count);
88.     If Count Mod MenuLine = 0 Then
89.         Print
90.         Locate CsrLin, XMenuPosn
91.     End If
92. Next Count
93. Return
94.  
95. MoveUp:
96. If ChooseItem <= MenuLine Then
97.     ChooseItem = UBound(MenuItem$) - (MenuItem)
98. Else
99.     ChooseItem = ChooseItem - MenuLine
100. End If
101. Return
102.  
103. MoveDown:
104. If ChooseItem > UBound(MenuItem$) - MenuLine Then
105.     ChooseItem = ChooseItem Mod MenuLine
106. Else
107.     ChooseItem = ChooseItem + MenuLine
108. End If
109. If ChooseItem = 0 Then ChooseItem = MenuLine
110. Return
111.  
112. Moveleft:
113. ChooseItem = ChooseItem - 1
114. If ChooseItem = 0 Then ChooseItem = UBound(MenuItem$)
115. Return
116.  
117. MoveRight:
118. ChooseItem = ChooseItem + 1
119. If ChooseItem = UBound(MenuItem$) + 1 Then ChooseItem = 1
120. Return
121.  
122. TopCol:
123. ChooseItem = ChooseItem Mod MenuLine
124. If ChooseItem = 0 Then ChooseItem = MenuLine
125. Return
126.  
127. BottomCol:
128. ChooseItem = UBound(MenuItem$) - (MenuLine - (ChooseItem Mod MenuLine))
129. If MenuLine - (ChooseItem Mod MenuLine) = MenuLine Then ChooseItem = UBound(MenuItem$)
130. Return
131.  
132.  
133.  
134.  

[QB64Curious]

Thanks, bplus.  Unfortunately, the examples don't compile in 4.5.

The first one returns an Illegal Function call, at the COLOR statement.  That's probably deceptive, and the error is occurring somewhere else.

The second returns an Expected: Expression error, at the Screen statement.

[QB64Curious]

Looks like the first attachment didn't make it.  This is the illegal function call error.

[bplus]

OK @QB64Curious I thought you were curious about QB64, so I show you QB64. (Where'd I get that idea??? LOL)

I am surprised

Code: QB64: [Select]

1. Color fore, back

doesn't work in QB<64??? but it's been years since I've coded in it.

Your first screen shot shows crap code ie Const declare mixed into a Screen command but no way that code would work in old QB, and 2nd doesn't show me enough code to see possible cause of error.

Does QB4.5 have screen 12? I don't remember.

[QB64Curious]

From a search on the web, it looks like 4.5 had 13 screens.


Yep, my plan for now is to work only with 4.5 compatible qb64 code.  The idea is to be able to code on the pc using qb64 during the day.  And when the mood strikes in the evening on the recliner or recumbent bike, code 4.5 on the android tablet.

Ok, I'll play with the code a bit, and post here when it's running ok.

[bplus]

Surely 7 for low white and 1 for blue should work even in that old dinosaur QB4.5 LOL!

Those don't change color when you swap colors in screen 0, default when no screen is declared.

[QB64Curious]

All set, thanks BPlus.

Code: QB64: [Select]

1. 'Menucol.bas    Ray Thomas      January 2002
2. 'Modified 01/29/2022
3.  
4. OPTION BASE 1
5. ' SCREEN 12  ' No idea why this is generating a compiler error.
6. CONST blue = 1
7. CONST white = 7
8.  
9. DIM MenuItem(60) AS STRING * 15 'Define the menu item array
10. DIM ChooseItem AS INTEGER       'Currently chosen menu item
11. DIM XMenuPosn AS INTEGER        'Controls the menu item X positions
12. DIM YMenuPosn AS INTEGER        'Controls the menu item Y positions
13. DIM Count AS INTEGER            'Array counter
14. DIM MenuLine AS INTEGER         'Number of menu items per line
15. DIM Temp AS STRING              'Used to centre text in the space
16.  
17. DATA Choice 1, Choice 2, Longer Choice 3, Choice 4, Longer Choice 5
18. DATA Choice 6, Choice 7, Choice 8, Choice 9, Choice 10
19. DATA Choice 11, Choice 12, Choice 13, Choice 14, Choice 15
20. DATA Choice 16, Choice 17, Choice 18, Choice 19, Choice 20
21. DATA Choice 21, Choice 22, Choice 23, Choice 24, Choice 25
22. DATA Choice 26, Choice 27, Choice 28, Choice 29, Choice 30
23. DATA Choice 31, Choice 32, Choice 33, Choice 34, Choice 35
24. DATA Choice 36, Choice 37, Choice 38, Choice 39, Choice 40
25. DATA Choice 41, Choice 42, Choice 43, Choice 44, Choice 45
26. DATA Choice 46, Choice 47, Choice 48, Choice 49, Choice 50
27. DATA Choice 51, Choice 52, Choice 53, Choice 54, Choice 55
28. DATA Choice 56, Choice 57, Choice 58, Choice 59, Choice 60
29.  
30. ChooseItem = 1          'Starting point of highlighted menu item
31. XMenuPosn = 10          'X starting point of menu
32. YMenuPosn = 3           'Y starting point of menu
33. MenuLine = 4            'Number of columns in the menu
34.  
35.  
36. '*** Fill the MenuItme Array ***
37.  
38. FOR Count = 1 TO UBOUND(MenuItem$)
39.         READ Temp$
40.         '*** Centre the Text ***
41.         Temp$ = SPACE$((15 - LEN(Temp$)) / 2) + Temp$
42.         MenuItem(Count) = Temp$
43. NEXT Count
44.  
45.  
46. CLS
47.  
48. COLOR white, blue
49. GOSUB DrawMenu
50.  
51. '*** get cursor key movements and redraw menu ***
52. DO
53.         Cmmnd$ = INKEY$
54.        
55.         'Check for Esc key
56.         IF Cmmnd$ = CHR$(27) THEN
57.                 END
58.         END IF
59.         IF LEN(Cmmnd$) = 2 THEN Cmmnd$ = RIGHT$(Cmmnd$, 1)
60.        
61.         IF Cmmnd$ = "8" OR Cmmnd$ = CHR$(72) THEN GOSUB MoveUp
62.         IF Cmmnd$ = "2" OR Cmmnd$ = CHR$(80) THEN GOSUB MoveDown
63.         IF Cmmnd$ = "4" OR Cmmnd$ = CHR$(75) THEN GOSUB Moveleft
64.         IF Cmmnd$ = "6" OR Cmmnd$ = CHR$(77) THEN GOSUB MoveRight
65.         IF Cmmnd$ = "9" OR Cmmnd$ = CHR$(73) THEN GOSUB TopCol
66.         IF Cmmnd$ = "3" OR Cmmnd$ = CHR$(81) THEN GOSUB BottomCol
67.         IF Cmmnd$ = "7" OR Cmmnd$ = CHR$(71) THEN ChooseItem = 1
68.         IF Cmmnd$ = "1" OR Cmmnd$ = CHR$(79) THEN ChooseItem = UBOUND(MenuItem$)
69.  
70.  
71.         GOSUB DrawMenu
72.  
73. LOOP UNTIL Cmmnd$ = CHR$(13)
74.  
75.     PRINT
76.     COLOR 7, 1
77.     PRINT "Item chosen ="; MenuItem(ChooseItem)
78.  
79. END:
80.  
81. DrawMenu:
82. 'Draw the menu
83. LOCATE YMenuPosn, XMenuPosn
84. FOR Count = 1 TO UBOUND(MenuItem$)
85.         IF Count = ChooseItem THEN COLOR blue, white ELSE COLOR white, blue
86.         PRINT MenuItem$(Count);
87.         IF Count MOD MenuLine = 0 THEN
88.                 PRINT
89.                 LOCATE CSRLIN, XMenuPosn
90.         END IF
91.         NEXT Count
92. RETURN
93.  
94. MoveUp:
95. IF ChooseItem <= MenuLine THEN
96.         ChooseItem = UBOUND(MenuItem$) - (MenuItem MOD MenuLine)
97. ELSE
98.         ChooseItem = ChooseItem - MenuLine
99. END IF
100. RETURN
101.  
102. MoveDown:
103. IF ChooseItem > UBOUND(MenuItem$) - MenuLine THEN
104.         ChooseItem = ChooseItem MOD MenuLine
105. ELSE
106.         ChooseItem = ChooseItem + MenuLine
107. END IF
108. IF ChooseItem = 0 THEN ChooseItem = MenuLine
109. RETURN
110.  
111. Moveleft:
112. ChooseItem = ChooseItem - 1
113. IF ChooseItem = 0 THEN ChooseItem = UBOUND(MenuItem$)
114. RETURN
115.  
116. MoveRight:
117. ChooseItem = ChooseItem + 1
118. IF ChooseItem = UBOUND(MenuItem$) + 1 THEN ChooseItem = 1
119. RETURN
120.  
121. TopCol:
122. ChooseItem = ChooseItem MOD MenuLine
123. IF ChooseItem = 0 THEN ChooseItem = MenuLine
124. RETURN
125.  
126. BottomCol:
127. ChooseItem = UBOUND(MenuItem$) - (MenuLine - (ChooseItem MOD MenuLine))
128. IF MenuLine - (ChooseItem MOD MenuLine) = MenuLine THEN ChooseItem = UBOUND(MenuItem$)
129. RETURN
130.