Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: QB64Curious on January 29, 2022, 10:20:05 pm

Title: How to get this kind of color background, with this menu item colors
Post by: QB64Curious on January 29, 2022, 10:20:05 pm
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.  
  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.  
  44.  
  45.  
  46. GOSUB DrawMenu
  47.  
  48. '*** get cursor key movements and redraw menu ***
  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.  
  73. COLOR 16, 10
  74. PRINT "Item chosen ="; MenuItem(ChooseItem)
  75.  
  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
  90.  
  91. MoveUp:
  92. IF ChooseItem <= MenuLine THEN
  93.         ChooseItem = UBOUND(MenuItem$) - (MenuItem MOD MenuLine)
  95.         ChooseItem = ChooseItem - MenuLine
  98.  
  99. MoveDown:
  100. IF ChooseItem > UBOUND(MenuItem$) - MenuLine THEN
  101.         ChooseItem = ChooseItem MOD MenuLine
  103.         ChooseItem = ChooseItem + MenuLine
  105. IF ChooseItem = 0 THEN ChooseItem = MenuLine
  107.  
  108. Moveleft:
  109. ChooseItem = ChooseItem - 1
  110. IF ChooseItem = 0 THEN ChooseItem = UBOUND(MenuItem$)
  112.  
  113. MoveRight:
  114. ChooseItem = ChooseItem + 1
  115. IF ChooseItem = UBOUND(MenuItem$) + 1 THEN ChooseItem = 1
  117.  
  118. TopCol:
  119. ChooseItem = ChooseItem MOD MenuLine
  120. IF ChooseItem = 0 THEN ChooseItem = MenuLine
  122.  
  123. BottomCol:
  124. ChooseItem = UBOUND(MenuItem$) - (MenuLine - (ChooseItem MOD MenuLine))
  125. IF MenuLine - (ChooseItem MOD MenuLine) = MenuLine THEN ChooseItem = UBOUND(MenuItem$)
  127.  
  128.  

Title: Re: How to get this kind of color background, with this menu item colors
Post by: bplus on January 29, 2022, 10:33:48 pm
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
  4.  
  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.  
  45.  
  46.  
  47. GoSub DrawMenu
  48.  
  49. '*** get cursor key movements and redraw menu ***
  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.  
  74. Color 1, 15
  75. Print "Item chosen ="; MenuItem(ChooseItem)
  76.  
  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
  92.  
  93. MoveUp:
  94. If ChooseItem <= MenuLine Then
  95.     ChooseItem = UBound(MenuItem$) - (MenuItem)
  97.     ChooseItem = ChooseItem - MenuLine
  100.  
  101. MoveDown:
  102. If ChooseItem > UBound(MenuItem$) - MenuLine Then
  103.     ChooseItem = ChooseItem Mod MenuLine
  105.     ChooseItem = ChooseItem + MenuLine
  107. If ChooseItem = 0 Then ChooseItem = MenuLine
  109.  
  110. Moveleft:
  111. ChooseItem = ChooseItem - 1
  112. If ChooseItem = 0 Then ChooseItem = UBound(MenuItem$)
  114.  
  115. MoveRight:
  116. ChooseItem = ChooseItem + 1
  117. If ChooseItem = UBound(MenuItem$) + 1 Then ChooseItem = 1
  119.  
  120. TopCol:
  121. ChooseItem = ChooseItem Mod MenuLine
  122. If ChooseItem = 0 Then ChooseItem = MenuLine
  124.  
  125. BottomCol:
  126. ChooseItem = UBound(MenuItem$) - (MenuLine - (ChooseItem Mod MenuLine))
  127. If MenuLine - (ChooseItem Mod MenuLine) = MenuLine Then ChooseItem = UBound(MenuItem$)
  129.  
  130.  
Title: Re: How to get this kind of color background, with this menu item colors
Post by: bplus on January 29, 2022, 11:06:45 pm
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.  
  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.  
  47.  
  48.  
  49. GoSub DrawMenu
  50.  
  51. '*** get cursor key movements and redraw menu ***
  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.  
  76. Color blue, white
  77. Print "Item chosen ="; MenuItem(ChooseItem)
  78.  
  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
  94.  
  95. MoveUp:
  96. If ChooseItem <= MenuLine Then
  97.     ChooseItem = UBound(MenuItem$) - (MenuItem)
  99.     ChooseItem = ChooseItem - MenuLine
  102.  
  103. MoveDown:
  104. If ChooseItem > UBound(MenuItem$) - MenuLine Then
  105.     ChooseItem = ChooseItem Mod MenuLine
  107.     ChooseItem = ChooseItem + MenuLine
  109. If ChooseItem = 0 Then ChooseItem = MenuLine
  111.  
  112. Moveleft:
  113. ChooseItem = ChooseItem - 1
  114. If ChooseItem = 0 Then ChooseItem = UBound(MenuItem$)
  116.  
  117. MoveRight:
  118. ChooseItem = ChooseItem + 1
  119. If ChooseItem = UBound(MenuItem$) + 1 Then ChooseItem = 1
  121.  
  122. TopCol:
  123. ChooseItem = ChooseItem Mod MenuLine
  124. If ChooseItem = 0 Then ChooseItem = MenuLine
  126.  
  127. BottomCol:
  128. ChooseItem = UBound(MenuItem$) - (MenuLine - (ChooseItem Mod MenuLine))
  129. If MenuLine - (ChooseItem Mod MenuLine) = MenuLine Then ChooseItem = UBound(MenuItem$)
  131.  
  132.  
  133.  
  134.  
Title: Re: How to get this kind of color background, with this menu item colors
Post by: QB64Curious on January 30, 2022, 01:08:23 pm
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.
Title: Re: How to get this kind of color background, with this menu item colors
Post by: QB64Curious on January 30, 2022, 01:09:55 pm
Looks like the first attachment didn't make it.  This is the illegal function call error.
Title: Re: How to get this kind of color background, with this menu item colors
Post by: bplus on January 30, 2022, 01:42:55 pm
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.

Title: Re: How to get this kind of color background, with this menu item colors
Post by: QB64Curious on January 30, 2022, 02:59:46 pm
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.
Title: Re: How to get this kind of color background, with this menu item colors
Post by: bplus on January 30, 2022, 03:14:09 pm
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.
Title: Re: How to get this kind of color background, with this menu item colors
Post by: QB64Curious on January 30, 2022, 04:03:41 pm
All set, thanks BPlus.

Code: QB64: [Select]
  1. 'Menucol.bas    Ray Thomas      January 2002
  2. 'Modified 01/29/2022
  3.  
  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.  
  47.  
  48. COLOR white, blue
  49. GOSUB DrawMenu
  50.  
  51. '*** get cursor key movements and redraw menu ***
  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.  
  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
  93.  
  94. MoveUp:
  95. IF ChooseItem <= MenuLine THEN
  96.         ChooseItem = UBOUND(MenuItem$) - (MenuItem MOD MenuLine)
  98.         ChooseItem = ChooseItem - MenuLine
  101.  
  102. MoveDown:
  103. IF ChooseItem > UBOUND(MenuItem$) - MenuLine THEN
  104.         ChooseItem = ChooseItem MOD MenuLine
  106.         ChooseItem = ChooseItem + MenuLine
  108. IF ChooseItem = 0 THEN ChooseItem = MenuLine
  110.  
  111. Moveleft:
  112. ChooseItem = ChooseItem - 1
  113. IF ChooseItem = 0 THEN ChooseItem = UBOUND(MenuItem$)
  115.  
  116. MoveRight:
  117. ChooseItem = ChooseItem + 1
  118. IF ChooseItem = UBOUND(MenuItem$) + 1 THEN ChooseItem = 1
  120.  
  121. TopCol:
  122. ChooseItem = ChooseItem MOD MenuLine
  123. IF ChooseItem = 0 THEN ChooseItem = MenuLine
  125.  
  126. BottomCol:
  127. ChooseItem = UBOUND(MenuItem$) - (MenuLine - (ChooseItem MOD MenuLine))
  128. IF MenuLine - (ChooseItem MOD MenuLine) = MenuLine THEN ChooseItem = UBOUND(MenuItem$)
  130.  
Text Only | Text with Attachments