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

20 input "Devinez le nombre: ", i
e = e + 1
if i > n then print "Trop grand !"
if i < n then print "Trop petit !"
if i = n then goto 42
goto 20

42 print "Bravo, vous avez trouvé en ", e, " essais!"
end