A problem with highlighting text

Author

Message

Yodaman Jer

User Banned

Posted: 26th Jun 2009 04:10

So yesterday I started an interesting project; a primitive, Windows XP look-alike 'OS'. I opened up DarkEDIT and wondered what the heck I was going to code, then I though about trying to use boxes to re-produce some of what Windows looks like. I remembered seeing somebody do this months ago, but can't remember what board it was on.

Anyway, here's a screenshot of it so far, and then I'll tell you about the slight problem I'm having...

The problem I'm having is highlighting any of the text in the drop-down menu. When the mouse is over a certain region, it inverts the text and adds a little arrow to show that a sub-meu will pop-up (not yet implemented). It will invert perfectly, but I have no idea how to set it back to normal. If I use the CLS command, it only clears the screen of everything else and shows the inverted text!

I had no problems with resetting the highlighted 'Go' button, but this is proving difficult. Here's my code...feel free to copy it and run it, it's not like it's anything special.

It's really just a bunch of boxes that look like Windows, it doesn't actually act like it. The unfilled box function was written by TheComet and I threw it in this program. It will have a use later.

Remstart
 ---------------------------------------------------
 - Yodaman Jer's OS Simulation Program  | 6/24/09  -
 ---------------------------------------------------
 - Comments: This program uses 2D graphics to      -
 - recreate the Windows XP look and feel..sort of. -
 - The DrawBox function was written by TheComet.   -
 ---------------------------------------------------
Remend

Rem Call the setup procedure
Gosub _Setup

Rem -------------------------------
Rem Main Program Loop
Rem -------------------------------

Rem Set the click variable to 0
click=0 : GoButton=0 : GoMenu=0
Do

Show Mouse : `Shows the cursor again on startup

Rem Use a box to paint the desktop dark blue
 Ink RGB(55,55,55),0
 x1=1 : y1=1 : x2=1023 : y2=767
 Box x1,y1,x2,y2

Rem Draw the taskbar at the top of the screen
 Ink RGB(0,95,255),0
 x1=1 : y1=1 : x2=1023 : y2=21
 Box x1,y1,x2,y2

Rem Draw the 'Go' button
 Ink RGB(0,255,105),0
 x1=1 : y1=1 : x2=45 : y2=21
 Box x1,y1,x2,y2

Rem Draw the Go text
 Ink RGB(0,0,0),0
 Text 6,3,"Go"
 Ink RGB(255,255,255),0
 Text 5,2,"Go"

Rem Draw an unfilled box (written by TheComet)
   Rem check if mouse is pressed
   If MouseClick()=1

Rem set start positions
      If click=0
         startx=mousex()
         starty=mousey()
         click=1
      EndIf

Rem get end positions
      endx=mousex()
      endy=mousey()

Rem draw box
      empty_box(startx,starty,endx,endy,255,255,255)

Else
      click=0
   Endif

Rem Check to see if the go button is being pressed
   Mx=MouseX() : My=MouseY() : Mc=MouseClick()

If Mx=< 45 and My=< 21 And Mx=>1 And My=> 1
    GoButton=1
   Else
    GoButton=0
   Endif

Rem If Go button is pressed then open the go menu
   If GoButton=1
    Rem Highlight the Go Button
    Ink RGB(0,255,45),0
    x1=1 : y1=1 : x2=45 : y2=21
    Box x1,y1,x2,y2
    Ink RGB(255,255,255),0
    Text 6,3,"Go"
    Ink RGB(0,0,0),0
    Text 5,2,"Go"

If Mc=1 And GoButton=1 Then GoMenu=1

Rem Draw the Go Menu
     If GoMenu=1
      Gosub _GoMenu

Rem Reset variables if mouse is out-of-bounds
      If GoButton=1 Then GoButton=0
      If GoMenu=1 Then GoMenu=0
      If Mc=1 Then Mc=0
     EndIf
    EndIf

Rem refresh screen
   Sync

Rem end of main loop
loop

Rem ------------------------------------------------
Rem Subroutines (also known as Procedures)
Rem ------------------------------------------------

Rem The Setup Procedure
_Setup:
 Set Display Mode 1024,768,32
 Sync On : Sync Rate 60 : Cls 0
 Hide Mouse : `Hides the DB Cursor
Return

Rem -----------------------------------
Rem Go menu procedure
_GoMenu:
 Rem Show the Go Menu
 Ink RGB(0,95,255),0
 x1=1 : y1=25 : x2=350 : y2=450
 Box x1,y1,x2,y2

Rem Put items in the Go Menu
 Ink RGB(0,125,255),0
 x1=10 : y1=30 : x2=135 : y2=440
 Box x1,y1,x2,y2

Rem Show the applications sub-menu
 Ink RGB(0,0,0),0
 Text 15,35,"Applications"
 Ink RGB(255,255,255),0
 Text 14,34,"Applications"

Rem Show the documents
 Ink RGB(0,0,0),0
 Text 15,65,"Documents"
 Ink RGB(255,255,255),0
 Text 14,64,"Documents"

Rem Show the computer resources
 Ink RGB(0,0,0),0
 Text 15,95,"The Computer"
 Ink RGB(255,255,255),0
 Text 14,94,"The Computer"

Rem Show the games section
 Ink RGB(0,0,0),0
 Text 15,125,"Games"
 Ink RGB(255,255,255),0
 Text 14,124,"Games"

Rem Set variables to use to check for the mouse hovering on an icon
 App=0 : Docs=0 : Comp=0 : Games=0

Rem Wait until the mouse clicks again
 Do

Rem Exit loop is right mouse button is pressed
  If MouseClick()=2 Then Exit
  Rem Check to see if the mouse is hovering over anything
  Mx=MouseX() : My=MouseY() : Mc=MouseClick()

If Mx=< 135 and My=< 45 And Mx=>10 And My=> 30
   App=1
  Else
   App=0
  Endif

If Mc=1 And App=1 Then GoMenu=1
  Rem If App=1...
  If App=1
   Ink RGB(255,255,255),0
   Text 15,35,"Applications >"
   Ink RGB(0,0,0),0
   Text 14,34,"Applications >"
  EndIf

Rem Reset variables if mouse is out-of-bounds
   If App=1 Then App=0

Sync
 Loop
Return

Rem Functions ------------------------------------------------------------

function empty_box(x1,y1,x2,y2,r,g,b)

rem set ink colour
   ink rgb(r,g,b),0

rem make sure x1 and y1 are always smaller than x2 and y2
   if x1>x2 then x3=x1:x1=x2:x2=x3
   if y1>y2 then y3=y1:y1=y2:y2=y3

rem draw box
   box x1,y1-1,x2,y1
   box x2,y1,x2+1,y2
   box x1,y2,x2,y2+1
   box x1-1,y1,x1,y2

endfunction

+ Code Snippet

Remstart
 ---------------------------------------------------
 - Yodaman Jer's OS Simulation Program  | 6/24/09  -
 ---------------------------------------------------
 - Comments: This program uses 2D graphics to      -
 - recreate the Windows XP look and feel..sort of. -
 - The DrawBox function was written by TheComet.   -
 ---------------------------------------------------
Remend

Rem Call the setup procedure
Gosub _Setup

Rem -------------------------------
Rem Main Program Loop
Rem -------------------------------

Rem Set the click variable to 0
click=0 : GoButton=0 : GoMenu=0
Do

 Show Mouse : `Shows the cursor again on startup

 Rem Use a box to paint the desktop dark blue
 Ink RGB(55,55,55),0
 x1=1 : y1=1 : x2=1023 : y2=767
 Box x1,y1,x2,y2

 Rem Draw the taskbar at the top of the screen
 Ink RGB(0,95,255),0
 x1=1 : y1=1 : x2=1023 : y2=21
 Box x1,y1,x2,y2

 Rem Draw the 'Go' button
 Ink RGB(0,255,105),0
 x1=1 : y1=1 : x2=45 : y2=21
 Box x1,y1,x2,y2

 Rem Draw the Go text
 Ink RGB(0,0,0),0
 Text 6,3,"Go"
 Ink RGB(255,255,255),0
 Text 5,2,"Go"

   Rem Draw an unfilled box (written by TheComet)
   Rem check if mouse is pressed
   If MouseClick()=1

      Rem set start positions
      If click=0
         startx=mousex()
         starty=mousey()
         click=1
      EndIf

      Rem get end positions
      endx=mousex()
      endy=mousey()

      Rem draw box
      empty_box(startx,starty,endx,endy,255,255,255)

   Else
      click=0
   Endif


   Rem Check to see if the go button is being pressed
   Mx=MouseX() : My=MouseY() : Mc=MouseClick()

   If Mx=< 45 and My=< 21 And Mx=>1 And My=> 1
    GoButton=1
   Else
    GoButton=0
   Endif

   Rem If Go button is pressed then open the go menu
   If GoButton=1
    Rem Highlight the Go Button
    Ink RGB(0,255,45),0
    x1=1 : y1=1 : x2=45 : y2=21
    Box x1,y1,x2,y2
    Ink RGB(255,255,255),0
    Text 6,3,"Go"
    Ink RGB(0,0,0),0
    Text 5,2,"Go"

    If Mc=1 And GoButton=1 Then GoMenu=1

     Rem Draw the Go Menu
     If GoMenu=1
      Gosub _GoMenu

     Rem Reset variables if mouse is out-of-bounds
      If GoButton=1 Then GoButton=0
      If GoMenu=1 Then GoMenu=0
      If Mc=1 Then Mc=0
     EndIf
    EndIf

   Rem refresh screen
   Sync

Rem end of main loop
loop



Rem ------------------------------------------------
Rem Subroutines (also known as Procedures)
Rem ------------------------------------------------

Rem The Setup Procedure
_Setup:
 Set Display Mode 1024,768,32
 Sync On : Sync Rate 60 : Cls 0
 Hide Mouse : `Hides the DB Cursor
Return

Rem -----------------------------------
Rem Go menu procedure
_GoMenu:
 Rem Show the Go Menu
 Ink RGB(0,95,255),0
 x1=1 : y1=25 : x2=350 : y2=450
 Box x1,y1,x2,y2

 Rem Put items in the Go Menu
 Ink RGB(0,125,255),0
 x1=10 : y1=30 : x2=135 : y2=440
 Box x1,y1,x2,y2

 Rem Show the applications sub-menu
 Ink RGB(0,0,0),0
 Text 15,35,"Applications"
 Ink RGB(255,255,255),0
 Text 14,34,"Applications"

 Rem Show the documents
 Ink RGB(0,0,0),0
 Text 15,65,"Documents"
 Ink RGB(255,255,255),0
 Text 14,64,"Documents"

 Rem Show the computer resources
 Ink RGB(0,0,0),0
 Text 15,95,"The Computer"
 Ink RGB(255,255,255),0
 Text 14,94,"The Computer"

 Rem Show the games section
 Ink RGB(0,0,0),0
 Text 15,125,"Games"
 Ink RGB(255,255,255),0
 Text 14,124,"Games"

 Rem Set variables to use to check for the mouse hovering on an icon
 App=0 : Docs=0 : Comp=0 : Games=0

 Rem Wait until the mouse clicks again
 Do

  Rem Exit loop is right mouse button is pressed
  If MouseClick()=2 Then Exit
  Rem Check to see if the mouse is hovering over anything
  Mx=MouseX() : My=MouseY() : Mc=MouseClick()

  If Mx=< 135 and My=< 45 And Mx=>10 And My=> 30
   App=1
  Else
   App=0
  Endif

  If Mc=1 And App=1 Then GoMenu=1
  Rem If App=1...
  If App=1
   Ink RGB(255,255,255),0
   Text 15,35,"Applications >"
   Ink RGB(0,0,0),0
   Text 14,34,"Applications >"
  EndIf



  Rem Reset variables if mouse is out-of-bounds
   If App=1 Then App=0





  Sync
 Loop
Return



Rem Functions ------------------------------------------------------------

function empty_box(x1,y1,x2,y2,r,g,b)

   rem set ink colour
   ink rgb(r,g,b),0

   rem make sure x1 and y1 are always smaller than x2 and y2
   if x1>x2 then x3=x1:x1=x2:x2=x3
   if y1>y2 then y3=y1:y1=y2:y2=y3

   rem draw box
   box x1,y1-1,x2,y1
   box x2,y1,x2+1,y2
   box x1,y2,x2,y2+1
   box x1-1,y1,x1,y2

endfunction

Does anybody know how I can get it so that I can reset the inverted text back to normal if the mouse is no longer hovering over that certain area? I fear it may be caused by using a subroutine for the Go Menu.

To exit the Go Menu, just right-click. Thanks to any and all who can help me out with this, and I apologize if the answer is really easy! I also just wanted an excuse to post this work of mine, too.

Click to go to our website!

Back to top

Profile

Dark Dragon

17

Years of Service

User Offline

Joined: 22nd Jun 2007

Location: In the ring, Kickin\' *donkeybutt*.

Posted: 26th Jun 2009 04:38

Link

What exactly is your problem Yoda?

Your signature has been erased by a mod because it was too big.CHANGE IT OR DIE!!!!!

Back to top

Profile PM

Yodaman Jer

User Banned

Posted: 26th Jun 2009 04:47

Link

My problem is that when I open up the menu and highlight the 'Applications' option (there's no apps yet, and probably won't be...), the text will invert the colors (to show that it's highlighted), and yet when I move the mouse away it doesn't reset back to normal. Here's a pic to show what I mean:

I think it's caused by using a subroutine for the drop-down menu. I think I know a way to get around it, but it'll take a little while. I'll post back to tell you how it works out.

Click to go to our website!

Back to top

Profile

Yodaman Jer

User Banned

Posted: 26th Jun 2009 05:07

Link

Ah-ha!

Sometimes the answer is very, very simple. I simply had to re-draw the boxes that form the taskbar before using the CLS command.

I changed the menu subroutine from this:

Rem -----------------------------------
Rem Go menu procedure
_GoMenu:
 Rem Show the Go Menu
 Ink RGB(0,95,255),0
 x1=1 : y1=25 : x2=350 : y2=450
 Box x1,y1,x2,y2

Rem Put items in the Go Menu
 Ink RGB(0,125,255),0
 x1=10 : y1=30 : x2=135 : y2=440
 Box x1,y1,x2,y2

Rem Show the applications sub-menu
 Ink RGB(0,0,0),0
 Text 15,35,"Applications"
 Ink RGB(255,255,255),0
 Text 14,34,"Applications"

Rem Show the documents
 Ink RGB(0,0,0),0
 Text 15,65,"Documents"
 Ink RGB(255,255,255),0
 Text 14,64,"Documents"

Rem Show the computer resources
 Ink RGB(0,0,0),0
 Text 15,95,"The Computer"
 Ink RGB(255,255,255),0
 Text 14,94,"The Computer"

Rem Show the games section
 Ink RGB(0,0,0),0
 Text 15,125,"Games"
 Ink RGB(255,255,255),0
 Text 14,124,"Games"

Rem Set variables to use to check for the mouse hovering on an icon
 App=0 : Docs=0 : Comp=0 : Games=0

Rem Wait until the mouse clicks again
 Do

Rem Exit loop is right mouse button is pressed
  If MouseClick()=2 Then Exit
  Rem Check to see if the mouse is hovering over anything
  Mx=MouseX() : My=MouseY() : Mc=MouseClick()

If Mx=< 135 and My=< 45 And Mx=>10 And My=> 30
   App=1
  Else
   App=0
  Endif

If Mc=1 And App=1 Then GoMenu=1
  Rem If App=1...
  If App=1
   Ink RGB(255,255,255),0
   Text 15,35,"Applications >"
   Ink RGB(0,0,0),0
   Text 14,34,"Applications >"
  EndIf

Rem Reset variables if mouse is out-of-bounds
   If App=1 Then App=0

Sync
 Loop
Return

+ Code Snippet

Rem -----------------------------------
Rem Go menu procedure
_GoMenu:
 Rem Show the Go Menu
 Ink RGB(0,95,255),0
 x1=1 : y1=25 : x2=350 : y2=450
 Box x1,y1,x2,y2

 Rem Put items in the Go Menu
 Ink RGB(0,125,255),0
 x1=10 : y1=30 : x2=135 : y2=440
 Box x1,y1,x2,y2

 Rem Show the applications sub-menu
 Ink RGB(0,0,0),0
 Text 15,35,"Applications"
 Ink RGB(255,255,255),0
 Text 14,34,"Applications"

 Rem Show the documents
 Ink RGB(0,0,0),0
 Text 15,65,"Documents"
 Ink RGB(255,255,255),0
 Text 14,64,"Documents"

 Rem Show the computer resources
 Ink RGB(0,0,0),0
 Text 15,95,"The Computer"
 Ink RGB(255,255,255),0
 Text 14,94,"The Computer"

 Rem Show the games section
 Ink RGB(0,0,0),0
 Text 15,125,"Games"
 Ink RGB(255,255,255),0
 Text 14,124,"Games"

 Rem Set variables to use to check for the mouse hovering on an icon
 App=0 : Docs=0 : Comp=0 : Games=0

 Rem Wait until the mouse clicks again
 Do

  Rem Exit loop is right mouse button is pressed
  If MouseClick()=2 Then Exit
  Rem Check to see if the mouse is hovering over anything
  Mx=MouseX() : My=MouseY() : Mc=MouseClick()

  If Mx=< 135 and My=< 45 And Mx=>10 And My=> 30
   App=1
  Else
   App=0
  Endif

  If Mc=1 And App=1 Then GoMenu=1
  Rem If App=1...
  If App=1
   Ink RGB(255,255,255),0
   Text 15,35,"Applications >"
   Ink RGB(0,0,0),0
   Text 14,34,"Applications >"
  EndIf



  Rem Reset variables if mouse is out-of-bounds
   If App=1 Then App=0





  Sync
 Loop
Return

To this:

Rem -----------------------------------
Rem Go menu procedure
_GoMenu:

Rem Set variables to use to check for the mouse hovering on an icon
 App=0 : Docs=0 : Comp=0 : Games=0

Rem Wait until the mouse clicks again
  Do
  Cls

Rem Use a box to paint the desktop
  Ink RGB(55,55,55),0
  x1=1 : y1=1 : x2=1023 : y2=767
  Box x1,y1,x2,y2

Rem Draw the taskbar at the top of the screen
  Ink RGB(0,95,255),0
  x1=1 : y1=1 : x2=1023 : y2=21
  Box x1,y1,x2,y2

Rem Draw the 'Go' button
  Ink RGB(0,255,105),0
  x1=1 : y1=1 : x2=45 : y2=21
  Box x1,y1,x2,y2

Rem Draw the Go text
  Ink RGB(0,0,0),0
  Text 6,3,"Go"
  Ink RGB(255,255,255),0
  Text 5,2,"Go"

Rem Show the Go Menu
 Ink RGB(0,95,255),0
 x1=1 : y1=25 : x2=350 : y2=450
 Box x1,y1,x2,y2

Rem Put items in the Go Menu
 Ink RGB(0,125,255),0
 x1=10 : y1=30 : x2=135 : y2=440
 Box x1,y1,x2,y2

Rem Show the applications sub-menu
 Ink RGB(0,0,0),0
 Text 15,35,"Applications"
 Ink RGB(255,255,255),0
 Text 14,34,"Applications"

Rem Show the documents
 Ink RGB(0,0,0),0
 Text 15,65,"Documents"
 Ink RGB(255,255,255),0
 Text 14,64,"Documents"

Rem Show the computer resources
 Ink RGB(0,0,0),0
 Text 15,95,"The Computer"
 Ink RGB(255,255,255),0
 Text 14,94,"The Computer"

Rem Show the games section
 Ink RGB(0,0,0),0
 Text 15,125,"Games"
 Ink RGB(255,255,255),0
 Text 14,124,"Games"

Rem Exit loop is right mouse button is pressed
  If MouseClick()=2 Then Exit
  Rem Check to see if the mouse is hovering over anything
  Mx=MouseX() : My=MouseY() : Mc=MouseClick()

If Mx=< 135 and My=< 45 And Mx=>10 And My=> 30
   App=1
  Else
   App=0
  Endif

Rem If App=1...
  If App=1
   Ink RGB(255,255,255),0
   Text 15,35,"Applications >"
   Ink RGB(0,0,0),0
   Text 14,34,"Applications >"
  EndIf

Rem Reset variables if mouse is out-of-bounds
   If App=1 Then App=0

Sync
 Loop
Return

+ Code Snippet

Rem -----------------------------------
Rem Go menu procedure
_GoMenu:

 Rem Set variables to use to check for the mouse hovering on an icon
 App=0 : Docs=0 : Comp=0 : Games=0

  Rem Wait until the mouse clicks again
  Do
  Cls

  Rem Use a box to paint the desktop
  Ink RGB(55,55,55),0
  x1=1 : y1=1 : x2=1023 : y2=767
  Box x1,y1,x2,y2

  Rem Draw the taskbar at the top of the screen
  Ink RGB(0,95,255),0
  x1=1 : y1=1 : x2=1023 : y2=21
  Box x1,y1,x2,y2

  Rem Draw the 'Go' button
  Ink RGB(0,255,105),0
  x1=1 : y1=1 : x2=45 : y2=21
  Box x1,y1,x2,y2

  Rem Draw the Go text
  Ink RGB(0,0,0),0
  Text 6,3,"Go"
  Ink RGB(255,255,255),0
  Text 5,2,"Go"

 Rem Show the Go Menu
 Ink RGB(0,95,255),0
 x1=1 : y1=25 : x2=350 : y2=450
 Box x1,y1,x2,y2

 Rem Put items in the Go Menu
 Ink RGB(0,125,255),0
 x1=10 : y1=30 : x2=135 : y2=440
 Box x1,y1,x2,y2

 Rem Show the applications sub-menu
 Ink RGB(0,0,0),0
 Text 15,35,"Applications"
 Ink RGB(255,255,255),0
 Text 14,34,"Applications"

 Rem Show the documents
 Ink RGB(0,0,0),0
 Text 15,65,"Documents"
 Ink RGB(255,255,255),0
 Text 14,64,"Documents"

 Rem Show the computer resources
 Ink RGB(0,0,0),0
 Text 15,95,"The Computer"
 Ink RGB(255,255,255),0
 Text 14,94,"The Computer"

 Rem Show the games section
 Ink RGB(0,0,0),0
 Text 15,125,"Games"
 Ink RGB(255,255,255),0
 Text 14,124,"Games"

  Rem Exit loop is right mouse button is pressed
  If MouseClick()=2 Then Exit
  Rem Check to see if the mouse is hovering over anything
  Mx=MouseX() : My=MouseY() : Mc=MouseClick()

  If Mx=< 135 and My=< 45 And Mx=>10 And My=> 30
   App=1
  Else
   App=0
  Endif

  Rem If App=1...
  If App=1
   Ink RGB(255,255,255),0
   Text 15,35,"Applications >"
   Ink RGB(0,0,0),0
   Text 14,34,"Applications >"
  EndIf



  Rem Reset variables if mouse is out-of-bounds
   If App=1 Then App=0





  Sync
 Loop
Return

That fixed it right there! Here's the whole code for anyone who's interested:

Remstart
 ---------------------------------------------------
 - Yodaman Jer's OS Simulation Program  | 6/24/09  -
 ---------------------------------------------------
 - Comments: This program uses 2D graphics to      -
 - recreate the Windows XP look and feel..sort of. -
 - The DrawBox function was written by TheComet.   -
 ---------------------------------------------------
Remend

Rem Call the setup procedure
Gosub _Setup

Rem -------------------------------
Rem Main Program Loop
Rem -------------------------------

Rem Set the click variable to 0
click=0 : GoButton=0 : GoMenu=0
Do

Show Mouse : `Shows the cursor again on startup

Rem Use a box to paint the desktop
 Ink RGB(55,55,55),0
 x1=1 : y1=1 : x2=1023 : y2=767
 Box x1,y1,x2,y2

Rem Draw the taskbar at the top of the screen
 Ink RGB(0,95,255),0
 x1=1 : y1=1 : x2=1023 : y2=21
 Box x1,y1,x2,y2

Rem Draw the 'Go' button
 Ink RGB(0,255,105),0
 x1=1 : y1=1 : x2=45 : y2=21
 Box x1,y1,x2,y2

Rem Draw the Go text
 Ink RGB(0,0,0),0
 Text 6,3,"Go"
 Ink RGB(255,255,255),0
 Text 5,2,"Go"

Rem Draw an unfilled box (written by TheComet)
   Rem check if mouse is pressed
   If MouseClick()=1

Rem set start positions
      If click=0
         startx=mousex()
         starty=mousey()
         click=1
      EndIf

Rem get end positions
      endx=mousex()
      endy=mousey()

Rem draw box
      empty_box(startx,starty,endx,endy,255,255,255)

Else
      click=0
   Endif

Rem Check to see if the go button is being pressed
   Mx=MouseX() : My=MouseY() : Mc=MouseClick()

If Mx=< 45 and My=< 21 And Mx=>1 And My=> 1
    GoButton=1
   Else
    GoButton=0
   Endif

Rem If Go button is pressed then open the go menu
   If GoButton=1
    Rem Highlight the Go Button
    Ink RGB(0,255,45),0
    x1=1 : y1=1 : x2=45 : y2=21
    Box x1,y1,x2,y2
    Ink RGB(255,255,255),0
    Text 6,3,"Go"
    Ink RGB(0,0,0),0
    Text 5,2,"Go"

If Mc=1 And GoButton=1 Then GoMenu=1

Rem Draw the Go Menu
     If GoMenu=1
 Gosub _GoMenu