13 lines
423 B
Text
13 lines
423 B
Text
100 CLS
|
|
120 L = 20
|
|
130 X = INT(RND(1)*L)+1
|
|
140 PRINT "Guess a whole number between 1 a ";L;CHR$(10)
|
|
150 'do
|
|
160 INPUT "Enter your number: "; N
|
|
170 IF N < N OR N > L THEN PRINT "That was an invalid number" : GOTO 230
|
|
180 'else
|
|
190 IF N < X THEN PRINT "Sorry, your number was too low"
|
|
200 IF N > X THEN PRINT "Sorry, your number was too high"
|
|
210 IF N = X THEN PRINT "Well guessed!"
|
|
220 IF N <> X THEN GOTO 150
|
|
230 END
|