Fuente de ejemplo 2: Adivinar

Adivinar un número del 1 al 1000, en un máximo de 10 intentos. El número se debe generar al azar. En cada pasada, se debe avisar si el número intentado es demasiado grande o demasiado corto.

Podría quedar así:

Esta sería una forma de hacerlo:

10 ' Adivinar un numero
20 ' de 1 a 1000 en 10 intentos
30 '
40 ' Generamos el numero al azar
50 RANDOMIZE TIME
60 adivinar = INT(RND * 1000)
70 ' Valores iniciales
80 intentos = 10
90 numero = -1 : ' Valor irreal, para pedir al menos 1 vez
100 ' Parte repetitiva
105 CLS:PRINT "Tiene que adivinar un numero del 1 al   1000"
110 WHILE (numero <> adivinar) AND (intentos > 0)
120   PRINT:PRINT "Intentos restantes: "; intentos
130   INPUT "Introduzca un numero: ", numero
140   IF numero > adivinar THEN PRINT "Se ha pasado!"
150   IF numero < adivinar THEN PRINT "Se ha quedado corto!"
160   intentos = intentos - 1
170 WEND
180 IF numero = adivinar THEN PRINT "Perfecto!" ELSE PRINT "Lo siento, era: ";adivinar