summaryrefslogtreecommitdiff
path: root/src/user/app/kbasic/guess.bas
blob: f15ba49dcd1872a853d8904f95877131fc9b014c (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
n = RND % 100
e = 0

20 input "Guess the number: ", i
e = e + 1
if i > n then print "Too big!"
if i < n then print "Too small!"
if i = n then goto 42
goto 20

42 print "That's right! You got it with only ", e, " guesses!"
end