16 lines
485 B
Text
16 lines
485 B
Text
RANDOMIZE
|
|
LET nmax = 20
|
|
LET chosen = int(rnd*nmax)+1
|
|
PRINT "Guess a whole number between 1 a"; nmax; chr$(10)
|
|
DO
|
|
INPUT prompt "Enter your number ": guess
|
|
IF guess < n or guess > nmax then
|
|
PRINT "That was an invalid number"
|
|
EXIT DO
|
|
ELSE
|
|
IF guess < chosen then PRINT "Sorry, your number was too low"
|
|
IF guess > chosen then PRINT "Sorry, your number was too high"
|
|
IF guess = chosen then PRINT "Well guessed!"
|
|
END IF
|
|
LOOP until guess = chosen
|
|
END
|