Okay MrMu1985, I'm not even going to get started about your bugged-up coding because you're obviously new to Qbasic, but here's what you could do for the menu. I quickly whipped up this code to emulate your in-game menu, you can cut and paste it into the appropriate spot. Good luck, hope it helps:
mx = 19
DO
menu$ = INKEY$
COLOR 10
LOCATE 14, 1
PRINT "Welcome to ULTIMATE BRAIN TEAZAS here you will be challenged to think"
PRINT "differently than you normally do. This is more a challenge of imagination"
PRINT "and Inguinity, and not rational thought, and formulas. Do have fun!"
PRINT "To use menu, press 8 or 2 to move up or dowm. press X to select."
IF menu$ = "2" THEN mx = 22
IF menu$ = "8" THEN mx = 19
IF menu$ <> "" THEN CLS
IF menu$ <> "" THEN SOUND 200, 1
LOCATE mx, 6: COLOR 4: PRINT CHR$(16)
LOCATE 19, 8: COLOR 15: PRINT "Start Game"
LOCATE 22, 8: COLOR 15: PRINT "Instructions"
LOOP UNTIL UCASE$(menu$) = "X"
CLS
SOUND 300, 1
SOUND 400, 1
SELECT CASE mx
CASE IS = 19
GOTO pword
CASE IS = 22
PRINT "Just a test"
END SELECT