Need help with menu in QBasic

[Manwë Sulimo]

i'd like to create a "hot key" menu in QB, i've tryed, but I could not figure how to do it.....could someone plz tell me how to do it?

[Manwë Sulimo]

i've tryed some more.....found one possible way.....it has one great issue thougth, it doesen't seem to respond at my first click, i have to click many times...

CLS
PRINT "please select one of the numbers"
PRINT "1...right"
PRINT "2...this works"
PRINT "3...yahoo"

DO
IF INKEY$ = CHR$(49) THEN GOTO blah
IF INKEY$ = CHR$(50) THEN GOTO blah1
IF INKEY$ = CHR$(51) THEN GOTO blah2
LOOP


blah:
CLS
PRINT "right!"
END

blah1:
CLS
PRINT "this works!"
END

blah2:
CLS
PRINT "YAHOO!"
END

anyone got a better way?

[Anonymous]

Code:

Dim ky As String

Cls

Print "please select one of the numbers"
Print "1...right"
Print "2...this works"
Print "3...yahoo"

Do
  ky = Inkey$

  If ky = Chr$(49) Then Goto blah
  If ky = Chr$(50) Then Goto blah1
  If ky = Chr$(51) Then Goto blah2

Loop


blah:
Cls
Print "right!"
End

blah1:
Cls
Print "this works!"
End

blah2:
Cls
Print "YAHOO!"
End

[Manwë Sulimo]

it works, thanks alot mate

[Anonymous]

anytime

[Agamemnus]

Nice work, cha0s...

[Manwë Sulimo]

now a new problem came up, from the menu I start a Game, it uses SCREEN 13, when the game exits, i've set it to go back to the menu...in the menu I have COLOR 5, 0.....it says "illigeal function call" what is wrong?

[na_th_an]

You can't set a background colour in mode 13h. Just go back to text mode with

Code:

SCREEN 0: WIDTH 80,25

before attempting to change colour/print/anything.

[Manwë Sulimo]

thx

[Agamemnus]

I am scared.