Etape 7/7 : Solution du Jeu du Nombre Mystérieux:

TextWindow.WriteLine("Le Jeu Du Nombre Mystérieux, d'après Lady Lovelace")
TextWindow.WriteLine("**************************************************")
TextWindow.WriteLine("")
vAtrouver = Math.GetRandomNumber(1000)
vNombre = -1
vCoup = 0

WHILE (vNombre <> vAtrouver)

TextWindow.Write("Saisissez un nombre compris entre 0 et 1000: ")
vNombre = TextWindow.ReadNumber()

IF (vNombre > vAtrouver) THEN
TextWindow.WriteLine("Votre suggestion est trop grande.")
ENDIF

IF (vNombre < vAtrouver) THEN
TextWindow.WriteLine("Votre suggestion est trop petite.")
ENDIF

vCoup = vCoup + 1

ENDWHILE

TextWindow.WriteLine(vNombre + " était le nombre à trouver!")
TextWindow.WriteLine("Vous l'avez trouvé en " + vCoup + " coups...")

Dans le prochain épisode, nous verrons que Small Basic possède des instructions graphiques nombreuses et qu'il fait un clin d'oeil à un autre célèbre "langage pour tous" des années 80: le LOGO!