How do you make games using q basic?

Answer 1

RANDOMIZE TIMER

rndNumber% = INT(RND * 100) + 1

winFlag% = 0

CLS

PRINT "PROGRAM: Guess the number"

PRINT

PRINT "I'm thinking of a number between: 1-100. You've 7 guesses..."

PRINT

PRINT "Guess No"

FOR eachGuessNo% = 1 TO 7

PRINT eachGuessNo%; "> ";

INPUT "What is my number"; guessNum%

IF guessNum% = rndNumber% THEN

PRINT "Yes, correct guess; you WIN!"

winFlag% = 1

EXIT FOR

END IF

NEXT

IF winFlag% = 0 THEN PRINT "No, you guessed WRONG! I the computer WIN!"

PRINT "My number was: "; rndNumber%

PRINT

PRINT "Again, Y/N"; yesNo$

DO

yesNo$ = INKEY$

LOOP UNTIL yesNo$ <> ""

IF UCASE$(LEFT$(yesNo$, 1)) = "Y" THEN RUN

END